diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-17 19:11:29 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-17 19:11:29 +0000 |
| commit | 507b98002a6c136d628abe928988647938c55cff (patch) | |
| tree | 36d66ad5c96f407d248681e66a7b32c94e56c3cf /t/lib/warnings/utf8 | |
| parent | d4742b2c4fb9d3d58f0b4211ec254bb804bb6fd5 (diff) | |
| download | perl-507b98002a6c136d628abe928988647938c55cff.tar.gz | |
Demote the surrogate and non-character errors to warnings.
p4raw-id: //depot/perl@13740
Diffstat (limited to 't/lib/warnings/utf8')
| -rw-r--r-- | t/lib/warnings/utf8 | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/t/lib/warnings/utf8 b/t/lib/warnings/utf8 index 9a7dbafdee..fa7041b938 100644 --- a/t/lib/warnings/utf8 +++ b/t/lib/warnings/utf8 @@ -33,3 +33,16 @@ EXPECT Malformed UTF-8 character (unexpected non-continuation byte 0x73 after start byte 0xf8) at - line 9. Malformed UTF-8 character (unexpected non-continuation byte 0x73 after start byte 0xf8) at - line 14. ######## +use warnings 'utf8'; +my $surr = chr(0xD800); +my $fff3 = chr(0xFFFE); +my $ffff = chr(0xFFFF); +no warnings 'utf8'; +$surr = chr(0xD800); +$fffe = chr(0xFFFE); +$ffff = chr(0xFFFF); +EXPECT +UTF-16 surrogate 0xd800 at - line 2. +Unicode character 0xfffe is illegal at - line 3. +Unicode character 0xffff is illegal at - line 4. +######## |