2 # =============================================================================
3 # $Id: 06_retrieval.t,v 1.6 2004-09-15 14:11:06 heikki Exp $
6 # =============================================================================
11 push (@INC,'demo','blib/lib','blib/arch');
17 use Test::More tests => 30;
19 # ----------------------------------------------------------------------------
20 # Session opening and closing
24 IDZebra::logFile("test06.log");
25 use_ok('IDZebra::Session');
30 # ----------------------------------------------------------------------------
31 # Session opening and closing
32 my $sess = IDZebra::Session->open(configFile => 'demo/zebra.cfg',
33 groupName => 'demo2');
36 # ----------------------------------------------------------------------------
37 # Insert some test data
44 $sess->databases('demo1', 'demo2');
45 $ret=$sess->end_trans;
48 for $F (<lib/IDZebra/*.pm>)
50 ($ret,$sysno)=$sess->insert_record (file=>$F, recordType => 'grs.perl.pod');
51 ok( $ret==0, "inserted $F");
52 #print STDERR "Inserted $F ok. ret=$ret sys=$sysno\n";
55 $ret=$sess->end_trans;
56 ok($filecount>0,"Inserted files");
57 is($ret->{inserted},$filecount, "Inserted all");
61 my ($hits, $expected);
64 my $rs1 = $sess->search(cqlmap => 'demo/cql.map',
66 databases => [qw(demo1)]);
68 $expected = $filecount;
70 is($hits, $expected, "CQL search ");
72 foreach my $rec ($rs1->records(from =>1,
74 isa_ok($rec,'IDZebra::RetrievalRecord');
77 my (@recs) = $rs1->records(from=>1,to=>1);
79 ok ($#recs == 0, "Fetched 1 record");
81 my $rec1 = shift(@recs);
83 isa_ok($rec1,'IDZebra::RetrievalRecord');
84 ok (($rec1->{errCode} == 0), "err: $rec1->{errCode}");
85 ok (($rec1->{errString} eq ""), "errString: $rec1->{errString}");
86 ok (($rec1->{position} == 1), "position: $rec1->{position}");
87 ok (($rec1->{base} eq 'demo1'), "base: $rec1->{base}");
88 ok (($rec1->{sysno}), "sysno: $rec1->{sysno}");
89 ok (($rec1->{score}), "score: $rec1->{score}");
90 ok (($rec1->{format} eq 'SUTRS'), "format: $rec1->{format}");
91 ok ((length($rec1->{buf}) > 0), "buf: ". length($rec1->{buf})." bytes");
93 # ----------------------------------------------------------------------------
94 # Close session, check for rs availability
98 eval { my ($rec2) = $rs1->records(from=>1,to=>1); };
100 ok (($@ ne ""), "Resultset is invalidated with session");
101 # ----------------------------------------------------------------------------
103 # foreach my $rec ($rs1->records()) {
104 # print STDERR "REC:$rec\n";
105 # unless ($rec->errCode) {
106 # printf ("Pos:%d, Base: %s, sysno: %d, score %d format: %s\n%s\n\n",