|
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 |
- |
|
|