2 # =============================================================================
3 # $Id: 05_search.t,v 1.1 2003-03-03 00:44:39 pop Exp $
6 # =============================================================================
11 push (@INC,'demo','blib/lib','blib/arch');
17 use Test::More tests => 7;
19 # ----------------------------------------------------------------------------
20 # Session opening and closing
23 IDZebra::logFile("test.log");
24 use_ok('IDZebra::Session');
29 # ----------------------------------------------------------------------------
30 # Session opening and closing
31 my $sess = IDZebra::Session->open(configFile => 'demo/zebra.cfg',
32 groupName => 'demo2');
33 isa_ok($sess,"IDZebra::Session");
35 # ----------------------------------------------------------------------------
39 my ($hits, $expected);
42 my $rs1 = $sess->search(cqlmap => 'demo/cql.map',
44 databases => [qw(demo1)]);
46 $expected = $filecount;
48 ok(($hits == $expected), "CQL search - found $hits/$expected records");
51 $sess->databases('demo1', 'demo2');
52 my @dblist = $sess->databases;
53 ok(($#dblist == 1), "Select multiple databases");
57 my $rs2 = $sess->search(cqlmap => 'demo/cql.map',
59 $expected = $filecount * 2;
61 ok(($hits == $expected), "CQL search - found $hits/$expected records");
64 my $rs3 = $sess->search(cqlmap => 'demo/cql.map',
65 pqf => '@attr 1=4 IDZebra');
66 $expected = $filecount * 2;
68 ok(($hits == $expected), "RPN search - found $hits/$expected records");
71 # More specific search
74 # ----------------------------------------------------------------------------