From 2a7813d032f43443c6ead8ac103bf5762df3648f Mon Sep 17 00:00:00 2001 From: Mike Rylander Date: Fri, 11 Nov 2022 14:38:55 -0500 Subject: [PATCH] Allow QP tester to run without a full stack in simple situations Signed-off-by: Mike Rylander Signed-off-by: Jason Stephenson --- Open-ILS/src/support-scripts/test-scripts/query_parser.pl | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/Open-ILS/src/support-scripts/test-scripts/query_parser.pl b/Open-ILS/src/support-scripts/test-scripts/query_parser.pl index ebc0777d8e..679a233e76 100755 --- a/Open-ILS/src/support-scripts/test-scripts/query_parser.pl +++ b/Open-ILS/src/support-scripts/test-scripts/query_parser.pl @@ -105,11 +105,14 @@ if (!$noconnect) { } $parser->parse; -my $sql = $parser->toSQL; -$sql =~ s/^\s*$//gm; print "Parsed query tree:\n" . Dumper($parser) unless $quiet; print "Abstract query:\n" . Dumper($parser->parse_tree->to_abstract_query) unless $quiet; +print "Canonicalized query: " . $parser->canonicalize ."\n" unless $quiet; -print "SQL:\n$sql\n\n" unless $quiet; +if (!$noconnect and !$quiet) { + my $sql = $parser->toSQL; + $sql =~ s/^\s*$//gm; + print "SQL:\n$sql\n\n"; +} -- 2.11.0