summaryrefslogtreecommitdiff
path: root/tests/Hakyll/Core/UnixFilter/Tests.hs
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/UnixFilter/Tests.hs
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/UnixFilter/Tests.hs')
-rw-r--r--tests/Hakyll/Core/UnixFilter/Tests.hs16
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" ["-#"])