registry-hedgehog 0.8.1.0 → 0.8.2.0

raw patch · 3 files changed

+7/−7 lines, 3 files

Files

• registry-hedgehog.cabal +3/−3
• src/Test/Tasty/HedgehogTest.hs +1/−1
• test/Test/Tutorial/Exercise3.hs +3/−3

@@ -1,13 +1,13 @@ cabal-version: 1.12 --- This file has been generated from package.yaml by hpack version 0.35.2.+-- This file has been generated from package.yaml by hpack version 0.36.0. -- -- see: https://github.com/sol/hpack ----- hash: 80cae4739a1678674cf425712cca0e20389f2795aa8f41542aa2bc529212cc2e+-- hash: 8f91154bd5dc81b34d27c5e31a8ec2b694b29bcb0c68cc3e3844cd8494f6b8f3  name:           registry-hedgehog-version:        0.8.1.0+version:        0.8.2.0 synopsis:       utilities to work with Hedgehog generators and `registry` description:    This library provides some functions to extract generators from a "Registry" and make stateful modifications of that Registry to precisely control the generation of data category:       Control

@@ -121,7 +121,7 @@   pure $ case reportStatus report of     Failed _ ->       let seed = reportSeed report-          skip = SkipToTest (reportTests report)+          skip = SkipToTest (reportTests report) (reportDiscards report)           replayStr =             if showReplay               then

@@ -20,9 +20,9 @@   $(makeGenerators ''EmployeeStatus)     <: registry -forall :: forall a. (Typeable a, Show a) => PropertyT IO a-forall = withFrozenCallStack $ forAll $ genWith @a registry3+for_all :: forall a. (Typeable a, Show a) => PropertyT IO a+for_all = withFrozenCallStack $ forAll $ genWith @a registry3  test_employee_status = prop "make an employee status" $ do-  status <- forall @EmployeeStatus+  status <- for_all @EmployeeStatus   collect status