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

+ test runner: allow forcing thread tests by specifying the TEST_THREADS=1 environment option

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-08-23 13:16:00 +03:00
parent ce04ce42ed
commit 42d8a29156
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/utils/dotest.pp
View File

@ -95,6 +95,7 @@ const
DoKnown : boolean = false; DoKnown : boolean = false;
DoAll : boolean = false; DoAll : boolean = false;
DoUsual : boolean = true; DoUsual : boolean = true;
ForceTestThreads : Boolean = false;
{ TargetDir : string = ''; unused } { TargetDir : string = ''; unused }
BenchmarkInfo : boolean = false; BenchmarkInfo : boolean = false;
ExtraCompilerOpts : string = ''; ExtraCompilerOpts : string = '';
@ -129,6 +130,7 @@ procedure TranslateConfig(var AConfig: TConfig);
begin begin
AConfig.SkipTarget:=ReplaceText(AConfig.SkipTarget, NoSharedLibSupportPattern, TargetHasNoSharedLibSupport); AConfig.SkipTarget:=ReplaceText(AConfig.SkipTarget, NoSharedLibSupportPattern, TargetHasNoSharedLibSupport);
AConfig.SkipTarget:=ReplaceText(AConfig.SkipTarget, NoWorkingUnicodeSupport, TargetHasNoWorkingUnicodeSupport); AConfig.SkipTarget:=ReplaceText(AConfig.SkipTarget, NoWorkingUnicodeSupport, TargetHasNoWorkingUnicodeSupport);
if not ForceTestThreads then
AConfig.SkipTarget:=ReplaceText(AConfig.SkipTarget, NoWorkingThread, TargetHasNoWorkingThreadSupport); AConfig.SkipTarget:=ReplaceText(AConfig.SkipTarget, NoWorkingThread, TargetHasNoWorkingThreadSupport);
end; end;
@ -2075,6 +2077,8 @@ end;
begin begin
if GetEnvironmentVariable('TEST_THREADS')='1' then
ForceTestThreads:=True;
Current:=0; Current:=0;
PPFile:=TStringList.Create; PPFile:=TStringList.Create;
PPFile.Capacity:=10; PPFile.Capacity:=10;