From b5adcb69d1cd26e613c5c56c85307050bb8297cf Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Tue, 20 Nov 2012 11:50:22 +0100 Subject: Update more tests --- tests/TestSuite/Util.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'tests/TestSuite') 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 ..]] -------------------------------------------------------------------------------- -- cgit v1.2.3