@@ -, +, @@ --- t/Biblio/TransformKohaToMarc.t | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 t/Biblio/TransformKohaToMarc.t --- a/t/Biblio/TransformKohaToMarc.t +++ a/t/Biblio/TransformKohaToMarc.t @@ -0,0 +1,31 @@ +use Modern::Perl; +use Test::More tests => 1; +use MARC::Record; + +use t::lib::Mocks; +use C4::Biblio; + +t::lib::Mocks::mock_preference('marcflavour', 'MARC21'); + +my $record = C4::Biblio::TransformKohaToMarc({ + "biblioitems.illus" => "Other physical details", # 300$b + "biblioitems.pages" => "Extent", # 300$a + "biblioitems.size" => "Dimensions", # 300$c +}); + +my @subfields = $record->field('300')->subfields(); +is_deeply( \@subfields, [ + [ + 'a', + 'Extent' + ], + [ + 'b', + 'Other physical details' + ], + [ + 'c', + 'Dimensions' + ] + ], +'TransformKohaToMarc should returns sorted subfields (regression test for bug 12343)' ); --