Lines 569-575
subtest 'get_components_query' => sub {
Link Here
|
569 |
my $record = $biblio->metadata->record; |
569 |
my $record = $biblio->metadata->record; |
570 |
|
570 |
|
571 |
t::lib::Mocks::mock_preference( 'UseControlNumber', '0' ); |
571 |
t::lib::Mocks::mock_preference( 'UseControlNumber', '0' ); |
572 |
is($biblio->get_components_query, "Host-item:(Some boring read)", "UseControlNumber disabled"); |
572 |
is($biblio->get_components_query, 'Host-item:("Some boring read")', "UseControlNumber disabled"); |
573 |
|
573 |
|
574 |
t::lib::Mocks::mock_preference( 'UseControlNumber', '1' ); |
574 |
t::lib::Mocks::mock_preference( 'UseControlNumber', '1' ); |
575 |
my $marc_001_field = MARC::Field->new('001', $biblionumber); |
575 |
my $marc_001_field = MARC::Field->new('001', $biblionumber); |
576 |
- |
|
|