diff options
| author | Karl Williamson <khw@khw-desktop.(none)> | 2009-12-20 14:25:13 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2009-12-20 22:44:12 +0100 |
| commit | 5b3114678323b284f88ba8d2da3cad315a53ed6e (patch) | |
| tree | 6172c937af199cb46986bb45ae18e42bf82666e7 /t | |
| parent | 29e9f6fc0007eb3d3a2204ef8f93ec3d58645d81 (diff) | |
| download | perl-5b3114678323b284f88ba8d2da3cad315a53ed6e.tar.gz | |
change non-char warning message from malformed
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/warnings/utf8 | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/t/lib/warnings/utf8 b/t/lib/warnings/utf8 index be49ae9fe5..fe1cbf0133 100644 --- a/t/lib/warnings/utf8 +++ b/t/lib/warnings/utf8 @@ -114,6 +114,7 @@ my $hex4 = "\x{10000}"; my $hex5 = "\x{100000}"; my $maxm1 = "\x{10FFFE}"; my $max = "\x{10FFFF}"; +uc($ffff); no warnings 'utf8'; my $d7ff = "\x{D7FF}"; my $d800 = "\x{D800}"; @@ -127,6 +128,7 @@ my $hex4 = "\x{10000}"; my $hex5 = "\x{100000}"; my $maxm1 = "\x{10FFFE}"; my $max = "\x{10FFFF}"; +uc($ffff); EXPECT UTF-16 surrogate 0xd800 at - line 3. UTF-16 surrogate 0xdfff at - line 4. @@ -134,3 +136,4 @@ Unicode non-character 0xfffe is illegal for interchange at - line 8. Unicode non-character 0xffff is illegal for interchange at - line 9. Unicode non-character 0x10fffe is illegal for interchange at - line 12. Unicode non-character 0x10ffff is illegal for interchange at - line 13. +Unicode non-character 0xffff is illegal for interchange in uc at - line 14. |