diff --git a/test/Database.hs b/test/Database.hs index 6332584b4..ea044ac75 100755 --- a/test/Database.hs +++ b/test/Database.hs @@ -511,11 +511,21 @@ fillDb = do void . insert $ SheetFile sh1 h103 SheetSolution void . insert $ SheetFile sh1 pdf10 SheetExercise -- - sub1 <- insert $ Submission sh1 Nothing Nothing Nothing Nothing Nothing + sub1 <- insert $ Submission + { submissionSheet = sh1 + , submissionRatingPoints = Nothing + , submissionRatingComment = Nothing + , submissionRatingBy = Just gkleen + , submissionRatingAssigned = Just now + , submissionRatingTime = Nothing + } void . insert $ SubmissionEdit maxMuster (nominalDay `addUTCTime` now) sub1 void . insert $ SubmissionUser maxMuster sub1 sub1fid1 <- insertFile "AbgabeH10-1.hs" void . insert $ SubmissionFile sub1 sub1fid1 False False + sub2 <- insert $ Submission sh1 Nothing Nothing Nothing Nothing Nothing + void . insert $ SubmissionEdit fhamann now sub2 + void . insert $ SubmissionUser fhamann sub2 sh2 <- insert Sheet { sheetCourse = pmo , sheetName = "Spezifische Abgabe"