r1890@llin: dpavlin | 2009-05-29 20:09:47 +0200

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

diff --git a/t/5-output-couchdb.t b/t/5-output-couchdb.t
index 1f1a59d..196c9a4 100755 (executable)
--- a/t/5-output-couchdb.t
+++ b/t/5-output-couchdb.t
@@ -15,6 +15,7 @@ BEGIN {
 my $path = "$abs_path/kino/";
 
 ok(my $out = new WebPAC::Output::CouchDB({
+       url => 'http://193.198.212.57:5984',
        database => 'webpac2',
        %LOG
 }), "new");
@@ -37,13 +38,13 @@ my $ds = {
        },
 };
 
-ok( $out->add( 42, $ds ), 'add 42' );
+ok( $out->add_row( 42, $ds ), 'add 42' );
 
 my @strange = ( qw/èajðinica odma¹æivanje ¾abokreèina ¹uma/ );
 
-ok( $out->add( 99, { foo => { search => [ @strange ] } } ), 'add 99' );
+ok( $out->add_row( 99, { foo => { search => [ @strange ] } } ), 'add 99' );
 
-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' );
 
 ok( $out->finish, 'finish' );