paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 17:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add test for stderrtooutput

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-02-15 13:57:05 +01:00
parent aa4136ce52
commit 58f9dc27ea
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
packages/fcl-process/tests/utcprocess.pp
View File

@ -47,6 +47,7 @@ type
Procedure TestInputFile; Procedure TestInputFile;
Procedure TestOutputFile; Procedure TestOutputFile;
Procedure TestStdErrFile; Procedure TestStdErrFile;
Procedure TestStdErrToStdOut;
Procedure TestInputNull; Procedure TestInputNull;
Procedure TestOutputFileExistingAppend; Procedure TestOutputFileExistingAppend;
Procedure TestOutputFileExistingTruncate; Procedure TestOutputFileExistingTruncate;
@ -403,6 +404,16 @@ begin
AssertGenOutLinesFile(GetTestFile(fntestoutput),3); AssertGenOutLinesFile(GetTestFile(fntestoutput),3);
end; 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; procedure TTestProcess.TestInputNull;
var var