[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 2025392dbd9dcd23bb834c8eb1932d7cb61a2b0f
Author: John Goerzen <jgoerzen at complete.org>
Date:   Fri Jan 23 10:52:22 2009 -0600

    More work

diff --git a/src/Test/HUnit/Utils.hs b/src/Test/HUnit/Utils.hs
index 178a4e4..7c678eb 100644
--- a/src/Test/HUnit/Utils.hs
+++ b/src/Test/HUnit/Utils.hs
@@ -18,8 +18,8 @@ Written by John Goerzen, jgoerzen\@complete.org
 -}
 
 module Test.HUnit.Utils (assertRaises, mapassertEqual, 
-                         runVerbTestText, qccheck, qctest,
-                         qc2hu, qc2huVerbose, runVerboseTests)
+                         runVerbTestText, runVerboseTests, qccheck, qctest,
+                         qc2hu, qc2huVerbose, tl)
     where
 import Test.HUnit
 import Test.QuickCheck as QC
@@ -124,3 +124,7 @@ qc2huVerbose maxTest =
 runVerboseTests :: HU.Test -> IO (HU.Counts, Int)
 runVerboseTests tests =
     runVerbTestText (HU.putTextToHandle stderr True) $ tests
+
+{- | Label the tests list. -}
+tl :: String -> [Test] -> Test
+tl msg t = HU.TestLabel msg $ HU.TestList t

-- 
haskell-testpack