--- trunk/t/5-output-kinosearch.t 2007/10/30 22:07:08 918 +++ trunk/t/5-output-kinosearch.t 2007/10/30 22:07:11 919 @@ -1,6 +1,6 @@ #!/usr/bin/perl -w -use Test::More tests => 14; +use Test::More tests => 20; use Test::Exception; use Cwd qw/abs_path/; use KinoSearch; @@ -23,6 +23,8 @@ ok(my $out = new WebPAC::Output::KinoSearch({ path => $path, database => 'test', + clean => 1, + debug => $debug, }), "new"); ok( $out->init, 'init' ); @@ -66,6 +68,7 @@ diag "Total hits: $total_hits\n"; while ( my $hit = $index->fetch_hit_hashref ) { + ok( $hit, 'hit' ); diag dump($hit); }