trunk/t/2-input-isis.t

#!/usr/bin/perl -w

use Test::More tests => 48;
use Test::Exception;
use Cwd qw/abs_path/;
use blib;
use strict;

BEGIN {
use_ok( 'WebPAC::Input::ISIS' );
}

ok(my $abs_path = abs_path($0), "abs_path");
$abs_path =~ s#/[^/]*$#/#;

ok(my $isis = new WebPAC::Input::ISIS( no_log => 1 ), "new");
ok(my $isis_lm = new WebPAC::Input::ISIS( low_mem => 1, no_log => 1 ), "new");

throws_ok { $isis->open( ) } qr/filename/, "need filename";

throws_ok { $isis->open( filename => '/dev/null', ) } qr/can't find database/ , "open";

ok($isis->open( filename => "$abs_path/winisis/BIBL" ), "open");
ok($isis_lm->open( filename => "$abs_path/winisis/BIBL", low_mem => 1 ), "open");

cmp_ok($isis->pos, '==', -1, "mfn");

ok(my $size = $isis->size, "size");

my @db1;

foreach my $mfn ( 1 ... $size ) {
        ok(my $rec = $isis->fetch, "fetch");
        cmp_ok($isis->pos, '==', $mfn, "rec $mfn");
        push @db1, $rec;
}

my @db2;

foreach my $mfn ( 1 ... $size ) {
        ok($isis_lm->seek($mfn), "seek");
        ok(my $rec = $isis_lm->fetch, "fetch");
        cmp_ok($isis_lm->pos, '==', $mfn, "rec $mfn");
        push @db2, $rec;
}

is_deeply(\@db1, \@db2, "seek working");

sub test_start_limit($$$) {
        my ($s,$l,$e) = @_;

        diag "start_mfn: $s, limit_mfn: $l, expected: $e";

        ok($s = $isis->open( filename => "$abs_path/winisis/BIBL", start_mfn => $s, limit_mfn => $l, debug => 1 ), "open");
        cmp_ok($s, '==', $size, "db size from open");
        cmp_ok($isis->size, '==', $e, "size");
}

test_start_limit(1, 3, 3);
test_start_limit($size, 3, 0);
test_start_limit(3, $size, $size - 2);
test_start_limit(1, $size + 2, $size);

1	dpavlin	8	#!/usr/bin/perl -w
2
3	dpavlin	21	use Test::More tests => 48;
4	dpavlin	8	use Test::Exception;
5	dpavlin	9	use Cwd qw/abs_path/;
6	dpavlin	8	use blib;
7			use strict;
8
9			BEGIN {
10			use_ok( 'WebPAC::Input::ISIS' );
11			}
12
13	dpavlin	9	ok(my $abs_path = abs_path($0), "abs_path");
14			$abs_path =~ s#/[^/]*$#/#;
15
16	dpavlin	31	ok(my $isis = new WebPAC::Input::ISIS( no_log => 1 ), "new");
17			ok(my $isis_lm = new WebPAC::Input::ISIS( low_mem => 1, no_log => 1 ), "new");
18	dpavlin	8
19	dpavlin	31	throws_ok { $isis->open( ) } qr/filename/, "need filename";
20	dpavlin	8
21	dpavlin	31	throws_ok { $isis->open( filename => '/dev/null', ) } qr/can't find database/ , "open";
22	dpavlin	9
23			ok($isis->open( filename => "$abs_path/winisis/BIBL" ), "open");
24	dpavlin	10	ok($isis_lm->open( filename => "$abs_path/winisis/BIBL", low_mem => 1 ), "open");
25
26			cmp_ok($isis->pos, '==', -1, "mfn");
27
28			ok(my $size = $isis->size, "size");
29
30			my @db1;
31
32			foreach my $mfn ( 1 ... $size ) {
33			ok(my $rec = $isis->fetch, "fetch");
34			cmp_ok($isis->pos, '==', $mfn, "rec $mfn");
35			push @db1, $rec;
36			}
37
38			my @db2;
39
40			foreach my $mfn ( 1 ... $size ) {
41			ok($isis_lm->seek($mfn), "seek");
42			ok(my $rec = $isis_lm->fetch, "fetch");
43			cmp_ok($isis_lm->pos, '==', $mfn, "rec $mfn");
44			push @db2, $rec;
45			}
46
47			is_deeply(\@db1, \@db2, "seek working");
48	dpavlin	21
49			sub test_start_limit($$$) {
50			my ($s,$l,$e) = @_;
51
52			diag "start_mfn: $s, limit_mfn: $l, expected: $e";
53
54	dpavlin	31	ok($s = $isis->open( filename => "$abs_path/winisis/BIBL", start_mfn => $s, limit_mfn => $l, debug => 1 ), "open");
55	dpavlin	21	cmp_ok($s, '==', $size, "db size from open");
56			cmp_ok($isis->size, '==', $e, "size");
57			}
58
59			test_start_limit(1, 3, 3);
60			test_start_limit($size, 3, 0);
61			test_start_limit(3, $size, $size - 2);
62			test_start_limit(1, $size + 2, $size);
63