Hi,
I've made a small test program to run a particular test file in an
infinite loop until it fails. I was investigating some race problem in
BSON and the test run was successful most of the time. I got some raw
fingers to repeat the commands so this is the result, simple and maybe
useful for others. It uses the perl5 prove program which must be in your
search path.
use v6.c;
sub MAIN ( Str:D $filename where (.IO ~~ :r and .IO !~~ :d) ) {
my Proc $p;
my Bool $success = True;
while $success {
$p = shell "prove --merge -v -e perl6 $filename";
$success = $p.exitcode eq 0;
}
}
Happy testing,
Marcel Timmerman
