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/Hakyll/Core/Compiler | |
parent | bfa10560f87b1843f9302a70f6c9333fc2731e88 (diff) | |
download | hakyll-b5adcb69d1cd26e613c5c56c85307050bb8297cf.tar.gz |
Update more tests
Diffstat (limited to 'tests/Hakyll/Core/Compiler')
-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") - ] |