@@ -, +, @@ --- test/search.pl | 70 ---------------------------------------------------------- 1 file changed, 70 deletions(-) delete mode 100755 test/search.pl --- a/test/search.pl +++ a/test/search.pl @@ -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; -} --