From 6de54db7eefe7033b34e5d7e63473fef80e4f232 Mon Sep 17 00:00:00 2001 From: Liz Rea Date: Mon, 8 Jun 2015 12:27:28 +1200 Subject: [PATCH] Revert "Bug 14112: Silence warnings in t/Charset.t" This reverts commit 55afd5f0090ebb40f37316c71d30779de839b1a7. --- t/Charset.t | 2 ++ 1 file changed, 2 insertions(+) diff --git a/t/Charset.t b/t/Charset.t index 3e14bb7cb7..6afc1e8f4e 100755 --- a/t/Charset.t +++ b/t/Charset.t @@ -39,6 +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"); 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