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

* Test for deletekey

Browse Source 
git-svn-id: trunk@41817 -
This commit is contained in:
michael 2019-04-01 17:15:00 +00:00
parent 6c7da3cca4
commit 6bfaec84eb
1 changed files with 66 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
packages/fcl-registry/tests/testbasics.pp
View File

@ -24,6 +24,7 @@ type
procedure TestAdv; procedure TestAdv;
procedure TestStringList; procedure TestStringList;
Procedure TestInt64; Procedure TestInt64;
Procedure TestDeleteSubkey;
end; end;
implementation implementation
@ -219,6 +220,71 @@ begin
end; end;
end; end;
procedure TTestBasics.TestDeleteSubKey;
const
BugID = 'Bug35132';
Base = 'Software\' + BugID;
One = 'One';
OneFull = Base + '\' + One;
Two = 'Two';
TwoFull = OneFull + '\' + Two;
procedure CleanUp(AssertionFailed: Boolean);
var
R: TRegistry;
B: Boolean;
begin
R := TRegistry.Create(KEY_ALL_ACCESS);
try
R.RootKey := HKEY_CURRENT_USER;
if R.KeyExists(TwoFull) then
begin
B := R. DeleteKey(TwoFull);
if B then B := R.DeleteKey(OneFull);
if B then B := R.DeleteKey(Base);
AssertTrue('cleanup OK',B);
end;
finally
R.Free;
end;
end;
var
R: TRegistry;
B: Boolean;
begin
R := TRegistry.Create(KEY_ALL_ACCESS);
try
R.RootKey := HKEY_CURRENT_USER;
B := R.OpenKey(Base, True);
AssertTrue(format('OpenKey(''%s'') failed.',[Base]),B);
B := R.OpenKey('One',True);
AssertTrue(format('OpenKey(''%s'') failed.',[OneFull]),B);
B := R.OpenKey('Two',True);
AssertTrue(format('OpenKey(''%s'') failed.',[TwoFull]),B);
R.CloseKey;
B := R.KeyExists(TwoFull);
AssertTrue(format('KeyExists(''%s'') failed.',[TwoFull]),B);
R.CloseKey;
B := R.OpenKey(Base,False);
AssertTrue(format('OpenKey(''%s'') failed.',[Base]),B);
B := R.DeleteKey('One');
AssertFalse(format('DeleteKey(''%s'') should have failed, but it succeeded.',[OneFull]),B);
finally
R.Free;
CleanUp(ExceptObject <> nil);
end;
end;
initialization initialization
RegisterTest(TTestBasics); RegisterTest(TTestBasics);