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:
6d4ef29
)
Typo.
author
mike
<mike>
Fri, 4 Nov 2005 16:34:16 +0000
(16:34 +0000)
committer
mike
<mike>
Fri, 4 Nov 2005 16:34:16 +0000
(16:34 +0000)
t/14-sorting.t
patch
|
blob
|
history
diff --git
a/t/14-sorting.t
b/t/14-sorting.t
index
c0c0422
..
96beee1
100644
(file)
--- a/
t/14-sorting.t
+++ b/
t/14-sorting.t
@@
-1,4
+1,4
@@
-# $Id: 14-sorting.t,v 1.1 2005-11-04 16:13:42 mike Exp $
+# $Id: 14-sorting.t,v 1.2 2005-11-04 16:34:16 mike Exp $
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 14-sorting.t'
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 14-sorting.t'
@@
-37,7
+37,7
@@
my $rs = Net::Z3950::ZOOM::connection_search($conn, $query);
$errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo);
ok($errcode == 0, "search for '$qstr'");
my $n = Net::Z3950::ZOOM::resultset_size($rs);
$errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo);
ok($errcode == 0, "search for '$qstr'");
my $n = Net::Z3950::ZOOM::resultset_size($rs);
-ok($n eq 5, "found $n records (expected 5)");
+ok($n == 5, "found $n records (expected 5)");
Net::Z3950::ZOOM::resultset_option_set($rs, preferredRecordSyntax => "usmarc");
my $previous = ""; # Sorts before all legitimate titles
Net::Z3950::ZOOM::resultset_option_set($rs, preferredRecordSyntax => "usmarc");
my $previous = ""; # Sorts before all legitimate titles