Tests for RT #123470

Raku · Dec 21, 2014 · c4a1041 · c4a1041
1 parent 89a9309
commit c4a1041
Showing 1 changed file with 13 additions and 1 deletion.
diff --git a/S06-signature/positional-placeholders.t b/S06-signature/positional-placeholders.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 10;
+plan 12;
 
 #L<S06/Placeholder variables/>
 
@@ -55,4 +55,16 @@ eval_dies_ok ' {my $foo; $^foo;}(1) ', 'my $foo; $^foo; is an illegal redeclarat
         'can have invocable placeholder with arguments';
 }
 
+# RT #123470
+throws_like 'my $a; sub weird{ $a = 42; $^a * 2 }', X::Placeholder::NonPlaceholder,
+    :variable_name<$a>,
+    :placeholder<$^a>,
+    ;
+
+#?rakudo todo 'RT 123470'
+throws_like 'my $a; my $block = { $a = 42; $^a * 2 }', X::Placeholder::NonPlaceholder,
+    :variable_name<$a>,
+    :placeholder<$^a>,
+    ;
+
 # vim: syn=perl6