paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 22:49:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ use -n option

Browse Source 
+ use -G- for only graph
 + use -I- for only interactive
 + use -K- for only known bugs.
This commit is contained in:
pierre 2002-11-18 01:31:07 +00:00
parent 7c4378c3dd
commit 4f5c0e07ec
1 changed files with 34 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
tests/utils/dotest.pp
View File

@ -63,6 +63,7 @@ const
DoInteractive : boolean = false;
DoExecute : boolean = false;
DoKnown : boolean = false;
DoUsual : boolean = true;
procedure Verbose(lvl:TVerboseLevel;const s:string);
begin
@ -454,7 +455,7 @@ var
begin
RunCompiler:=false;
OutName:=ForceExtension(PPFile,'log');
args:='-Fuunits';
args:='-n -Fuunits';
if Config.NeedOptions<>'' then
args:=args+' '+Config.NeedOptions;
args:=args+' '+ppfile;
@ -541,7 +542,11 @@ begin
TestExe:=ForceExtension(PPFile,ExeExt);
OutName:=ForceExtension(PPFile,'elg');
Verbose(V_Debug,'Executing '+TestExe);
ExecuteRedir(TestExe,'','',OutName,'');
{ don't redirect interactive and graph programs .. }
if Config.IsInteractive or Config.UsesGraph then
ExecuteRedir(TestExe,'','','','')
else
ExecuteRedir(TestExe,'','',OutName,'');
Verbose(V_Debug,'Exitcode '+ToStr(ExecuteResult));
if ExecuteResult<>Config.ResultCode then
begin
@ -603,10 +608,22 @@ begin
end;
'C' : CompilerBin:=Para;
'E' : DoExecute:=true;
'G' : DoGraph:=true;
'I' : DoInteractive:=true;
'G' : begin
DoGraph:=true;
if para='-' then
DoUsual:=false;
end;
'I' : begin
DoInteractive:=true;
if para='-' then
DoUsual:=false;
end;
'V' : DoVerbose:=true;
'K' : DoKnown:=true;
'K' : begin
DoKnown:=true;
if para='-' then
DoUsual:=false;
end;
end;
end
else
@ -668,6 +685,11 @@ begin
end;
end;
if Res and not DoUsual then
res:=(Config.IsInteractive and DoInteractive) or
(Config.IsKnown and DoKnown) or
(Config.UsesGraph and DoGraph);
if Res then
begin
if Config.NeedVersion<>'' then
@ -744,7 +766,13 @@ begin
end.
{
$Log$
Revision 1.18 2002-11-14 10:36:12 pierre
Revision 1.19 2002-11-18 01:31:07 pierre
+ use -n option
+ use -G- for only graph
+ use -I- for only interactive
+ use -K- for only known bugs.
Revision 1.18 2002/11/14 10:36:12 pierre
* add internalerror info to log file
Revision 1.17 2002/11/13 15:26:24 pierre