/[webpac2]/trunk/t/5-output-couchdb.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-couchdb.t

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

revision 1197 by dpavlin, Thu May 28 09:58:18 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 => 9;  use Test::More tests => 9;
7    
# Line 38  my $ds = { Line 38  my $ds = {
38          },          },
39  };  };
40    
41  ok( $out->add( 42, $ds ), 'add 42' );  ok( $out->add_row( 42, $ds ), 'add 42' );
42    
43  my @strange = ( qw/čajđinica odmašćivanje žabokrečina šuma/ );  my @strange = ( qw/čajđinica odmašćivanje žabokrečina šuma/ );
44    
45  ok( $out->add( 99, { foo => { search => [ @strange ] } } ), 'add 99' );  ok( $out->add_row( 99, { foo => { search => [ @strange ] } } ), 'add 99' );
46    
47  ok( $out->add( 100, { foo => { search => [ qw/foo bar baz/ ] } } ), 'add 100' );  ok( $out->add_row( 100, { foo => { search => [ qw/foo bar baz/ ] } } ), 'add 100' );
48    
49  ok( $out->finish, 'finish' );  ok( $out->finish, 'finish' );
50    
Legend:
Removed from v.1197  
changed lines
  Added in v.1256
  ViewVC Help
Powered by ViewVC 1.1.26