diff --git a/integration/test/Test/Services.hs b/integration/test/Test/Services.hs
index 1c99796b424..5d163ddf73d 100644
--- 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