[tests] introduce a new checker for hunit based on the property checker

2015-07-19 17:53:07 +01:00 · 2015-07-19 17:53:07 +01:00 · 58c6efe4c4
commit 58c6efe4c4
parent 6e5ad0c640
1 changed files with 4 additions and 0 deletions
--- a/tests/Utils.hs
+++ b/tests/Utils.hs
@ -14,6 +14,7 @@ import Crypto.Number.Serialize (os2ip)
 import Prelude

 import Test.Tasty.QuickCheck
+import Test.Tasty.HUnit ((@=?))

 newtype TestDRG = TestDRG (Word64, Word64, Word64, Word64, Word64)
    deriving (Show,Eq)
@ -142,3 +143,6 @@ propertyHold l =
        | a == b    = acc
        | otherwise =
            (name ++ ": expected " ++ show a ++ " but got: " ++ show b) : acc
+
+propertyHoldCase :: [PropertyTest] -> IO ()
+propertyHoldCase l = True @=? propertyHold l