X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=t%2F15-scan.t;fp=t%2F15-scan.t;h=f9236c47e9de1ce25e48d7a5ff2c881881749d9e;hb=e4921abe4cfeafeb90b600859a07117d06e87203;hp=5e28a70dfbace6693846b2920d721d195ead176e;hpb=6b22ab8ce72b3400e95f57ec1f5aef87277c4427;p=ZOOM-Perl-moved-to-github.git diff --git a/t/15-scan.t b/t/15-scan.t index 5e28a70..f9236c4 100644 --- a/t/15-scan.t +++ b/t/15-scan.t @@ -1,4 +1,4 @@ -# $Id: 15-scan.t,v 1.8 2005-12-21 00:16:50 mike Exp $ +# $Id: 15-scan.t,v 1.9 2005-12-21 00:43:54 mike Exp $ # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl 15-scan.t' @@ -11,8 +11,7 @@ BEGIN { use_ok('Net::Z3950::ZOOM') }; my($errcode, $errmsg, $addinfo) = (undef, "dummy", "dummy"); -#my $host = "indexdata.com/gils"; -my $host = "localhost:9999/default"; +my $host = "indexdata.com/gils"; my $conn = Net::Z3950::ZOOM::connection_new($host, 0); $errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo); ok($errcode == 0, "connection to '$host'");