opt.t: Test split-to-array optimisation

diff --git a/t/op/opt.t b/t/op/opt.t
index 3090e35..c95272a 100644 (file)
--- a/t/op/opt.t
+++ b/t/op/opt.t
@@ -9,7 +9,7 @@ BEGIN {
     @INC = '../lib';
 }
 
-plan 12;
+plan 17;
 
 use B qw 'svref_2object OPpASSIGN_COMMON';
 
@@ -50,3 +50,18 @@ for (['CONSTANT', sub {          join "foo", "bar"    }, 0, "bar"    ],
     is $last_expr->name, 'const', "$tn optimised to constant";
     is $sub->(), $expect, "$tn folded correctly";
 }
+
+
+# split to array
+
+for(['@pkgary'      , '@_'       ],
+    ['@lexary'      , 'my @a; @a'],
+    ['my(@array)'   , 'my(@a)'   ],
+    ['local(@array)', 'local(@_)'],
+    ['@{...}'       , '@{\@_}'   ],
+){
+    my($tn,$code) = @$_;
+    my $sub = eval "sub { $code = split }";
+    my $split = svref_2object($sub)->ROOT->first->last;
+    is $split->name, 'split', "$tn = split swallows up the assignment";
+}