/[webpac2]/trunk/t/2-input-isis.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/2-input-isis.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 20 by dpavlin, Sat Jul 16 20:35:30 2005 UTC revision 21 by dpavlin, Sun Jul 17 22:28:11 2005 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    
3  use Test::More tests => 36;  use Test::More tests => 48;
4  use Test::Exception;  use Test::Exception;
5  use Cwd qw/abs_path/;  use Cwd qw/abs_path/;
6  use blib;  use blib;
# Line 45  foreach my $mfn ( 1 ... $size ) { Line 45  foreach my $mfn ( 1 ... $size ) {
45  }  }
46    
47  is_deeply(\@db1, \@db2, "seek working");  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(my $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    
Legend:
Removed from v.20  
changed lines
  Added in v.21
  ViewVC Help
Powered by ViewVC 1.1.26