test not-found and verify response body

integration/test/API/Common.hs

@@ -20,6 +20,11 @@ randomEmail = do
   u <- randomName
   pure $ u <> "@example.com"
 
+randomDomain :: App String
+randomDomain = do
+  u <- randomName
+  pure $ (fmap toLower u) <> ".com"
+
 randomExternalId :: App String
 randomExternalId = liftIO $ do
   -- external ID has no constraints, but we only generate human-readable samples

integration/test/Test/EnterpriseLogin.hs

@@ -1,12 +1,18 @@
 module Test.EnterpriseLogin where
 
 import API.BrigInternal
+import API.Common
 import Testlib.Prelude
 
 testDomainRegistrationLock :: App ()
 testDomainRegistrationLock = do
-  let domain = "example.com"
+  domain <- randomDomain
+  bindResponse (getDomainRegistration OwnDomain domain) $ \resp -> do
+    resp.status `shouldMatchInt` 404
   bindResponse (domainRegistrationLock OwnDomain domain) $ \resp -> do
     resp.status `shouldMatchInt` 200
   bindResponse (getDomainRegistration OwnDomain domain) $ \resp -> do
     resp.status `shouldMatchInt` 200
+    resp.json %. "domain" `shouldMatch` domain
+    resp.json %. "domain_redirect" `shouldMatch` "locked"
+    resp.json %. "team_invite" `shouldMatch` "allowed"