Make rule to make .c from .i via swig

[idzebra-moved-to-github.git] / perl / t / 06_retrieval.t

diff --git a/perl/t/06_retrieval.t b/perl/t/06_retrieval.t
index 3c84573..9ddec71 100644 (file)
--- a/perl/t/06_retrieval.t
+++ b/perl/t/06_retrieval.t
@@ -1,6 +1,6 @@
 #!perl
 # =============================================================================
-# $Id: 06_retrieval.t,v 1.2 2003-03-03 12:14:28 pop Exp $
+# $Id: 06_retrieval.t,v 1.4 2003-03-04 23:32:55 pop Exp $
 #
 # Perl API header
 # =============================================================================
@@ -32,7 +32,7 @@ my $sess = IDZebra::Session->open(configFile => 'demo/zebra.cfg',
                                  groupName => 'demo2');
 # ----------------------------------------------------------------------------
 # search
-our $filecount = 6;
+our $filecount = 8;
 
 my ($hits, $expected);
 
@@ -66,9 +66,6 @@ ok (($rec1->{score}), "score: $rec1->{score}");
 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