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

fix: tests

Browse Source
This commit is contained in:
Gregor Kleen 2020-07-20 15:59:44 +02:00
parent a60ad1abae
commit 96b3ba4392
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
test/Database/Fill.hs
View File

@ -578,6 +578,7 @@ fillDb = do
, sheetSolutionFrom = Nothing , sheetSolutionFrom = Nothing
, sheetAutoDistribute = False , sheetAutoDistribute = False
, sheetAnonymousCorrection = True , sheetAnonymousCorrection = True
, sheetRequireExamRegistration = Nothing
} }
insert_ $ SheetEdit gkleen now adhoc insert_ $ SheetEdit gkleen now adhoc
feste <- insert Sheet feste <- insert Sheet
@ -595,6 +596,7 @@ fillDb = do
, sheetSolutionFrom = Nothing , sheetSolutionFrom = Nothing
, sheetAutoDistribute = False , sheetAutoDistribute = False
, sheetAnonymousCorrection = True , sheetAnonymousCorrection = True
, sheetRequireExamRegistration = Nothing
} }
insert_ $ SheetEdit gkleen now feste insert_ $ SheetEdit gkleen now feste
keine <- insert Sheet keine <- insert Sheet
@ -612,6 +614,7 @@ fillDb = do
, sheetSolutionFrom = Nothing , sheetSolutionFrom = Nothing
, sheetAutoDistribute = False , sheetAutoDistribute = False
, sheetAnonymousCorrection = True , sheetAnonymousCorrection = True
, sheetRequireExamRegistration = Nothing
} }
insert_ $ SheetEdit gkleen now keine insert_ $ SheetEdit gkleen now keine
void . insertMany $ map (\(u,sf) -> CourseParticipant ffp u now sf Nothing CourseParticipantActive) void . insertMany $ map (\(u,sf) -> CourseParticipant ffp u now sf Nothing CourseParticipantActive)
@ -823,6 +826,7 @@ fillDb = do
, sheetSolutionFrom = Just $ termTime True Summer (prog + 2) False Sunday beforeMidnight , sheetSolutionFrom = Just $ termTime True Summer (prog + 2) False Sunday beforeMidnight
, sheetAutoDistribute = True , sheetAutoDistribute = True
, sheetAnonymousCorrection = True , sheetAnonymousCorrection = True
, sheetRequireExamRegistration = Nothing
} }
void . insert $ SheetEdit jost now shId void . insert $ SheetEdit jost now shId
when (submissionModeCorrector sheetSubmissionMode) $ when (submissionModeCorrector sheetSubmissionMode) $
@ -1057,6 +1061,7 @@ fillDb = do
, sheetSolutionFrom = Nothing , sheetSolutionFrom = Nothing
, sheetAutoDistribute = False , sheetAutoDistribute = False
, sheetAnonymousCorrection = True , sheetAnonymousCorrection = True
, sheetRequireExamRegistration = Nothing
} }
manyUsers' <- shuffleM $ take 1024 manyUsers manyUsers' <- shuffleM $ take 1024 manyUsers
groupSizes <- getRandomRs (1, 3) groupSizes <- getRandomRs (1, 3)