1 package KohaTest::Heading::MARC21;
2 use base qw( KohaTest::Heading );
10 use C4::Heading::MARC21;
14 sub testing_class { 'C4::Heading::MARC21' };
16 sub methods : Test( 1 ) {
22 _get_subject_thesaurus
27 can_ok( $self->testing_class, @methods );
30 sub bug2315 : Test( 1 ) {
32 my $subject_heading = MARC::Field->new(650, ' ', '0',
33 a => "Dalziel, Andrew (Fictitious character",
36 my $display_form = C4::Heading::MARC21::_get_display_heading($subject_heading, 'a');
37 is($display_form, "Dalziel, Andrew (Fictitious character", "bug 2315: no crash if heading subfield has metacharacter");