Add test for RT #77570

Raku · Feb 17, 2015 · 8314042 · 8314042
1 parent eaa2708
commit 8314042
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/S05-capture/dot.t b/S05-capture/dot.t
@@ -16,7 +16,7 @@ Broken:
 ## L<S05/Extensible metasyntax (C<< <...> >>)/A leading C<.> causes>
 =end pod
 
-plan 61;
+plan 62;
 
 my regex dotdot { (.)(.) };
 
@@ -115,5 +115,9 @@ is(~$/, "john", 'Metaname match is john');
 ok(~$/ ne "jean", "Metaname match isn't jean");
 is(~$/<name>, "john", 'Metaname is john');
 
+# RT #77570
+{
+    eval_lives_ok('$' ~ 1 x 1000000, 'Can refer to very high numbered capture variable without exploding');
+}
 
 # vim: ft=perl6