Revert "const char*" arguments to their original const-qualified

[ZOOM-Perl-moved-to-github.git] / t / 1-Net-Z3950-ZOOM.t

diff --git a/t/1-Net-Z3950-ZOOM.t b/t/1-Net-Z3950-ZOOM.t
index a4f0bf0..96e0346 100644 (file)
--- a/t/1-Net-Z3950-ZOOM.t
+++ b/t/1-Net-Z3950-ZOOM.t
@@ -1,4 +1,4 @@
-# $Id: 1-Net-Z3950-ZOOM.t,v 1.6 2005-10-13 13:31:11 mike Exp $
+# $Id: 1-Net-Z3950-ZOOM.t,v 1.8 2005-10-13 13:33:55 mike Exp $
 
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl Net-Z3950-ZOOM.t'
@@ -8,7 +8,7 @@
 # change 'tests => 1' to 'tests => last_test_to_print';
 
 use strict;
-use Test::More tests => 12;
+use Test::More tests => 15;
 BEGIN { use_ok('Net::Z3950::ZOOM') };
 
 #########################
@@ -36,8 +36,6 @@ Net::Z3950::ZOOM::connection_destroy($conn);
 ok(1, "destroyed connection");
 
 my $options = Net::Z3950::ZOOM::options_create();
-print STDERR "options='$options'\n";
-
 $conn = Net::Z3950::ZOOM::connection_create($options);
 $errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo);
 ok($errcode == 0, "unconnected connection object created");