Parent Directory | Revision Log | Patch
revision 1054 by dpavlin, Tue Nov 20 09:30:56 2007 UTC | revision 1057 by dpavlin, Tue Nov 20 10:08:02 2007 UTC | |
---|---|---|
# | Line 3 | Line 3 |
3 | use strict; | use strict; |
4 | use blib; | use blib; |
5 | ||
6 | use Test::More tests => 9; | use Test::More tests => 11; |
7 | ||
8 | BEGIN { | BEGIN { |
9 | use_ok( 'WebPAC::Test' ); | use_ok( 'WebPAC::Test' ); |
# | Line 24 ok(my $db = $input->open( | Line 24 ok(my $db = $input->open( |
24 | ), "open"); | ), "open"); |
25 | ok(my $size = $input->size, "size"); | ok(my $size = $input->size, "size"); |
26 | ||
27 | $size = 3; | |
28 | ||
29 | foreach my $mfn ( 1 ... $size ) { | foreach my $mfn ( 1 ... $size ) { |
30 | my $rec = $input->fetch; | my $rec = $input->fetch; |
31 | if ($mfn <= 10 || $mfn == 20) { | if ($mfn <= 10 || $mfn == 20) { |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |