summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNickSmallbone <>2018-01-12 18:20:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2018-01-12 18:20:00 (GMT)
commit9cd13c9dde75fd52007e20796aee0dabf1a01cb5 (patch)
tree588ad4286771457a0600f6d4b1b2ae28f2f71a45
parentda16288d23b519f85fa73c69045f860224a2ee1c (diff)
version 2.11.22.11.2
-rw-r--r--QuickCheck.cabal4
-rw-r--r--Test/QuickCheck/Test.hs8
2 files changed, 6 insertions, 6 deletions
diff --git a/QuickCheck.cabal b/QuickCheck.cabal
index fa4df24..d821488 100644
--- a/QuickCheck.cabal
+++ b/QuickCheck.cabal
@@ -1,5 +1,5 @@
Name: QuickCheck
-Version: 2.11.1
+Version: 2.11.2
Cabal-Version: >= 1.8
Build-type: Simple
License: BSD3
@@ -49,7 +49,7 @@ source-repository head
source-repository this
type: git
location: https://github.com/nick8325/quickcheck
- tag: 2.11.1
+ tag: 2.11.2
flag templateHaskell
Description: Build Test.QuickCheck.All, which uses Template Haskell.
diff --git a/Test/QuickCheck/Test.hs b/Test/QuickCheck/Test.hs
index 26d7fb0..2972f0e 100644
--- a/Test/QuickCheck/Test.hs
+++ b/Test/QuickCheck/Test.hs
@@ -339,12 +339,12 @@ failureSummaryAndReason st res = (summary, full)
summary =
header ++
short 26 (oneLine reason ++ " ") ++
- count ++ "..."
+ count True ++ "..."
full =
(header ++
(if isOneLine reason then reason ++ " " else "") ++
- count ++ ":"):
+ count False ++ ":"):
if isOneLine reason then [] else lines reason
reason = P.reason res
@@ -354,12 +354,12 @@ failureSummaryAndReason st res = (summary, full)
bold "*** Failed! "
else "+++ OK, failed as expected. "
- count =
+ count full =
"(after " ++ number (numSuccessTests st+1) "test" ++
concat [
" and " ++
show (numSuccessShrinks st) ++
- concat [ "." ++ show (numTryShrinks st) | numTryShrinks st > 0 ] ++
+ concat [ "." ++ show (numTryShrinks st) | full, numTryShrinks st > 0 ] ++
" shrink" ++
(if numSuccessShrinks st == 1 && numTryShrinks st == 0 then "" else "s")
| numSuccessShrinks st > 0 || numTryShrinks st > 0 ] ++