test-framework is fixed again, so we use it again.

1 files changed, 14 insertions, 1 deletions

diff --git a/tests/Util.hs b/tests/Util.hs
index 9e2a0dd..087edbd 100644
--- a/tests/Util.hs
+++ b/tests/Util.hs
@@ -1,11 +1,24 @@
-module Util where
+module Util 
+    ( utilGroup
+    ) where
 
 import Data.Char
 
 import Test.QuickCheck
+import Test.Framework (testGroup)
+import Test.Framework.Providers.HUnit
+import Test.Framework.Providers.QuickCheck2
 
 import Text.Hakyll.Util
 
+-- Util test group.
+utilGroup = testGroup "Util"
+    [ testProperty "prop_trim_length" prop_trim_length
+    , testProperty "prop_trim_id" prop_trim_id
+    , testProperty "prop_stripHTML_length" prop_stripHTML_length
+    , testProperty "prop_stripHTML_id" prop_stripHTML_id
+    ]
+
 -- Test that a string always becomes shorter when trimmed.
 prop_trim_length str = length str >= length (trim str)