|
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 |
- |
|
|