fix(test): resepct uniqueness for ldap primary keys

2023-06-19 06:52:14 +00:00 · 2023-06-19 06:52:14 +00:00 · d1badf16fc
commit d1badf16fc
parent a5ee70c370
1 changed files with 4 additions and 2 deletions
--- 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