diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2014-03-26 11:28:55 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2014-03-26 12:05:38 +0100 |
| commit | e5446fd4017949e1735251abed8644d90983eb3a (patch) | |
| tree | c6db81e368a92881e2336eae003afdf8c48068e5 /tests/Hakyll/Core/Provider/GlobalMetadata | |
| parent | 3db3933b0b98dad6757558a4caf64d67d27963f4 (diff) | |
| download | hakyll-e5446fd4017949e1735251abed8644d90983eb3a.tar.gz | |
Revert "Added test case for global metadata"
This reverts commit 46b6f78da8ed814bef6972f4712d8b13e76c1122.
Conflicts:
tests/data/posts/metadata
Diffstat (limited to 'tests/Hakyll/Core/Provider/GlobalMetadata')
| -rw-r--r-- | tests/Hakyll/Core/Provider/GlobalMetadata/Tests.hs | 31 |
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 - |