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 => 232; |
15 |
# work around spurious wide character warnings |
|
|
16 |
use open ':std', ':encoding(utf8)'; |
17 |
|
18 |
use Test::More tests => 4; |
16 |
use Test::MockModule; |
19 |
use Test::MockModule; |
17 |
use MARC::Record; |
20 |
use MARC::Record; |
18 |
use File::Spec; |
21 |
use File::Spec; |
Lines 23-32
use File::Temp qw/ tempdir /;
Link Here
|
23 |
use File::Path; |
26 |
use File::Path; |
24 |
use DBI; |
27 |
use DBI; |
25 |
|
28 |
|
26 |
# work around spurious wide character warnings |
|
|
27 |
binmode Test::More->builder->output, ":utf8"; |
28 |
binmode Test::More->builder->failure_output, ":utf8"; |
29 |
|
30 |
our $child; |
29 |
our $child; |
31 |
our $datadir; |
30 |
our $datadir; |
32 |
|
31 |
|
Lines 788-799
sub run_marc21_search_tests {
Link Here
|
788 |
# retrieve records that are larger than the MARC limit of 99,999 octets |
787 |
# retrieve records that are larger than the MARC limit of 99,999 octets |
789 |
( undef, $results_hashref, $facets_loop ) = |
788 |
( undef, $results_hashref, $facets_loop ) = |
790 |
getRecords('ti:marc the large record', '', [], [ 'biblioserver' ], '20', 0, undef, \%branches, \%itemtypes, 'ccl', undef); |
789 |
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)"); |
790 |
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, |
791 |
@newresults = searchResults('opac', $query_desc, $results_hashref->{'biblioserver'}->{'hits'}, 10, 0, 0, |
793 |
$results_hashref->{'biblioserver'}->{"RECORDS"}); |
792 |
$results_hashref->{'biblioserver'}->{"RECORDS"}); |
794 |
is($newresults[0]->{title}, 'Marc the Large Record', 'able to render over-large bib record (bug 11096)'); |
793 |
is($newresults[0]->{title}, 'Marc the Large Record', 'Able to render the title for over-large bib record (bug 11096)'); |
795 |
is($newresults[0]->{biblionumber}, '300', 'able to render over-large bib record (bug 11096)'); |
794 |
is($newresults[0]->{biblionumber}, '300', 'Over-large bib record has the correct biblionumber (bug 11096)'); |
796 |
like($newresults[0]->{notes}, qr/This is large note #550/, 'able to render over-large bib record (bug 11096)'); |
795 |
like($newresults[0]->{notes}, qr/This is large note #550/, 'Able to render the notes field for over-large bib record (bug 11096)'); |
797 |
|
796 |
|
798 |
cleanup(); |
797 |
cleanup(); |
799 |
} |
798 |
} |
Lines 869-878
sub run_unimarc_search_tests {
Link Here
|
869 |
cleanup(); |
868 |
cleanup(); |
870 |
} |
869 |
} |
871 |
|
870 |
|
872 |
run_marc21_search_tests('grs1'); |
871 |
subtest 'MARC21 + GRS-1' => sub { |
873 |
run_marc21_search_tests('dom'); |
872 |
plan tests => 103; |
874 |
|
873 |
run_marc21_search_tests('grs1'); |
875 |
run_unimarc_search_tests('grs1'); |
874 |
}; |
876 |
run_unimarc_search_tests('dom'); |
875 |
|
|
|
876 |
subtest 'MARC21 + DOM' => sub { |
877 |
plan tests => 103; |
878 |
run_marc21_search_tests('dom'); |
879 |
}; |
880 |
|
881 |
subtest 'UNIMARC + GRS-1' => sub { |
882 |
plan tests => 13; |
883 |
run_unimarc_search_tests('grs1'); |
884 |
}; |
885 |
|
886 |
subtest 'UNIMARC + DOM' => sub { |
887 |
plan tests => 13; |
888 |
run_unimarc_search_tests('dom'); |
889 |
}; |
877 |
|
890 |
|
878 |
1; |
891 |
1; |
879 |
- |
|
|