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
Rolling
[ZOOM-Perl-moved-to-github.git]
/
t
/
12-query.t
diff --git
a/t/12-query.t
b/t/12-query.t
index
459cbc9
..
d21204b
100644
(file)
--- a/
t/12-query.t
+++ b/
t/12-query.t
@@
-1,5
+1,3
@@
-# $Id: 12-query.t,v 1.10 2006-11-03 09:50:58 mike Exp $
-
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 12-query.t'
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 12-query.t'
@@
-147,8
+145,7
@@
sub check_record {
my $rec = Net::Z3950::ZOOM::resultset_record($rs, 0);
ok(1, "got record idenfified by query");
my $rec = Net::Z3950::ZOOM::resultset_record($rs, 0);
ok(1, "got record idenfified by query");
- my $len = 0;
- my $data = Net::Z3950::ZOOM::record_get($rec, "render", $len);
+ my $data = Net::Z3950::ZOOM::record_get($rec, "render");
ok(1, "rendered record");
ok($data =~ /^035 \$a ESDD0006$/m, "record is the expected one");
ok(1, "rendered record");
ok($data =~ /^035 \$a ESDD0006$/m, "record is the expected one");