Add test for get SCIM group

Author: eyeinsky

integration/test/API/Spar.hs

@@ -97,6 +97,11 @@ createScimUserGroup domain token scimUserGroup = do
   body <- make scimUserGroup
   submit "POST" $ req & addJSON body . addHeader "Authorization" ("Bearer " <> token)
 
+getScimUserGroup :: (HasCallStack, MakesValue domain) => domain -> String -> String -> App Response
+getScimUserGroup domain token gid = do
+  req <- baseRequest domain Spar Versioned $ joinHttpPath [ "/scim/v2/Groups", gid ]
+  submit "GET" $ req & addHeader "Authorization" ("Bearer " <> token)
+
 -- | https://staging-nginz-https.zinfra.io/v12/api/swagger-ui/#/default/idp-create
 createIdp :: (HasCallStack, MakesValue user) => user -> SAML.IdPMetadata -> App Response
 createIdp user metadata = do

integration/test/Test/Spar.hs

@@ -365,8 +365,8 @@ testSparCreateScimTokenWithName = do
 ----------------------------------------------------------------------
 -- scim group stuff
 
-testSparScimCreateUserGroup :: (HasCallStack) => App ()
-testSparScimCreateUserGroup = do
+testSparScimCreateGetUserGroup :: (HasCallStack) => App ()
+testSparScimCreateGetUserGroup = do
   (owner, _, _) <- createTeam OwnDomain 1
   tok <- createScimTokenV6 owner def >>= \resp -> resp.json %. "token" >>= asString
   let scimUserGroup =
@@ -384,7 +384,11 @@ testSparScimCreateUserGroup = do
   resp <- createScimUserGroup OwnDomain tok scimUserGroup
   assertSuccess resp
 
-  -- get group here via resp
+  gid <- resp.json %. "qualified_id.id" & asString
+
+  resp2 <- getScimUserGroup OwnDomain tok gid
+
+  liftIO $ print (resp, resp2)
 
 ----------------------------------------------------------------------
 -- saml stuff