implement test

Author: smatting

services/galley/test/integration/API.hs

@@ -3444,13 +3444,23 @@ putReceiptModeOk = do
           assertEqual "modes should match" mode 0
         _ -> assertFailure "Unexpected event data"
 
+-- | Test setup
+-- A (local)  - alice: admin on remote conversation, adam: regular member of remote conversation
+-- B (mocked) - owns the conversation
+--
+-- The federator on A is also mocked.
+--
+-- alice changes receipt remote via client api
+-- assertion: A's federator is called correctly
+-- assertion: backend A generates events for adam (and alice)
+-- and federator's response
 putRemoteReceiptModeOk :: TestM ()
 putRemoteReceiptModeOk = do
   c <- view tsCannon
   qalice <- randomQualifiedUser
   let alice = qUnqualified qalice
 
-  -- create a remote conversation with alice as admin
+  -- create a remote conversation at bob with alice as admin
   let remoteDomain = Domain "bobland.example.com"
   qbob <- Qualified <$> randomId <*> pure remoteDomain
   qconv <- Qualified <$> randomId <*> pure remoteDomain
@@ -3468,7 +3478,7 @@ putRemoteReceiptModeOk = do
           }
   runFedClient @"on-conversation-updated" fedGalleyClient remoteDomain cuAddAlice
 
-  -- add another users from this backend
+  -- add another user adam as member
   qadam <- randomQualifiedUser
   let adam = qUnqualified qadam
   connectWithRemoteUser adam qbob
@@ -3495,13 +3505,26 @@ putRemoteReceiptModeOk = do
               SomeConversationAction (sing @'ConversationReceiptModeUpdateTag) action
           }
   let mockResponse = const (ConversationUpdateResponseUpdate responseConvUpdate)
-  (res, federatedRequests) <- withTempMockFederator mockResponse $ do
-    putQualifiedReceiptMode alice qconv newReceiptMode
-      <!! const 200 === statusCode
-  -- check event in res
-  -- assert federatedRequest
-  -- assert adam gets event
-  pure ()
+
+  WS.bracketR c adam $ \wsAdam -> do
+    (res, federatedRequests) <- withTempMockFederator mockResponse $ do
+      putQualifiedReceiptMode alice qconv newReceiptMode
+        <!! const 200 === statusCode
+
+    let event :: Event = responseJsonUnsafe res
+    let (EdConvReceiptModeUpdate (ConversationReceiptModeUpdate receiptModeEvent)) = evtData event
+
+    liftIO $ assertEqual "Unexcepected receipt mode in event" newReceiptMode receiptModeEvent
+
+    cFedReq <- assertOne $ filter (\r -> frTargetDomain r == remoteDomain && frRPC r == "update-conversation") federatedRequests
+    cFedReqBody <- assertRight $ parseFedRequest cFedReq
+    liftIO $ do
+      curUser cFedReqBody @?= alice
+      curConvId cFedReqBody @?= qUnqualified qconv
+      curAction cFedReqBody @?= SomeConversationAction (sing @'ConversationReceiptModeUpdateTag) action
+
+    WS.assertMatch_ (5 # Second) wsAdam $ \n -> do
+      liftIO $ wsAssertConvReceiptModeUpdate qconv qadam newReceiptMode n
 
 putReceiptModeWithRemotesOk :: TestM ()
 putReceiptModeWithRemotesOk = do