From f30d1c1834f24403004371ad994aa5b3e37905ab Mon Sep 17 00:00:00 2001 From: mike Date: Thu, 13 Oct 2005 13:27:27 +0000 Subject: [PATCH] Tweak commentary -- no functional changes. --- t/2-ZOOM.t | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/t/2-ZOOM.t b/t/2-ZOOM.t index 2caf9e6..b07b7ad 100644 --- a/t/2-ZOOM.t +++ b/t/2-ZOOM.t @@ -1,4 +1,4 @@ -# $Id: 2-ZOOM.t,v 1.4 2005-10-12 16:13:38 mike Exp $ +# $Id: 2-ZOOM.t,v 1.5 2005-10-13 13:27:27 mike Exp $ # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl ZOOM.t' @@ -28,7 +28,7 @@ ok($@ && $@->isa("ZOOM::Exception") && $host = "indexdata.com/gils"; eval { $conn = new ZOOM::Connection($host, 0) }; -ok(!$@, "connection to '$host' OK"); +ok(!$@, "connection to '$host'"); my $syntax = "usmarc"; $conn->option(preferredRecordSyntax => $syntax); @@ -44,7 +44,7 @@ ok($@ && $@->isa("ZOOM::Exception") && $query = '@attr 1=4 minerals'; eval { $rs = $conn->search_pqf($query) }; -ok(!$@, "search for '$query' OK"); +ok(!$@, "search for '$query'"); my $n = $rs->size($rs); ok($n == 1, "found 1 record as expected"); -- 1.7.10.4