[S05-mass] Test for RT 112450

Raku · May 14, 2012 · efd9d5b · efd9d5b
1 parent 8ba936c
commit efd9d5b
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/S05-mass/rx.t b/S05-mass/rx.t
@@ -1,6 +1,6 @@
 use Test;
 
-plan 725;
+plan 728;
 
 ### for now
 sub matchcheck(*@a) { 1 }
@@ -2530,6 +2530,15 @@ ok 'baaabbb' ~~ /a**!2..4/, 'three "a" characters (explicit greed)';
 #?pugs todo 
 ok 'baaabbb' ~~ /a**:!2..4/, 'three "a" characters (explicit greed)';
 
+# RT 112450
+{
+    ok 'foooo' ~~ /^ f o ** 4 $/, 'RT 112450 sanity';
+    my $rt112450 = 4;
+    #?rakudo todo 'RT 112450'
+    ok 'foooo' ~~ /^ f o **  $rt112450  $/, 'RT 112450 interpolation';
+    ok 'foooo' ~~ /^ f o ** {$rt112450} $/, 'RT 112450 closure interpolation';
+}
+
 #### <ident>			2+3 ab2		/mob<ident>: <ab2 @ 4>/		capturing builtin <ident>
 #?pugs todo 
 ok ('2+3 ab2' ~~ /<ident>/) && matchcheck($/, q/mob<ident>: <ab2 @ 4>/), 'capturing builtin <ident>';