projects
/
ZOOM-Perl-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
822e2dc
)
Tweak commentary -- no functional changes.
author
mike
<mike>
Thu, 13 Oct 2005 13:27:27 +0000
(13:27 +0000)
committer
mike
<mike>
Thu, 13 Oct 2005 13:27:27 +0000
(13:27 +0000)
t/2-ZOOM.t
patch
|
blob
|
history
diff --git
a/t/2-ZOOM.t
b/t/2-ZOOM.t
index
2caf9e6
..
b07b7ad
100644
(file)
--- 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'
# 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) };
$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);
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) };
$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");
my $n = $rs->size($rs);
ok($n == 1, "found 1 record as expected");