[Pkg-haskell-commits] [SCM] haskell-testpack branch, master, updated. debian/1.0.2-1-4-gb0d6b36

[John Goerzen]

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