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:
400789c
)
Pass sort-type "yaz" instead of "dummy".
author
mike
<mike>
Fri, 18 Nov 2005 17:53:16 +0000
(17:53 +0000)
committer
mike
<mike>
Fri, 18 Nov 2005 17:53:16 +0000
(17:53 +0000)
t/14-sorting.t
patch
|
blob
|
history
t/24-sorting.t
patch
|
blob
|
history
diff --git
a/t/14-sorting.t
b/t/14-sorting.t
index
d135554
..
30debe8
100644
(file)
--- a/
t/14-sorting.t
+++ b/
t/14-sorting.t
@@
-1,4
+1,4
@@
-# $Id: 14-sorting.t,v 1.5 2005-11-08 16:40:06 mike Exp $
+# $Id: 14-sorting.t,v 1.6 2005-11-18 17:53:53 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'
@@
-43,9
+43,9
@@
foreach my $i (1 .. $n) {
# Now reverse the order of sorting. We never use resultset_sort(),
# which is identical to sort1() except that it returns nothing.
# Now reverse the order of sorting. We never use resultset_sort(),
# which is identical to sort1() except that it returns nothing.
-my $status = Net::Z3950::ZOOM::resultset_sort1($rs, "dummy", "1=4>i");
+my $status = Net::Z3950::ZOOM::resultset_sort1($rs, "yaz", "1=4>i");
ok($status < 0, "malformed sort criterion rejected");
ok($status < 0, "malformed sort criterion rejected");
-$status = Net::Z3950::ZOOM::resultset_sort1($rs, "dummy", "1=4 >i");
+$status = Net::Z3950::ZOOM::resultset_sort1($rs, "yaz", "1=4 >i");
ok($status == 0, "sort criterion accepted");
$previous = "z"; # Sorts after all legitimate titles
ok($status == 0, "sort criterion accepted");
$previous = "z"; # Sorts after all legitimate titles
diff --git
a/t/24-sorting.t
b/t/24-sorting.t
index
268c8c6
..
f6e0fe4
100644
(file)
--- a/
t/24-sorting.t
+++ b/
t/24-sorting.t
@@
-1,4
+1,4
@@
-# $Id: 24-sorting.t,v 1.4 2005-11-08 16:49:06 mike Exp $
+# $Id: 24-sorting.t,v 1.5 2005-11-18 17:53:16 mike Exp $
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 24-sorting.t'
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 24-sorting.t'
@@
-38,9
+38,9
@@
foreach my $i (1 .. $n) {
}
# Now reverse the order of sorting
}
# Now reverse the order of sorting
-my $status = $rs->sort("dummy", "1=4>i");
+my $status = $rs->sort("yaz", "1=4>i");
ok($status < 0, "malformed sort criterion rejected");
ok($status < 0, "malformed sort criterion rejected");
-$status = $rs->sort("dummy", "1=4 >i");
+$status = $rs->sort("yaz", "1=4 >i");
ok($status == 0, "sort criterion accepted");
$previous = "z"; # Sorts after all legitimate titles
ok($status == 0, "sort criterion accepted");
$previous = "z"; # Sorts after all legitimate titles