# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 25-scan.t'
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 25-scan.t'
eval { $conn = new ZOOM::Connection($host, 0) };
ok(!$@, "connection to '$host'");
eval { $conn = new ZOOM::Connection($host, 0) };
ok(!$@, "connection to '$host'");
my($ss, $n) = scan($conn, 0, "w", 10);
my @terms = ();
my($ss, $n) = scan($conn, 0, "w", 10);
my @terms = ();