perl/t/06_retrieval.t

   1 #!perl
   2 # =============================================================================
   3 # $Id: 06_retrieval.t,v 1.5 2004-07-28 08:15:47 adam Exp $
   4 #
   5 # Perl API header
   6 # =============================================================================
   7 BEGIN {
   8     if ($ENV{PERL_CORE}) {
   9         chdir 't' if -d 't';
  10     }
  11     push (@INC,'demo','blib/lib','blib/arch');
  12 }
  13
  14 use strict;
  15 use warnings;
  16
  17 use Test::More tests => 19;
  18
  19 # ----------------------------------------------------------------------------
  20 # Session opening and closing
  21 BEGIN {
  22     use IDZebra;
  23     unlink("test06.log");
  24     IDZebra::logFile("test06.log");
  25     use_ok('IDZebra::Session');
  26     use_ok('pod');
  27 }
  28
  29
  30 # ----------------------------------------------------------------------------
  31 # Session opening and closing
  32 my $sess = IDZebra::Session->open(configFile => 'demo/zebra.cfg',
  33                                   groupName => 'demo2');
  34 # ----------------------------------------------------------------------------
  35 # search
  36 our $filecount = 8;
  37
  38 my ($hits, $expected);
  39
  40 # Search 1 database
  41 my $rs1 = $sess->search(cqlmap    => 'demo/cql.map',
  42                         cql       => 'IDZebra',
  43                         databases => [qw(demo1)]);
  44
  45 $expected = $filecount;
  46 $hits = $rs1->count;
  47 ok(($hits == $expected), "CQL search - found $hits/$expected records");
  48
  49 foreach my $rec ($rs1->records(from =>1,
  50                               to   =>5)) {
  51     isa_ok($rec,'IDZebra::RetrievalRecord');
  52 }
  53
  54 my (@recs) = $rs1->records(from=>1,to=>1);
  55
  56 ok ($#recs == 0, "Fetched 1 record");
  57
  58 my $rec1 = shift(@recs);
  59
  60 isa_ok($rec1,'IDZebra::RetrievalRecord');
  61 ok (($rec1->{errCode} == 0), "err: $rec1->{errCode}");
  62 ok (($rec1->{errString} eq ""), "errString: $rec1->{errString}");
  63 ok (($rec1->{position} == 1), "position: $rec1->{position}");
  64 ok (($rec1->{base} eq 'demo1'), "base: $rec1->{base}");
  65 ok (($rec1->{sysno}), "sysno: $rec1->{sysno}");
  66 ok (($rec1->{score}), "score: $rec1->{score}");
  67 ok (($rec1->{format} eq 'SUTRS'), "format: $rec1->{format}");
  68 ok ((length($rec1->{buf}) > 0), "buf: ". length($rec1->{buf})." bytes");
  69
  70 # ----------------------------------------------------------------------------
  71 # Close session, check for rs availability
  72
  73 $sess=undef;
  74
  75 eval { my ($rec2) = $rs1->records(from=>1,to=>1); };
  76
  77 ok (($@ ne ""), "Resultset is invalidated with session");
  78
  79 # ----------------------------------------------------------------------------
  80 # Code from doc...
  81 #  foreach my $rec ($rs1->records()) {
  82 #      print STDERR "REC:$rec\n";
  83 #      unless ($rec->errCode) {
  84 #         printf  ("Pos:%d, Base: %s, sysno: %d, score %d format: %s\n%s\n\n",
  85 #             $rec->position,
  86 #             $rec->base,
  87 #             $rec->sysno,
  88 #             $rec->score,
  89 #             $rec->format,
  90 #             $rec->buf
  91 #         );
  92 #      }
  93 #  }
  94
  95