2 # =============================================================================
3 # $Id: 06_retrieval.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 => 18;
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 # ----------------------------------------------------------------------------
37 my ($hits, $expected);
40 my $rs1 = $sess->search(cqlmap => 'demo/cql.map',
42 databases => [qw(demo1)]);
44 $expected = $filecount;
46 ok(($hits == $expected), "CQL search - found $hits/$expected records");
48 foreach my $rec ($rs1->records(from =>1,
50 isa_ok($rec,'IDZebra::RetrievalRecord');
53 my (@recs) = $rs1->records(from=>1,to=>1);
55 ok ($#recs == 0, "Fetched 1 record");
57 my $rec1 = shift(@recs);
59 isa_ok($rec1,'IDZebra::RetrievalRecord');
60 ok (($rec1->{errCode} == 0), "err: $rec1->{errCode}");
61 ok (($rec1->{errString} eq ""), "errString: $rec1->{errString}");
62 ok (($rec1->{position} == 1), "position: $rec1->{position}");
63 ok (($rec1->{base} eq 'demo1'), "base: $rec1->{base}");
64 ok (($rec1->{sysno}), "sysno: $rec1->{sysno}");
65 ok (($rec1->{score}), "score: $rec1->{score}");
66 ok (($rec1->{format} eq 'SUTRS'), "format: $rec1->{format}");
67 ok ((length($rec1->{buf}) > 0), "buf: ". length($rec1->{buf})." bytes");
69 # ----------------------------------------------------------------------------