From d1badf16fc9c45ee547ec1e3fe677e16645683f0 Mon Sep 17 00:00:00 2001
From: Steffen Jost <S.Jost@Fraport.de>
Date: Mon, 19 Jun 2023 06:52:14 +0000
Subject: [PATCH] fix(test): resepct uniqueness for ldap primary keys

---
 test/Handler/Utils/SubmissionSpec.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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