From a7e95356293692a9c4b8202e3600d5db64a2a7b9 Mon Sep 17 00:00:00 2001 From: Katrin Fischer Date: Thu, 16 Oct 2014 11:10:50 -0300 Subject: [PATCH] Bug 9859: Follow-up - Adding a simple unit test for nsb_clean This tests uses the example given on the perl file on the bug report. Signed-off-by: Tomas Cohen Arazi --- t/Charset.t | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/t/Charset.t b/t/Charset.t index 27b2a324cf..cd0dc1ee32 100755 --- a/t/Charset.t +++ b/t/Charset.t @@ -17,9 +17,12 @@ use Modern::Perl; -use Test::More tests => 10; +use Test::More tests => 11; use MARC::Record; +use utf8; +use open ':std', ':encoding(utf8)'; + BEGIN { use_ok('C4::Charset'); } @@ -55,4 +58,6 @@ ok( utf8::is_utf8($record->subfield('100','a')) && utf8::is_utf8($record->subfield('245','a')), 'SetUTF8Flag sets the UTF-8 flag to all subfields' ); +is( nsb_clean("˜Leœ Moyen Âge"), "Le Moyen Âge", "nsb_clean removes ˜ and œ" ); + 1; -- 2.11.4.GIT