From 8a969be0fd70986f80285af3bdd3e8405e39ff66 Mon Sep 17 00:00:00 2001 From: Mark Tompsett Date: Fri, 22 May 2015 09:02:23 -0400 Subject: [PATCH] Bug 14112: Silence warnings in t/Charset.t After Jonathan said this was the wrong way to correct the issue, www.utf8-chartable.de made it clear to me that the \c3\a9 were missing x's. TEST PLAN --------- 1) prove t/Charset.t -- noise 2) apply patch 3) prove t/Charset.t -- no noise 4) koha qa test tools Signed-off-by: Aleisha Signed-off-by: Jonathan Druart Signed-off-by: Tomas Cohen Arazi (cherry picked from commit 4d4582566ee7d2014f30f15db4889d4cad956316) Signed-off-by: Chris Cormack --- t/Charset.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/Charset.t b/t/Charset.t index 09ba5336b9..143c2081fe 100755 --- 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"); -- 2.39.5