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/UnixFilter/Tests.hs | |
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/UnixFilter/Tests.hs')
-rw-r--r-- | tests/Hakyll/Core/UnixFilter/Tests.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/Hakyll/Core/UnixFilter/Tests.hs b/tests/Hakyll/Core/UnixFilter/Tests.hs index 521d051..63d6698 100644 --- a/tests/Hakyll/Core/UnixFilter/Tests.hs +++ b/tests/Hakyll/Core/UnixFilter/Tests.hs @@ -39,7 +39,7 @@ unixFilterRev = do provider <- newTestProvider store output <- testCompilerDone store provider testMarkdown compiler expected <- testCompilerDone store provider testMarkdown getResourceString - H.assert $ rev (itemBody expected) == lines (itemBody output) + rev (itemBody expected) H.@=? lines (itemBody output) cleanTestEnv where compiler = getResourceString >>= withItemBody (unixFilter "rev" []) @@ -52,9 +52,9 @@ unixFilterFalse = do store <- newTestStore provider <- newTestProvider store result <- testCompiler store provider testMarkdown compiler - H.assert $ case result of - CompilerError es -> any ("exit code" `isInfixOf`) es - _ -> False + case result of + CompilerError es -> True H.@=? any ("exit code" `isInfixOf`) es + _ -> H.assertFailure "Expecting CompilerError" cleanTestEnv where compiler = getResourceString >>= withItemBody (unixFilter "false" []) @@ -66,9 +66,9 @@ unixFilterError = do store <- newTestStore provider <- newTestProvider store result <- testCompiler store provider testMarkdown compiler - H.assert $ case result of - CompilerError es -> any ("invalid option" `isInfixOf`) es - _ -> False + case result of + CompilerError es -> True H.@=? any ("invalid option" `isInfixOf`) es + _ -> H.assertFailure "Expecting CompilerError" cleanTestEnv where - compiler = getResourceString >>= withItemBody (unixFilter "head" ["-#"])
\ No newline at end of file + compiler = getResourceString >>= withItemBody (unixFilter "head" ["-#"]) |