Skip to content

Instantly share code, notes, and snippets.

@MARTIMM

MARTIMM/prove-until-fail.pl6

Created November 5, 2016 18:08
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save MARTIMM/4376afd9877173443bdbd260e84a8f02 to your computer and use it in GitHub Desktop.
Save MARTIMM/4376afd9877173443bdbd260e84a8f02 to your computer and use it in GitHub Desktop.
Download ZIP
test infinetly until fail
Raw
prove-until-fail.pl6
#!/usr/bin/env perl6
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;
}
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment