* Add test for stderrtooutput

packages/fcl-process/tests/utcprocess.pp

@@ -47,6 +47,7 @@ type
     Procedure TestInputFile;
     Procedure TestOutputFile;
     Procedure TestStdErrFile;
+    Procedure TestStdErrToStdOut;
     Procedure TestInputNull;
     Procedure TestOutputFileExistingAppend;
     Procedure TestOutputFileExistingTruncate;
@@ -403,6 +404,16 @@ begin
   AssertGenOutLinesFile(GetTestFile(fntestoutput),3);
 end;
 
+procedure TTestProcess.TestStdErrToStdOut;
+begin
+  Proc.Executable:=GetHelper(genout);
+  Proc.Options:=Proc.Options+[poStderrToOutPut];
+  Proc.Parameters.Add('-3');
+  Proc.OutputDescriptor.FileName:=GetTestFile(fntestoutput);
+  Proc.Execute;
+  AssertGenOutLinesFile(GetTestFile(fntestoutput),3);
+end;
+
 procedure TTestProcess.TestInputNull;
 
 var