tasty-hedgehog 1.3.0.0 → 1.3.1.0
raw patch · 3 files changed
+18/−11 lines, 3 filesnew-uploader
Files
- changelog.md +4/−0
- src/Test/Tasty/Hedgehog.hs +11/−8
- tasty-hedgehog.cabal +3/−3
changelog.md view
@@ -1,5 +1,9 @@ # Revision history for tasty-hedgehog +## 1.3.1.0 -- 2022-10-03++* The instructions for reproducing test failures are now more clearly distinguished from `hedgehog`'s own instructions and include a pattern in the example to limit which tests are re-run. ([#62](https://github.com/qfpl/tasty-hedgehog/pull/62))+ ## 1.3.0.0 -- 2022-08-22 * The `testProperty` function has been undeprecated. Its behaviour differs from that in version `1.1.0.0` and below in that it now passes no `PropertyName` to Hedgehog. Therefore, Hedgehog will render the text `<property>` in its instructions for reproducing test failures, as opposed to whatever description is provided for `testProperty`.
src/Test/Tasty/Hedgehog.hs view
@@ -37,12 +37,12 @@ import Hedgehog.Internal.Report import Hedgehog.Internal.Seed as Seed -data HP = HP (Maybe PropertyName) Property+data HP = HP T.TestName (Maybe PropertyName) Property deriving (Typeable) -- | Create a 'T.TestTree' from a Hedgehog 'Property'. testProperty :: T.TestName -> Property -> T.TestTree-testProperty name prop = T.singleTest name (HP Nothing prop)+testProperty name prop = T.singleTest name (HP name Nothing prop) -- | `testPropertyNamed` @testName propertyName property@ creates a -- 'T.TestTree' from @property@ using @testName@ as the displayed@@ -61,7 +61,7 @@ -- @since 1.2.0.0 testPropertyNamed :: T.TestName -> PropertyName -> Property -> T.TestTree testPropertyNamed name propName prop =- T.singleTest name (HP (Just propName) prop)+ T.singleTest name (HP name (Just propName) prop) -- | Create a 'T.TestTree' from a Hedgehog 'Group'. fromGroup :: Group -> T.TestTree@@ -162,10 +162,11 @@ reportOutput :: Bool -> UseColor+ -> T.TestName -> Maybe PropertyName -> Report Result -> IO String-reportOutput showReplay useColor name report = do+reportOutput showReplay useColor testName name report = do s <- renderResult useColor name report pure $ case reportStatus report of Failed fr ->@@ -175,9 +176,11 @@ replayStr = if showReplay then- "\nUse '--hedgehog-replay \"" +++ "\nUse '--pattern \"$NF ~ /" +++ testName +++ "/\" --hedgehog-replay \"" ++ show size ++ " " ++ show seed ++- "\"' to reproduce."+ "\"' to reproduce from the command-line." else "" in s ++ replayStr ++ "\n"@@ -193,7 +196,7 @@ , Option (Proxy :: Proxy HedgehogShrinkRetries) ] - run opts (HP name (Property pConfig pTest)) yieldProgress = do+ run opts (HP testName name (Property pConfig pTest)) yieldProgress = do useColor <- detectColor let HedgehogReplay replay = lookupOption opts@@ -221,5 +224,5 @@ then T.testPassed else T.testFailed - out <- reportOutput showReplay useColor name report+ out <- reportOutput showReplay useColor testName name report return $ resultFn out
tasty-hedgehog.cabal view
@@ -1,5 +1,5 @@ name: tasty-hedgehog-version: 1.3.0.0+version: 1.3.1.0 license: BSD3 license-file: LICENCE author: Dave Laing@@ -24,7 +24,7 @@ build-depends: base >= 4.8 && <4.18 , tagged >= 0.8 && < 0.9 , tasty >= 0.11 && < 1.5- , hedgehog >= 1.0.2 && < 1.1.2+ , hedgehog >= 1.0.2 && < 1.1.3 hs-source-dirs: src ghc-options: -Wall default-language: Haskell2010@@ -36,7 +36,7 @@ build-depends: base >= 4.8 && <4.18 , tasty >= 0.11 && < 1.5 , tasty-expected-failure >= 0.11 && < 0.13- , hedgehog >= 1.0.2 && < 1.1.2+ , hedgehog >= 1.0.2 && < 1.1.3 , tasty-hedgehog ghc-options: -Wall default-language: Haskell2010