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

Bug 18910: Revert "Bug 18152: Add tests" 

This reverts commit a807d7199e.

Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
(cherry picked from commit dd60cd9635)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
(cherry picked from commit e501377694)
Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
This commit is contained in:
Jonathan Druart 2017-07-17 15:58:33 -03:00 committed by Katrin Fischer
parent f5df6d147f
commit 23c2f7bbba
1 changed files with 1 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
t/Charset.t
View File

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