projects
/
ZOOM-Perl-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Tweak comment about asynchronous record display to point at new "async.pl"
[ZOOM-Perl-moved-to-github.git]
/
t
/
24-sorting.t
diff --git
a/t/24-sorting.t
b/t/24-sorting.t
index
5c49a7b
..
f6e0fe4
100644
(file)
--- a/
t/24-sorting.t
+++ b/
t/24-sorting.t
@@
-1,11
+1,11
@@
-# $Id: 24-sorting.t,v 1.3 2005-11-08 16:41:25 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'
use strict;
use warnings;
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 24-sorting.t'
use strict;
use warnings;
-use Test::More tests => 27;
+use Test::More tests => 29;
use MARC::Record;
BEGIN { use_ok('ZOOM') };
use MARC::Record;
BEGIN { use_ok('ZOOM') };
@@
-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