Increase Parrot recursion limit for nqp/rc-man-or-boy-test to same limit that Rakudo sets internally; move from 9 to 16 for standard rc-man-or-boy-test

Author: japhb

nqp/rc-man-or-boy-test

@@ -1,3 +1,6 @@
+# Increase Parrot recursion limit
+pir::getinterp__P().recursion_limit(100000);
+
 sub A ($k, $x1, $x2, $x3, $x4, $x5) {
     my $B := sub () { A(--$k, $B, $x1, $x2, $x3, $x4) };
     $k <= 0 ?? $x4() + $x5() !! $B();

timeall

@@ -168,9 +168,9 @@ my %TESTS = (
                    {
                     name  => 'rc-man-or-boy-test',
                     skip  => [qw( )],
-                    perl5 => [qw( BENCH/perl5/rc-man-or-boy-test 9 )],
-                    perl6 => [qw( BENCH/perl6/rc-man-or-boy-test 9 )],
-                    nqp   => [qw( BENCH/nqp/rc-man-or-boy-test   9 )],
+                    perl5 => [qw( BENCH/perl5/rc-man-or-boy-test 16 )],
+                    perl6 => [qw( BENCH/perl6/rc-man-or-boy-test 16 )],
+                    nqp   => [qw( BENCH/nqp/rc-man-or-boy-test   16 )],
                    },
                   ],
             );