[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 1eb86ff023a6486d4f54fc269f31c4ac03a1c6e7
Author: John Goerzen <jgoerzen at complete.org>
Date:   Wed Oct 11 22:14:29 2006 +0100

    Added ProgressTrackertest, copied from Listtest

diff --git a/testsrc/Listtest.hs b/testsrc/ProgressTrackertest.hs
similarity index 93%
copy from testsrc/Listtest.hs
copy to testsrc/ProgressTrackertest.hs
index 322ee6c..e5d52fa 100644
--- a/testsrc/Listtest.hs
+++ b/testsrc/ProgressTrackertest.hs
@@ -1,5 +1,5 @@
-{- arch-tag: List tests main file
-Copyright (C) 2004-2005 John Goerzen <jgoerzen at complete.org>
+{- 
+Copyright (C) 2006 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,24 +16,9 @@ along with this program; if not, write to the Free Software
 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 -}
 
-module Listtest(tests) where
+module ProgressTrackertest(tests) where
+import MissingH.ProgressTracker
 import Test.HUnit
-import MissingH.List
-
-import System.Random hiding (split)
-import Data.List
-import Test.QuickCheck as QC
-
-qunit :: (QC.Testable a) => String -> a -> Test
-qunit lbl property =
-    TestLabel lbl $ TestCase $
-              do stdGen <- newStdGen
-                 case generate 100 stdGen (evaluate property) of
-                   (Result (Just True) _ _ ) -> return ()
-                   (Result res stamp args) -> assertFailure $ show (res, stamp, args)
-
-
-
 
 test_delFromAL = 
     let f :: [(String, Int)] -> [(String, Int)] -> Test
diff --git a/testsrc/Tests.hs b/testsrc/Tests.hs
index 872516c..71faa4a 100644
--- a/testsrc/Tests.hs
+++ b/testsrc/Tests.hs
@@ -41,6 +41,7 @@ import qualified Timetest
 import qualified Str.CSVtest
 import qualified WildMatchtest
 import qualified Globtest
+import qualified ProgressTrackertest
 
 test1 = TestCase ("x" @=? "x")
 
@@ -51,6 +52,7 @@ tests = TestList [TestLabel "test1" test1,
                  TestLabel "Time" Timetest.tests,
                  TestLabel "FiniteMap" FiniteMaptest.tests,
                  TestLabel "Map" Maptest.tests,
+                 TestLabel "ProgressTracker" ProgressTrackertest.tests,
                  TestLabel "AnyDBM" AnyDBMtest.tests,
                  TestLabel "Path" Pathtest.tests,
                  TestLabel "WildMatch" WildMatchtest.tests,

-- 
haskell-testpack