X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=t%2F5-output-couchdb.t;h=051864474421a3725fdecd9c8642d08d7ea54c39;hb=01091188dac765b18d9fb9bd84cad20ee4bd3e95;hp=1f1a59df6043a6b6ef6524ff9cb8caeedeaa73ff;hpb=949de95db1078464667093d932887f3393b38160;p=webpac2

diff --git a/t/5-output-couchdb.t b/t/5-output-couchdb.t
index 1f1a59d..0518644 100755
--- a/t/5-output-couchdb.t
+++ b/t/5-output-couchdb.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 use strict;
-use blib;
+use lib 'lib';
 
 use Test::More tests => 9;
 
@@ -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' );