Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-tasty-hedgehog for openSUSE:Factory checked in at 2023-01-18 13:10:46 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-tasty-hedgehog (Old) and /work/SRC/openSUSE:Factory/.ghc-tasty-hedgehog.new.32243 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-tasty-hedgehog" Wed Jan 18 13:10:46 2023 rev:5 rq:1059118 version:1.4.0.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-tasty-hedgehog/ghc-tasty-hedgehog.changes 2022-10-13 15:44:48.707050257 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-tasty-hedgehog.new.32243/ghc-tasty-hedgehog.changes 2023-01-18 13:11:11.744938315 +0100 @@ -1,0 +2,8 @@ +Mon Oct 24 17:53:50 UTC 2022 - Peter Simons <[email protected]> + +- Update tasty-hedgehog to version 1.4.0.0. + ## 1.4.0.0 -- 2022-10-12 + + * Support `hedgehog-1.2`. This is a breaking change due to `hedgehog`'s [new mechanism for skipping to a particular test and shrink result](https://github.com/hedgehogqa/haskell-hedgehog/pull/454). The `--hedgehog-replay` option now expects a `Skip` value and a `Seed`, for example: `stack test --test-arguments='--pattern "$NF ~ /badReverse involutive fails/" --hedgehog-replay "3:b2 Seed 10332913068362713902 1302058653756691475"'` ([#63](https://github.com/qfpl/tasty-hedgehog/pull/63)) + +------------------------------------------------------------------- Old: ---- tasty-hedgehog-1.3.1.0.tar.gz New: ---- tasty-hedgehog-1.4.0.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-tasty-hedgehog.spec ++++++ --- /var/tmp/diff_new_pack.Awjl0f/_old 2023-01-18 13:11:12.276940376 +0100 +++ /var/tmp/diff_new_pack.Awjl0f/_new 2023-01-18 13:11:12.284940407 +0100 @@ -19,7 +19,7 @@ %global pkg_name tasty-hedgehog %bcond_with tests Name: ghc-%{pkg_name} -Version: 1.3.1.0 +Version: 1.4.0.0 Release: 0 Summary: Integration for tasty and hedgehog License: BSD-3-Clause ++++++ tasty-hedgehog-1.3.1.0.tar.gz -> tasty-hedgehog-1.4.0.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/tasty-hedgehog-1.3.1.0/changelog.md new/tasty-hedgehog-1.4.0.0/changelog.md --- old/tasty-hedgehog-1.3.1.0/changelog.md 2001-09-09 03:46:40.000000000 +0200 +++ new/tasty-hedgehog-1.4.0.0/changelog.md 2022-10-12 21:35:44.000000000 +0200 @@ -1,5 +1,9 @@ # Revision history for tasty-hedgehog +## 1.4.0.0 -- 2022-10-12 + +* Support `hedgehog-1.2`. This is a breaking change due to `hedgehog`'s [new mechanism for skipping to a particular test and shrink result](https://github.com/hedgehogqa/haskell-hedgehog/pull/454). The `--hedgehog-replay` option now expects a `Skip` value and a `Seed`, for example: `stack test --test-arguments='--pattern "$NF ~ /badReverse involutive fails/" --hedgehog-replay "3:b2 Seed 10332913068362713902 1302058653756691475"'` ([#63](https://github.com/qfpl/tasty-hedgehog/pull/63)) + ## 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)) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/tasty-hedgehog-1.3.1.0/src/Test/Tasty/Hedgehog.hs new/tasty-hedgehog-1.4.0.0/src/Test/Tasty/Hedgehog.hs --- old/tasty-hedgehog-1.3.1.0/src/Test/Tasty/Hedgehog.hs 2001-09-09 03:46:40.000000000 +0200 +++ new/tasty-hedgehog-1.4.0.0/src/Test/Tasty/Hedgehog.hs 2022-10-12 21:23:29.000000000 +0200 @@ -73,15 +73,15 @@ mkTestTree (propName, prop) = testProperty (unPropertyName propName) prop -- | The replay token to use for replaying a previous test run -newtype HedgehogReplay = HedgehogReplay (Maybe (Size, Seed)) +newtype HedgehogReplay = HedgehogReplay (Maybe (Skip, Seed)) deriving (Typeable) instance IsOption HedgehogReplay where defaultValue = HedgehogReplay Nothing parseValue v = HedgehogReplay . Just <$> replay - -- Reads a replay token in the form "{size} {seed}" - where replay = (,) <$> safeRead (unwords size) <*> safeRead (unwords seed) - (size, seed) = splitAt 2 $ words v + -- Reads a replay token in the form "{skip} {seed}" + where replay = (,) <$> skipDecompress (unwords skip) <*> safeRead (unwords seed) + (skip, seed) = splitAt 1 $ words v optionName = return "hedgehog-replay" optionHelp = return "Replay token to use for replaying a previous test run" @@ -147,7 +147,10 @@ reportToProgress :: PropertyConfig -> Report Progress -> T.Progress -reportToProgress config (Report testsDone _ _ status) = +reportToProgress config Report{ + reportTests = testsDone, + reportStatus = status + } = let TestLimit testLimit = propertyTestLimit config ShrinkLimit shrinkLimit = propertyShrinkLimit config @@ -171,15 +174,17 @@ pure $ case reportStatus report of Failed fr -> let - size = failureSize fr - seed = failureSeed fr + count = reportTests report + seed = reportSeed report replayStr = if showReplay then "\nUse '--pattern \"$NF ~ /" ++ testName ++ "/\" --hedgehog-replay \"" ++ - show size ++ " " ++ show seed ++ + skipCompress (SkipToShrink count $ failureShrinkPath fr) ++ + " " ++ + show seed ++ "\"' to reproduce from the command-line." else "" in @@ -211,13 +216,12 @@ (fromMaybe (propertyShrinkLimit pConfig) mShrinks) (fromMaybe (propertyShrinkRetries pConfig) mRetries) (NoConfidenceTermination $ fromMaybe (propertyTestLimit pConfig) mTests) + (maybe Nothing (Just . fst) replay) randSeed <- Seed.random - let - size = maybe 0 fst replay - seed = maybe randSeed snd replay + let seed = maybe randSeed snd replay - report <- checkReport config size seed pTest (yieldProgress . reportToProgress config) + report <- checkReport config 0 seed pTest (yieldProgress . reportToProgress config) let resultFn = if reportStatus report == OK diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/tasty-hedgehog-1.3.1.0/tasty-hedgehog.cabal new/tasty-hedgehog-1.4.0.0/tasty-hedgehog.cabal --- old/tasty-hedgehog-1.3.1.0/tasty-hedgehog.cabal 2001-09-09 03:46:40.000000000 +0200 +++ new/tasty-hedgehog-1.4.0.0/tasty-hedgehog.cabal 2022-10-12 21:23:24.000000000 +0200 @@ -1,5 +1,5 @@ name: tasty-hedgehog -version: 1.3.1.0 +version: 1.4.0.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.3 + , hedgehog >= 1.2 && < 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.3 + , hedgehog >= 1.2 && < 1.3 , tasty-hedgehog ghc-options: -Wall default-language: Haskell2010
