Test: cannot delete when MLS disabled

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

@@ -205,7 +205,8 @@ tests s =
         [ test s "cannot create MLS conversations" postMLSConvDisabled,
           test s "cannot send an MLS message" postMLSMessageDisabled,
           test s "cannot send a commit bundle" postMLSBundleDisabled,
-          test s "cannot get group info" getGroupInfoDisabled
+          test s "cannot get group info" getGroupInfoDisabled,
+          test s "cannot delete a subconversation" deleteSubConversationDisabled
         ],
       testGroup
         "SubConversation"
@@ -2309,6 +2310,18 @@ getGroupInfoDisabled = do
       getGroupInfo (qUnqualified alice) (fmap Conv qcnv)
         !!! assertMLSNotEnabled
 
+deleteSubConversationDisabled :: TestM ()
+deleteSubConversationDisabled = do
+  alice <- randomUser
+  cnvId <- Qualified <$> randomId <*> pure (Domain "www.example.com")
+  let scnvId = SubConvId "conference"
+      dsc =
+        DeleteSubConversation
+          (GroupId "deadbeef")
+          (Epoch 0)
+  withMLSDisabled $
+    deleteSubConv alice cnvId scnvId dsc !!! assertMLSNotEnabled
+
 testCreateSubConv :: Bool -> TestM ()
 testCreateSubConv parentIsMLSConv = do
   alice <- randomQualifiedUser