split.t: More tests for perl #123057

There are three different variants to split-to-array, so test that
op_lvalue_flags can handle all three.

diff --git a/t/op/split.t b/t/op/split.t
index 51e0d1d..9afdd6e 100644 (file)
--- a/t/op/split.t
+++ b/t/op/split.t
@@ -6,7 +6,7 @@ BEGIN {
     set_up_inc('../lib');
 }
 
-plan tests => 123;
+plan tests => 125;
 
 $FS = ':';
 
@@ -507,4 +507,11 @@ is "@aaa", "f o o b a r b a z",
 is "@a", "a b c", '() = split-to-array';
 
 (@a = split //, "abc") = 1..10;
-is "@a", '1 2 3', 'assignment to split-to-array';
+is "@a", '1 2 3', 'assignment to split-to-array (pmtarget/package array)';
+{
+  my @a;
+  (@a = split //, "abc") = 1..10;
+  is "@a", '1 2 3', 'assignment to split-to-array (targ/lexical)';
+}
+(@{\@a} = split //, "abc") = 1..10;
+is "@a", '1 2 3', 'assignment to split-to-array (stacked)';