X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=t%2F25-scan.t;h=ff145c1984d4d00945ad0a0de7ef4d7b545b7147;hb=14c0f6b461a606c9af684742e0e4849e1aa984b4;hp=145fa1a71b6394f86cd04aaad23754f9db5357ec;hpb=40205a3923522999ca96aa0e57e013cb12db7e29;p=ZOOM-Perl-moved-to-github.git diff --git a/t/25-scan.t b/t/25-scan.t index 145fa1a..ff145c1 100644 --- a/t/25-scan.t +++ b/t/25-scan.t @@ -1,5 +1,3 @@ -# $Id: 25-scan.t,v 1.11 2007-08-16 17:19:35 mike Exp $ - # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 25-scan.t' @@ -14,6 +12,7 @@ my $conn; eval { $conn = new ZOOM::Connection($host, 0) }; ok(!$@, "connection to '$host'"); +$conn->option(number => 10); my($ss, $n) = scan($conn, 0, "w", 10); my @terms = ();