added test file

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

diff --git a/t/5-output-couchdb.t b/t/5-output-couchdb.t
index 1f1a59d..0518644 100755 (executable)
--- 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' );