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:
aa8ea4d
)
Do not print to STDERR.
author
mike
<mike>
Wed, 12 Oct 2005 11:56:27 +0000
(11:56 +0000)
committer
mike
<mike>
Wed, 12 Oct 2005 11:56:27 +0000
(11:56 +0000)
t/1-Net-Z3950-ZOOM.t
patch
|
blob
|
history
t/2-ZOOM.t
patch
|
blob
|
history
diff --git
a/t/1-Net-Z3950-ZOOM.t
b/t/1-Net-Z3950-ZOOM.t
index
1aa8348
..
2c94f6e
100644
(file)
--- a/
t/1-Net-Z3950-ZOOM.t
+++ b/
t/1-Net-Z3950-ZOOM.t
@@
-1,4
+1,4
@@
-# $Id: 1-Net-Z3950-ZOOM.t,v 1.1 2005-10-12 09:48:05 mike Exp $
+# $Id: 1-Net-Z3950-ZOOM.t,v 1.2 2005-10-12 11:56:31 mike Exp $
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl Net-Z3950-ZOOM.t'
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl Net-Z3950-ZOOM.t'
@@
-46,15
+46,12
@@
if ($errcode != 0) {
}
my $n = Net::Z3950::ZOOM::resultset_size($rs);
}
my $n = Net::Z3950::ZOOM::resultset_size($rs);
-print STDERR "Result count: $n\n";
for (my $i = 0; $i < $n; $i++) {
my $rec = Net::Z3950::ZOOM::resultset_record($rs, $i);
my $len = 0;
my $data = Net::Z3950::ZOOM::record_get($rec, "render", $len);
for (my $i = 0; $i < $n; $i++) {
my $rec = Net::Z3950::ZOOM::resultset_record($rs, $i);
my $len = 0;
my $data = Net::Z3950::ZOOM::record_get($rec, "render", $len);
- print STDERR "=== record ", $i+1, " of $n ===\n", $data;
my $raw = Net::Z3950::ZOOM::record_get($rec, "raw", $len);
my $raw = Net::Z3950::ZOOM::record_get($rec, "raw", $len);
- print STDERR "--- raw version ---\n", $raw;
}
Net::Z3950::ZOOM::resultset_destroy($rs);
}
Net::Z3950::ZOOM::resultset_destroy($rs);
diff --git
a/t/2-ZOOM.t
b/t/2-ZOOM.t
index
d7982d5
..
a8ce10c
100644
(file)
--- a/
t/2-ZOOM.t
+++ b/
t/2-ZOOM.t
@@
-1,4
+1,4
@@
-# $Id: 2-ZOOM.t,v 1.1 2005-10-12 09:48:21 mike Exp $
+# $Id: 2-ZOOM.t,v 1.2 2005-10-12 11:56:27 mike Exp $
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl ZOOM.t'
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl ZOOM.t'
@@
-32,14
+32,11
@@
my $query = '@attr 1=4 minerals';
my $rs = $conn->search_pqf($query);
my $n = $rs->size($rs);
my $rs = $conn->search_pqf($query);
my $n = $rs->size($rs);
-print STDERR "Result count: $n\n";
for (my $i = 0; $i < $n; $i++) {
my $rec = $rs->record($i);
my $data = $rec->render();
for (my $i = 0; $i < $n; $i++) {
my $rec = $rs->record($i);
my $data = $rec->render();
- print STDERR "=== record ", $i+1, " of $n ===\n", $data;
my $raw = $rec->raw();
my $raw = $rec->raw();
- print STDERR "--- raw version ---\n", $raw;
}
$rs->destroy();
}
$rs->destroy();