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

* tregistry2 test: Delete reg.xml and the app config dir.

Browse Source 
git-svn-id: trunk@48205 -
(cherry picked from commit 9fd0f94d7c)
This commit is contained in:
yury 2021-01-19 17:10:55 +00:00 committed by florian
parent 96710e3168
commit bade890df5
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
tests/test/packages/fcl-registry/tregistry2.pp
View File

@ -1,6 +1,7 @@
{
This unit tests mostly TRegIniFile to work properly and be Delphi compatible.
Please keep this unit Delphi compatible.
This test also runs on non-Windows platforms where XML registry is used.
Please keep this test Delphi compatible.
}
{$ifdef FPC} {$mode delphi} {$endif}
@ -205,6 +206,19 @@ begin
end;
end;
procedure DeleteUserXmlFile;
begin
DoRegTest2;
{$ifdef FPC}
DeleteFile(Includetrailingpathdelimiter(GetAppConfigDir(False))+'reg.xml');
RemoveDir(GetAppConfigDir(False));
{$endif FPC}
end;
begin
try
DoRegTest2;
finally
DeleteUserXmlFile;
end;
end.