/[webpac2]/branches/Sack/t/2-input.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 /branches/Sack/t/2-input.t

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

revision 1256 by dpavlin, Tue Jul 28 12:40:46 2009 UTC revision 1304 by dpavlin, Sun Sep 20 21:38:15 2009 UTC
# Line 94  sub test_start_limit($$$$) { Line 94  sub test_start_limit($$$$) {
94          diag "offset $s, limit: $l, expected: $e";          diag "offset $s, limit: $l, expected: $e";
95    
96          ok($s = $input->open( path => "$abs_path/winisis/BIBL", offset => $s, limit => $l, debug => $debug ), "open winisis");          ok($s = $input->open( path => "$abs_path/winisis/BIBL", offset => $s, limit => $l, debug => $debug ), "open winisis");
97          cmp_ok($s, '==', $size, "db size from open = $size");          cmp_ok($s, '==', $size, "db size");
98          cmp_ok($input->size, '==', $e, "input->size = $e");          cmp_ok($input->size, '==', $e, "input->size = $e");
99  }  }
100    
101  test_start_limit($input, 1, 3, 3);  test_start_limit($input, 1, 3, 3);
102  test_start_limit($input, $size, 3, 0);  test_start_limit($input, $size, 3, 0);
103  test_start_limit($input, 3, $size, $size - 2);  test_start_limit($input, 3, $size, $size - 3);
104  test_start_limit($input, 1, $size + 2, $size);  test_start_limit($input, 1, $size, $size - 1);
105    
106  ok(my $s = $input->stats, "$module stats");  ok(my $s = $input->stats, "$module stats");
107  diag "stats:\n$s" if ($debug);  diag "stats:\n$s" if ($debug);
Legend:
Removed from v.1256  
changed lines
  Added in v.1304
  ViewVC Help
Powered by ViewVC 1.1.26