#!perl
# =============================================================================
-# $Id: 06_retrieval.t,v 1.3 2003-03-04 19:33:53 pop Exp $
+# $Id: 06_retrieval.t,v 1.4 2003-03-04 23:32:55 pop Exp $
#
# Perl API header
# =============================================================================
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