Add tests again

2 files changed, 38 insertions, 3 deletions

diff --git a/tests/Hakyll/Core/Dependencies/Tests.hs b/tests/Hakyll/Core/Dependencies/Tests.hs
index cf1d682..22d606f 100644
--- a/tests/Hakyll/Core/Dependencies/Tests.hs
+++ b/tests/Hakyll/Core/Dependencies/Tests.hs
@@ -41,9 +41,9 @@ oldFacts = M.fromList
     , ("posts/02.md",
         [])
     , ("index.md",
-        [ Pattern "posts/*" ["posts/01.md", "posts/02.md"]
-        , Identifier "posts/01.md"
-        , Identifier "posts/02.md"
+        [ PatternDependency "posts/*" ["posts/01.md", "posts/02.md"]
+        , IdentifierDependency "posts/01.md"
+        , IdentifierDependency "posts/02.md"
         ])
     ]
 
diff --git a/tests/Hakyll/Core/Provider/Tests.hs b/tests/Hakyll/Core/Provider/Tests.hs
new file mode 100644
index 0000000..9e46893
--- /dev/null
+++ b/tests/Hakyll/Core/Provider/Tests.hs
@@ -0,0 +1,35 @@
+--------------------------------------------------------------------------------
+{-# LANGUAGE OverloadedStrings #-}
+module Hakyll.Core.Provider.Tests
+    ( tests
+    ) where
+
+
+--------------------------------------------------------------------------------
+import qualified Data.Map                       as M
+import           Test.Framework                 (Test, testGroup)
+import           Test.Framework.Providers.HUnit (testCase)
+import           Test.HUnit                     (Assertion, assert, (@=?))
+
+
+--------------------------------------------------------------------------------
+import           Hakyll.Core.Provider
+import           TestSuite.Util
+
+
+--------------------------------------------------------------------------------
+tests :: Test
+tests = testGroup "Hakyll.Core.Provider.Tests"
+    [ testCase "case01" case01
+    ]
+
+
+--------------------------------------------------------------------------------
+case01 :: Assertion
+case01 = withTestStore $ \store -> do
+    provider <- newTestProvider store
+    assert $ resourceExists provider "example.md"
+
+    metadata <- resourceMetadata provider "example.md"
+    Just "An example"    @=? M.lookup "title"    metadata
+    Just "External data" @=? M.lookup "external" metadata