Lines 17-23
Link Here
|
17 |
|
17 |
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use Test::More tests => 11; |
20 |
use Test::More tests => 12; |
21 |
use Test::MockModule; |
21 |
use Test::MockModule; |
22 |
use List::MoreUtils qw( uniq ); |
22 |
use List::MoreUtils qw( uniq ); |
23 |
use MARC::Record; |
23 |
use MARC::Record; |
Lines 573-575
subtest 'MarcFieldForCreatorAndModifier' => sub {
Link Here
|
573 |
# Cleanup |
573 |
# Cleanup |
574 |
Koha::Caches->get_instance->clear_from_cache( "MarcSubfieldStructure-" ); |
574 |
Koha::Caches->get_instance->clear_from_cache( "MarcSubfieldStructure-" ); |
575 |
$schema->storage->txn_rollback; |
575 |
$schema->storage->txn_rollback; |
576 |
- |
576 |
|
|
|
577 |
subtest 'GetCOinSBiblio and GetOpenURLResolverURL' => sub { |
578 |
plan tests => 2; |
579 |
|
580 |
$schema->storage->txn_begin; |
581 |
|
582 |
my $builder = t::lib::TestBuilder->new; |
583 |
my $biblio = $builder->build_sample_biblio({ |
584 |
title => 'Title 1', |
585 |
author => 'Author 1' |
586 |
}); |
587 |
my $record = $biblio->metadata->record; |
588 |
|
589 |
t::lib::Mocks::mock_preference("OpenURLResolverURL", "https://koha.example.com/"); |
590 |
|
591 |
is( |
592 |
C4::Biblio::GetCOinSBiblio($record), |
593 |
'ctx_ver=Z39.88-2004&rft_val_fmt=info%3Aofi%2Ffmt%3Akev%3Amtx%3Abook&rft.genre=book&rft.btitle=Title%201&rft.au=Author%201', |
594 |
'GetCOinsBiblio returned right metadata' |
595 |
); |
596 |
|
597 |
is( |
598 |
C4::Biblio::GetOpenURLResolverURL($record), |
599 |
'https://koha.example.com/?ctx_ver=Z39.88-2004&rft_val_fmt=info%3Aofi%2Ffmt%3Akev%3Amtx%3Abook&rft.genre=book&rft.btitle=Title%201&rft.au=Author%201', |
600 |
'GetOpenURLResolverURL returned right URL' |
601 |
); |
602 |
|
603 |
$schema->storage->txn_rollback; |
604 |
}; |