fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add assigned submission to test data

Browse Source
This commit is contained in:
Gregor Kleen 2019-05-21 13:40:32 +02:00
parent 874252edbd
commit cc83427912
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
test/Database.hs
View File

@ -511,11 +511,21 @@ fillDb = do
void . insert $ SheetFile sh1 h103 SheetSolution void . insert $ SheetFile sh1 h103 SheetSolution
void . insert $ SheetFile sh1 pdf10 SheetExercise 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 $ SubmissionEdit maxMuster (nominalDay `addUTCTime` now) sub1
void . insert $ SubmissionUser maxMuster sub1 void . insert $ SubmissionUser maxMuster sub1
sub1fid1 <- insertFile "AbgabeH10-1.hs" sub1fid1 <- insertFile "AbgabeH10-1.hs"
void . insert $ SubmissionFile sub1 sub1fid1 False False 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 sh2 <- insert Sheet
{ sheetCourse = pmo { sheetCourse = pmo
, sheetName = "Spezifische Abgabe" , sheetName = "Spezifische Abgabe"