diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Hakyll/Web/CompressCss/Tests.hs | 3 | ||||
| -rw-r--r-- | tests/TestSuite/Util.hs | 7 |
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" -------------------------------------------------------------------------------- |