6 use Test::More tests => 9;
10 use_ok( 'WebPAC::Test' );
11 use_ok( 'WebPAC::Output::CouchDB' );
12 use_ok( 'SWISH::API' );
15 my $path = "$abs_path/kino/";
17 ok(my $out = new WebPAC::Output::CouchDB({
18 url => 'http://193.198.212.57:5984',
19 database => 'webpac2',
23 ok( $out->init, 'init' );
28 'search' => [ 'tko zna' ]
34 'search' => [ qw/a1 a2 s3 a4 a5/ ],
37 'search' => [ 'foo' ],
41 ok( $out->add_row( 42, $ds ), 'add 42' );
43 my @strange = ( qw/èajðinica odma¹æivanje ¾abokreèina ¹uma/ );
45 ok( $out->add_row( 99, { foo => { search => [ @strange ] } } ), 'add 99' );
47 ok( $out->add_row( 100, { foo => { search => [ qw/foo bar baz/ ] } } ), 'add 100' );
49 ok( $out->finish, 'finish' );