From 37bf3fe9555406eeb12485c20aa99c25065e0760 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Mon, 15 Jan 2018 18:01:22 +0100 Subject: 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 --- tests/Hakyll/Core/Store/Tests.hs | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'tests/Hakyll/Core/Store') 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 -- cgit v1.2.3