diff options
Diffstat (limited to 'tests/Hakyll/Core/Compiler/Tests.hs')
-rw-r--r-- | tests/Hakyll/Core/Compiler/Tests.hs | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/tests/Hakyll/Core/Compiler/Tests.hs b/tests/Hakyll/Core/Compiler/Tests.hs deleted file mode 100644 index 7ea3e6f..0000000 --- a/tests/Hakyll/Core/Compiler/Tests.hs +++ /dev/null @@ -1,36 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -module Hakyll.Core.Compiler.Tests - ( tests - ) where - -import qualified Data.Map as M - -import Test.Framework (Test) -import Test.Framework.Providers.HUnit (testCase) -import qualified Test.HUnit as H - -import Hakyll.Core.Compiler -import Hakyll.Core.Resource.Provider.Dummy -import Hakyll.Core.Util.Arrow -import TestSuite.Util - -tests :: [Test] -tests = - [ testCase "byExtension" byExtensionTest - ] - -byExtensionTest :: H.Assertion -byExtensionTest = do - provider <- dummyResourceProvider $ M.empty - txt <- runCompilerJobTest compiler "foo.txt" provider uni - css <- runCompilerJobTest compiler "bar.css" provider uni - html <- runCompilerJobTest compiler "qux.html" provider uni - H.assertEqual "byExtension" "txt" txt - H.assertEqual "byExtension" "css" css - H.assertEqual "byExtension" "unknown" html - where - uni = ["foo.txt", "bar.css", "qux.html"] - compiler = byExtension (constA ("unknown" :: String)) - [ (".txt", constA "txt") - , (".css", constA "css") - ] |