chore: add test courses

test/Database/Fill.hs

@@ -974,3 +974,33 @@ fillDb = do
         forM_ grpUsers $ void . insert . flip SubmissionUser sub
         void . insert $ SubmissionEdit pUid now sub
       _other -> return ()
+
+  forM_ ([1..100] :: [Int]) $ \n -> do
+    csh <- pack . take 3 <$> getRandomRs ('A', 'Z')
+    
+    cid <- insert' Course
+      { courseName = CI.mk [st|Test Kurs #{n} (#{csh})|]
+      , courseDescription = Nothing
+      , courseLinkExternal = Nothing
+      , courseShorthand = CI.mk csh
+      , courseTerm = TermKey $ seasonTerm False Winter
+      , courseSchool = ifi
+      , courseCapacity = Just 50
+      , courseRegisterFrom = Nothing
+      , courseRegisterTo = Nothing
+      , courseDeregisterUntil = Nothing
+      , courseRegisterSecret  = Nothing
+      , courseMaterialFree    = True
+      , courseApplicationsRequired = False
+      , courseApplicationsInstructions = Nothing
+      , courseApplicationsText = False
+      , courseApplicationsFiles = NoUpload
+      , courseApplicationsRatingsVisible = False
+      }
+    insert_ $ CourseEdit gkleen now cid
+    void . insert' $ Lecturer gkleen cid CourseLecturer
+
+    participants <- getRandomR (0, 50)
+    manyUsers' <- shuffleM manyUsers
+    forM_ (take participants manyUsers') $ \uid ->
+      void . insert $ CourseParticipant cid uid now Nothing Nothing