#!/usr/bin/perl -w
use strict;
-use blib;
+use lib 'lib';
use Test::More tests => 124;
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);