haskell/servant-quickcheck
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Consistent messaging

Browse Source
This commit is contained in:
parsonsmatt 2018-05-09 14:07:24 -06:00
parent 372c3cecba
commit f43f064054
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Servant/QuickCheck/Internal/QuickCheck.hs
View File

@ -129,8 +129,10 @@ serverSatisfies api burl args preds = do
Failure {..} -> do Failure {..} -> do
mx <- tryReadMVar deetsMVar mx <- tryReadMVar deetsMVar
case mx of case mx of
Just x -> expectationFailure $ "Failed:\n" ++ show x Just x ->
Nothing -> expectationFailure $ "Failed to retrieve error. QC Failure: " <> show r expectationFailure $ "Failed:\n" ++ show x
Nothing ->
expectationFailure $ "We failed to record a reason for failure: " <> show r
GaveUp { numTests = n } -> expectationFailure $ "Gave up after " ++ show n ++ " tests" GaveUp { numTests = n } -> expectationFailure $ "Gave up after " ++ show n ++ " tests"
NoExpectedFailure {} -> expectationFailure $ "No expected failure" NoExpectedFailure {} -> expectationFailure $ "No expected failure"
InsufficientCoverage {} -> expectationFailure $ "Insufficient coverage" InsufficientCoverage {} -> expectationFailure $ "Insufficient coverage"