diff options
author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2013-05-04 06:14:19 -0700 |
---|---|---|
committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2013-05-04 06:14:19 -0700 |
commit | 3ac3037ec9f93a7bd368e4a135ce65d7590c7f37 (patch) | |
tree | bfee8395df134a5263e6512a196bb42914f90948 /tests/Hakyll/Core/Store/Tests.hs | |
parent | 4100083709a894225717dbe3068f73057e908dd6 (diff) | |
parent | f4ee3e7fcb0817098643c6b34cab92466584680a (diff) | |
download | hakyll-3ac3037ec9f93a7bd368e4a135ce65d7590c7f37.tar.gz |
Merge pull request #142 from justnoxx/master
Added isMember function.
Diffstat (limited to 'tests/Hakyll/Core/Store/Tests.hs')
-rw-r--r-- | tests/Hakyll/Core/Store/Tests.hs | 16 |
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 |