lvref.t: Repeat bad ref tests with list assignment

List assignment goes through a different code path.  The errors come
from magic_setlvref in that case, not pp_refassign.

1 files changed, 23 insertions, 1 deletions

diff --git a/t/op/lvref.t b/t/op/lvref.t
index 2cd863b221..50268a594a 100644
--- a/t/op/lvref.t
+++ b/t/op/lvref.t
@@ -4,7 +4,7 @@ BEGIN {
     set_up_inc("../lib");
 }
 
-plan 104;
+plan 111;
 
 sub on { $::TODO = ' ' }
 sub off{ $::TODO = ''  }
@@ -311,6 +311,28 @@ eval { \%::x = [] };
 like $@, qr/^Assigned value is not a HASH reference at/,
     'assigning non-hash ref to package hash ref';
 
+eval { my $x; (\$x) = 3 };
+like $@, qr/^Assigned value is not a reference at/,
+    'list-assigning non-ref';
+eval { my $x; (\$x) = [] };
+like $@, qr/^Assigned value is not a SCALAR reference at/,
+    'list-assigning non-scalar ref to scalar ref';
+eval { (\$::x = []) };
+like $@, qr/^Assigned value is not a SCALAR reference at/,
+    'list-assigning non-scalar ref to package scalar ref';
+eval { my @x; (\@x) = {} };
+like $@, qr/^Assigned value is not an ARRAY reference at/,
+    'list-assigning non-array ref to array ref';
+eval { (\@::x) = {} };
+like $@, qr/^Assigned value is not an ARRAY reference at/,
+    'list-assigning non-array ref to package array ref';
+eval { my %x; (\%x) = [] };
+like $@, qr/^Assigned value is not a HASH reference at/,
+    'list-assigning non-hash ref to hash ref';
+eval { (\%::x) = [] };
+like $@, qr/^Assigned value is not a HASH reference at/,
+    'list-assigning non-hash ref to package hash ref';
+
 eval '(\do{}) = 42';
 like $@, qr/^Can't modify reference to do block in list assignment at /,
     "Can't modify reference to do block in list assignment";