From 2db34f050aa250c4c11a35cb201cc1c7a28d083d Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Mon, 17 Oct 2016 11:05:25 +0200 Subject: Move from test-framework to tasty --- tests/TestSuite/Util.hs | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) (limited to 'tests/TestSuite') diff --git a/tests/TestSuite/Util.hs b/tests/TestSuite/Util.hs index e727ecb..35ee112 100644 --- a/tests/TestSuite/Util.hs +++ b/tests/TestSuite/Util.hs @@ -12,30 +12,29 @@ module TestSuite.Util -------------------------------------------------------------------------------- -import Data.List (intercalate) -import Data.Monoid (mempty) -import qualified Data.Set as S -import Test.Framework -import Test.Framework.Providers.HUnit -import Test.HUnit hiding (Test) -import Text.Printf (printf) +import Data.List (intercalate) +import Data.Monoid (mempty) +import qualified Data.Set as S +import Test.Tasty +import Test.Tasty.HUnit +import Text.Printf (printf) -------------------------------------------------------------------------------- import Hakyll.Core.Compiler.Internal import Hakyll.Core.Configuration import Hakyll.Core.Identifier -import qualified Hakyll.Core.Logger as Logger +import qualified Hakyll.Core.Logger as Logger import Hakyll.Core.Provider -import Hakyll.Core.Store (Store) -import qualified Hakyll.Core.Store as Store +import Hakyll.Core.Store (Store) +import qualified Hakyll.Core.Store as Store import Hakyll.Core.Util.File -------------------------------------------------------------------------------- fromAssertions :: String -- ^ Name -> [Assertion] -- ^ Cases - -> [Test] -- ^ Result tests + -> [TestTree] -- ^ Result tests fromAssertions name = zipWith testCase [printf "[%2d] %s" n name | n <- [1 :: Int ..]] -- cgit v1.2.3