hspec-hedgehog 0.2.0.0 → 0.3.0.0
raw patch · 4 files changed
+14/−7 lines, 4 files
Files
- ChangeLog.md +7/−0
- hspec-hedgehog.cabal +1/−2
- src/Test/Hspec/Hedgehog.hs +5/−4
- test/Test/Hspec/HedgehogSpec.hs +1/−1
ChangeLog.md view
@@ -1,5 +1,12 @@ # Changelog for hspec-hedgehog +## 0.3.0.0++- [#45](https://github.com/hspec/hspec-hedgehog/pull/45) @ChickenProp+ - Set `propertyDiscardLimit` correctly.+- [#44](https://github.com/hspec/hspec-hedgehog/pull/44) @ChickenProp+ - Don't re-export `modifyMaxSize`, which is a no-op.+ ## 0.2.0.0 - [#29](https://github.com/parsonsmatt/hspec-hedgehog/pull/29) @sol - Show less context on failure.
hspec-hedgehog.cabal view
@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack name: hspec-hedgehog-version: 0.2.0.0+version: 0.3.0.0 description: Please see the README on GitHub at <https://github.com/hspec/hspec-hedgehog#readme> synopsis: Integrate Hedgehog and Hspec! category: Testing@@ -47,7 +47,6 @@ Test.Hspec.HedgehogSpec hs-source-dirs: test- ghc-options: -threaded -rtsopts -with-rtsopts=-N build-tool-depends: hspec-discover:hspec-discover build-depends:
src/Test/Hspec/Hedgehog.hs view
@@ -84,10 +84,12 @@ ( -- * The Main Function hedgehog -- * Hspec re-exports+ --+ -- | 'Test.Hspec.QuickCheck.modifyMaxSize' isn't re-exported, since+ -- hedgehog has nothing that corresponds to it. , modifyArgs , modifyMaxSuccess , modifyMaxDiscardRatio- , modifyMaxSize , modifyMaxShrinks -- * Hedgehog Re-exports , module Hedgehog@@ -114,8 +116,7 @@ import Test.Hspec import Test.Hspec.Core.Spec as Hspec import Test.Hspec.QuickCheck (modifyArgs, modifyMaxDiscardRatio,- modifyMaxShrinks, modifyMaxSize,- modifyMaxSuccess)+ modifyMaxShrinks, modifyMaxSuccess) import Test.QuickCheck.Random (QCGen (..)) import Test.QuickCheck.Test (Args (..)) @@ -184,7 +185,7 @@ NoConfidenceTermination (TestLimit _) -> NoConfidenceTermination (TestLimit maxTests) , propertyDiscardLimit =- DiscardLimit $ maxDiscardRatio qcArgs+ DiscardLimit $ maxDiscardRatio qcArgs * maxTests , propertyShrinkLimit = ShrinkLimit $ maxShrinks qcArgs }
test/Test/Hspec/HedgehogSpec.hs view
@@ -68,7 +68,7 @@ context "on Failure" $ do it "includes the number of discarded tests" $ do eval discard `shouldReturn` Result "" (Failure Nothing (Reason- "gave up after 10 discards, passed 0 tests.\n"+ "gave up after 1000 discards, passed 0 tests.\n" )) it "provides a detailed failure message" $ do