1 # $Id: 12-query.t,v 1.4 2005-12-22 09:16:43 mike Exp $
3 # Before `make install' is performed this script should be runnable with
4 # `make test'. After `make install' it should work as `perl 12-query.t'
8 use Test::More tests => 32;
9 BEGIN { use_ok('Net::Z3950::ZOOM') };
11 # Net::Z3950::ZOOM::yaz_log_init_level(Net::Z3950::ZOOM::yaz_log_mask_str("zoom"));
13 my $q = Net::Z3950::ZOOM::query_create();
14 ok(defined $q, "create empty query");
16 Net::Z3950::ZOOM::query_destroy($q);
17 ok(1, "destroyed empty query");
19 $q = Net::Z3950::ZOOM::query_create();
20 ok(defined $q, "recreated empty query");
22 # Invalid CQL is not recognised as such, because ZOOM-C does not
23 # attempt to parse it: it just gets passed to the server when the
25 my $res = Net::Z3950::ZOOM::query_cql($q, "creator=pike and");
26 ok($res == 0, "invalid CQL accepted (pass-through)");
27 $res = Net::Z3950::ZOOM::query_cql($q, "creator=pike and subject=unix");
28 ok($res == 0, "valid CQL accepted");
30 $res = Net::Z3950::ZOOM::query_prefix($q, '@and @attr 1=1003 pike');
31 ok($res < 0, "invalid PQF rejected");
32 $res = Net::Z3950::ZOOM::query_prefix($q, '@and @attr 1=1003 pike @attr 1=21 unix');
33 ok($res == 0, "set PQF into query");
35 $res = Net::Z3950::ZOOM::query_sortby($q, "");
36 ok($res < 0, "zero-length sort criteria rejected");
38 $res = Net::Z3950::ZOOM::query_sortby($q, "foo bar baz");
39 ok($res == 0, "sort criteria accepted");
41 Net::Z3950::ZOOM::query_destroy($q);
42 ok(1, "destroyed complex query");
44 # Up till now, we have been doing query management. Now to actually
45 # use the query. This is done using connection_search() -- there are
46 # no other uses of query objects -- but we need to establish a
47 # connection for it to work on first.
49 my $host = "indexdata.com/gils";
50 my $conn = Net::Z3950::ZOOM::connection_new($host, 0);
51 my($errcode, $errmsg, $addinfo) = (undef, "dummy", "dummy");
52 $errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo);
53 ok($errcode == 0, "connection to '$host'");
55 Net::Z3950::ZOOM::connection_option_set($conn,
56 preferredRecordSyntax => "usmarc");
58 $q = Net::Z3950::ZOOM::query_create();
59 ok(defined $q, "create empty query");
60 $res = Net::Z3950::ZOOM::query_prefix($q,
61 '@and @attr 1=4 utah @attr 1=62 epicenter');
62 ok($res == 0, "set PQF into query");
63 check_record($conn, $q);
64 Net::Z3950::ZOOM::query_destroy($q);
66 # Now try a CQL query: this will fail due to lack of server support
67 $q = Net::Z3950::ZOOM::query_create();
68 ok(defined $q, "create empty query");
69 $res = Net::Z3950::ZOOM::query_cql($q, 'title=utah and description=epicenter');
70 ok($res == 0, "valid CQL accepted");
71 check_failure($conn, $q, 107, "Bib-1");
72 Net::Z3950::ZOOM::query_destroy($q);
74 # Client-side compiled CQL: this will fail due to lack of config-file
75 $q = Net::Z3950::ZOOM::query_create();
76 ok(defined $q, "create empty query");
77 $res = Net::Z3950::ZOOM::query_cql2rpn($q,
78 'title=utah and description=epicenter',
81 $errcode = Net::Z3950::ZOOM::connection_error_x($conn, $errmsg, $addinfo,
84 $errcode == Net::Z3950::ZOOM::ERROR_CQL_TRANSFORM &&
86 "can't make CQL2RPN query: error " . $errcode);
87 Net::Z3950::ZOOM::query_destroy($q);
89 # Finally, do a successful client-compiled CQL search
90 $q = Net::Z3950::ZOOM::query_create();
91 ok(defined $q, "create empty query");
92 Net::Z3950::ZOOM::connection_option_set($conn, cqlfile =>
93 "samples/cql/pqf.properties");
94 $res = Net::Z3950::ZOOM::query_cql2rpn($q,
95 'title=utah and description=epicenter',
97 ok($res == 0, "created CQL2RPN query");
98 check_record($conn, $q);
99 Net::Z3950::ZOOM::query_destroy($q);
101 Net::Z3950::ZOOM::connection_destroy($conn);
102 ok(1, "destroyed all objects");
108 my $rs = Net::Z3950::ZOOM::connection_search($conn, $q);
109 my($errcode, $errmsg, $addinfo) = (undef, "dummy", "dummy");
110 $errcode = Net::Z3950::ZOOM::connection_error($conn, $errmsg, $addinfo);
111 ok($errcode == 0, "search");
113 my $n = Net::Z3950::ZOOM::resultset_size($rs);
114 ok($n == 1, "found 1 record as expected");
116 my $rec = Net::Z3950::ZOOM::resultset_record($rs, 0);
117 ok(1, "got record idenfified by query");
120 my $data = Net::Z3950::ZOOM::record_get($rec, "render", $len);
121 ok(1, "rendered record");
122 ok($data =~ /^035 \$a ESDD0006$/m, "record is the expected one");
124 Net::Z3950::ZOOM::resultset_destroy($rs);
129 my($conn, $q, $expected_error, $expected_dset) = @_;
131 my $rs = Net::Z3950::ZOOM::connection_search($conn, $q);
132 my($errcode, $errmsg, $addinfo, $diagset) = (undef, "dummy", "dummy", "");
133 $errcode = Net::Z3950::ZOOM::connection_error_x($conn, $errmsg, $addinfo,
135 ok($errcode == $expected_error && $diagset eq $expected_dset,
136 "query rejected: error " . $errcode);