View | Details | Raw Unified | Return to bug 22056
Collapse All | Expand All

(-)a/test/README (-3 lines)
Lines 1-3 Link Here
1
A collection of cgi and command line scripts that are useful for some testing,
2
but for one reason or another cannot be made into automated test in t.
3
Use with templates in koha-tmpl/intranet-tmpl/prog/en/modules/test
(-)a/test/search.pl (-71 lines)
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
- 

Return to bug 22056