fix: enable user-group synced tests

Author: blackheaven

integration/test/Test/UserGroup.hs

@@ -376,7 +376,7 @@ testUserGroupMembersCount = do
 
 testUserGroupUpdateChannelsSucceeds :: (HasCallStack) => App ()
 testUserGroupUpdateChannelsSucceeds = do
-  (alice, tid, [_bob]) <- createTeam OwnDomain 2
+  (alice, tid, [bob]) <- createTeam OwnDomain 2
 
   ug <-
     createUserGroup alice (object ["name" .= "none", "members" .= (mempty :: [String])])
@@ -390,14 +390,14 @@ testUserGroupUpdateChannelsSucceeds = do
       >>= objConvId
   updateUserGroupChannels alice gid ((.id_) <$> convIds) >>= assertSuccess
 
-  -- bobId <- asString $ bob %. "id"
+  bobId <- asString $ bob %. "id"
   bindResponse (getUserGroupWithChannels alice gid) $ \resp -> do
     resp.status `shouldMatchInt` 200
     actual <- resp.json %. "channels" >>= asList >>= traverse objQid
     actual `shouldMatchSet` for convIds objQid
 
--- FUTUREWORK: check the actual associated channels
---  resp.json %. "members" `shouldMatch` [bobId]
+    resp.json %. "channels" `shouldMatch` map (\convId -> object ["id" .= convId.id_, "domain" .= convId.domain]) convIds
+    resp.json %. "members" `shouldMatch` [bobId]
 
 testUserGroupUpdateChannelsNonAdmin :: (HasCallStack) => App ()
 testUserGroupUpdateChannelsNonAdmin = do