From 613a6da032ab0d177421c36fe07d1d1dd9c6922c Mon Sep 17 00:00:00 2001
From: Thomas Berezansky <tsbere@mvlc.org>
Date: Mon, 10 Sep 2012 13:54:55 -0400
Subject: [PATCH] Quick script for pushing queries into search

Several of the defaults are designed to trigger bad SQL generation.

Signed-off-by: Thomas Berezansky <tsbere@mvlc.org>
Signed-off-by: Lebbeous Fogle-Weekley <lebbeous@esilibrary.com>
---
 .../test-scripts/query_tests.pl               | 82 +++++++++++++++++++
 1 file changed, 82 insertions(+)
 create mode 100755 Open-ILS/src/support-scripts/test-scripts/query_tests.pl

diff --git a/Open-ILS/src/support-scripts/test-scripts/query_tests.pl b/Open-ILS/src/support-scripts/test-scripts/query_tests.pl
new file mode 100755
index 0000000000..f8d0984d98
--- /dev/null
+++ b/Open-ILS/src/support-scripts/test-scripts/query_tests.pl
@@ -0,0 +1,82 @@
+#!/usr/bin/perl
+require '../oils_header.pl';
+use strict; use warnings;
+use OpenSRF::EX qw(:try);
+use OpenSRF::AppSession;
+use Getopt::Long;
+use Data::Dumper;
+
+my $config = '/openils/conf/opensrf_core.xml';
+my $debug = 0;
+my @default_queries = (
+    'keyword1',
+    'keyword1 || keyword2',
+    '(keyword1) || keyword2',
+    'keyword1 || (keyword2)',
+    '(keyword1) || (keyword2)',
+    'keyword item_type(a)',
+    '(item_type(a)) keyword1',
+    'keyword1 item_type(a) title:keyword2',
+    'keyword1 (item_type(a)) title:keyword2',
+    'item_type(a) keyword1 title:keyword2',
+    '(item_type(a)) keyword1 title:keyword2',
+    'concerto',
+    'concerto (violin || piano)',
+# A small set of searches that errored out in a production install
+    'keyword: subject:Graphical user interfaces (Computer systems) depth(0) subject|topic[Authoring programs]',
+    'keyword: subject:Assassins New York (State) depth(0) subject|geographic[Buffalo (N.Y.)]',
+    'keyword: author: Niggeman Indifilm (Firm) depth(0) subject|geographic[Mars (Planet)]',
+    'keyword: subject:Los Angeles (Calif.) Juvenile fiction. depth(0) subject|geographic[Los Angeles (Calif.)]',
+    'keyword: subject:Los Angeles (Calif.) depth(0) subject|geographic[California] subject|name[Faulkner, William 1897-1962]',
+    'keyword: subject:Thrillers (Motion pictures, television, etc.) depth(0) subject|topic[Action and adventure films]',
+    'keyword: author: Brilliance Audio (Firm) depth(0) subject|topic[Man-woman relationships]',
+    'keyword: subject:Rhodenbarr, Bernie (Fictitious character) depth(0) subject|geographic[England] subject|topic[Audiocassettes]',
+    'keyword: subject:Burgett, Donald R. (Donald Robert), depth(0) subject|geographic[Netherlands]',
+    'keyword: author: 2 Entertain (Firm) depth(0) subject|geographic[England] subject|geographic[Nottingham (England)]',
+# Selection from the query_parser.pl script
+    '#available title: foo bar* || (-baz || (subject:"1900'.
+                        '-1910 junk" "and another thing" se:stuff #available '.
+                        'statuses(0,7,12))) && && && au:malarky || au|'.
+                        'corporate|personal:gonzo && dc.identifier:+123456789X'.
+                        ' dc.contributor=rowling #metarecord estimation_'.
+                        'strategy(exclusion) item_type(a, t) item_form(d) '.
+                        'bib.subjectTitle=potter bib.subjectName=harry '.
+                        'keyword|mapscale:1:250000',
+    'concerto #available filter_group_entry(1,2,3) filter_group_entry(4,5)',
+    'concerto || filter_group_entry(4) || filter_group_entry(3)',
+    'concerto (audience(a) || (item_type(a) && item_form(b)))',
+    'concerto || (piano && (item_type(a) || audience(a)))',
+    '(concerto item_type(a)) || (piano item_type(b))',
+    'audience(a) (concerto || item_type(a) || (piano music item_form(b)))',
+    'concerto && (item_type(a) || piano) && (item_form(b) || music)',
+    'concerto && (piano || item_type(a)) && (music || item_form(b))',
+
+);
+
+my @queries;
+
+GetOptions(
+    'config=s' => \$config,
+    'debug' => \$debug,
+    'query=s' => \@queries,
+);
+osrf_connect($config); # connect to jabber
+
+@queries = @default_queries unless @queries;
+
+my $ses = OpenSRF::AppSession->create("open-ils.search");
+$ses->connect;
+print "Running Queries\n";
+foreach (@queries) {
+    try {
+        my $req = $ses->request('open-ils.search.biblio.multiclass.query', {}, $_, 0);
+        my $stat = $req->gather(1);
+        print "Query $_ returned " . $stat->{count} . " results\n";
+    } catch Error with {
+        print "ERROR ON QUERY: $_\n";
+    };
+}
+print "Done\n";
+$ses->disconnect;
+
+
-- 
2.43.2