diff --git a/test/Database.hs b/test/Database.hs index ea044ac75..5c4abe89f 100755 --- a/test/Database.hs +++ b/test/Database.hs @@ -176,6 +176,24 @@ fillDb = do , userMailLanguages = MailLanguages ["de"] , userNotificationSettings = def } + svaupel <- insert User + { userIdent = "vaupel.sarah@campus.lmu.de" + , userAuthentication = AuthLDAP + , userLastAuthentication = Nothing + , userTokensIssuedAfter = Nothing + , userMatrikelnummer = Nothing + , userEmail = "vaupel.sarah@campus.lmu.de" + , userDisplayName = "Sarah Vaupel" + , userSurname = "Vaupel" + , userMaxFavourites = 14 + , userTheme = ThemeMossGreen + , userDateTimeFormat = userDefaultDateTimeFormat + , userDateFormat = userDefaultDateFormat + , userTimeFormat = userDefaultTimeFormat + , userDownloadFiles = userDefaultDownloadFiles + , userMailLanguages = MailLanguages ["de"] + , userNotificationSettings = def + } void . repsert (TermKey summer2017) $ Term { termName = summer2017 , termStart = fromGregorian 2017 04 09 @@ -210,9 +228,12 @@ fillDb = do void . insert' $ UserAdmin fhamann ifi void . insert' $ UserAdmin jost ifi void . insert' $ UserAdmin jost mi + void . insert' $ UserAdmin svaupel ifi + void . insert' $ UserAdmin svaupel mi void . insert' $ UserLecturer gkleen ifi void . insert' $ UserLecturer fhamann ifi void . insert' $ UserLecturer jost ifi + void . insert' $ UserLecturer svaupel ifi let sdBsc = StudyDegreeKey' 82 sdMst = StudyDegreeKey' 88