basic test

Author: battermann

integration/test/API/Spar.hs

@@ -97,6 +97,12 @@ createScimUserGroup domain token scimUserGroup = do
   body <- make scimUserGroup
   submit "POST" $ req & addJSON body . addHeader "Authorization" ("Bearer " <> token)
 
+updateScimUserGroup :: (HasCallStack, MakesValue domain, MakesValue scimUserGroup) => domain -> String -> String -> scimUserGroup -> App Response
+updateScimUserGroup domain token groupId scimUserGroup = do
+  req <- baseRequest domain Spar Versioned $ joinHttpPath ["scim", "v2", "Groups", groupId]
+  body <- make scimUserGroup
+  submit "PUT" $ req & addJSON body . 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

@@ -386,6 +386,50 @@ testSparScimCreateUserGroup = do
 
 -- get group here via resp
 
+testSparScimUpdateUserGroup :: (HasCallStack) => App ()
+testSparScimUpdateUserGroup = do
+  (owner, _, u1 : u2 : u3 : _) <- createTeam OwnDomain 4
+  u1Id <- u1 %. "id" >>= asString
+  u2Id <- u2 %. "id" >>= asString
+  u3Id <- u3 %. "id" >>= asString
+  tok <- createScimToken owner def >>= getJSON 200 >>= (%. "token") >>= asString
+  let scimUserGroup =
+        object
+          [ "schemas" .= ["urn:ietf:params:scim:schemas:core:2.0:Group"],
+            "displayName" .= "My funky group",
+            "members"
+              .= [ object
+                     [ "value" .= u1Id,
+                       "type" .= "User",
+                       "$ref" .= ("http://example.com:8088/scim/v2/Users/" <> u1Id)
+                     ],
+                   object
+                     [ "value" .= u2Id,
+                       "type" .= "User",
+                       "$ref" .= ("http://example.com:8088/scim/v2/Users/" <> u2Id)
+                     ]
+                 ]
+          ]
+  gid <- createScimUserGroup OwnDomain tok scimUserGroup >>= getJSON 200 >>= (%. "id") >>= asString
+  let scimUserGroupUpdated =
+        object
+          [ "schemas" .= ["urn:ietf:params:scim:schemas:core:2.0:Group"],
+            "displayName" .= "My even funkier group",
+            "members"
+              .= [ object
+                     [ "value" .= u2Id,
+                       "type" .= "User",
+                       "$ref" .= ("http://example.com:8088/scim/v2/Users/" <> u2Id)
+                     ],
+                   object
+                     [ "value" .= u3Id,
+                       "type" .= "User",
+                       "$ref" .= ("http://example.com:8088/scim/v2/Users/" <> u3Id)
+                     ]
+                 ]
+          ]
+  updateScimUserGroup OwnDomain tok gid scimUserGroupUpdated >>= assertSuccess
+
 ----------------------------------------------------------------------
 -- saml stuff