summaryrefslogtreecommitdiff
path: root/tests/Hakyll
diff options
context:
space:
mode:
authorJasper Van der Jeugt <m@jaspervdj.be>2014-03-26 11:28:55 +0100
committerJasper Van der Jeugt <m@jaspervdj.be>2014-03-26 12:05:38 +0100
commite5446fd4017949e1735251abed8644d90983eb3a (patch)
treec6db81e368a92881e2336eae003afdf8c48068e5 /tests/Hakyll
parent3db3933b0b98dad6757558a4caf64d67d27963f4 (diff)
downloadhakyll-e5446fd4017949e1735251abed8644d90983eb3a.tar.gz
Revert "Added test case for global metadata"
This reverts commit 46b6f78da8ed814bef6972f4712d8b13e76c1122. Conflicts: tests/data/posts/metadata
Diffstat (limited to 'tests/Hakyll')
-rw-r--r--tests/Hakyll/Core/Provider/GlobalMetadata/Tests.hs31
1 files changed, 0 insertions, 31 deletions
diff --git a/tests/Hakyll/Core/Provider/GlobalMetadata/Tests.hs b/tests/Hakyll/Core/Provider/GlobalMetadata/Tests.hs
deleted file mode 100644
index 289e2ac..0000000
--- a/tests/Hakyll/Core/Provider/GlobalMetadata/Tests.hs
+++ /dev/null
@@ -1,31 +0,0 @@
---------------------------------------------------------------------------------
-{-# LANGUAGE OverloadedStrings #-}
-module Hakyll.Core.Provider.GlobalMetadata.Tests
- ( tests
- ) where
-
---------------------------------------------------------------------------------
-import qualified Data.Map as M
-import Control.Monad (forM_)
-import Test.Framework (Test, testGroup)
-import Test.HUnit (Assertion, (@=?))
-
-
---------------------------------------------------------------------------------
-import Hakyll.Core.Provider (resourceMetadata)
-import TestSuite.Util
-
---------------------------------------------------------------------------------
-tests :: Test
-tests = testGroup "Hakyll.Core.Provider.GlobalMetadata.Tests" $
- fromAssertions "page" [testPage]
-
-testPage :: Assertion
-testPage = do
- store <- newTestStore
- provider <- newTestProvider store
-
- metadata <- resourceMetadata provider "posts/2013-10-18-metadata-test.md"
- forM_ ["1", "2", "3", "4", "5", "6", "7", "8"] $ \a ->
- Just a @=? M.lookup ('a':a) metadata
-