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

fix(build)

Browse Source
This commit is contained in:
Steffen Jost 2025-02-13 13:03:06 +01:00 committed by Sarah Vaupel
parent aefafa32d1
commit 2a1cff4cd0
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
test/Database/Fill.hs
View File

@ -367,7 +367,7 @@ fillDb = do
, userExamOfficeGetSynced = False , userExamOfficeGetSynced = False
, userExamOfficeGetLabels = True , userExamOfficeGetLabels = True
} }
_stranger1 <- insert User stranger1 <- insert User
{ userIdent = "AVSID:996699" { userIdent = "AVSID:996699"
, userAuthentication = AuthLDAP , userAuthentication = AuthLDAP
, userLastAuthentication = Nothing , userLastAuthentication = Nothing
@ -407,7 +407,7 @@ fillDb = do
, userExamOfficeGetSynced = False , userExamOfficeGetSynced = False
, userExamOfficeGetLabels = True , userExamOfficeGetLabels = True
} }
_stranger2 <- insert User stranger2 <- insert User
{ userIdent = "AVSID:669966" { userIdent = "AVSID:669966"
, userAuthentication = AuthLDAP , userAuthentication = AuthLDAP
, userLastAuthentication = Nothing , userLastAuthentication = Nothing
@ -447,7 +447,7 @@ fillDb = do
, userExamOfficeGetSynced = False , userExamOfficeGetSynced = False
, userExamOfficeGetLabels = True , userExamOfficeGetLabels = True
} }
_stranger3 <- insert User stranger3 <- insert User
{ userIdent = "AVSID:6969" { userIdent = "AVSID:6969"
, userAuthentication = AuthLDAP , userAuthentication = AuthLDAP
, userLastAuthentication = Nothing , userLastAuthentication = Nothing
@ -488,6 +488,7 @@ fillDb = do
, userExamOfficeGetLabels = True , userExamOfficeGetLabels = True
} }
let let
usualSuspects = [gkleen,fhamann,jost,maxMuster,tinaTester,svaupel,sbarth,stranger1,stranger2,stranger3] -- used for specialized tests
firstNames = [ "James", "John", "Robert", "Michael" firstNames = [ "James", "John", "Robert", "Michael"
, "William", "David", "Mary", "Richard" , "William", "David", "Mary", "Richard"
, "Joseph", "Thomas", "Charles", "Daniel" , "Joseph", "Thomas", "Charles", "Daniel"
@ -595,7 +596,7 @@ fillDb = do
baseMatrikel <- getRandomR (10000 :: Int, 999999 :: Int) baseMatrikel <- getRandomR (10000 :: Int, 999999 :: Int)
let matrikel = tshow <$> [baseMatrikel..] List.\\ [6969, 669966, 996699] let matrikel = tshow <$> [baseMatrikel..] List.\\ [6969, 669966, 996699]
manyUsers <- insertMany . getZipList $ manyUser <$> ZipList ((,,) <$> firstNames <*> middlenames <*> surnames) <*> ZipList matrikel manyUsers <- insertMany . getZipList $ manyUser <$> ZipList ((,,) <$> firstNames <*> middlenames <*> surnames) <*> ZipList matrikel
matUsers <- selectList [UserMatrikelnummer !=. Nothing] [] matUsers <- selectList [UserMatrikelnummer !=. Nothing, UserId /<-. usualSuspects] []
insertMany_ [UserAvs (AvsPersonId n) uid n now Nothing Nothing Nothing Nothing | Entity uid User{userMatrikelnummer = fmap readMay -> Just (Just n)} <- matUsers] insertMany_ [UserAvs (AvsPersonId n) uid n now Nothing Nothing Nothing Nothing | Entity uid User{userMatrikelnummer = fmap readMay -> Just (Just n)} <- matUsers]
let tmin = -1 let tmin = -1
@ -693,12 +694,12 @@ fillDb = do
, UserSupervisor jost sbarth False (Just fraportAg) (Just "Staff") , UserSupervisor jost sbarth False (Just fraportAg) (Just "Staff")
, UserSupervisor jost tinaTester True (Just fraportAg) (Just "Staff") , UserSupervisor jost tinaTester True (Just fraportAg) (Just "Staff")
, UserSupervisor jost jost True (Just fraportAg) (Just "Staff") , UserSupervisor jost jost True (Just fraportAg) (Just "Staff")
, UserSupervisor jost jost True (Just fraportAg) (Just "Staff")
, UserSupervisor svaupel gkleen False (Just nice) (Just "Staff") , UserSupervisor svaupel gkleen False (Just nice) (Just "Staff")
, UserSupervisor svaupel fhamann True (Just nice) (Just "Staff") , UserSupervisor svaupel fhamann True (Just nice) (Just "Staff")
, UserSupervisor sbarth tinaTester True (Just fraportAg) (Just $ tshow SupervisorReasonAvsSuperior) , UserSupervisor sbarth tinaTester True (Just fraportAg) (Just $ tshow SupervisorReasonAvsSuperior)
, UserSupervisor gkleen fhamann False (Just fraGround) (Just "Staff") , UserSupervisor gkleen fhamann False (Just fraGround) (Just "Staff")
, UserSupervisor tinaTester tinaTester False Nothing (Just "Staff") , UserSupervisor tinaTester tinaTester False Nothing (Just "Staff")
, UserSupervisor sbarth svaupel False (Just fraGround) (Just "Missing Company")
] ]
++ take 444 [ UserSupervisor fhamann uid True Nothing (Just $ tshow SupervisorReasonCompanyDefault) | Entity uid _ <- matUsers, uid /= jost] ++ take 444 [ UserSupervisor fhamann uid True Nothing (Just $ tshow SupervisorReasonCompanyDefault) | Entity uid _ <- matUsers, uid /= jost]
++ take 123 [ UserSupervisor gkleen uid True Nothing Nothing | Entity uid _ <- drop 369 matUsers ] ++ take 123 [ UserSupervisor gkleen uid True Nothing Nothing | Entity uid _ <- drop 369 matUsers ]