fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(test): resepct uniqueness for ldap primary keys

Browse Source
This commit is contained in:
Steffen Jost 2023-06-19 06:52:14 +00:00
parent a5ee70c370
commit d1badf16fc
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test/Handler/Utils/SubmissionSpec.hs
View File

@ -48,8 +48,10 @@ makeUsers (fromIntegral -> n) = do
users' <- liftIO . replicateM n $ generate arbitrary users' <- liftIO . replicateM n $ generate arbitrary
users <- forM users' $ \u -> do users <- forM users' $ \u -> do
i <- atomically $ readTVar userNumber <* modifyTVar userNumber succ i <- atomically $ readTVar userNumber <* modifyTVar userNumber succ
let u' = u { userIdent = CI.mk $ "user." <> tshow i let baseid = CI.mk $ "user." <> tshow i
, userEmail = CI.mk $ "user." <> tshow i <> "@example.com" u' = u { userIdent = baseid
, userEmail = baseid <> "@example.com"
, userLdapPrimaryKey = baseid <> ".ldap"
} }
return u' return u'
uids <- insertMany users uids <- insertMany users