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'