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

(-)a/t/db_dependent/Search.t (-4 / +22 lines)
Lines 12-18 use YAML; Link Here
12
use C4::Debug;
12
use C4::Debug;
13
require C4::Context;
13
require C4::Context;
14
14
15
use Test::More tests => 224;
15
use Test::More tests => 232;
16
use Test::MockModule;
16
use Test::MockModule;
17
use MARC::Record;
17
use MARC::Record;
18
use File::Spec;
18
use File::Spec;
Lines 41-46 sub index_sample_records_and_launch_zebra { Link Here
41
        system("zebraidx -c $datadir/etc/koha/zebradb/$zebra_bib_cfg  -v none,fatal,warn   -g iso2709 -d biblios update $sourcedir/${marc_type}/zebraexport/biblio");
41
        system("zebraidx -c $datadir/etc/koha/zebradb/$zebra_bib_cfg  -v none,fatal,warn   -g iso2709 -d biblios update $sourcedir/${marc_type}/zebraexport/biblio");
42
        system("zebraidx -c $datadir/etc/koha/zebradb/$zebra_bib_cfg  -v none,fatal,warn  -g iso2709 -d biblios commit");
42
        system("zebraidx -c $datadir/etc/koha/zebradb/$zebra_bib_cfg  -v none,fatal,warn  -g iso2709 -d biblios commit");
43
    }
43
    }
44
    # ... and add large bib records, if present
45
    if (-f "$sourcedir/${marc_type}/zebraexport/large_biblio_${indexing_mode}/exported_records.xml") {
46
        my $zebra_bib_cfg = ($indexing_mode eq 'dom') ? 'zebra-biblios-dom.cfg' : 'zebra-biblios.cfg';
47
        system("zebraidx -c $datadir/etc/koha/zebradb/$zebra_bib_cfg  -v none,fatal,warn   -g marcxml -d biblios update $sourcedir/${marc_type}/zebraexport/large_biblio_${indexing_mode}");
48
        system("zebraidx -c $datadir/etc/koha/zebradb/$zebra_bib_cfg  -v none,fatal,warn  -g marcxml -d biblios commit");
49
    }
44
    if (-f "$sourcedir/${marc_type}/zebraexport/authority/exported_records") {
50
    if (-f "$sourcedir/${marc_type}/zebraexport/authority/exported_records") {
45
        my $zebra_auth_cfg = ($indexing_mode eq 'dom') ? 'zebra-authorities-dom.cfg' : 'zebra-authorities.cfg';
51
        my $zebra_auth_cfg = ($indexing_mode eq 'dom') ? 'zebra-authorities-dom.cfg' : 'zebra-authorities.cfg';
46
        system("zebraidx -c $datadir/etc/koha/zebradb/$zebra_auth_cfg  -v none,fatal,warn  -g iso2709 -d authorities init");
52
        system("zebraidx -c $datadir/etc/koha/zebradb/$zebra_auth_cfg  -v none,fatal,warn  -g iso2709 -d authorities init");
Lines 227-233 sub run_marc21_search_tests { Link Here
227
                '020' => {
233
                '020' => {
228
                    'sfs' => { 'a' => [ [ 'biblioitems', 'isbn' ] ] },
234
                    'sfs' => { 'a' => [ [ 'biblioitems', 'isbn' ] ] },
229
                    'list' => [ [ 'a', 'biblioitems', 'isbn' ] ]
235
                    'list' => [ [ 'a', 'biblioitems', 'isbn' ] ]
230
                }
236
                },
237
                '500' => {
238
                    'sfs' => { 'a' => [ [ 'biblioitems', 'notes' ] ] },
239
                    'list' => [ [ 'a', 'biblioitems', 'notes' ] ]
240
                },
231
            }
241
            }
232
        );
242
        );
233
        return \%hash;
243
        return \%hash;
Lines 499-505 sub run_marc21_search_tests { Link Here
499
    $stopwords_removed, $query_type ) = buildQuery([], [ 'pqf=@attr 1=_ALLRECORDS @attr 2=103 ""' ], [], [], [], 0, 'en');
509
    $stopwords_removed, $query_type ) = buildQuery([], [ 'pqf=@attr 1=_ALLRECORDS @attr 2=103 ""' ], [], [], [], 0, 'en');
500
510
501
    ($error, $results_hashref, $facets_loop) = getRecords($query,$simple_query,[ ], [ 'biblioserver' ],20,0,undef,\%branches,\%itemtypes,$query_type,0);
511
    ($error, $results_hashref, $facets_loop) = getRecords($query,$simple_query,[ ], [ 'biblioserver' ],20,0,undef,\%branches,\%itemtypes,$query_type,0);
502
    is($results_hashref->{biblioserver}->{hits}, 179, "getRecords on _ALLRECORDS PQF returned all records");
512
    is($results_hashref->{biblioserver}->{hits}, 180, "getRecords on _ALLRECORDS PQF returned all records");
503
513
504
    ( $error, $query, $simple_query, $query_cgi,
514
    ( $error, $query, $simple_query, $query_cgi,
505
    $query_desc, $limit, $limit_cgi, $limit_desc,
515
    $query_desc, $limit, $limit_cgi, $limit_desc,
Lines 775-780 sub run_marc21_search_tests { Link Here
775
    );
785
    );
776
    is($count, 1, 'MARC21 authorities: one hit on match contains "沙士北亞威廉姆" (QP)');
786
    is($count, 1, 'MARC21 authorities: one hit on match contains "沙士北亞威廉姆" (QP)');
777
787
788
    # retrieve records that are larger than the MARC limit of 99,999 octets
789
    ( undef, $results_hashref, $facets_loop ) =
790
        getRecords('ti:marc the large record', '', [], [ 'biblioserver' ], '20', 0, undef, \%branches, \%itemtypes, 'ccl', undef);
791
    is($results_hashref->{biblioserver}->{hits}, 1, "can do a search that retrieves an over-large bib record (bug 11096)");
792
    @newresults = searchResults('opac', $query_desc, $results_hashref->{'biblioserver'}->{'hits'}, 10, 0, 0,
793
        $results_hashref->{'biblioserver'}->{"RECORDS"});
794
    is($newresults[0]->{title}, 'Marc the Large Record', 'able to render over-large bib record (bug 11096)');
795
    is($newresults[0]->{biblionumber}, '300', 'able to render over-large bib record (bug 11096)');
796
    like($newresults[0]->{notes}, qr/This is large note #550/, 'able to render over-large bib record (bug 11096)');
778
797
779
    cleanup();
798
    cleanup();
780
}
799
}
781
- 

Return to bug 11096