diff --git a/test/Handler/Utils/SubmissionSpec.hs b/test/Handler/Utils/SubmissionSpec.hs
index e4c4f21a7..3e708b165 100644
--- a/test/Handler/Utils/SubmissionSpec.hs
+++ b/test/Handler/Utils/SubmissionSpec.hs
@@ -48,8 +48,10 @@ makeUsers (fromIntegral -> n) = do
   users' <- liftIO . replicateM n $ generate arbitrary
   users <- forM users' $ \u -> do
     i <- atomically $ readTVar userNumber <* modifyTVar userNumber succ
-    let u' = u { userIdent = CI.mk $ "user." <> tshow i
-               , userEmail = CI.mk $ "user." <> tshow i <> "@example.com"
+    let baseid = CI.mk $ "user." <> tshow i
+        u' = u { userIdent          = baseid 
+               , userEmail          = baseid <> "@example.com"
+               , userLdapPrimaryKey = baseid <> ".ldap"
                }
     return u'
   uids <- insertMany users