From: mike <mike>
Date: Tue, 18 Oct 2005 16:27:58 +0000 (+0000)
Subject: use warnings;
X-Git-Tag: cpan_1_22~442
X-Git-Url: http://sru.miketaylor.org.uk/?a=commitdiff_plain;h=66fe39e1a92ceb64accf6b41dce72694b1d9a320;p=ZOOM-Perl-moved-to-github.git

use warnings;
Remove extraneous comments.
---

diff --git a/t/1-Net-Z3950-ZOOM.t b/t/1-Net-Z3950-ZOOM.t
index 655630e..3a8ebf3 100644
--- a/t/1-Net-Z3950-ZOOM.t
+++ b/t/1-Net-Z3950-ZOOM.t
@@ -1,21 +1,13 @@
-# $Id: 1-Net-Z3950-ZOOM.t,v 1.10 2005-10-17 16:18:27 mike Exp $
+# $Id: 1-Net-Z3950-ZOOM.t,v 1.11 2005-10-18 16:27:58 mike Exp $
 
 # Before `make install' is performed this script should be runnable with
 # `make test'. After `make install' it should work as `perl 1-Net-Z3950-ZOOM.t'
 
-#########################
-
-# change 'tests => 1' to 'tests => last_test_to_print';
-
 use strict;
+use warnings;
 use Test::More tests => 21;
 BEGIN { use_ok('Net::Z3950::ZOOM') };
 
-#########################
-
-# Insert your test code below, the Test::More module is use()ed here so read
-# its man page ( perldoc Test::More ) for help writing this test script.
-
 my $msg = Net::Z3950::ZOOM::diag_str(Net::Z3950::ZOOM::ERROR_INVALID_QUERY);
 ok($msg eq "Invalid query", "diagnostic string lookup works");