gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 18152: Add tests 

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
This commit is contained in:
Jonathan Druart 2017-05-03 15:30:14 -03:00 committed by Kyle M Hall
parent bf551a0722
commit a807d7199e
1 changed files with 26 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
t/Charset.t
View File

@ -17,11 +17,13 @@
use Modern::Perl;
use Test::More tests => 16;
use Test::More tests => 17;
use Encode qw( is_utf8 );
use MARC::Record;
use t::lib::Mocks;
use utf8;
use open ':std', ':encoding(utf8)';
@ -71,4 +73,27 @@ ok( Encode::is_utf8($record->subfield('100','a')) &&
is( nsb_clean("˜Leœ Moyen Âge"), "Le Moyen Âge", "nsb_clean removes ˜ and œ" );
subtest 'SetMarcUnicodeFlag' => sub {
plan tests => 2;
# TODO This should be done in MARC::Record
my $leader = '012345678X0 ';
my $expected_marc21_leader = '012345678a0 '; # position 9 of leader must be 'a'
my $expected_unimarc_leader = '012345678X0 '; # position 9 of leader must not be changed
# Note that position 9 of leader should be blank for UNIMARC, but as it is not related to encoding
# we do not want to change it
t::lib::Mocks::mock_preference( 'marcflavour', 'MARC21' );
my $marc21_record = MARC::Record->new;
$marc21_record->leader($leader);
SetMarcUnicodeFlag( $marc21_record, C4::Context->preference('marcflavour') );
is( $marc21_record->leader, $expected_marc21_leader, 'Leader 9 for MARC21 mush be "a"' );
t::lib::Mocks::mock_preference( 'marcflavour', 'UNIMARC' );
t::lib::Mocks::mock_preference( 'UNIMARCField100Language', 'fre' );
my $unimarc_record = MARC::Record->new;
$unimarc_record->leader($leader);
SetMarcUnicodeFlag( $unimarc_record, C4::Context->preference('marcflavour') );
is( $unimarc_record->leader, $expected_unimarc_leader, 'Leader 9 for UNIMARC must be blank' );
};
1;