#!perl
# =============================================================================
-# $Id: 06_retrieval.t,v 1.1 2003-03-03 00:44:39 pop Exp $
+# $Id: 06_retrieval.t,v 1.4 2003-03-04 23:32:55 pop Exp $
#
# Perl API header
# =============================================================================
use strict;
use warnings;
-use Test::More tests => 18;
+use Test::More tests => 19;
# ----------------------------------------------------------------------------
# Session opening and closing
groupName => 'demo2');
# ----------------------------------------------------------------------------
# search
-our $filecount = 6;
+our $filecount = 8;
my ($hits, $expected);
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;