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

chore(test): adjust function name to semantics

Browse Source
This commit is contained in:
Wolfgang Witt 2021-03-01 19:43:08 +01:00 committed by Wolfgang Witt
parent 9c928b0375
commit e14c4091e6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -315,7 +315,7 @@ spec = do
isNullResultJustified ExamAutoOccurrenceExceptionNoUsers rule userProperties _occurrences isNullResultJustified ExamAutoOccurrenceExceptionNoUsers rule userProperties _occurrences
= noRelevantUsers rule userProperties = noRelevantUsers rule userProperties
isNullResultJustified ExamAutoOccurrenceExceptionRoomTooSmall rule userProperties occurrences isNullResultJustified ExamAutoOccurrenceExceptionRoomTooSmall rule userProperties occurrences
= mappingImpossible rule userProperties occurrences = mappingImpossiblePlausible rule userProperties occurrences
noRelevantUsers :: ExamOccurrenceRule -> Map UserId (UserProperties, Maybe ExamOccurrenceId) -> Bool noRelevantUsers :: ExamOccurrenceRule -> Map UserId (UserProperties, Maybe ExamOccurrenceId) -> Bool
noRelevantUsers rule = null . relevantUsers rule noRelevantUsers rule = null . relevantUsers rule
relevantUsers :: ExamOccurrenceRule relevantUsers :: ExamOccurrenceRule
@ -329,8 +329,8 @@ spec = do
ExamRoomMatriculation -> maybe False (not . null) userMatrikelnummer ExamRoomMatriculation -> maybe False (not . null) userMatrikelnummer
ExamRoomRandom -> True ExamRoomRandom -> True
_rule -> False _rule -> False
mappingImpossible :: ExamOccurrenceRule -> Map UserId (UserProperties, Maybe ExamOccurrenceId) -> Map ExamOccurrenceId Natural -> Bool mappingImpossiblePlausible :: ExamOccurrenceRule -> Map UserId (UserProperties, Maybe ExamOccurrenceId) -> Map ExamOccurrenceId Natural -> Bool
mappingImpossible mappingImpossiblePlausible
rule rule
userProperties@(sort . map (ruleProperty rule . fst) . Map.elems . relevantUsers rule -> users') userProperties@(sort . map (ruleProperty rule . fst) . Map.elems . relevantUsers rule -> users')
(map snd . Map.toList . adjustOccurrences userProperties -> occurrences') = go 0 users' occurrences' (map snd . Map.toList . adjustOccurrences userProperties -> occurrences') = go 0 users' occurrences'