[Pkg-haskell-commits] [SCM] haskell-testpack branch, master, updated. debian/1.0.2-1-4-gb0d6b36
John Goerzen
jgoerzen at complete.org
Fri Apr 23 15:24:05 UTC 2010
The following commit has been merged in the master branch:
commit 74579c88aae9bf3f6ec160655feca3718804d755
Author: John Goerzen <jgoerzen at complete.org>
Date: Fri Jan 23 10:50:56 2009 -0600
More utils
diff --git a/src/Test/HUnit/Utils.hs b/src/Test/HUnit/Utils.hs
index 5f72ba9..178a4e4 100644
--- a/src/Test/HUnit/Utils.hs
+++ b/src/Test/HUnit/Utils.hs
@@ -19,7 +19,7 @@ Written by John Goerzen, jgoerzen\@complete.org
module Test.HUnit.Utils (assertRaises, mapassertEqual,
runVerbTestText, qccheck, qctest,
- qc2hu, qc2huVerbose)
+ qc2hu, qc2huVerbose, runVerboseTests)
where
import Test.HUnit
import Test.QuickCheck as QC
@@ -119,3 +119,8 @@ qc2huVerbose :: QC.Testable a => Int -> String -> a -> HU.Test
qc2huVerbose maxTest =
qccheck (defaultConfig {configMaxTest = 250, configMaxFail = 20000,
configEvery = \n args -> show n ++ ":\n" ++ unlines args})
+
+{- | Run verbose tests. -}
+runVerboseTests :: HU.Test -> IO (HU.Counts, Int)
+runVerboseTests tests =
+ runVerbTestText (HU.putTextToHandle stderr True) $ tests
--
haskell-testpack
More information about the Pkg-haskell-commits
mailing list