X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=perl%2Ft%2F05_search.t;h=7acd12a765879bd5f74c326145a7fce31f967fdf;hb=4cea1b9769079a2cdc143f4fe483e69d5b77a813;hp=e6eefa49f110076427174c7097b5cd24f21ea55d;hpb=2f8d4d90ec5eba3725182f83c067e141db160495;p=idzebra-moved-to-github.git

diff --git a/perl/t/05_search.t b/perl/t/05_search.t
index e6eefa4..7acd12a 100644
--- a/perl/t/05_search.t
+++ b/perl/t/05_search.t
@@ -1,6 +1,6 @@
 #!perl
 # =============================================================================
-# $Id: 05_search.t,v 1.1 2003-03-03 00:44:39 pop Exp $
+# $Id: 05_search.t,v 1.5 2004-09-15 14:11:06 heikki Exp $
 #
 # Perl API header
 # =============================================================================
@@ -17,10 +17,10 @@ use warnings;
 use Test::More tests => 7;
 
 # ----------------------------------------------------------------------------
-# Session opening and closing
 BEGIN {
     use IDZebra;
-    IDZebra::logFile("test.log");
+    unlink("test05.log");
+    IDZebra::logFile("test05.log");
     use_ok('IDZebra::Session'); 
     use_ok('pod');
 }
@@ -32,15 +32,28 @@ my $sess = IDZebra::Session->open(configFile => 'demo/zebra.cfg',
 				  groupName => 'demo2');
 isa_ok($sess,"IDZebra::Session");
 
+# Insert some test data
+my $ret;
+my $sysno;
+my $F;
+my $filecount=0;
+$sess->databases('demo1', 'demo2');
+$sess->init();
+for $F (<"lib/IDZebra/*.pm">)
+{
+    ($ret,$sysno)=$sess->insert_record (file=>$F, recordType => 'grs.perl.pod');
+    ok( $ret==0, "inserted $F");
+    $filecount++;
+}
 # ----------------------------------------------------------------------------
 # search
-our $filecount = 6;
 
 my ($hits, $expected);
 
 # Search 1 databases
 my $rs1 = $sess->search(cqlmap    => 'demo/cql.map',
 			cql       => 'IDZebra',
+			termset   => 1,
 			databases => [qw(demo1)]);
 
 $expected = $filecount;
@@ -64,9 +77,36 @@ ok(($hits == $expected), "CQL search - found $hits/$expected records");
 my $rs3 = $sess->search(cqlmap    => 'demo/cql.map',
 			pqf       => '@attr 1=4 IDZebra');
 $expected = $filecount * 2;
-$hits = $rs2->count;
+$hits = $rs3->count;
 ok(($hits == $expected), "RPN search - found $hits/$expected records");
 
+#### Terms is broken time being, don't bother testing it
+# Termlists;
+#my $rs4 = $sess->search(pqf       => '@attr 1=4 @and IDZebra Session');
+#$expected = 2;
+#$hits = $rs4->count;
+#ok(($hits == $expected), "RPN search - found $hits/$expected records");
+#print STDERR "Test 8: found $hits of $expected\n";
+#
+#my @terms = $rs4->terms();
+#ok(($#terms == 1), "Got 2 terms in RPN expression");
+#my $cc = 0;
+#foreach my $t (@terms) {
+#    if ($t->{term} eq 'IDZebra') {
+#	ok(($t->{count} = $filecount*2), "Term IDZebra ($t->{count})");
+#	$cc++;
+#    }
+#    elsif ($t->{term} eq 'Session') {
+#	ok(($t->{count} = 2), "Term Session ($t->{count})");
+#	$cc++;
+#    } else {
+#	ok(0,"Invalid term $t->{term}");
+#    }
+#
+#}
+#ok (($cc == 2), "Got 2 terms for RS");
+
+
 
 # More specific search