/[webpac2]/trunk/t/5-output-kinosearch.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/5-output-kinosearch.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 918 by dpavlin, Tue Oct 30 20:11:04 2007 UTC revision 919 by dpavlin, Tue Oct 30 22:07:11 2007 UTC
# Line 1  Line 1 
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;
# Line 23  my $path = "$abs_path/kino/"; Line 23  my $path = "$abs_path/kino/";
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' );
# Line 66  my $total_hits = $index->search( Line 68  my $total_hits = $index->search(
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    
Legend:
Removed from v.918  
changed lines
  Added in v.919
  ViewVC Help
Powered by ViewVC 1.1.26