* Fix possible buffer overflow (bug ID 31203)

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@35330 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 15 insertions, 3 deletions

diff --git a/packages/fcl-registry/tests/testbasics.pp b/packages/fcl-registry/tests/testbasics.pp
index 0709263bd0..d78d4e2b5b 100644
--- a/packages/fcl-registry/tests/testbasics.pp
+++ b/packages/fcl-registry/tests/testbasics.pp
@@ -7,8 +7,7 @@ unit TestBasics;
 interface
 
 uses
-  fpcunit, testutils, testregistry, testdecorator,
-  Classes, SysUtils;
+  fpcunit, testutils, testregistry, testdecorator, Classes, SysUtils;
 
 type
 
@@ -97,7 +96,7 @@ end;
 procedure TTestBasics.bug16395;
 var
   r: TRegistry;
-  s: string;
+  s,t: string;
 begin
   DeleteUserXmlFile;
   
@@ -149,6 +148,19 @@ begin
     r.Free;
   end;
 
+  r := TRegistry.Create;
+  try
+    r.RootKey := HKEY_CURRENT_USER;
+    r.OpenKey('LongNode',true);
+    t:=StringOfChar('*',4000);
+    r.WriteString('LongString',T);
+    s := r.ReadString('LongString');
+    AssertEquals('Writing long string works OK', t, s);
+    r.CloseKey;
+  finally
+    r.Free;
+  end;
+
   DeleteUserXmlFile;
 end;