r1383@llin: dpavlin | 2007-10-30 23:07:09 +0100

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

diff --git a/t/5-output-kinosearch.t b/t/5-output-kinosearch.t
index 03fb846..a613ebc 100755 (executable)
--- a/t/5-output-kinosearch.t
+++ b/t/5-output-kinosearch.t
@@ -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 @@ my $path = "$abs_path/kino/";
 ok(my $out = new WebPAC::Output::KinoSearch({
        path => $path,
        database => 'test',
+       clean => 1,
+       debug => $debug,
 }), "new");
 
 ok( $out->init, 'init' );
@@ -66,6 +68,7 @@ my $total_hits = $index->search(
                                                                                                                   
 diag "Total hits: $total_hits\n";
 while ( my $hit = $index->fetch_hit_hashref ) {
+       ok( $hit, 'hit' );
        diag dump($hit);
 }