Make doesn't-hang wait longer

rakudo · Jul 30, 2018 · f923670 · f923670
1 parent f045042
commit f923670
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/t/packages/Test/Helpers.pm6 b/t/packages/Test/Helpers.pm6
@@ -66,7 +66,7 @@ multi sub is-run-repl ($code is copy, $desc, :$out = '', :$err = '',
     }, $desc;
 }
 
-multi sub doesn't-hang (Str $args, $desc, :$in, :$wait = 5, :$out, :$err)
+multi sub doesn't-hang (Str $args, $desc, :$in, :$wait = 15, :$out, :$err)
 is export {
     doesn't-hang \($*EXECUTABLE.absolute, '-e', $args), $desc,
         :$in, :$wait, :$out, :$err;
@@ -77,7 +77,7 @@ is export {
 my $VM-time-scale-multiplier = $*VM.name eq 'jvm' ?? 20/3 !! 1;
 multi sub doesn't-hang (
     Capture $args, $desc = 'code does not hang',
-    :$in, :$wait = 5, :$out, :$err,
+    :$in, :$wait = 15, :$out, :$err,
 ) is export {
     my $prog = Proc::Async.new: |$args;
     my ($stdout, $stderr) = '', '';