diff options
Diffstat (limited to 't/lib')
-rw-r--r-- | t/lib/warnings/utf8 | 25 |
1 files changed, 6 insertions, 19 deletions
diff --git a/t/lib/warnings/utf8 b/t/lib/warnings/utf8 index b322ae0250..906630898f 100644 --- a/t/lib/warnings/utf8 +++ b/t/lib/warnings/utf8 @@ -735,38 +735,25 @@ $a = uc("\x{103}"); $a = ucfirst("\x{104}"); EXPECT ######## -# NAME Deprecation of too-large code points +# NAME Fatality of too-large code points, but IV_MAX works, warns require "../test.pl"; use warnings 'non_unicode'; my $max_cp = ~0 >> 1; my $max_char = chr $max_cp; -my $to_warn_cp = $max_cp + 1; -my $to_warn_char = chr $to_warn_cp; -$max_char =~ /[\x{110000}\P{Unassigned}]/; -$to_warn_char =~ /[\x{110000}\P{Unassigned}]/; my $temp = qr/$max_char/; -$temp = qr/$to_warn_char/; $temp = uc($max_char); -$temp = uc($to_warn_char); +$max_char =~ /[\x{110000}\P{Unassigned}]/; my $file = tempfile(); open(my $fh, "+>:utf8", $file); print $fh $max_char, "\n"; -print $fh $to_warn_char, "\n"; close $fh; +my $error_cp = $max_cp + 1; +my $error_char = chr $error_cp; EXPECT -OPTION regex -Use of code point 0x80+ is deprecated; the permissible max is 0x7F+\. This will be fatal in Perl 5\.28 at - line \d+. -Use of code point 0x80+ is deprecated; the permissible max is 0x7F+\. This will be fatal in Perl 5\.28 in pattern match \(m//\) at - line \d+. -Use of code point 0x80+ is deprecated; the permissible max is 0x7F+\. This will be fatal in Perl 5\.28 in regexp compilation at - line \d+. -Use of code point 0x80+ is deprecated; the permissible max is 0x7F+\. This will be fatal in Perl 5\.28 in regexp compilation at - line \d+. -Use of code point 0x80+ is deprecated; the permissible max is 0x7F+\. This will be fatal in Perl 5\.28 at - line \d+. -Use of code point 0x80+ is deprecated; the permissible max is 0x7F+\. This will be fatal in Perl 5\.28 in regexp compilation at - line \d+. +OPTIONS fatal regex Operation "uc" returns its argument for non-Unicode code point 0x7F+ at - line \d+. -Use of code point 0x80+ is deprecated; the permissible max is 0x7F+\. This will be fatal in Perl 5\.28 in uc at - line \d+. -Use of code point 0x80+ is deprecated; the permissible max is 0x7F+\. This will be fatal in Perl 5\.28 at - line \d+. -Operation "uc" returns its argument for non-Unicode code point 0x80+ at - line \d+. Code point 0x7F+ is not Unicode, (may not be|requires a Perl extension, and so is not) portable in print at - line \d+. -Use of code point 0x80+ is deprecated; the permissible max is 0x7F+\. This will be fatal in Perl 5\.28 in print at - line \d+. +Use of code point 0x80+ is not allowed; the permissible max is 0x7F+\ at - line \d+. ######## # NAME [perl #127262] BEGIN{ |