#!perl
# =============================================================================
-# $Id: 06_retrieval.t,v 1.3 2003-03-04 19:33:53 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');
}
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