View | Details | Raw Unified | Return to bug 14112
Collapse All | Expand All

(-)a/t/Charset.t (-2 / +5 lines)
Lines 41-47 ok(defined(NormalizeString($string,1,1)), 'Initialized string case 4 normali Link Here
41
my $octets = "abc";
41
my $octets = "abc";
42
ok(IsStringUTF8ish($octets), "verify octets are valid UTF-8 (ASCII)");
42
ok(IsStringUTF8ish($octets), "verify octets are valid UTF-8 (ASCII)");
43
43
44
$octets = "flamb\c3\a9";
44
{
45
    no warnings 'syntax';
46
    $octets = "flamb\c3\a9";
47
}
48
45
ok(!Encode::is_utf8($octets), "verify that string does not have Perl UTF-8 flag on");
49
ok(!Encode::is_utf8($octets), "verify that string does not have Perl UTF-8 flag on");
46
ok(IsStringUTF8ish($octets), "verify octets are valid UTF-8 (LATIN SMALL LETTER E WITH ACUTE)");
50
ok(IsStringUTF8ish($octets), "verify octets are valid UTF-8 (LATIN SMALL LETTER E WITH ACUTE)");
47
ok(!Encode::is_utf8($octets), "verify that IsStringUTF8ish does not magically turn Perl UTF-8 flag on");
51
ok(!Encode::is_utf8($octets), "verify that IsStringUTF8ish does not magically turn Perl UTF-8 flag on");
48
- 

Return to bug 14112