|
Lines 17-27
Link Here
|
| 17 |
|
17 |
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
| 19 |
|
19 |
|
| 20 |
use Test::More tests => 16; |
20 |
use Test::More tests => 17; |
| 21 |
use Encode qw( is_utf8 ); |
21 |
use Encode qw( is_utf8 ); |
| 22 |
|
22 |
|
| 23 |
use MARC::Record; |
23 |
use MARC::Record; |
| 24 |
|
24 |
|
|
|
25 |
use t::lib::Mocks; |
| 26 |
|
| 25 |
use utf8; |
27 |
use utf8; |
| 26 |
use open ':std', ':encoding(utf8)'; |
28 |
use open ':std', ':encoding(utf8)'; |
| 27 |
|
29 |
|
|
Lines 71-74
ok( Encode::is_utf8($record->subfield('100','a')) &&
Link Here
|
| 71 |
|
73 |
|
| 72 |
is( nsb_clean("Le Moyen Âge"), "Le Moyen Âge", "nsb_clean removes and " ); |
74 |
is( nsb_clean("Le Moyen Âge"), "Le Moyen Âge", "nsb_clean removes and " ); |
| 73 |
|
75 |
|
|
|
76 |
subtest 'SetMarcUnicodeFlag' => sub { |
| 77 |
plan tests => 2; |
| 78 |
# TODO This should be done in MARC::Record |
| 79 |
my $leader = '012345678X0 '; |
| 80 |
my $expected_marc21_leader = '012345678a0 '; # position 9 of leader must be 'a' |
| 81 |
my $expected_unimarc_leader = '012345678 0 '; # position 9 of leader must be blank |
| 82 |
|
| 83 |
t::lib::Mocks::mock_preference( 'marcflavour', 'MARC21' ); |
| 84 |
my $marc21_record = MARC::Record->new; |
| 85 |
$marc21_record->leader($leader); |
| 86 |
SetMarcUnicodeFlag( $marc21_record, C4::Context->preference('marcflavour') ); |
| 87 |
is( $marc21_record->leader, $expected_marc21_leader, 'Leader 9 for MARC21 mush be "a"' ); |
| 88 |
|
| 89 |
t::lib::Mocks::mock_preference( 'marcflavour', 'UNIMARC' ); |
| 90 |
t::lib::Mocks::mock_preference( 'UNIMARCField100Language', 'fre' ); |
| 91 |
my $unimarc_record = MARC::Record->new; |
| 92 |
$unimarc_record->leader($leader); |
| 93 |
SetMarcUnicodeFlag( $unimarc_record, C4::Context->preference('marcflavour') ); |
| 94 |
is( $unimarc_record->leader, $expected_unimarc_leader, 'Leader 9 for UNIMARC must be blank' ); |
| 95 |
}; |
| 96 |
|
| 74 |
1; |
97 |
1; |
| 75 |
- |
|
|