Merge pull request #623 from atroxaper/mkhorkov-1882

Add test for run with :out(Handle:D) and :merge

S32-io/pipe.t

@@ -3,7 +3,7 @@ use Test;
 use lib $?FILE.IO.parent(2).add: 'packages/Test-Helpers';
 use Test::Util;
 
-plan 15;
+plan 16;
 
 proc_captures_out_ok '1',               '',    0, 'Child succeeds but does not print anything';
 proc_captures_out_ok '42.say',         '42',   0, 'Child succeeds and prints something';
@@ -100,4 +100,13 @@ group-of 5 => 'bin pipes in Proc do not crash on open' => {
     await $promise;
 }
 
+{
+    my $temp = make-temp-file;
+    my $out = $temp.IO.open :w;
+    my $proc = run $*EXECUTABLE, '-e', '$*ERR.say: "stderr out"; $*OUT.say: "stdout out"', :$out, :merge;
+    $out.close;
+    my $result = $temp.slurp;
+    is $result, "stderr out\nstdout out\n", 'merge with :out(Handle:D)';
+}
+
 # vim: ft=perl6 expandtab sw=4