This tests uses the example given on the perl file on the
bug report.
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
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');
}
utf8::is_utf8($record->subfield('245','a')),
'SetUTF8Flag sets the UTF-8 flag to all subfields' );
+is( nsb_clean("\98Le\9c Moyen Âge"), "Le Moyen Âge", "nsb_clean removes \98 and \9c" );
+
1;