From 96da38931cc75cbd2a2ccf0233ae3bbeecab2f8e Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 17 Jul 2017 15:58:33 -0300 Subject: [PATCH] Bug 18910: Revert "Bug 18152: Add tests" This reverts commit a807d7199ea025aa507e0ca7e3ff2330902844f8. Signed-off-by: Fridolin Somers Signed-off-by: Mason James --- t/Charset.t | 27 +-------------------------- 1 file changed, 1 insertion(+), 26 deletions(-) diff --git a/t/Charset.t b/t/Charset.t index fc25a66a59..143c2081fe 100755 --- a/t/Charset.t +++ b/t/Charset.t @@ -17,13 +17,11 @@ use Modern::Perl; -use Test::More tests => 17; +use Test::More tests => 16; use Encode qw( is_utf8 ); use MARC::Record; -use t::lib::Mocks; - use utf8; use open ':std', ':encoding(utf8)'; @@ -73,27 +71,4 @@ 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; -- 2.39.5