1 |
#!/usr/bin/perl -w |
#!/usr/bin/perl -w |
2 |
|
|
3 |
use Test::More tests => 14; |
use Test::More tests => 20; |
4 |
use Test::Exception; |
use Test::Exception; |
5 |
use Cwd qw/abs_path/; |
use Cwd qw/abs_path/; |
6 |
use KinoSearch; |
use KinoSearch; |
23 |
ok(my $out = new WebPAC::Output::KinoSearch({ |
ok(my $out = new WebPAC::Output::KinoSearch({ |
24 |
path => $path, |
path => $path, |
25 |
database => 'test', |
database => 'test', |
26 |
|
clean => 1, |
27 |
|
debug => $debug, |
28 |
}), "new"); |
}), "new"); |
29 |
|
|
30 |
ok( $out->init, 'init' ); |
ok( $out->init, 'init' ); |
68 |
|
|
69 |
diag "Total hits: $total_hits\n"; |
diag "Total hits: $total_hits\n"; |
70 |
while ( my $hit = $index->fetch_hit_hashref ) { |
while ( my $hit = $index->fetch_hit_hashref ) { |
71 |
|
ok( $hit, 'hit' ); |
72 |
diag dump($hit); |
diag dump($hit); |
73 |
} |
} |
74 |
|
|