Bug 15774: (QA follow-up) Fix use statemenets

[koha.git] / t / Charset.t

diff --git a/t/Charset.t b/t/Charset.t
index 09ba533..a3da56f 100755 (executable)
--- a/t/Charset.t
+++ b/t/Charset.t
@@ -41,7 +41,7 @@ ok(defined(NormalizeString($string,1,1)),     'Initialized string case 4 normali
 my $octets = "abc";
 ok(IsStringUTF8ish($octets), "verify octets are valid UTF-8 (ASCII)");
 
-$octets = "flamb\c3\a9";
+$octets = "flamb\xc3\xa9";
 ok(!Encode::is_utf8($octets), "verify that string does not have Perl UTF-8 flag on");
 ok(IsStringUTF8ish($octets), "verify octets are valid UTF-8 (LATIN SMALL LETTER E WITH ACUTE)");
 ok(!Encode::is_utf8($octets), "verify that IsStringUTF8ish does not magically turn Perl UTF-8 flag on");
@@ -70,5 +70,3 @@ ok( Encode::is_utf8($record->subfield('100','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;