diff --git a/test/Database/Fill.hs b/test/Database/Fill.hs index f510ab53c..216c915a4 100644 --- a/test/Database/Fill.hs +++ b/test/Database/Fill.hs @@ -657,6 +657,8 @@ fillDb = do , sheetAnonymousCorrection = True , sheetRequireExamRegistration = Nothing , sheetAllowNonPersonalisedSubmission = True + , sheetAuthorshipStatementRequired = False + , sheetAuthorshipStatementDefinition = Just ifiAuthorshipStatement } insert_ $ SheetEdit gkleen now adhoc feste <- insert Sheet @@ -676,6 +678,8 @@ fillDb = do , sheetAnonymousCorrection = True , sheetRequireExamRegistration = Nothing , sheetAllowNonPersonalisedSubmission = True + , sheetAuthorshipStatementRequired = False + , sheetAuthorshipStatementDefinition = Just ifiAuthorshipStatement } insert_ $ SheetEdit gkleen now feste keine <- insert Sheet @@ -695,6 +699,8 @@ fillDb = do , sheetAnonymousCorrection = True , sheetRequireExamRegistration = Nothing , sheetAllowNonPersonalisedSubmission = True + , sheetAuthorshipStatementRequired = False + , sheetAuthorshipStatementDefinition = Just ifiAuthorshipStatement } insert_ $ SheetEdit gkleen now keine void . insertMany $ map (\u -> CourseParticipant ffp u now Nothing CourseParticipantActive) @@ -939,6 +945,8 @@ fillDb = do , sheetAnonymousCorrection = True , sheetRequireExamRegistration = Nothing , sheetAllowNonPersonalisedSubmission = True + , sheetAuthorshipStatementRequired = False + , sheetAuthorshipStatementDefinition = Just ifiAuthorshipStatement } void . insert $ SheetEdit jost now shId when (submissionModeCorrector sheetSubmissionMode) $ @@ -1182,6 +1190,8 @@ fillDb = do , sheetAnonymousCorrection = True , sheetRequireExamRegistration = Nothing , sheetAllowNonPersonalisedSubmission = True + , sheetAuthorshipStatementRequired = shNr == 14 + , sheetAuthorshipStatementDefinition = Just ifiAuthorshipStatement } manyUsers' <- shuffleM $ take 1024 manyUsers groupSizes <- getRandomRs (1, 3)