diff options
Diffstat (limited to 't/lib/warnings')
| -rw-r--r-- | t/lib/warnings/pp | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/t/lib/warnings/pp b/t/lib/warnings/pp index 3324ccc563..3eef12a208 100644 --- a/t/lib/warnings/pp +++ b/t/lib/warnings/pp @@ -21,6 +21,10 @@ Constant subroutine (anonymous) undefined $foo = sub () { 3 }; undef &$foo; + Use of strings with code points over 0xFF as arguments to 1's complement (~) operator is deprecated + + Invalid negative number (%s) in chr + __END__ # pp.c use warnings 'substr' ; @@ -136,3 +140,9 @@ EXPECT OPTION regex Use of strings with code points over 0xFF as arguments to 1's complement \(~\) operator is deprecated at - line \d+. Use of code point 0xFF+EFF is deprecated; the permissible max is 0x7F+ at - line \d+. +######## +# NAME chr -1 +use warnings 'utf8'; +my $chr = chr(-1); +EXPECT +Invalid negative number (-1) in chr at - line 2. |