-
-
-sub check_failure {
- my($conn, $q, $expected_error, $expected_dset) = @_;
-
- my $rs;
- eval { $rs = $conn->search($q) };
- ok($@ && $@->isa("ZOOM::Exception") &&
- $@->code() == $expected_error && $@->diagset() eq $expected_dset,
- "query rejected: error " . $@->code());
- $rs->destroy();
-}