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 (from parent 1:
147db99
)
Add test for ZOOM_connection_diagset()
author
mike
<mike>
Wed, 16 Nov 2005 16:24:42 +0000
(16:24 +0000)
committer
mike
<mike>
Wed, 16 Nov 2005 16:24:42 +0000
(16:24 +0000)
t/1-Net-Z3950-ZOOM.t
patch
|
blob
|
history
diff --git
a/t/1-Net-Z3950-ZOOM.t
b/t/1-Net-Z3950-ZOOM.t
index
43445a9
..
a860861
100644
(file)
--- a/
t/1-Net-Z3950-ZOOM.t
+++ b/
t/1-Net-Z3950-ZOOM.t
@@
-1,11
+1,11
@@
-# $Id: 1-Net-Z3950-ZOOM.t,v 1.12 2005-10-31 15:03:11 mike Exp $
+# $Id: 1-Net-Z3950-ZOOM.t,v 1.13 2005-11-16 16:24:42 mike Exp $
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl 1-Net-Z3950-ZOOM.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 1-Net-Z3950-ZOOM.t'
use strict;
use warnings;
-use Test::More tests => 21;
+use Test::More tests => 22;
BEGIN { use_ok('Net::Z3950::ZOOM') };
my $msg = Net::Z3950::ZOOM::diag_str(Net::Z3950::ZOOM::ERROR_INVALID_QUERY);
BEGIN { use_ok('Net::Z3950::ZOOM') };
my $msg = Net::Z3950::ZOOM::diag_str(Net::Z3950::ZOOM::ERROR_INVALID_QUERY);
@@
-67,7
+67,8
@@
ok(Net::Z3950::ZOOM::connection_errmsg($conn) eq $errmsg,
"errmsg() consistent with error()");
ok(Net::Z3950::ZOOM::connection_addinfo($conn) eq $addinfo,
"addinfo() consistent with error()");
"errmsg() consistent with error()");
ok(Net::Z3950::ZOOM::connection_addinfo($conn) eq $addinfo,
"addinfo() consistent with error()");
-### These is no ZOOM_connection_diagset() -- surely that's a mistake?
+ok(Net::Z3950::ZOOM::connection_diagset($conn) eq $xset,
+ "diagset() consistent with error()");
$query = '@attr 1=4 minerals';
$rs = Net::Z3950::ZOOM::connection_search_pqf($conn, $query);
$query = '@attr 1=4 minerals';
$rs = Net::Z3950::ZOOM::connection_search_pqf($conn, $query);