Pick a program that exists for Windows.

Raku · Jul 15, 2015 · 6ffdc85 · 6ffdc85
1 parent 76676ad
commit 6ffdc85
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/S17-procasync/no-runaway-file-limit.t b/S17-procasync/no-runaway-file-limit.t
@@ -4,8 +4,9 @@ use Test;
 plan 1;
 
 # RT #125616
+my $prog = $*DISTRO.is-win ?? 'ping' !! 'cat';
 for ^1000 {
-    my $proc = Proc::Async.new('cat', '/tmp/test-file', :w);
+    my $proc = Proc::Async.new($prog, '/tmp/test-file', :w);
     $proc.stdout.tap(-> $data {});
     my $p = $proc.start;
     $proc.close-stdin;