In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/920e47bbc431efd5c1ca9d8b85fb88c172326b14?hp=80acc8be4f101a4e45b660efa91659da2c6b0a50>
- Log ----------------------------------------------------------------- commit 920e47bbc431efd5c1ca9d8b85fb88c172326b14 Author: Aaron Crane <[email protected]> Date: Sat Feb 25 13:40:11 2012 +0000 TODO Failing tests for warnings in utf8 subcategories ----------------------------------------------------------------------- Summary of changes: t/lib/warnings/utf8 | 33 +++++++++++++++++++++++++++++++++ 1 files changed, 33 insertions(+), 0 deletions(-) diff --git a/t/lib/warnings/utf8 b/t/lib/warnings/utf8 index 8fb96c9..7d3886c 100644 --- a/t/lib/warnings/utf8 +++ b/t/lib/warnings/utf8 @@ -349,6 +349,39 @@ EXPECT Unicode surrogate U+D800 is illegal in UTF-8 at - line 6. Unicode non-character U+FFFF is illegal for open interchange at - line 7. ######## +# TODO +# NAME C<use warnings "nonchar"> works in isolation +require "../test.pl"; +use warnings 'nonchar'; +my $file = tempfile(); +open(my $fh, "+>:utf8", $file); +print $fh "\x{FFFF}", "\n"; +close $fh; +EXPECT +Unicode non-character U+FFFF is illegal for open interchange at - line 5. +######## +# TODO +# NAME C<use warnings "surrogate"> works in isolation +require "../test.pl"; +use warnings 'surrogate'; +my $file = tempfile(); +open(my $fh, "+>:utf8", $file); +print $fh "\x{D800}", "\n"; +close $fh; +EXPECT +Unicode surrogate U+D800 is illegal in UTF-8 at - line 5. +######## +# TODO +# NAME C<use warnings "non_unicode"> works in isolation +require "../test.pl"; +use warnings 'non_unicode'; +my $file = tempfile(); +open(my $fh, "+>:utf8", $file); +print $fh "\x{110000}", "\n"; +close $fh; +EXPECT +Code point 0x110000 is not Unicode, may not be portable at - line 5. +######## require "../test.pl"; no warnings 'utf8'; my $file = tempfile(); -- Perl5 Master Repository
