#!perl
# =============================================================================
-# $Id: 06_retrieval.t,v 1.2 2003-03-03 12:14:28 pop Exp $
+# $Id: 06_retrieval.t,v 1.5 2004-07-28 08:15:47 adam Exp $
#
# Perl API header
# =============================================================================
# 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');
}
groupName => 'demo2');
# ----------------------------------------------------------------------------
# search
-our $filecount = 6;
+our $filecount = 8;
my ($hits, $expected);
ok (($rec1->{format} eq 'SUTRS'), "format: $rec1->{format}");
ok ((length($rec1->{buf}) > 0), "buf: ". length($rec1->{buf})." bytes");
-
-#$rs1 = undef;
-
# ----------------------------------------------------------------------------
# Close session, check for rs availability