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	#!/usr/bin/perl -w
2
3	use Test::More tests => 48;
4	use Test::Exception;
5	use Cwd qw/abs_path/;
6	use blib;
7	use strict;
8
9	BEGIN {
10	use_ok( 'WebPAC::Input::ISIS' );
11	}
12
13	ok(my $abs_path = abs_path($0), "abs_path");
14	$abs_path =~ s#/[^/]*$#/#;
15
16	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
19	throws_ok { $isis->open( ) } qr/filename/, "need filename";
20
21	throws_ok { $isis->open( filename => '/dev/null', ) } qr/can't find database/ , "open";
22
23	ok($isis->open( filename => "$abs_path/winisis/BIBL" ), "open");
24	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
49	sub test_start_limit($$$) {
50	my ($s,$l,$e) = @_;
51
52	diag "start_mfn: $s, limit_mfn: $l, expected: $e";
53
54	ok($s = $isis->open( filename => "$abs_path/winisis/BIBL", start_mfn => $s, limit_mfn => $l, debug => 1 ), "open");
55	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