commit a715f701bf4850b41b7f3fa016d16a9153319e1e
author Jens Geyer <jensg@apache.org> Wed Aug 28 22:56:13 2019 +0200
committer Jens Geyer <jensg@apache.org> Wed Aug 28 22:56:35 2019 +0200
tree 8ef173b7ab789818bd6860dd14794adaba839fb7
parent a4fc3d42e9a9ab54f8e1341a60e98d9be1eabc55

THRIFT-4944 Field IDs > 255 fail with compact protocol
Cliwent: 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 5fc0070..2420e9a 100644
--- a/lib/delphi/test/serializer/TestSerializer.Data.pas
+++ b/lib/delphi/test/serializer/TestSerializer.Data.pas
@@ -336,6 +336,10 @@
   result.Byte_set_map := TDebugProtoTestConstants.COMPACT_TEST.Byte_set_map;
   result.Byte_list_map := TDebugProtoTestConstants.COMPACT_TEST.Byte_list_map;
 
+  result.Field500 := 500;
+  result.Field5000 := 5000;
+  result.Field20000 := 20000;
+
   {$IF cDebugProtoTest_Option_AnsiStr_Binary}
   result.A_binary := AnsiString( #0#1#2#3#4#5#6#7#8);
   {$ELSE}