X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=perl%2Ft%2F06_retrieval.t;h=fe6710c9a7ce72fbf343cc2ce290fe30cb72459f;hb=150e8c2e5ddf9ff8b9991902236826d128bcfb94;hp=edbdac488ec15e92428ed63a45d198955b4d0ce7;hpb=2f8d4d90ec5eba3725182f83c067e141db160495;p=idzebra-moved-to-github.git

diff --git a/perl/t/06_retrieval.t b/perl/t/06_retrieval.t
index edbdac4..fe6710c 100644
--- a/perl/t/06_retrieval.t
+++ b/perl/t/06_retrieval.t
@@ -1,6 +1,6 @@
 #!perl
 # =============================================================================
-# $Id: 06_retrieval.t,v 1.1 2003-03-03 00:44:39 pop Exp $
+# $Id: 06_retrieval.t,v 1.5 2004-07-28 08:15:47 adam Exp $
 #
 # Perl API header
 # =============================================================================
@@ -14,13 +14,14 @@ BEGIN {
 use strict;
 use warnings;
 
-use Test::More tests => 18;
+use Test::More tests => 19;
 
 # ----------------------------------------------------------------------------
 # Session opening and closing
 BEGIN {
     use IDZebra;
-    IDZebra::logFile("test.log");
+    unlink("test06.log");
+    IDZebra::logFile("test06.log");
     use_ok('IDZebra::Session'); 
     use_ok('pod');
 }
@@ -32,7 +33,7 @@ my $sess = IDZebra::Session->open(configFile => 'demo/zebra.cfg',
 				  groupName => 'demo2');
 # ----------------------------------------------------------------------------
 # search
-our $filecount = 6;
+our $filecount = 8;
 
 my ($hits, $expected);
 
@@ -67,6 +68,28 @@ ok (($rec1->{format} eq 'SUTRS'), "format: $rec1->{format}");
 ok ((length($rec1->{buf}) > 0), "buf: ". length($rec1->{buf})." bytes");
 
 # ----------------------------------------------------------------------------
-# Close session
+# Close session, check for rs availability
+
+$sess=undef;
+
+eval { my ($rec2) = $rs1->records(from=>1,to=>1); };
+
+ok (($@ ne ""), "Resultset is invalidated with session");
+
+# ----------------------------------------------------------------------------
+# Code from doc...
+#  foreach my $rec ($rs1->records()) {
+#      print STDERR "REC:$rec\n";
+#      unless ($rec->errCode) {
+#         printf  ("Pos:%d, Base: %s, sysno: %d, score %d format: %s\n%s\n\n",
+#             $rec->position,
+#             $rec->base,
+#             $rec->sysno,
+#             $rec->score,
+#             $rec->format,
+#             $rec->buf
+#         );
+#      }
+#  }
+
 
-$sess->close;