chore(test): re-enable justifiedNullResult-test

test/Handler/Utils/ExamSpec.hs

@@ -150,12 +150,10 @@ spec = do
                         myAnnotate "shown ranges don't match userMap"
                             $ shouldSatisfy (rule, userProperties, occurrenceMapping, userMap) $ uncurry4 showsCorrectRanges
                     -- is a nullResult justified?
-                    Nothing -> pure ()
-                        {-
+                    Nothing -> 
                         -- disabled for now, probably not correct with the current implementation
                         myAnnotate "unjustified nullResult"
                             $ shouldSatisfy (rule, userProperties, occurrences) $ uncurry3 isNullResultJustified
-                        -}
         -- | generate users without any pre-assigned rooms
         genUsersWithOccurrences :: Preselection -> Gen (Map UserId (User, Maybe ExamOccurrenceId), Map ExamOccurrenceId Natural)
         genUsersWithOccurrences preselection = do
@@ -263,7 +261,6 @@ spec = do
                                     ExamRoomMatriculation -> isSuffixOf
                                     _rule -> isPrefixOf
                         _otherwise -> (rule /= ExamRoomSurname) && (rule /= ExamRoomMatriculation)
-        {-
         -- | Is mapping impossible?
         isNullResultJustified :: ExamOccurrenceRule
                                 -> Map UserId (UserProperties, Maybe ExamOccurrenceId)
@@ -307,4 +304,3 @@ spec = do
         predToPositive 0 = Nothing
         predToPositive 1 = Nothing
         predToPositive n = Just $ pred n
-        -}