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

(-)a/t/db_dependent/Koha/Biblio.t (-1 / +12 lines)
Lines 21-26 use Test::More tests => 16; Link Here
21
21
22
use C4::Biblio qw( AddBiblio ModBiblio );
22
use C4::Biblio qw( AddBiblio ModBiblio );
23
use Koha::Database;
23
use Koha::Database;
24
use Koha::Caches;
24
use Koha::Acquisition::Orders;
25
use Koha::Acquisition::Orders;
25
use Koha::AuthorisedValueCategories;
26
use Koha::AuthorisedValueCategories;
26
use Koha::AuthorisedValues;
27
use Koha::AuthorisedValues;
Lines 605-610 subtest 'get_marc_notes() MARC21 tests' => sub { Link Here
605
    my $mss = Koha::MarcSubfieldStructures->find({tagfield => "590", tagsubfield => "a", frameworkcode => $biblio->frameworkcode });
606
    my $mss = Koha::MarcSubfieldStructures->find({tagfield => "590", tagsubfield => "a", frameworkcode => $biblio->frameworkcode });
606
    $mss->update({ authorised_value => "TEST" });
607
    $mss->update({ authorised_value => "TEST" });
607
608
609
    my $cache = Koha::Caches->get_instance;
610
    $cache->clear_from_cache("MarcStructure-0-");
611
    $cache->clear_from_cache("MarcStructure-1-");
612
    $cache->clear_from_cache("default_value_for_mod_marc-");
613
    $cache->clear_from_cache("MarcSubfieldStructure-");
614
608
    C4::Biblio::ModBiblio( $record, $biblio->biblionumber );
615
    C4::Biblio::ModBiblio( $record, $biblio->biblionumber );
609
    $biblio = Koha::Biblios->find( $biblio->biblionumber);
616
    $biblio = Koha::Biblios->find( $biblio->biblionumber);
610
617
Lines 624-629 subtest 'get_marc_notes() MARC21 tests' => sub { Link Here
624
    is( $notes->[4]->{marcnote}, 'Description should show OPAC', 'Authorised value is correctly parsed for OPAC to show description rather than code' );
631
    is( $notes->[4]->{marcnote}, 'Description should show OPAC', 'Authorised value is correctly parsed for OPAC to show description rather than code' );
625
    is( @$notes, 5, 'No more notes' );
632
    is( @$notes, 5, 'No more notes' );
626
633
634
    $cache->clear_from_cache("MarcStructure-0-");
635
    $cache->clear_from_cache("MarcStructure-1-");
636
    $cache->clear_from_cache("default_value_for_mod_marc-");
637
    $cache->clear_from_cache("MarcSubfieldStructure-");
638
627
    $schema->storage->txn_rollback;
639
    $schema->storage->txn_rollback;
628
};
640
};
629
641
630
- 

Return to bug 28734