Add test for RT #125616 (Proc::Async not closing tapped handles)

Raku · Jul 15, 2015 · b95280f · b95280f
1 parent 0a3a69d
commit b95280f
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/S17-procasync/no-runaway-file-limit.t b/S17-procasync/no-runaway-file-limit.t
@@ -0,0 +1,15 @@
+use v6;
+use Test;
+
+plan 1;
+
+# RT #125616
+for ^1000 {
+    my $proc = Proc::Async.new('cat', '/tmp/test-file', :w);
+    $proc.stdout.tap(-> $data {});
+    my $p = $proc.start;
+    $proc.close-stdin;
+    await $p;
+}
+
+pass 'made it to the end';