View | Details | Raw Unified | Return to bug 8995
Collapse All | Expand All

(-)a/t/db_dependent/Biblio.t (-1 / +29 lines)
Lines 590-592 subtest 'ModBiblio called from linker test' => sub { Link Here
590
# Cleanup
590
# Cleanup
591
Koha::Caches->get_instance->clear_from_cache( "MarcSubfieldStructure-" );
591
Koha::Caches->get_instance->clear_from_cache( "MarcSubfieldStructure-" );
592
$schema->storage->txn_rollback;
592
$schema->storage->txn_rollback;
593
- 
593
594
subtest 'GetCOinSBiblio and GetOpenURLResolverURL' => sub {
595
    plan tests => 2;
596
597
    $schema->storage->txn_begin;
598
599
    my $builder = t::lib::TestBuilder->new;
600
    my $biblio = $builder->build_sample_biblio({
601
            title => 'Title 1',
602
            author => 'Author 1'
603
        });
604
    my $record = $biblio->metadata->record;
605
606
    t::lib::Mocks::mock_preference("OpenURLResolverURL", "https://koha.example.com/");
607
608
    is(
609
        C4::Biblio::GetCOinSBiblio($record),
610
        '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',
611
        'GetCOinsBiblio returned right metadata'
612
    );
613
614
    is(
615
        C4::Biblio::GetOpenURLResolverURL($record),
616
        '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',
617
        'GetOpenURLResolverURL returned right URL'
618
    );
619
620
    $schema->storage->txn_rollback;
621
};

Return to bug 8995