[fix]: flaky test for leaving self-conv MLS (#3664)

wireapp · Oct 23, 2023 · e21a24e · e21a24e
1 parent 8fb2766
commit e21a24e
Showing 1 changed file with 6 additions and 8 deletions.
diff --git a/services/galley/test/integration/API/MLS.hs b/services/galley/test/integration/API/MLS.hs
@@ -1733,17 +1733,15 @@ testSelfConversationLeave :: TestM ()
 testSelfConversationLeave = do
   alice <- randomQualifiedUser
   runMLSTest $ do
-    clients@(creator : others) <- traverse createMLSClient (replicate 3 alice)
+    (creator : others) <- traverse createMLSClient (replicate 3 alice)
     traverse_ uploadNewKeyPackage others
     (_, qcnv) <- setupMLSSelfGroup creator
     void $ createAddCommit creator [alice] >>= sendAndConsumeCommitBundle
-    mlsBracket clients $ \wss -> do
-      liftTest $
-        deleteMemberQualified (qUnqualified alice) alice qcnv
-          !!! do
-            const 403 === statusCode
-            const (Just "invalid-op") === fmap Wai.label . responseJsonError
-      WS.assertNoEvent (1 # WS.Second) wss
+    liftTest $
+      deleteMemberQualified (qUnqualified alice) alice qcnv
+        !!! do
+          const 403 === statusCode
+          const (Just "invalid-op") === fmap Wai.label . responseJsonError
 
 assertMLSNotEnabled :: Assertions ()
 assertMLSNotEnabled = do