hspec-smallcheck 0.0.0 → 0.1.0

raw patch · 2 files changed

+9/−2 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• hspec-smallcheck.cabal +1/−1
• src/Test/Hspec/SmallCheck.hs +8/−1

@@ -1,5 +1,5 @@ name:             hspec-smallcheck-version:          0.0.0+version:          0.1.0 license:          MIT license-file:     LICENSE copyright:        (c) 2013 Simon Hengel

@@ -3,6 +3,7 @@ module Test.Hspec.SmallCheck (property) where  import           Control.Applicative+import           Data.IORef import           Test.Hspec.Core import           Test.SmallCheck import           Test.SmallCheck.Drivers@@ -11,4 +12,10 @@ property = test  instance Example (Property IO) where-  evaluateExample c p = maybe Success (Fail . ppFailure) <$> smallCheckM (paramsSmallCheckDepth c) p+  evaluateExample c p = do+    counter <- newIORef 0+    let hook _ = do+          modifyIORef counter succ+          n <- readIORef counter+          paramsReportProgress c (n, 0)+    maybe Success (Fail . ppFailure) <$> smallCheckWithHook (paramsSmallCheckDepth c) hook p