cabal-detailed-quickcheck 0.1.1.5 → 0.1.1.6
raw patch · 3 files changed
+12/−9 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- CHANGELOG.md +4/−0
- cabal-detailed-quickcheck.cabal +2/−2
- lib/Distribution/TestSuite/QuickCheck.hs +6/−7
CHANGELOG.md view
@@ -1,5 +1,9 @@ # Revision history for cabal-detailed-quickcheck +## 0.1.1.6 — 2022-07-28++* Slightly updated code.+ ## 0.1.1.5 — 2022-07-28 * Broadened version ranges further.
cabal-detailed-quickcheck.cabal view
@@ -1,6 +1,6 @@ cabal-version: 2.4 name: cabal-detailed-quickcheck-version: 0.1.1.5+version: 0.1.1.6 synopsis: QuickCheck for Cabal tests description: Turn QuickCheck properties into detailed Cabal tests homepage: https://github.com/schuelermine/cabal-detailed-quickcheck@@ -31,4 +31,4 @@ source-repository this type: git location: https://github.com/schuelermine/cabal-detailed-quickcheck.git- tag: 0.1.1.5+ tag: 0.1.1.6
lib/Distribution/TestSuite/QuickCheck.hs view
@@ -288,19 +288,18 @@ getPropertyTestWithUsing originalArgs PropertyTest {..} = let withArgs args = T.TestInstance- { -- TODO Consider using 'T.Progress' to allow intermediate results+ { run = do result <- qcTestArgs args (property args) let resultStr = "\n" ++ show result return $ T.Finished case result of QC.Success {} -> T.Pass- QC.GaveUp {} -> T.Error $ "GaveUp: QuickCheck gave up" ++ resultStr- QC.Failure {} -> T.Fail $ "Failure: A property failed" ++ resultStr+ QC.GaveUp {} ->+ T.Error $ "GaveUp: QuickCheck gave up" ++ resultStr+ QC.Failure {} ->+ T.Fail $ "Failure: A property failed" ++ resultStr QC.NoExpectedFailure {} ->- T.Fail $- "NoExpectedFailure: A property that should have failed did not"- ++ "\n"- ++ show result,+ T.Fail $ "NoExpectedFailure: A property that should have failed did not" ++ resultStr, name, tags, options = getOptionDescrs originalArgs,