From b6933ea51feee83f53b872abd34761a0c97f3878 Mon Sep 17 00:00:00 2001 From: Hayley Mapley Date: Tue, 16 Apr 2019 14:48:52 +1200 Subject: [PATCH] Bug 22056: Removed test/search.pl test/search.pl is old, and does not appear to be used anywhere. This patch removes this file. Test plan: Verify that test/search.pl has been removed. Sponsored-by: Catalyst IT. Signed-off-by: Bin Wen --- test/search.pl | 70 -------------------------------------------------- 1 file changed, 70 deletions(-) delete mode 100755 test/search.pl diff --git a/test/search.pl b/test/search.pl deleted file mode 100755 index 5d4f6e8d76..0000000000 --- a/test/search.pl +++ /dev/null @@ -1,70 +0,0 @@ -#!/usr/bin/perl -w - -use C4::Search; - -my @SEARCH = ( - { operators => [ - 'and', - 'and' - ], - operands => [ - 'shakespeare, "(william)"', - 'dream' - ], - indexes => [ - 'au,wrdl', - 'ti', - 'kw' - ], - limits => [ - 'yr,st-numeric=2000-' - ], - sort_by => [ - 'relevance' - ], - lang => 'en', - }, -); - - -foreach ( @SEARCH ) { - my ($expected, @mismatch); - my( $error, - $query, - $simple_query, - $query_cgi, - $query_desc, - $limit, - $limit_cgi, - $limit_desc, - $query_type ) - = buildQuery( $_->{operators}, $_->{operands}, $_->{indexes}, $_->{limits}, $_->{sort_by}, 0, $_->{lang} ); - - die $error if $error; - - $expected = $_->{query}; - push @mismatch, "Query: $query (not: $expected)" unless $query eq $expected; - - $expected = $_->{simple_query}; - push @mismatch, "Simple Query: $simple_query (not: $expected)" unless $simple_query eq $expected; - - $expected = $_->{query_cgi}; - push @mismatch, "Query CGI: $query_cgi (not: $expected)" unless $query_cgi eq $expected; - - $expected = $_->{query_desc}; - push @mismatch, "Query desc: $query_desc (not: $expected)" unless $query_desc eq $expected; - - $expected = $_->{limit}; - push @mismatch, "Limit: $limit (not: $expected)" unless $limit eq $expected; - - $expected = $_->{limit_cgi}; - push @mismatch, "Limit CGI: $limit_cgi (not: $expected)" unless $limit_cgi eq $expected; - - $expected = $_->{limit_desc}; - push @mismatch, "Limit desc: $limit_desc (not: $expected)" unless $limit_desc eq $expected; - - $expected = $_->{query_type}; - push @mismatch, "Query Type: $query_type (not: $expected)" unless $query_type eq $expected; - - die map "$_\n", @mismatch if @mismatch; -} -- 2.17.1