summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/Hakyll/Web/CompressCss/Tests.hs3
-rw-r--r--tests/TestSuite/Util.hs7
2 files changed, 5 insertions, 5 deletions
diff --git a/tests/Hakyll/Web/CompressCss/Tests.hs b/tests/Hakyll/Web/CompressCss/Tests.hs
index bf51ee2..66922cd 100644
--- a/tests/Hakyll/Web/CompressCss/Tests.hs
+++ b/tests/Hakyll/Web/CompressCss/Tests.hs
@@ -5,9 +5,8 @@ module Hakyll.Web.CompressCss.Tests
--------------------------------------------------------------------------------
-import Data.Char (toUpper)
import Test.Tasty (TestTree, testGroup)
-import Test.Tasty.HUnit (assert, (@=?))
+import Test.Tasty.HUnit ((@=?))
--------------------------------------------------------------------------------
diff --git a/tests/TestSuite/Util.hs b/tests/TestSuite/Util.hs
index 35ee112..33b26ef 100644
--- a/tests/TestSuite/Util.hs
+++ b/tests/TestSuite/Util.hs
@@ -76,13 +76,14 @@ testCompilerDone store provider underlying compiler = do
result <- testCompiler store provider underlying compiler
case result of
CompilerDone x _ -> return x
- CompilerError e -> error $
+ CompilerError e -> fail $
"TestSuite.Util.testCompilerDone: compiler " ++ show underlying ++
" threw: " ++ intercalate "; " e
- CompilerRequire i _ -> error $
+ CompilerRequire i _ -> fail $
"TestSuite.Util.testCompilerDone: compiler " ++ show underlying ++
" requires: " ++ show i
-
+ CompilerSnapshot _ _ -> fail
+ "TestSuite.Util.testCompilerDone: unexpected CompilerSnapshot"
--------------------------------------------------------------------------------