From e14c4091e64c797b2089b4156dfe2b779cb63c10 Mon Sep 17 00:00:00 2001 From: Wolfgang Witt Date: Mon, 1 Mar 2021 19:43:08 +0100 Subject: [PATCH] chore(test): adjust function name to semantics --- test/Handler/Utils/ExamSpec.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/test/Handler/Utils/ExamSpec.hs b/test/Handler/Utils/ExamSpec.hs index 3244c9ff0..d15fb8726 100644 --- a/test/Handler/Utils/ExamSpec.hs +++ b/test/Handler/Utils/ExamSpec.hs @@ -315,7 +315,7 @@ spec = do isNullResultJustified ExamAutoOccurrenceExceptionNoUsers rule userProperties _occurrences = noRelevantUsers rule userProperties isNullResultJustified ExamAutoOccurrenceExceptionRoomTooSmall rule userProperties occurrences - = mappingImpossible rule userProperties occurrences + = mappingImpossiblePlausible rule userProperties occurrences noRelevantUsers :: ExamOccurrenceRule -> Map UserId (UserProperties, Maybe ExamOccurrenceId) -> Bool noRelevantUsers rule = null . relevantUsers rule relevantUsers :: ExamOccurrenceRule @@ -329,8 +329,8 @@ spec = do ExamRoomMatriculation -> maybe False (not . null) userMatrikelnummer ExamRoomRandom -> True _rule -> False - mappingImpossible :: ExamOccurrenceRule -> Map UserId (UserProperties, Maybe ExamOccurrenceId) -> Map ExamOccurrenceId Natural -> Bool - mappingImpossible + mappingImpossiblePlausible :: ExamOccurrenceRule -> Map UserId (UserProperties, Maybe ExamOccurrenceId) -> Map ExamOccurrenceId Natural -> Bool + mappingImpossiblePlausible rule userProperties@(sort . map (ruleProperty rule . fst) . Map.elems . relevantUsers rule -> users') (map snd . Map.toList . adjustOccurrences userProperties -> occurrences') = go 0 users' occurrences'