X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=t%2F2-input.t;h=e5bfd3b35ba456398592be905b84fd2fc6619a00;hb=ccb001910f81859633e3ee190e2ae79a1751759d;hp=53ca2ebcee88f7f2c951ce9ff614baa5b8a18df9;hpb=3e2e5e0538a0b48c731d2d7f1358fea89c03f9b2;p=webpac2 diff --git a/t/2-input.t b/t/2-input.t index 53ca2eb..e5bfd3b 100755 --- a/t/2-input.t +++ b/t/2-input.t @@ -94,14 +94,14 @@ sub test_start_limit($$$$) { diag "offset $s, limit: $l, expected: $e"; ok($s = $input->open( path => "$abs_path/winisis/BIBL", offset => $s, limit => $l, debug => $debug ), "open winisis"); - cmp_ok($s, '==', $size, "db size from open = $size"); + cmp_ok($s, '==', $size, "db size"); cmp_ok($input->size, '==', $e, "input->size = $e"); } -test_start_limit($input, 1, 3, 3); -test_start_limit($input, $size, 3, 0); -test_start_limit($input, 3, $size, $size - 2); -test_start_limit($input, 1, $size + 2, $size); +test_start_limit($input, 1, 0, $size - 1); +test_start_limit($input, $size, 0, 0); +test_start_limit($input, 3, $size, $size - 3); +test_start_limit($input, 1, $size, $size - 1); ok(my $s = $input->stats, "$module stats"); diag "stats:\n$s" if ($debug);