diff options
author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-02-09 18:11:24 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-02-09 18:11:24 +0100 |
commit | 002cf4de32db979d515c2a9cdcd8c8f42859a797 (patch) | |
tree | 6992a3f05e693116ae6802ef48448a5a03aded1e /tests/TestSuite | |
parent | 7da7e0b96c245a14122896c24dcee52f038e583a (diff) | |
download | hakyll-002cf4de32db979d515c2a9cdcd8c8f42859a797.tar.gz |
Add hamlet templates and restructure tests
Diffstat (limited to 'tests/TestSuite')
-rw-r--r-- | tests/TestSuite/Util.hs | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/tests/TestSuite/Util.hs b/tests/TestSuite/Util.hs new file mode 100644 index 0000000..66f101e --- /dev/null +++ b/tests/TestSuite/Util.hs @@ -0,0 +1,18 @@ +-- | Test utilities +-- +module TestSuite.Util + ( fromAssertions + ) where + +import Test.Framework +import Test.Framework.Providers.HUnit +import Test.HUnit hiding (Test) + +import Hakyll.Core.Identifier.Pattern + +fromAssertions :: String -- ^ Name + -> [Assertion] -- ^ Cases + -> [Test] -- ^ Result tests +fromAssertions name = zipWith testCase names + where + names = map (\n -> name ++ " [" ++ show n ++ "]") [1 :: Int ..] |