diff --git a/test/Database/Fill.hs b/test/Database/Fill.hs index e93ad0320..bd02521e3 100644 --- a/test/Database/Fill.hs +++ b/test/Database/Fill.hs @@ -578,6 +578,7 @@ fillDb = do , sheetSolutionFrom = Nothing , sheetAutoDistribute = False , sheetAnonymousCorrection = True + , sheetRequireExamRegistration = Nothing } insert_ $ SheetEdit gkleen now adhoc feste <- insert Sheet @@ -595,6 +596,7 @@ fillDb = do , sheetSolutionFrom = Nothing , sheetAutoDistribute = False , sheetAnonymousCorrection = True + , sheetRequireExamRegistration = Nothing } insert_ $ SheetEdit gkleen now feste keine <- insert Sheet @@ -612,6 +614,7 @@ fillDb = do , sheetSolutionFrom = Nothing , sheetAutoDistribute = False , sheetAnonymousCorrection = True + , sheetRequireExamRegistration = Nothing } insert_ $ SheetEdit gkleen now keine 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 , sheetAutoDistribute = True , sheetAnonymousCorrection = True + , sheetRequireExamRegistration = Nothing } void . insert $ SheetEdit jost now shId when (submissionModeCorrector sheetSubmissionMode) $ @@ -1057,6 +1061,7 @@ fillDb = do , sheetSolutionFrom = Nothing , sheetAutoDistribute = False , sheetAnonymousCorrection = True + , sheetRequireExamRegistration = Nothing } manyUsers' <- shuffleM $ take 1024 manyUsers groupSizes <- getRandomRs (1, 3)