tasty-hunit 0.10.1 → 0.10.2

raw patch · 4 files changed

+15/−7 lines, 4 files

Files

• CHANGELOG.md +6/−0
• Test/Tasty/HUnit/Orig.hs +2/−2
• Test/Tasty/HUnit/Steps.hs +6/−1
• tasty-hunit.cabal +1/−4

@@ -1,6 +1,12 @@ Changes ======= +Version 0.10.2+--------------++* Teach `testCaseSteps` to log progress+  ([#387](https://github.com/UnkindPartition/tasty/pull/387)).+ Version 0.10.1 --------------- 

@@ -76,7 +76,7 @@ infix  1 @?, @=?, @?=  -- | Asserts that the specified actual value is equal to the expected value---   (with the expected value on the left-hand side).+--   (with the /expected/ value on the left-hand side). (@=?)   :: (Eq a, Show a, HasCallStack)   => a -- ^ The expected value@@ -85,7 +85,7 @@ expected @=? actual = assertEqual "" expected actual  -- | Asserts that the specified actual value is equal to the expected value---   (with the actual value on the left-hand side).+--   (with the /actual/ value on the left-hand side). (@?=)   :: (Eq a, Show a, HasCallStack)   => a -- ^ The actual value

@@ -16,13 +16,18 @@   deriving Typeable  instance IsTest TestCaseSteps where-  run _ (TestCaseSteps assertionFn) _ = do+  run _ (TestCaseSteps assertionFn) yieldProgress = do     ref <- newIORef []      let       stepFn :: String -> IO ()       stepFn msg = do         tme <- getTime+        -- The number of steps is not fixed, so we can't +        -- provide the progress percentage.+        -- We also don't provide the timings here, only+        -- at the end.+        yieldProgress (Progress msg 0)         atomicModifyIORef ref (\l -> ((tme,msg):l, ()))      hunitResult <- (Right <$> assertionFn stepFn) `catch`

@@ -1,8 +1,5 @@--- Initial tasty-hunit.cabal generated by cabal init.  For further --- documentation, see http://haskell.org/cabal/users-guide/- name:                tasty-hunit-version:             0.10.1+version:             0.10.2 synopsis:            HUnit support for the Tasty test framework. description:         HUnit support for the Tasty test framework.                      .