Add unit test for message external_reply parsing

Author: Al-Muhandis

test/testtelegram.pas

@@ -104,6 +104,7 @@   TTestReceiveLongPolling=class(TTestTelegramClass)
   TTestMessageQuote=class(TTestCase)
   published
     procedure ParseMessageQuote;
+    procedure ParseMessageExternalReply;
   end;
 
   { TTestPayments }
@@ -423,6 +424,49 @@ procedure TTestMessageQuote.ParseMessageQuote;
   end;
 end;
 
+procedure TTestMessageQuote.ParseMessageExternalReply;
+const
+  MessageWithExternalReplyJSON =
+    '{' +
+      '"update_id":1003,' +
+      '"message":{' +
+        '"message_id":56,' +
+        '"date":1700000300,' +
+        '"chat":{"id":77,"type":"private","first_name":"Test"},' +
+        '"from":{"id":88,"is_bot":false,"first_name":"Alice"},' +
+        '"text":"Reply to external message",' +
+        '"external_reply":{' +
+          '"origin":{' +
+            '"type":"user",' +
+            '"date":1700000290,' +
+            '"sender_user":{"id":99,"is_bot":false,"first_name":"Bob"}' +
+          '}' +
+        '}' +
+      '}' +
+    '}';
+var
+  aUpdateObj: TTelegramUpdateObj;
+  aMessage: TTelegramMessageObj;
+  aJSONData: TJSONData;
+begin
+  aJSONData:=GetJSON(MessageWithExternalReplyJSON);
+  try
+    aUpdateObj:=TTelegramUpdateObj.Create(aJSONData as TJSONObject);
+    try
+      AssertEquals(Ord(utMessage), Ord(aUpdateObj.UpdateType));
+      aMessage:=aUpdateObj.Message;
+      AssertNotNull('Message should be assigned', aMessage);
+      AssertNotNull('ExternalReply should be assigned', aMessage.ExternalReply);
+      AssertTrue('ExternalReply JSON should contain origin type',
+        Pos('"type":"user"', aMessage.ExternalReply.AsString)>0);
+    finally
+      aUpdateObj.Free;
+    end;
+  finally
+    aJSONData.Free;
+  end;
+end;
+
 { TTestSender }
 
 procedure TTestSender.SetUp;

tgtypes.pas

@@ -11,7 +11,8 @@ interface
   TTelegramUpdateObj = class;
   TTelegramMessageObj = class;
   TTelegramTextQuote = class;
-  TTelegramMessageEntityObj = class;
+  TTelegramExternalReplyInfo = class;
+  TTelegramMessageEntityObj = class;
   TTelegramChatMemberUpdated = class;
   TTelegramInlineQueryObj = class;
   TTelegramChosenInlineResultObj = class;
@@ -113,7 +114,8 @@   TTelegramMessageObj = class(TTelegramObj)
     FChat: TTelegramChatObj;
     FContact: TTelegramContact;
     FDate: Int64;
-    FDocument: TTelegramDocument;
+    FDocument: TTelegramDocument;
+    FExternalReply: TTelegramExternalReplyInfo;
     FForwardFrom: TTelegramUserObj;
     FForwardFromChat: TTelegramChatObj;
     FForwardFromMessageID: LongInt;
@@ -151,7 +153,8 @@   TTelegramMessageObj = class(TTelegramObj)
     property Quote: TTelegramTextQuote read FQuote;
     property Text: string read fText;
     property Entities: TTelegramUpdateObjList read fEntities;
-    property Document: TTelegramDocument read FDocument;
+    property Document: TTelegramDocument read FDocument;
+    property ExternalReply: TTelegramExternalReplyInfo read FExternalReply;
     property Location: TTelegramLocation read FLocation;
     property Photo: TTelegramPhotoSizeList read FPhoto;
     property Audio: TTelegramAudio read FAudio;
@@ -165,6 +168,13 @@   TTelegramMessageObj = class(TTelegramObj)
     property IsTopicMessage: Boolean read FIsTopicMessage;
   end;
 
+  { TTelegramExternalReplyInfo }
+
+  TTelegramExternalReplyInfo = class(TTelegramObj)
+  public
+    constructor Create(JSONObject: TJSONObject); override;
+  end;
+
   { TTelegramTextQuote }
 
   TTelegramTextQuote = class(TTelegramObj)
@@ -1477,8 +1487,10 @@ constructor TTelegramMessageObj.Create(JSONObject: TJSONObject);
   FChat:=TTelegramChatObj.CreateFromJSONObject(fJSON.Find('chat', jtObject) as TJSONObject) as TTelegramChatObj;
   fChatId := fJSON.Objects['chat'].Int64s['id']; // deprecated?
   FFrom:=TTelegramUserObj.CreateFromJSONObject(fJSON.Find('from', jtObject) as TJSONObject) as TTelegramUserObj;
-  FDocument := TTelegramDocument.CreateFromJSONObject(fJSON.Find('document', jtObject) as TJSONObject) as TTelegramDocument;
-  FVideo := TTelegramVideo.CreateFromJSONObject(fJSON.Find('video', jtObject) as TJSONObject) as TTelegramVideo;
+  FDocument := TTelegramDocument.CreateFromJSONObject(fJSON.Find('document', jtObject) as TJSONObject) as TTelegramDocument;
+  FExternalReply := TTelegramExternalReplyInfo.CreateFromJSONObject(
+    fJSON.Find('external_reply', jtObject) as TJSONObject) as TTelegramExternalReplyInfo;
+  FVideo := TTelegramVideo.CreateFromJSONObject(fJSON.Find('video', jtObject) as TJSONObject) as TTelegramVideo;
   FAudio := TTelegramAudio.CreateFromJSONObject(fJSON.Find('audio', jtObject) as TJSONObject) as TTelegramAudio;
   FVoice := TTelegramVoice.CreateFromJSONObject(fJSON.Find('voice', jtObject) as TJSONObject) as TTelegramVoice; 
   FViaBot := TTelegramUserObj.CreateFromJSONObject(fJSON.Find('via_bot', jtObject) as TJSONObject) as TTelegramUserObj;
@@ -1531,14 +1543,22 @@ destructor TTelegramMessageObj.Destroy;
   FReplyToMessage.Free;
   FQuote.Free;
   FPhoto.Free;
-  FDocument.Free;
-  FAudio.Free;
+  FDocument.Free;
+  FExternalReply.Free;
+  FAudio.Free;
   FVideo.Free;
   FVoice.Free;
   fEntities.Free;
   inherited Destroy;
 end;
 
+{ TTelegramExternalReplyInfo }
+
+constructor TTelegramExternalReplyInfo.Create(JSONObject: TJSONObject);
+begin
+  inherited Create(JSONObject);
+end;
+
 { TTelegramTextQuote }
 
 constructor TTelegramTextQuote.Create(JSONObject: TJSONObject);