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

chore(test): hlint told me to use maybe here

Browse Source
This commit is contained in:
Wolfgang Witt 2021-02-25 23:30:54 +01:00 committed by Wolfgang Witt
parent c99d96ecb8
commit 7f1df44fc3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -40,7 +40,7 @@ import Handler.Utils.Exam
-- expected: False -- expected: False
-- but got: True -- but got: True
-- @ -- @
myAnnotate :: (HasCallStack) => String -> Expectation -> Expectation myAnnotate :: HasCallStack => String -> Expectation -> Expectation
myAnnotate msg = handle $ \(HUnitFailure loc exn) -> myAnnotate msg = handle $ \(HUnitFailure loc exn) ->
throwIO $ HUnitFailure loc $ case exn of throwIO $ HUnitFailure loc $ case exn of
Reason str -> Reason str ->
@ -145,7 +145,7 @@ spec = do
= (rule == ExamRoomMatriculation) = (rule == ExamRoomMatriculation)
-- every user with a userMatrikelnummer got a room -- every user with a userMatrikelnummer got a room
-- fail on unknown user -- fail on unknown user
|| (fromMaybe False $ isNothing . userMatrikelnummer . fst <$> Map.lookup userId users) || maybe False (isNothing . userMatrikelnummer . fst) (Map.lookup userId users)
myAnnotate "user didn't get a room" $ shouldSatisfy userMap $ foldr foldFn True . Map.toList myAnnotate "user didn't get a room" $ shouldSatisfy userMap $ foldr foldFn True . Map.toList
-- all users match the shown ranges -- all users match the shown ranges
myAnnotate "shown ranges don't match userMap" myAnnotate "shown ranges don't match userMap"