Binding into List item throws

RT#128755
Raku · Jul 27, 2016 · 27bee13 · 27bee13
1 parent 4e09c41
commit 27bee13
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/S03-binding/nonsense.t b/S03-binding/nonsense.t
@@ -1,6 +1,6 @@
 use Test;
 
-plan 4;
+plan 5;
 
 {
     my $a = List;
@@ -25,3 +25,9 @@ plan 4;
     #?rakudo skip 'hangs'
     throws-like { $a[0] := 1; }, X::Bind, "Can't bind into a defined Str";
 }
+
+# RT #128755
+{
+    my $list = (1,2,3);
+    throws-like { $list[1] := 4 }, X::Bind, "Can't bind into a List item";
+}