Test: A provider creation helper

integration/test/SetupHelpers.hs

@@ -245,3 +245,28 @@ getOne2OneConversation user1 user2 cnvState = do
         qIds <- for others (%. "qualified_id")
         pure $ qIds == users && t
   head <$> filterM (isWith [user2]) l
+
+-- | Create a provider, get an activation code, activate the provider and log it
+-- in. The return value is the created provider.
+setupProvider ::
+  ( HasCallStack,
+    MakesValue user
+  ) =>
+  user ->
+  NewProvider ->
+  App Value
+setupProvider u np@(NewProvider {..}) = do
+  dom <- objDomain u
+  provider <- newProvider u np
+  pass <- provider %. "password" & asString
+  (key, code) <- do
+    pair <-
+      getProviderActivationCodeInternal dom newProviderEmail `bindResponse` \resp -> do
+        resp.status `shouldMatchInt` 200
+        resp.json
+    k <- pair %. "key" & asString
+    c <- pair %. "code" & asString
+    pure (k, c)
+  activateProvider dom key code
+  void $ loginProvider dom newProviderEmail pass
+  pure provider

integration/test/Test/Services.hs

@@ -18,7 +18,6 @@
 module Test.Services where
 
 import API.Brig
-import API.BrigInternal
 import API.Common
 import SetupHelpers
 import Testlib.Prelude
@@ -28,19 +27,8 @@ testUpdateServiceUpdateAcceptHeader = do
   let dom = OwnDomain
   email <- randomEmail
   alice <- randomUser dom def
-  provider <- newProvider alice def {newProviderEmail = email}
+  provider <- setupProvider alice def {newProviderEmail = email}
   providerId <- provider %. "id" & asString
-  pass <- provider %. "password" & asString
-  (key, code) <- do
-    pair <-
-      getProviderActivationCodeInternal dom email `bindResponse` \resp -> do
-        resp.status `shouldMatchInt` 200
-        resp.json
-    k <- pair %. "key" & asString
-    c <- pair %. "code" & asString
-    pure (k, c)
-  activateProvider dom key code
-  void $ loginProvider dom email pass
   service <- newService dom providerId def
   serviceId <- service %. "id"
   void $