hspec 1.5.2 → 1.5.3

raw patch · 3 files changed

+14/−16 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• hspec.cabal +1/−3
• src/Test/Hspec/Formatters.hs +1/−0
• test/Test/Hspec/RunnerSpec.hs +12/−13

@@ -1,5 +1,5 @@ name:             hspec-version:          1.5.2+version:          1.5.3 license:          BSD3 license-file:     LICENSE copyright:        (c) 2011-2013 Simon Hengel, (c) 2011-2012 Trystan Spangler, (c) 2011 Greg Weber@@ -179,7 +179,6 @@     , hspec-meta  test-suite hspec-discover-example-  buildable: False   type:       exitcode-stdio-1.0   ghc-options:@@ -194,7 +193,6 @@     , QuickCheck  test-suite hspec-discover-integration-test-empty-  buildable: False   type:       exitcode-stdio-1.0   ghc-options:

@@ -164,6 +164,7 @@   forM_ (zip [1..] failures) $ \x -> do     formatFailure x     writeLine ""+  unless (null failures) $ do     write "Randomized with seed " >> usedSeed >>= writeLine . show     writeLine ""   where

@@ -216,26 +216,25 @@       it "uses specified seed" $ do         r <- captureLines . ignoreExitCode . withArgs ["--seed", "2413421499272008081"] . H.hspec $ do             H.it "foo" $-              property $ \n -> ((17 + 31 * n) `mod` 50) /= (23 :: Int)+              property (/= (26 :: Integer))         r `shouldContain` [-            "Falsifiable (after 55 tests): "-          , "1190445426"+            "Falsifiable (after 66 tests): "+          , "26"           ]        context "when run with --re-run" $ do         it "takes precedence" $ do           let runSpec args = capture_ . ignoreExitCode . withArgs args . H.hspec $ do                 H.it "foo" $-                  property $ \n -> ((17 + 31 * n) `mod` 50) /= (23 :: Int)-+                  property $ \n -> ((17 + 31 * n) `mod` 50) /= (23 :: Integer)           r0 <- runSpec ["--seed", "23"]-          r0 `shouldContain` "(after 13 tests)"+          r0 `shouldContain` "(after 88 tests)"            r1 <- runSpec ["--seed", "42"]-          r1 `shouldContain` "(after 18 tests)"+          r1 `shouldContain` "(after 48 tests)"            r2 <- runSpec ["--re-run", "--seed", "23"]-          r2 `shouldContain` "(after 13 tests)"+          r2 `shouldContain` "(after 88 tests)"        context "when given an invalid argument" $ do         let run = withArgs ["--seed", "foo"] . H.hspec $ do@@ -301,18 +300,18 @@        it "reuses the same seed" $ do         let runSpec_ = (captureLines . ignoreExitCode . H.hspec) $ do-              H.it "foo" $ property $ \n -> ((17 + 31 * n) `mod` 50) /= (23 :: Int)+              H.it "foo" $ property $ (/= (26 :: Integer))          r0 <- withArgs ["--seed", "2413421499272008081"] runSpec_         r0 `shouldContain` [-            "Falsifiable (after 55 tests): "-          , "1190445426"+            "Falsifiable (after 66 tests): "+          , "26"           ]          r1 <- withArgs ["-r"] runSpec_         r1 `shouldContain` [-            "Falsifiable (after 55 tests): "-          , "1190445426"+            "Falsifiable (after 66 tests): "+          , "26"           ]        context "when there is no failure report in the environment" $ do