paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 11:18:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpcunit: fix #29283: save the configuration file to the default path

Browse Source 
(cherry picked from commit 218c536b94)
This commit is contained in:
rich2014 2023-10-30 23:06:11 +08:00 committed by Maxim Ganetsky
parent 3211889649
commit cd9da93187
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpcunit/guitestrunner.pas
View File

@ -346,8 +346,12 @@ begin
end;
procedure TGUITestRunner.GUITestRunnerCreate(Sender: TObject);
var
cfgFileName: String;
begin
FConfStore := TIniFile.Create(ExtractFileNameOnly(ParamStr(0)) + '.fpcunit.ini'); // Prevent ini file names conflict if tests are embedded in application
cfgFileName:= GetAppConfigDir(false) + ExtractFileNameOnly(ParamStr(0)) + '.fpcunit.ini'; // Prevent ini file names conflict if tests are embedded in application
FConfStore := TIniFile.Create(cfgFilename);
barColor := clGreen;
TestTree.Items.Clear;
BuildTree(TestTree.Items.AddObject(nil, rsAllTests, GetTestRegistry),