[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 e2fb05bd0e7f321a96146d6c8157c953aaba80dd
Author: John Goerzen <jgoerzen at complete.org>
Date:   Sat Dec 10 00:01:28 2005 +0100

    Moved HUnit utils into main tree

diff --git a/testsrc/Testutil.hs b/MissingH/HUnit.hs
similarity index 75%
rename from testsrc/Testutil.hs
rename to MissingH/HUnit.hs
index 99b8d24..937a65e 100644
--- a/testsrc/Testutil.hs
+++ b/MissingH/HUnit.hs
@@ -1,5 +1,5 @@
 {- arch-tag: Test utilities
-Copyright (C) 2004 John Goerzen <jgoerzen at complete.org>
+Copyright (C) 2004 - 2005 John Goerzen <jgoerzen at complete.org>
 
 This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
@@ -16,10 +16,28 @@ along with this program; if not, write to the Free Software
 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 -}
 
-module Testutil(assertRaises, mapassertEqual) where
+{- |
+   Module     : MissingH.HUnit
+   Copyright  : Copyright (C) 2004-2005 John Goerzen
+   License    : GNU GPL, version 2 or above
+
+   Maintainer : John Goerzen <jgoerzen at complete.org>
+   Stability  : provisional
+   Portability: portable
+
+Utilities for HUnit unit testing.
+
+Written by John Goerzen, jgoerzen\@complete.org
+-}
+
+
+
+module MissingH.HUnit(assertRaises, mapassertEqual) where
 import Test.HUnit
 import qualified Control.Exception
 
+{- | Asserts that a specific exception is raised by a given action. -}
+
 assertRaises :: Show a => String -> Control.Exception.Exception -> IO a -> IO ()
 assertRaises msg selector action =
     let thetest e = if e == selector then return ()

-- 
haskell-testpack