marc_indicators work with marc_original_order records

[webpac2] / t / 2-input.t

diff --git a/t/2-input.t b/t/2-input.t
index 53ca2eb..e5bfd3b 100755 (executable)
--- 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);