(#102) LinkGeneratorTests: test basic generation

Emulsion.Tests/Emulsion.Tests.fsproj

@@ -18,6 +18,7 @@
     <Compile Include="MessageSystemTests\MessageSystemBaseTests.fs" />
     <Compile Include="Telegram\Html.fs" />
     <Compile Include="Telegram\FunogramTests.fs" />
+    <Compile Include="Telegram\LinkGeneratorTests.fs" />
     <Compile Include="Xmpp\SharpXmppPingHandlerTests.fs" />
     <Compile Include="Xmpp\XmppClientFactory.fs" />
     <Compile Include="Xmpp\XmppMessageFactory.fs" />

Emulsion.Tests/Telegram/LinkGeneratorTests.fs

@@ -0,0 +1,32 @@
+module Emulsion.Tests.Telegram.LinkGeneratorTests
+
+open Emulsion.Telegram
+open Funogram.Telegram.Types
+open Xunit
+
+let private chatName = "test_chat"
+let private messageTemplate =
+    { defaultMessage with
+        Chat =
+            { defaultChat with
+                Type = SuperGroup
+                Username = Some chatName
+            }
+    }
+
+let private doBasicLinkTest message =
+    let links = Async.RunSynchronously(LinkGenerator.gatherLinks message)
+    Assert.Equal(Some $"https://t.me/{chatName}/{message.MessageId}", links.ContentLink)
+
+[<Fact>]
+let documentLinkTest(): unit =
+    doBasicLinkTest
+        { messageTemplate with
+            Document = Some {
+                FileId = ""
+                Thumb = None
+                FileName = None
+                MimeType = None
+                FileSize = None
+            }
+        }