diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-11-20 11:50:22 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2012-11-20 11:50:22 +0100 |
| commit | b5adcb69d1cd26e613c5c56c85307050bb8297cf (patch) | |
| tree | bb9485213f2c2fa022c2a363de26ad0561f1d8c9 /tests/TestSuite | |
| parent | bfa10560f87b1843f9302a70f6c9333fc2731e88 (diff) | |
| download | hakyll-b5adcb69d1cd26e613c5c56c85307050bb8297cf.tar.gz | |
Update more tests
Diffstat (limited to 'tests/TestSuite')
| -rw-r--r-- | tests/TestSuite/Util.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/TestSuite/Util.hs b/tests/TestSuite/Util.hs index 9403ce5..5d62ffc 100644 --- a/tests/TestSuite/Util.hs +++ b/tests/TestSuite/Util.hs @@ -17,6 +17,7 @@ import System.Directory (removeDirectoryRecursive) import Test.Framework import Test.Framework.Providers.HUnit import Test.HUnit hiding (Test) +import Text.Printf (printf) -------------------------------------------------------------------------------- @@ -32,9 +33,8 @@ import qualified Hakyll.Core.Store as Store fromAssertions :: String -- ^ Name -> [Assertion] -- ^ Cases -> [Test] -- ^ Result tests -fromAssertions name = zipWith testCase names - where - names = map (\n -> name ++ " [" ++ show n ++ "]") [1 :: Int ..] +fromAssertions name = + zipWith testCase [printf "%s [%3d]" name n | n <- [1 :: Int ..]] -------------------------------------------------------------------------------- |