diff options
author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2018-01-15 18:01:22 +0100 |
---|---|---|
committer | GitHub <noreply@github.com> | 2018-01-15 18:01:22 +0100 |
commit | 37bf3fe9555406eeb12485c20aa99c25065e0760 (patch) | |
tree | 474cacc73f8bd548772b0ba6a085802824e59923 /tests/Hakyll/Core/Store | |
parent | a88a91d06e57172840ef068f261c88e21eb60665 (diff) | |
download | hakyll-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.hs | 14 |
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 |