diff --git a/test/Database/Fill.hs b/test/Database/Fill.hs index c6c0d4ffb..5d8755b7b 100644 --- a/test/Database/Fill.hs +++ b/test/Database/Fill.hs @@ -436,6 +436,8 @@ fillDb = do sdMst = StudyDegreeKey' 88 sdLAR = StudyDegreeKey' 33 sdLAG = StudyDegreeKey' 35 + for_ (maxMuster : tinaTester : manyUsers) $ \uid -> + void . insert' $ UserSystemFunction uid SystemStudent False False repsert sdBsc $ StudyDegree 82 (Just "BSc") (Just "Bachelor" ) repsert sdMst $ StudyDegree 88 (Just "MSc") (Just "Master" ) repsert sdLAR $ StudyDegree 33 (Just "LAR") Nothing -- intentionally left unknown