|
Lines 565-571
subtest 'get_marc_components() tests' => sub {
Link Here
|
| 565 |
}; |
565 |
}; |
| 566 |
|
566 |
|
| 567 |
subtest 'get_components_query' => sub { |
567 |
subtest 'get_components_query' => sub { |
| 568 |
plan tests => 3; |
568 |
plan tests => 4; |
| 569 |
|
569 |
|
| 570 |
my $biblio = $builder->build_sample_biblio(); |
570 |
my $biblio = $builder->build_sample_biblio(); |
| 571 |
my $biblionumber = $biblio->biblionumber; |
571 |
my $biblionumber = $biblio->biblionumber; |
|
Lines 588-593
subtest 'get_components_query' => sub {
Link Here
|
| 588 |
$biblio = Koha::Biblios->find( $biblio->biblionumber); |
588 |
$biblio = Koha::Biblios->find( $biblio->biblionumber); |
| 589 |
|
589 |
|
| 590 |
is($biblio->get_components_query, "(((rcn:$biblionumber AND cni:OSt) OR rcn:\"OSt $biblionumber\") AND (bib-level:a OR bib-level:b))", "UseControlNumber enabled with MarcOrgCode"); |
590 |
is($biblio->get_components_query, "(((rcn:$biblionumber AND cni:OSt) OR rcn:\"OSt $biblionumber\") AND (bib-level:a OR bib-level:b))", "UseControlNumber enabled with MarcOrgCode"); |
|
|
591 |
|
| 592 |
$biblio->metadata->metadata('This is invalid for a MARC record')->store(); |
| 593 |
$biblio = Koha::Biblios->find( $biblio->biblionumber); |
| 594 |
|
| 595 |
is($biblio->get_components_query, undef, "Invalid MARC record returns undefined and does not die"); |
| 591 |
}; |
596 |
}; |
| 592 |
|
597 |
|
| 593 |
subtest 'orders() and active_orders() tests' => sub { |
598 |
subtest 'orders() and active_orders() tests' => sub { |
| 594 |
- |
|
|