fix offset to skip records just like SQL databases do, and not position us on it

[webpac2] / t / 5-output-dbi.t

diff --git a/t/5-output-dbi.t b/t/5-output-dbi.t
index 3aaea66..b808aed 100755 (executable)
--- a/t/5-output-dbi.t
+++ b/t/5-output-dbi.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 use strict;
-use blib;
+use lib 'lib';
 
 use Test::More tests => 6;
 
@@ -19,13 +19,13 @@ ok(my $out = new WebPAC::Output::DBI({
 
 ok( $out->init, 'init' );
 
-my $ds = {
-       '_rows' => [
+my $ds = { '_rows' => {
+       'test' => [
                { foo => 42 },
                { foo => 1, bar => 11 },
                { foo => 99, baz => 'text' },
        ],
-};
+} };
 
 ok( $out->add( 42, $ds ), 'add 42' );