WIP: implement a test for the server side of the POST

/federation/mls-welcome endpoint

Author: mdimjasevic

services/galley/test/integration/API/Federation.hs

@@ -35,6 +35,7 @@
 
 module API.Federation where
 
+import API.MLS.Util
 import API.Util
 import Bilge
 import Bilge.Assert
@@ -63,6 +64,7 @@ import Federator.MockServer (FederatedRequest (..))
 import Galley.Types
 import Galley.Types.Conversations.Intra
 import Imports
+import System.IO.Temp
 import Test.QuickCheck (arbitrary, generate)
 import Test.Tasty
 import qualified Test.Tasty.Cannon as WS
@@ -106,7 +108,8 @@ tests s =
       test s "POST /federation/on-message-sent : Receive a message from another backend" onMessageSent,
       test s "POST /federation/send-message : Post a message sent from another backend" sendMessage,
       test s "POST /federation/on-user-deleted-conversations : Remove deleted remote user from local conversations" onUserDeleted,
-      test s "POST /federation/update-conversation : Update local conversation by a remote admin " updateConversationByRemoteAdmin
+      test s "POST /federation/update-conversation : Update local conversation by a remote admin " updateConversationByRemoteAdmin,
+      test s "POST /federation/mls-welcome : Post an MLS welcome message from another backend" sendMLSWelcome
     ]
 
 getConversationsAllFound :: TestM ()
@@ -1158,6 +1161,13 @@ updateConversationByRemoteAdmin = do
       let convUpdate :: ConversationUpdate = fromRight (error $ "Could not parse ConversationUpdate from " <> show (frBody rpc)) $ A.eitherDecode (frBody rpc)
       pure (rpc, convUpdate)
 
+sendMLSWelcome :: TestM ()
+sendMLSWelcome = withSystemTempDirectory "mls" $ \tmp -> do
+  -- add bob to it and get welcome message
+  let bob = undefined
+  (_commit, _welcome) <- liftIO $ setupCommit tmp "group" "group" (pClients bob)
+  undefined
+
 getConvAction :: Sing tag -> SomeConversationAction -> Maybe (ConversationAction tag)
 getConvAction tquery (SomeConversationAction tag action) =
   case (tag, tquery) of