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

+ 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

6
tests/utils/dotest.pp
View File

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