Created tests and fixed isMember function

1 files changed, 16 insertions, 0 deletions

diff --git a/tests/Hakyll/Core/Store/Tests.hs b/tests/Hakyll/Core/Store/Tests.hs
index 95140e3..389d7fd 100644
--- a/tests/Hakyll/Core/Store/Tests.hs
+++ b/tests/Hakyll/Core/Store/Tests.hs
@@ -26,6 +26,7 @@ tests = testGroup "Hakyll.Core.Store.Tests"
     [ testProperty "simple get . set"     simpleSetGet
     , testProperty "persistent get . set" persistentSetGet
     , testCase     "WrongType get . set"  wrongType
+    , testCase     "isMembertest . set"   isMembertest
     ]
 
 
@@ -68,3 +69,18 @@ wrongType = do
             t == typeOf (undefined :: String)
         _                   -> False
     cleanTestEnv
+
+
+--------------------------------------------------------------------------------
+
+isMembertest :: H.Assertion
+isMembertest = do
+    store <- newTestStore
+    Store.set store ["foo", "bar"] ("qux" :: String)
+    --value <- Store.get store ["foo", "bar"] :: IO (Store.Result Int)
+    good <- Store.isMember store ["foo", "bar"]
+
+    bad <- Store.isMember store ["foo", "baz"]
+    H.assert good 
+    H.assert (not bad)
+    cleanTestEnv
\ No newline at end of file