/[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 1196 by dpavlin, Wed May 27 22:17:00 2009 UTC revision 1198 by dpavlin, Thu May 28 10:15:20 2009 UTC
# Line 15  BEGIN { Line 15  BEGIN {
15  my $path = "$abs_path/kino/";  my $path = "$abs_path/kino/";
16    
17  ok(my $out = new WebPAC::Output::CouchDB({  ok(my $out = new WebPAC::Output::CouchDB({
18            url => 'http://193.198.212.57:5984',
19          database => 'webpac2',          database => 'webpac2',
20          %LOG          %LOG
21  }), "new");  }), "new");
# Line 37  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.1196  
changed lines
  Added in v.1198
  ViewVC Help
Powered by ViewVC 1.1.26