add test

Author: blackheaven

integration/test/Test/UserGroup.hs

@@ -429,3 +429,78 @@ testUserGroupUpdateChannelsNonExisting = do
       >>= getJSON 201
       >>= objConvId
   updateUserGroupChannels bob gid [convId.id_] >>= assertLabel 404 "user-group-not-found"
+
+testUserGroupAddUserToGroupWithChannels :: (HasCallStack) => App ()
+testUserGroupAddUserToGroupWithChannels = do
+  (alice, tid, [bob, charlie]) <- createTeam OwnDomain 3
+  bobId <- asString $ bob %. "id"
+  charlieId <- asString $ charlie %. "id"
+
+  -- Create user group with bob as initial member
+  ug <-
+    createUserGroup alice (object ["name" .= "test group", "members" .= [bobId]])
+      >>= getJSON 200
+  gid <- ug %. "id" & asString
+
+  -- Create a conversation (channel) for the team
+  convId <-
+    postConversation alice (defProteus {team = Just tid})
+      >>= getJSON 201
+      >>= objConvId
+
+  -- Associate the channel with the user group
+  updateUserGroupChannels alice gid [convId.id_] >>= assertSuccess
+
+  -- Add charlie to the group using addUserToGroup
+  addUserToGroup alice gid charlieId >>= assertSuccess
+
+  -- Verify charlie is now in the channel
+  bindResponse (getConversation alice convId) $ \resp -> do
+    resp.status `shouldMatchInt` 200
+    members <- resp.json %. "members" %. "others" >>= asList
+    memberIds <- for members ((%. "qualified_id") >=> (%. "id") >=> asString)
+    memberIds `shouldMatchSet` [charlieId]
+
+testUserGroupAddUsersToGroupWithChannels :: (HasCallStack) => App ()
+testUserGroupAddUsersToGroupWithChannels = do
+  (alice, tid, [bob, charlie, dave, eve]) <- createTeam OwnDomain 5
+  bobId <- asString $ bob %. "id"
+  charlieId <- asString $ charlie %. "id"
+  daveId <- asString $ dave %. "id"
+  eveId <- asString $ eve %. "id"
+
+  -- Create user group with bob as initial member
+  ug <-
+    createUserGroup alice (object ["name" .= "test group", "members" .= [bobId]])
+      >>= getJSON 200
+  gid <- ug %. "id" & asString
+
+  -- Create two conversations (channels) for the team
+  convId1 <-
+    postConversation alice (defProteus {team = Just tid})
+      >>= getJSON 201
+      >>= objConvId
+  convId2 <-
+    postConversation alice (defProteus {team = Just tid})
+      >>= getJSON 201
+      >>= objConvId
+
+  -- Associate both channels with the user group
+  updateUserGroupChannels alice gid [convId1.id_, convId2.id_] >>= assertSuccess
+
+  -- Add charlie, dave, and eve to the group using addUsersToGroup
+  addUsersToGroup alice gid [charlieId, daveId, eveId] >>= assertSuccess
+
+  -- Verify all three users are now in the first channel
+  bindResponse (getConversation alice convId1) $ \resp -> do
+    resp.status `shouldMatchInt` 200
+    members <- resp.json %. "members" %. "others" >>= asList
+    memberIds <- mapM ((%. "qualified_id") >=> (%. "id") >=> asString) members
+    memberIds `shouldMatchSet` [charlieId, daveId, eveId]
+
+  -- Verify all three users are now in the second channel
+  bindResponse (getConversation alice convId2) $ \resp -> do
+    resp.status `shouldMatchInt` 200
+    members <- resp.json %. "members" %. "others" >>= asList
+    memberIds <- mapM ((%. "qualified_id") >=> (%. "id") >=> asString) members
+    memberIds `shouldMatchSet` [charlieId, daveId, eveId]