hspec-core 2.4.6 → 2.4.7
raw patch · 3 files changed
+11/−3 lines, 3 filesdep ~QuickCheckPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: QuickCheck
API changes (from Hackage documentation)
Files
hspec-core.cabal view
@@ -2,10 +2,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: cb01400aef82f796965a0ed9071df2f9e3514250f9257e585fe8645646d709bc+-- hash: 5f2f775ba57cc471e22084afddafbeffb0a467d1863b8df967e9a4ae08874d1b name: hspec-core-version: 2.4.6+version: 2.4.7 license: MIT license-file: LICENSE copyright: (c) 2011-2017 Simon Hengel,
src/Test/Hspec/Core/Example.hs view
@@ -189,7 +189,11 @@ Just _ -> (addFalsifiable . stripFailed) m Nothing -> let numbers = formatNumbers r in "uncaught exception: " ++ formatException e ++ " " ++ numbers ++ "\n" ++ case lines m of+#if MIN_VERSION_QuickCheck(2,11,0)+ x:xs | x == (exceptionPrefix ++ show e ++ "' " ++ numbers ++ ":") -> unlines xs+#else x:xs | x == (exceptionPrefix ++ show e ++ "' " ++ numbers ++ ": ") -> unlines xs+#endif _ -> m Nothing -> #endif
test/Test/Hspec/Core/ExampleSpec.hs view
@@ -124,7 +124,11 @@ it "shows what falsified it" $ do H.Failure _ r <- evaluateExample $ property $ \ (x :: Int) (y :: Int) -> (x == 0 && y == 1) ==> False r `shouldBe` (H.Reason . intercalate "\n") [+#if MIN_VERSION_QuickCheck(2,11,0)+ "Falsifiable (after 1 test):"+#else "Falsifiable (after 1 test): "+#endif , "0" , "1" ]@@ -154,7 +158,7 @@ context "when used with shouldBe" $ do it "shows what falsified it" $ do H.Failure _ (H.Reason r) <- evaluateExample $ property $ \ (x :: Int) (y :: Int) -> (x == 0 && y == 1) ==> 23 `shouldBe` (42 :: Int)- r `shouldStartWith` "Falsifiable (after 1 test): \n"+ r `shouldStartWith` "Falsifiable (after 1 test):" r `shouldEndWith` intercalate "\n" [ "expected: 42" , " but got: 23"