2 require '../oils_header.pl';
3 use strict; use warnings;
4 use OpenSRF::EX qw(:try);
5 use OpenSRF::AppSession;
9 my $config = '/openils/conf/opensrf_core.xml';
11 my @default_queries = (
13 'keyword1 || keyword2',
14 '(keyword1) || keyword2',
15 'keyword1 || (keyword2)',
16 '(keyword1) || (keyword2)',
17 'keyword item_type(a)',
18 '(item_type(a)) keyword1',
19 'keyword1 item_type(a) title:keyword2',
20 'keyword1 (item_type(a)) title:keyword2',
21 'item_type(a) keyword1 title:keyword2',
22 '(item_type(a)) keyword1 title:keyword2',
24 'concerto (violin || piano)',
28 'keyword:"keyword1" title:"keyword2"',
29 'keyword locations() statuses()',
30 # A small set of searches that errored out in a production install
31 'keyword: subject:Graphical user interfaces (Computer systems) depth(0) subject|topic[Authoring programs]',
32 'keyword: subject:Assassins New York (State) depth(0) subject|geographic[Buffalo (N.Y.)]',
33 'keyword: author: Niggeman Indifilm (Firm) depth(0) subject|geographic[Mars (Planet)]',
34 'keyword: subject:Los Angeles (Calif.) Juvenile fiction. depth(0) subject|geographic[Los Angeles (Calif.)]',
35 'keyword: subject:Los Angeles (Calif.) depth(0) subject|geographic[California] subject|name[Faulkner, William 1897-1962]',
36 'keyword: subject:Thrillers (Motion pictures, television, etc.) depth(0) subject|topic[Action and adventure films]',
37 'keyword: author: Brilliance Audio (Firm) depth(0) subject|topic[Man-woman relationships]',
38 'keyword: subject:Rhodenbarr, Bernie (Fictitious character) depth(0) subject|geographic[England] subject|topic[Audiocassettes]',
39 'keyword: subject:Burgett, Donald R. (Donald Robert), depth(0) subject|geographic[Netherlands]',
40 'keyword: author: 2 Entertain (Firm) depth(0) subject|geographic[England] subject|geographic[Nottingham (England)]',
41 # Selection from the query_parser.pl script
42 '#available title: foo bar* || (-baz || (subject:"1900'.
43 '-1910 junk" "and another thing" se:stuff #available '.
44 'statuses(0,7,12))) && && && au:malarky || au|'.
45 'corporate|personal:gonzo && dc.identifier:+123456789X'.
46 ' dc.contributor=rowling #metarecord estimation_'.
47 'strategy(exclusion) item_type(a, t) item_form(d) '.
48 'bib.subjectTitle=potter bib.subjectName=harry '.
49 'keyword|mapscale:1:250000',
50 'concerto #available filter_group_entry(1,2,3) filter_group_entry(4,5)',
51 'concerto || filter_group_entry(4) || filter_group_entry(3)',
52 'concerto (audience(a) || (item_type(a) && item_form(b)))',
53 'concerto || (piano && (item_type(a) || audience(a)))',
54 '(concerto item_type(a)) || (piano item_type(b))',
55 'audience(a) (concerto || item_type(a) || (piano music item_form(b)))',
56 'concerto && (item_type(a) || piano) && (item_form(b) || music)',
57 'concerto && (piano || item_type(a)) && (music || item_form(b))',
64 'config=s' => \$config,
66 'query=s' => \@queries,
68 osrf_connect($config); # connect to jabber
70 @queries = @default_queries unless @queries;
72 my $ses = OpenSRF::AppSession->create("open-ils.search");
74 print "Running Queries\n";
77 my $req = $ses->request('open-ils.search.biblio.multiclass.query', {}, $_, 0);
78 my $stat = $req->gather(1);
79 print "Query $_ returned " . $stat->{count} . " results\n";
81 print "ERROR ON QUERY: $_\n";