projects
/
webpac2
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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;
#!/usr/bin/perl -w
use strict;
-use
blib
;
+use
lib 'lib'
;
use Test::More tests => 6;
use Test::More tests => 6;
@@
-19,13
+19,13
@@
ok(my $out = new WebPAC::Output::DBI({
ok( $out->init, 'init' );
ok( $out->init, 'init' );
-my $ds = {
- '
_rows
' => [
+my $ds = {
'_rows' => {
+ '
test
' => [
{ foo => 42 },
{ foo => 1, bar => 11 },
{ foo => 99, baz => 'text' },
],
{ foo => 42 },
{ foo => 1, bar => 11 },
{ foo => 99, baz => 'text' },
],
-};
+}
}
;
ok( $out->add( 42, $ds ), 'add 42' );
ok( $out->add( 42, $ds ), 'add 42' );