Add assigned submission to test data

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"