paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 18:41:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpcunit: Erase previous saved test results first before saving new. Issue #27887, patch from Graeme Geldenhuys.

Browse Source 
git-svn-id: trunk@48799 -
This commit is contained in:
juha 2015-04-21 17:29:55 +00:00
parent 723f7fa2f7
commit acb459dabd
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/fpcunit/guitestrunner.pas
View File

@ -255,6 +255,7 @@ procedure TGUITestRunner.SaveTree;
var
i: integer;
begin
FConfStore.EraseSection('Tests');
for i := 0 to TestTree.Items.Count - 1 do
FConfStore.WriteBool('Tests', MakeTestPath(TestTree.Items[i]), TestTree.Items[i].StateIndex = Ord(tsChecked));
end;