commit 62445c1d2e8bcca1056abb4559518f1c8d995992
author Jens Geyer <jensg@apache.org> Wed Jun 29 00:00:00 2022 +0200
committer Jens Geyer <jensg@apache.org> Mon Sep 05 22:04:20 2022 +0200
tree bea3319b780bf3b918997ba5317eae0151e2395b
parent 6a797b9843f47b455740afc146ac490de95d74c2

THRIFT-5591 Add uuid type to IDL and implement reference code (+ improved self-tests)
Client: compiler general, netstd, Delphi
Patch: Jens Geyer

lib/delphi/test/serializer/TestSerializer.Data.pas

diff --git a/lib/delphi/test/serializer/TestSerializer.Data.pas b/lib/delphi/test/serializer/TestSerializer.Data.pas
index 4b8cc66..269e307 100644
--- a/lib/delphi/test/serializer/TestSerializer.Data.pas
+++ b/lib/delphi/test/serializer/TestSerializer.Data.pas
@@ -23,6 +23,8 @@
 
 uses
   SysUtils,
+  ActiveX,
+  ComObj,
   Thrift.Protocol,
   Thrift.Collections,
   DebugProtoTest;
@@ -193,6 +195,8 @@
   // !!
   result.setZomg_unicode( UnicodeString( us));
 
+  result.Rfc4122_uuid := TGuid.Create('{00112233-4455-6677-8899-aabbccddeeff}');
+
   {$IF cDebugProtoTest_Option_AnsiStr_Binary}
   result.SetBase64('base64');
   {$ELSEIF cDebugProtoTest_Option_COM_Types}