Lines 1-70
Link Here
|
1 |
#!/usr/bin/perl -w |
|
|
2 |
|
3 |
use C4::Search; |
4 |
|
5 |
my @SEARCH = ( |
6 |
{ operators => [ |
7 |
'and', |
8 |
'and' |
9 |
], |
10 |
operands => [ |
11 |
'shakespeare, "(william)"', |
12 |
'dream' |
13 |
], |
14 |
indexes => [ |
15 |
'au,wrdl', |
16 |
'ti', |
17 |
'kw' |
18 |
], |
19 |
limits => [ |
20 |
'yr,st-numeric=2000-' |
21 |
], |
22 |
sort_by => [ |
23 |
'relevance' |
24 |
], |
25 |
lang => 'en', |
26 |
}, |
27 |
); |
28 |
|
29 |
|
30 |
foreach ( @SEARCH ) { |
31 |
my ($expected, @mismatch); |
32 |
my( $error, |
33 |
$query, |
34 |
$simple_query, |
35 |
$query_cgi, |
36 |
$query_desc, |
37 |
$limit, |
38 |
$limit_cgi, |
39 |
$limit_desc, |
40 |
$query_type ) |
41 |
= buildQuery( $_->{operators}, $_->{operands}, $_->{indexes}, $_->{limits}, $_->{sort_by}, 0, $_->{lang} ); |
42 |
|
43 |
die $error if $error; |
44 |
|
45 |
$expected = $_->{query}; |
46 |
push @mismatch, "Query: $query (not: $expected)" unless $query eq $expected; |
47 |
|
48 |
$expected = $_->{simple_query}; |
49 |
push @mismatch, "Simple Query: $simple_query (not: $expected)" unless $simple_query eq $expected; |
50 |
|
51 |
$expected = $_->{query_cgi}; |
52 |
push @mismatch, "Query CGI: $query_cgi (not: $expected)" unless $query_cgi eq $expected; |
53 |
|
54 |
$expected = $_->{query_desc}; |
55 |
push @mismatch, "Query desc: $query_desc (not: $expected)" unless $query_desc eq $expected; |
56 |
|
57 |
$expected = $_->{limit}; |
58 |
push @mismatch, "Limit: $limit (not: $expected)" unless $limit eq $expected; |
59 |
|
60 |
$expected = $_->{limit_cgi}; |
61 |
push @mismatch, "Limit CGI: $limit_cgi (not: $expected)" unless $limit_cgi eq $expected; |
62 |
|
63 |
$expected = $_->{limit_desc}; |
64 |
push @mismatch, "Limit desc: $limit_desc (not: $expected)" unless $limit_desc eq $expected; |
65 |
|
66 |
$expected = $_->{query_type}; |
67 |
push @mismatch, "Query Type: $query_type (not: $expected)" unless $query_type eq $expected; |
68 |
|
69 |
die map "$_\n", @mismatch if @mismatch; |
70 |
} |
71 |
- |