fixup! Test: A provider creation helper

wireapp · Dec 20, 2023 · 9db75e2 · 9db75e2
1 parent d9848e7
commit 9db75e2
Showing 1 changed file with 10 additions and 9 deletions.
diff --git a/integration/test/Test/Services.hs b/integration/test/Test/Services.hs
@@ -28,14 +28,15 @@ testUpdateServiceUpdateAcceptHeader = do
   email <- randomEmail
   alice <- randomUser dom def
   provider <- setupProvider alice def {newProviderEmail = email}
-  providerId <- provider %. "id" & asString
-  service <- newService dom providerId def
-  serviceId <- service %. "id"
+  pId <- provider %. "id" & asString
+  service <- newService dom pId def
+  sIs <- service %. "id"
   void $
-    updateService
-      dom
-      providerId
-      serviceId
-      (Just "application/json")
-      (Just "brand new service")
+    updateService dom pId sIs (Just "application/json") (Just "brand new service")
+      >>= getBody 200
+  void $
+    updateService dom pId sIs (Just "text/plain") (Just "even newer service")
+      >>= getBody 200
+  void $
+    updateService dom pId sIs Nothing (Just "really old service")
       >>= getBody 200