ok($status == 0, "sort criterion accepted");
$previous = "z"; # Sorts after all legitimate titles
foreach my $i (1 .. $n) {
my $rec = Net::Z3950::ZOOM::resultset_record($rs, $i-1);
ok(defined $rec, "got record $i of $n");
ok($status == 0, "sort criterion accepted");
$previous = "z"; # Sorts after all legitimate titles
foreach my $i (1 .. $n) {
my $rec = Net::Z3950::ZOOM::resultset_record($rs, $i-1);
ok(defined $rec, "got record $i of $n");