-
-
-sub check_failure {
- my($conn, $q, $expected_error, $expected_dset) = @_;
-
- my $rs = Net::Z3950::ZOOM::connection_search($conn, $q);
- my($errcode, $errmsg, $addinfo, $diagset) = (undef, "dummy", "dummy", "");
- $errcode = Net::Z3950::ZOOM::connection_error_x($conn, $errmsg, $addinfo,
- $diagset);
- ok($errcode == $expected_error && $diagset eq $expected_dset,
- "query rejected: error " . $errcode);
-}