[Pkg-haskell-commits] [SCM] haskell-testpack branch, master, updated. debian/1.0.2-1-38-gf16a0a9
John Goerzen
jgoerzen at complete.org
Fri Apr 23 23:38:23 UTC 2010
The following commit has been merged in the master branch:
commit 3c544a371a476ba20ca236858a2c3b0e287bcd8c
Author: John Goerzen <jgoerzen at complete.org>
Date: Fri Apr 23 18:22:53 2010 -0500
More display tweak
diff --git a/src/Test/HUnit/Tools.hs b/src/Test/HUnit/Tools.hs
index 98e5440..ca72e47 100644
--- a/src/Test/HUnit/Tools.hs
+++ b/src/Test/HUnit/Tools.hs
@@ -191,8 +191,7 @@ localquickCheckWithResult args p =
doneTesting :: State -> (StdGen -> Int -> Prop) -> IO Result
doneTesting st f =
- do success st
- if expectedFailure st then
+ do if expectedFailure st then
return Success{ labels = summary st }
else
return NoExpectedFailure{ labels = summary st }
@@ -200,7 +199,6 @@ localquickCheckWithResult args p =
giveUp :: State -> (StdGen -> Int -> Prop) -> IO Result
giveUp st f =
do
- success st
return GaveUp{ numTests = numSuccessTests st
, labels = summary st
}
--
haskell-testpack
More information about the Pkg-haskell-commits
mailing list