Additional tests for the deprecation warnings when using $* or $#.
authorNicholas Clark <nick@ccl4.org>
Wed, 20 Mar 2013 10:40:42 +0000 (11:40 +0100)
committerNicholas Clark <nick@ccl4.org>
Thu, 21 Mar 2013 08:13:52 +0000 (09:13 +0100)
t/lib/warnings/gv

index 6101f69..fcdf1b5 100644 (file)
@@ -63,6 +63,46 @@ $# is no longer supported at - line 2.
 $* is no longer supported at - line 3.
 ########
 # gv.c
+$a = ${#};
+$a = ${*};
+no warnings 'deprecated' ;
+$a = ${#};
+$a = ${*};
+EXPECT
+$# is no longer supported at - line 2.
+$* is no longer supported at - line 3.
+########
+# gv.c
+$a = $#;
+$a = $*;
+no warnings 'deprecated' ;
+$a = $#;
+$a = $*;
+EXPECT
+$# is no longer supported at - line 2.
+$* is no longer supported at - line 3.
+########
+# gv.c
+$# = $a;
+$* = $a;
+no warnings 'deprecated' ;
+$# = $a;
+$* = $a;
+EXPECT
+$# is no longer supported at - line 2.
+$* is no longer supported at - line 3.
+########
+# gv.c
+$a = \$#;
+$a = \$*;
+no warnings 'deprecated' ;
+$a = \$#;
+$a = \$*;
+EXPECT
+$# is no longer supported at - line 2.
+$* is no longer supported at - line 3.
+########
+# gv.c
 use warnings 'syntax' ;
 use utf8;
 use open qw( :utf8 :std );