Lines 661-666
ok(MARC::Record::new_from_xml($results_hashref->{biblioserver}->{RECORDS}->[0],'
Link Here
|
661 |
is( $query, "an:42 and (( (allrecords,AlwaysMatches='') and (not-onloan-count,st-numeric >= 1) and (lost,st-numeric=0) ))", 'buildQuery should add the available part to the query if requested with ccl' ); |
661 |
is( $query, "an:42 and (( (allrecords,AlwaysMatches='') and (not-onloan-count,st-numeric >= 1) and (lost,st-numeric=0) ))", 'buildQuery should add the available part to the query if requested with ccl' ); |
662 |
is( $query_desc, 'an:42', 'buildQuery should remove the available part from the query' ); |
662 |
is( $query_desc, 'an:42', 'buildQuery should remove the available part from the query' ); |
663 |
|
663 |
|
|
|
664 |
( $error, $query, $simple_query, $query_cgi, |
665 |
$query_desc, $limit, $limit_cgi, $limit_desc, |
666 |
$query_type ) = buildQuery([], [ 'ccl=an:42' ], [], ['component_records'], [], 0, 'en'); |
667 |
is( $query, "an:42 and (( Bib-level='a' or Bib-level='b' ))", 'buildQuery should add the component_records part to the query if requested with ccl' ); |
668 |
is( $query_desc, 'an:42', 'buildQuery should remove the component_records part from the query' ); |
669 |
|
670 |
( $error, $query, $simple_query, $query_cgi, |
671 |
$query_desc, $limit, $limit_cgi, $limit_desc, |
672 |
$query_type ) = buildQuery([], [ 'ccl=an:42' ], [], ['exclude_component_records'], [], 0, 'en'); |
673 |
is( $query, "an:42 and (( (allrecords,AlwaysMatches='') not ( Bib-level='a' or Bib-level='b' ) ))", 'buildQuery should add the exclude_component_records part to the query if requested with ccl' ); |
674 |
is( $query_desc, 'an:42', 'buildQuery should remove the exclude_component_records part from the query' ); |
675 |
|
664 |
( $error, $query, $simple_query, $query_cgi, |
676 |
( $error, $query, $simple_query, $query_cgi, |
665 |
$query_desc, $limit, $limit_cgi, $limit_desc, |
677 |
$query_desc, $limit, $limit_cgi, $limit_desc, |
666 |
$query_type ) = buildQuery([], [ 'ccl=an:42' ], [], ['branch:CPL'], [], 0, 'en'); |
678 |
$query_type ) = buildQuery([], [ 'ccl=an:42' ], [], ['branch:CPL'], [], 0, 'en'); |
Lines 923-929
sub run_unimarc_search_tests {
Link Here
|
923 |
} |
935 |
} |
924 |
|
936 |
|
925 |
subtest 'MARC21 + DOM' => sub { |
937 |
subtest 'MARC21 + DOM' => sub { |
926 |
plan tests => 93; |
938 |
plan tests => 97; |
927 |
run_marc21_search_tests(); |
939 |
run_marc21_search_tests(); |
928 |
}; |
940 |
}; |
929 |
|
941 |
|
930 |
- |
|
|