commit cd7a2aa0985b01a4aeeb6e55bb8c6397c53a662a
author Jens Geyer <jensg@apache.org> Mon Oct 17 14:21:18 2022 +0200
committer Jens Geyer <Jens-G@users.noreply.github.com> Mon Oct 17 21:25:37 2022 +0200
tree 53ae5b595bc0303e4f5c2f8b6f5f7131e44543a1
parent 0b1e9513b4fd22b0b382d848cff5201d6d94a06a

THRIFT-5656 Escape Delphi keywords with '&' prefix instead of '_' suffix
Client: Delphi
Patch: Jens Geyer

lib/delphi/test/TestClient.pas

diff --git a/lib/delphi/test/TestClient.pas b/lib/delphi/test/TestClient.pas
index d541e18..1b09d3c 100644
--- a/lib/delphi/test/TestClient.pas
+++ b/lib/delphi/test/TestClient.pas
@@ -956,7 +956,7 @@
   except
     on x:TXception do begin
       Expect( x.__isset_ErrorCode, 'x.__isset_ErrorCode = '+BoolToString(x.__isset_ErrorCode));
-      Expect( x.__isset_Message_,  'x.__isset_Message_ = '+BoolToString(x.__isset_Message_));
+      Expect( x.__isset_Message,  'x.__isset_Message = '+BoolToString(x.__isset_Message));
       Expect( x.ErrorCode = 1001, 'x.ErrorCode = '+IntToStr(x.ErrorCode));
       Expect( x.Message_ = 'This is an Xception', 'x.Message = "'+x.Message_+'"');
     end;