|
Lines 814-819
ok(MARC::Record::new_from_xml($results_hashref->{biblioserver}->{RECORDS}->[0],'
Link Here
|
| 814 |
); |
814 |
); |
| 815 |
is($count, 1, 'MARC21 authorities: one hit on match contains "沙士北亞威廉姆" (QP)'); |
815 |
is($count, 1, 'MARC21 authorities: one hit on match contains "沙士北亞威廉姆" (QP)'); |
| 816 |
|
816 |
|
|
|
817 |
warning_like { |
| 818 |
SearchAuthorities( |
| 819 |
['^{"#\~@'], ['ax"nd'], [''], ['st"axrts'], |
| 820 |
['sha"kespeare'], 0, 10, '', '', 1 |
| 821 |
) |
| 822 |
} qr{^Bad PQF query: }, |
| 823 |
"SearchAuthorties should handle bad PQF query"; |
| 824 |
|
| 817 |
# retrieve records that are larger than the MARC limit of 99,999 octets |
825 |
# retrieve records that are larger than the MARC limit of 99,999 octets |
| 818 |
( undef, $results_hashref, $facets_loop ) = |
826 |
( undef, $results_hashref, $facets_loop ) = |
| 819 |
getRecords('ti:marc the large record', '', [], [ 'biblioserver' ], '20', 0, \%branches, \%itemtypes, 'ccl', undef); |
827 |
getRecords('ti:marc the large record', '', [], [ 'biblioserver' ], '20', 0, \%branches, \%itemtypes, 'ccl', undef); |
|
Lines 971-977
sub run_unimarc_search_tests {
Link Here
|
| 971 |
} |
979 |
} |
| 972 |
|
980 |
|
| 973 |
subtest 'MARC21 + DOM' => sub { |
981 |
subtest 'MARC21 + DOM' => sub { |
| 974 |
plan tests => 112; |
982 |
plan tests => 113; |
| 975 |
run_marc21_search_tests(); |
983 |
run_marc21_search_tests(); |
| 976 |
}; |
984 |
}; |
| 977 |
|
985 |
|
| 978 |
- |
|
|