Lines 48-54
subtest "Check MARC field length calculation" => sub {
Link Here
|
48 |
}; |
48 |
}; |
49 |
|
49 |
|
50 |
subtest "StripWhitespaceChars tests" => sub { |
50 |
subtest "StripWhitespaceChars tests" => sub { |
51 |
plan tests => 3; |
51 |
plan tests => 4; |
52 |
|
52 |
|
53 |
t::lib::Mocks::mock_preference('marcflavour', 'MARC21'); |
53 |
t::lib::Mocks::mock_preference('marcflavour', 'MARC21'); |
54 |
t::lib::Mocks::mock_preference('StripWhitespaceChars', 0); |
54 |
t::lib::Mocks::mock_preference('StripWhitespaceChars', 0); |
Lines 56-61
subtest "StripWhitespaceChars tests" => sub {
Link Here
|
56 |
my $biblio = t::lib::TestBuilder->new->build_sample_biblio; |
56 |
my $biblio = t::lib::TestBuilder->new->build_sample_biblio; |
57 |
my $record = MARC::Record->new; |
57 |
my $record = MARC::Record->new; |
58 |
$record->append_fields( |
58 |
$record->append_fields( |
|
|
59 |
MARC::Field->new( '003', "abcdefg\n" ), |
59 |
MARC::Field->new( '245', '', '', a => " My\ntitle\n" ), |
60 |
MARC::Field->new( '245', '', '', a => " My\ntitle\n" ), |
60 |
); |
61 |
); |
61 |
|
62 |
|
Lines 75-80
subtest "StripWhitespaceChars tests" => sub {
Link Here
|
75 |
my $amendedrec = $biblio->metadata->record; |
76 |
my $amendedrec = $biblio->metadata->record; |
76 |
my $amendedtitle = $amendedrec->title; |
77 |
my $amendedtitle = $amendedrec->title; |
77 |
is( $amendedtitle, "My title", "Whitespace characters removed from title because StripWhitespaceChars is enabled" ); |
78 |
is( $amendedtitle, "My title", "Whitespace characters removed from title because StripWhitespaceChars is enabled" ); |
|
|
79 |
|
80 |
my $f003 = $record->field('003')->data; |
81 |
is( $f003, "abcdefg\n", "Whitespace characters are not stripped from control fields" ); |
78 |
}; |
82 |
}; |
79 |
|
83 |
|
80 |
$schema->storage->txn_rollback; |
84 |
$schema->storage->txn_rollback; |
81 |
- |
|
|