Bug 22056: Removed test directory, including search.pl and README

Test plan: Check that this directory has been removed.

Sponsored-by: Catalyst IT

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
This commit is contained in:
Hayley Mapley 2019-04-26 15:22:30 +12:00 committed by Nick Clemens
parent 6960352291
commit 27691d2db6
2 changed files with 0 additions and 73 deletions

View File

@ -1,3 +0,0 @@
A collection of cgi and command line scripts that are useful for some testing,
but for one reason or another cannot be made into automated test in t.
Use with templates in koha-tmpl/intranet-tmpl/prog/en/modules/test

View File

@ -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;
}