test-framework 0.3.2 → 0.3.3

raw patch · 3 files changed

+4/−3 lines, 3 files

Files

• Test/Framework/Runners/Console/Run.hs +1/−1
• Test/Framework/Runners/Console/Utilities.hs +2/−1
• test-framework.cabal +1/−1

@@ -24,7 +24,7 @@   showRunTestsTop :: Bool -> [RunningTest] -> IO [FinishedTest]-showRunTestsTop isplain running_tests = hideCursorDuring $ do+showRunTestsTop isplain running_tests = (if isplain then id else hideCursorDuring) $ do     -- Show those test results to the user as we get them. Gather statistics on the fly for a progress bar     let test_statistics = initialTestStatistics (totalRunTestsList running_tests)     (test_statistics', finished_tests) <- showRunTests isplain 0 test_statistics running_tests

@@ -3,9 +3,10 @@     ) where  import System.Console.ANSI+import System.IO  import Control.Exception.Extensible   hideCursorDuring :: IO a -> IO a-hideCursorDuring action = bracket hideCursor (const showCursor) (const action)+hideCursorDuring action = bracket hideCursor (const (showCursor >> hFlush stdout)) (const action)

@@ -1,5 +1,5 @@ Name:                test-framework-Version:             0.3.2+Version:             0.3.3 Cabal-Version:       >= 1.2.3 Category:            Testing Synopsis:            Framework for running and organising tests, with HUnit and QuickCheck support