From 3264fb75b2ec7d3cde0868551fb1b72f6fb4584a Mon Sep 17 00:00:00 2001
From: Katrin Fischer <Katrin.Fischer.83@web.de>
Date: Thu, 16 Oct 2014 11:10:50 -0300
Subject: [PATCH 2/2] 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.
---
 t/Charset.t | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/t/Charset.t b/t/Charset.t
index 27b2a32..cd0dc1e 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;
-- 
1.9.1