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

chore(test): type of examOccurrenceCapacity changed

Browse Source
This commit is contained in:
Wolfgang Witt 2021-03-02 13:26:58 +01:00 committed by Wolfgang Witt
parent 292f5cf91b
commit b36a15c0b2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/Handler/Utils/ExamSpec.hs
View File

@ -168,7 +168,7 @@ spec = do
createOccurrences acc createOccurrences acc
| sum (map snd acc) < totalSpaceRequirement = do | sum (map snd acc) < totalSpaceRequirement = do
Entity {entityKey, entityVal} <- Entity <$> arbitrary <*> arbitrary Entity {entityKey, entityVal} <- Entity <$> arbitrary <*> arbitrary
createOccurrences $ (entityKey, examOccurrenceCapacity entityVal) : acc createOccurrences $ (entityKey, fromIntegral $ examOccurrenceCapacity entityVal) : acc
| otherwise = pure acc | otherwise = pure acc
Map.fromList <$> createOccurrences [] Map.fromList <$> createOccurrences []
genNudge :: [(Int, Integer)] -> Map ExamOccurrenceId Integer -> ExamOccurrenceId -> Gen (Map ExamOccurrenceId Integer) genNudge :: [(Int, Integer)] -> Map ExamOccurrenceId Integer -> ExamOccurrenceId -> Gen (Map ExamOccurrenceId Integer)