From f703f2d3685666ae11890128d7bb80e186cb9384 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 Signed-off-by: Liz Rea Conflicts: t/Charset.t --- t/Charset.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/t/Charset.t b/t/Charset.t index 6afc1e8f4e..35be6d4f13 100755 --- a/t/Charset.t +++ b/t/Charset.t @@ -39,8 +39,8 @@ 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"; -ok(!utf8::is_utf8($octets), "verify that string does not have Perl UTF-8 flag on"); +$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(!utf8::is_utf8($octets), "verify that IsStringUTF8ish does not magically turn Perl UTF-8 flag on"); -- 2.39.5