Attachment #32416 for bug #9859

View | Details | Raw Unified | Return to bug 9859
Collapse All | Expand All

Lines 17-25 Link Here

(-)a/t/Charset.t (-2 / +6 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Test::More tests => 10;	20	use Test::More tests => 11;
21	use MARC::Record;	21	use MARC::Record;
22		22
		23	use utf8;
		24	use open ':std', ':encoding(utf8)';
		25
23	BEGIN {	26	BEGIN {
24	use_ok('C4::Charset');	27	use_ok('C4::Charset');
25	}	28	}
Lines 55-58 ok( utf8::is_utf8($record->subfield('100','a')) && Link Here
55	utf8::is_utf8($record->subfield('245','a')),	58	utf8::is_utf8($record->subfield('245','a')),
56	'SetUTF8Flag sets the UTF-8 flag to all subfields' );	59	'SetUTF8Flag sets the UTF-8 flag to all subfields' );
57		60
		61	is( nsb_clean("Le Moyen Âge"), "Le Moyen Âge", "nsb_clean removes and " );
		62
58	1;	63	1;
59	-

Return to bug 9859