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");