t/lib/KohaTest/Heading/MARC21.pm

   1 package KohaTest::Heading::MARC21;
   2 use base qw( KohaTest::Heading );
   3
   4 use strict;
   5 use warnings;
   6
   7 use Test::More;
   8
   9 use C4::Heading;
  10 use C4::Heading::MARC21;
  11
  12 use MARC::Field;
  13
  14 sub testing_class { 'C4::Heading::MARC21' };
  15
  16 sub methods : Test( 1 ) {
  17     my $self = shift;
  18     my @methods = qw(
  19                     new
  20                     valid_bib_heading_tag
  21                     parse_heading
  22                     _get_subject_thesaurus
  23                     _get_search_heading
  24                     _get_display_heading
  25                 );
  26
  27     can_ok( $self->testing_class, @methods );
  28 }
  29
  30 sub bug2315 : Test( 1 ) {
  31
  32     my $subject_heading = MARC::Field->new(650, ' ', '0',
  33                                                 a   => "Dalziel, Andrew (Fictitious character",
  34                                                 ')' => "Fiction."
  35                                            );
  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");
  38
  39 }
  40
  41 1;