paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 21:09:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* write exitcode for all executed programs in debug mode

Browse Source
This commit is contained in:
peter 2001-06-02 00:41:36 +00:00
parent 0511ddae5c
commit dc862be70b
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/utils/dotest.pp
View File

@ -379,6 +379,7 @@ begin
args:=args+' '+ppfile; args:=args+' '+ppfile;
Verbose(V_Debug,'Executing '+compilerbin+' '+args); Verbose(V_Debug,'Executing '+compilerbin+' '+args);
ExecuteRedir(CompilerBin,args,'',OutName,''); ExecuteRedir(CompilerBin,args,'',OutName,'');
Verbose(V_Debug,'Exitcode '+ToStr(ExecuteResult));
{ Shoud the compile fail ? } { Shoud the compile fail ? }
if Config.ShouldFail then if Config.ShouldFail then
begin begin
@ -426,6 +427,7 @@ begin
OutName:=ForceExtension(PPFile,'elg'); OutName:=ForceExtension(PPFile,'elg');
Verbose(V_Debug,'Executing '+TestExe); Verbose(V_Debug,'Executing '+TestExe);
ExecuteRedir(TestExe,'','',OutName,''); ExecuteRedir(TestExe,'','',OutName,'');
Verbose(V_Debug,'Exitcode '+ToStr(ExecuteResult));
if ExecuteResult<>Config.ResultCode then if ExecuteResult<>Config.ResultCode then
begin begin
AddLog(FailLogFile,TestName); AddLog(FailLogFile,TestName);
@ -599,7 +601,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.7 2000-12-09 16:01:10 peter Revision 1.8 2001-06-02 00:41:36 peter
* write exitcode for all executed programs in debug mode
Revision 1.7 2000/12/09 16:01:10 peter
+ known bug flag + known bug flag
+ norun flag + norun flag
+ recompile flag + recompile flag