Adjust test to expect members

Author: eyeinsky

integration/test/Test/Spar.hs

@@ -26,7 +26,7 @@ import API.GalleyInternal (setTeamFeatureStatus)
 import API.Spar
 import API.SparInternal
 import Control.Concurrent (threadDelay)
-import Control.Lens (to, (?~), (^.))
+import Control.Lens (to, (^.))
 import qualified Data.Aeson as A
 import qualified Data.Aeson.KeyMap as KeyMap
 import qualified Data.Aeson.Lens as A
@@ -383,8 +383,8 @@ testSparCreateScimTokenWithName = do
 ----------------------------------------------------------------------
 -- scim group stuff
 
-testSparScimCreateGetUserGroup :: (HasCallStack) => App ()
-testSparScimCreateGetUserGroup = do
+testSparScimCreateGetSearchUserGroup :: (HasCallStack) => App ()
+testSparScimCreateGetSearchUserGroup = do
   (owner, tid, _) <- createTeam OwnDomain 1
   tok <- createScimTokenV6 owner def >>= \resp -> resp.json %. "token" >>= asString
   assertSuccess =<< setTeamFeatureStatus owner tid "validateSAMLemails" "disabled"
@@ -434,13 +434,11 @@ testSparScimCreateGetUserGroup = do
   foundGroups <- filterResultJson %. "Resources" & asList
   createdGroup1 <- resp.json
   createdGroup2 <- resp4.json
-  foundGroups `shouldMatch` (map removeMembers [createdGroup1, createdGroup2])
+  foundGroups `shouldMatch` [createdGroup1, createdGroup2]
 
   filterResultJson %. "totalResults" `shouldMatchInt` 2
   filterResultJson %. "itemsPerPage" `shouldMatchInt` 2
   filterResultJson %. "startIndex" `shouldMatchInt` 1
-  where
-    removeMembers g = g & A.atKey (fromString "members") ?~ toJSON ([] :: [()])
 
 mkScimGroup :: String -> [Value] -> Value
 mkScimGroup name members =