/[webpac2]/trunk/t/5-output-dbi.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/5-output-dbi.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1207 by dpavlin, Fri May 29 21:37:58 2009 UTC revision 1256 by dpavlin, Tue Jul 28 12:40:46 2009 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    
3  use strict;  use strict;
4  use blib;  use lib 'lib';
5    
6  use Test::More tests => 6;  use Test::More tests => 6;
7    
# Line 19  ok(my $out = new WebPAC::Output::DBI({ Line 19  ok(my $out = new WebPAC::Output::DBI({
19    
20  ok( $out->init, 'init' );  ok( $out->init, 'init' );
21    
22  my $ds = {  my $ds = { '_rows' => {
23          '_rows' => [          'test' => [
24                  { foo => 42 },                  { foo => 42 },
25                  { foo => 1, bar => 11 },                  { foo => 1, bar => 11 },
26                  { foo => 99, baz => 'text' },                  { foo => 99, baz => 'text' },
27          ],          ],
28  };  } };
29    
30  ok( $out->add( 42, $ds ), 'add 42' );  ok( $out->add( 42, $ds ), 'add 42' );
31    
Legend:
Removed from v.1207  
changed lines
  Added in v.1256
  ViewVC Help
Powered by ViewVC 1.1.26