summaryrefslogtreecommitdiff
path: root/tests/Hakyll/Core/Store
diff options
context:
space:
mode:
authorJasper Van der Jeugt <jaspervdj@gmail.com>2018-01-15 18:01:22 +0100
committerGitHub <noreply@github.com>2018-01-15 18:01:22 +0100
commit37bf3fe9555406eeb12485c20aa99c25065e0760 (patch)
tree474cacc73f8bd548772b0ba6a085802824e59923 /tests/Hakyll/Core/Store
parenta88a91d06e57172840ef068f261c88e21eb60665 (diff)
downloadhakyll-37bf3fe9555406eeb12485c20aa99c25065e0760.tar.gz
Various dependency bumps
- Bump binary to 0.9 - Bump pandoc to 2.1 - Bump pandoc-citeproc to 0.13 - Bump http-types to 0.11 - Bump QuickCheck to 2.11 - Bump tasty to 1.0 - Bump tasty-hunit to 0.10 - Remove system-filepath dependency
Diffstat (limited to 'tests/Hakyll/Core/Store')
-rw-r--r--tests/Hakyll/Core/Store/Tests.hs14
1 files changed, 7 insertions, 7 deletions
diff --git a/tests/Hakyll/Core/Store/Tests.hs b/tests/Hakyll/Core/Store/Tests.hs
index be39ced..28deb28 100644
--- a/tests/Hakyll/Core/Store/Tests.hs
+++ b/tests/Hakyll/Core/Store/Tests.hs
@@ -63,11 +63,11 @@ wrongType = do
-- Store a string and try to fetch an int
Store.set store ["foo", "bar"] ("qux" :: String)
value <- Store.get store ["foo", "bar"] :: IO (Store.Result Int)
- H.assert $ case value of
- Store.WrongType e t ->
- e == typeOf (undefined :: Int) &&
- t == typeOf (undefined :: String)
- _ -> False
+ case value of
+ Store.WrongType e t -> do
+ typeOf (undefined :: Int) H.@=? e
+ typeOf (undefined :: String) H.@=? t
+ _ -> H.assertFailure "Expecting WrongType"
cleanTestEnv
@@ -78,6 +78,6 @@ isMembertest = do
Store.set store ["foo", "bar"] ("qux" :: String)
good <- Store.isMember store ["foo", "bar"]
bad <- Store.isMember store ["foo", "baz"]
- H.assert good
- H.assert (not bad)
+ True H.@=? good
+ False H.@=? bad
cleanTestEnv