Skip to content
Permalink
Browse files

Followup to corrections from ugexe.

  • Loading branch information...
vrurg committed Jun 9, 2019
1 parent b9ad5fd commit 7f69ef1d227c643fa5ea26e3dd2b776177434a22
Showing with 4 additions and 4 deletions.
  1. +4 −4 t/02-rakudo/15-gh_1202.t
@@ -11,16 +11,16 @@ await Promise.anyof(
start {
my $out = "";
# This was a bug with unpredictable output. Hopefully 50 repetiotions is enough to make sure everything works.
for 1..50 -> $rep {
my $proc = run $*EXECUTABLE, '-MTest', '-e', q<await (^5).map({start { print qqx{echo $_} } })>, :out;
$out ~= $proc.out.slurp;
for ^50 -> $rep {
my $proc = run $*EXECUTABLE.absolute, '-e', q<await (^5).map({start { print qqx{echo $_} } })>, :out;
$out ~= $proc.out.slurp(:close);
}
like $out, /[ <[0..4]> \n ] ** 250/, "shell output";
$complete = True;
},
Promise.in(600), # 10mins timeout
);

ok $complete, "all runs completed";

# vim: ft=perl6 sw=4

0 comments on commit 7f69ef1

Please sign in to comment.
You can’t perform that action at this time.