Added test case for global metadata

1 files changed, 31 insertions, 0 deletions

diff --git a/tests/Hakyll/Core/Provider/GlobalMetadata/Tests.hs b/tests/Hakyll/Core/Provider/GlobalMetadata/Tests.hs
new file mode 100644
index 0000000..289e2ac
--- /dev/null
+++ b/tests/Hakyll/Core/Provider/GlobalMetadata/Tests.hs
@@ -0,0 +1,31 @@
+--------------------------------------------------------------------------------
+{-# 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
+