string_bench.p6

my $*test-count = 0;
my @results;
my $b1 = { .defined };
my $b2 = { 0 ≤ $_ };
my @blocks = $b1, $b2;
test-it({
    my $b = 'a' x 999999 ~ 'b';
    $b ~~ /b/ for ^400;
},
#$b1,
1);
test-it({
    my $b = 'a' x 999999 ~ 'b';
    use nqp;
    nqp::index($b, 'b', 0);
},
#$b2,
1);
sub test-it (&code, Int:D $times = 1) {
    my $t1 = now;
    my Mu $rtrn;
    for ^$times {
        $rtrn = &code();
    }
    #die "Got `$rtrn.perl()` back on test {++$*test-count}, which is wrong" unless @blocks[$*test-count]($rtrn);
    my $tot = now - $t1;
    @results.push: $tot;
    say "Test {++$*test-count}: $tot s";
}