trunk/t/2-input-isis.t

#!/usr/bin/perl -w

use Test::More tests => 36;
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(), "new");
ok(my $isis_lm = new WebPAC::Input::ISIS( low_mem => 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");
1	dpavlin	8	#!/usr/bin/perl -w
2
3	dpavlin	10	use Test::More tests => 36;
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	8	ok(my $isis = new WebPAC::Input::ISIS(), "new");
17	dpavlin	10	ok(my $isis_lm = new WebPAC::Input::ISIS( low_mem => 1 ), "new");
18	dpavlin	8
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	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");