Skip to content
Snippets Groups Projects
Commit b13a00b9 authored by Mikhail Glushenkov's avatar Mikhail Glushenkov
Browse files

Use a more informative assertion function.

parent b9913e2d
No related branches found
No related tags found
No related merge requests found
......@@ -13,6 +13,6 @@ suite inplaceSpec ghcPath = TestCase $ do
, configOpts = "--enable-tests" : configOpts inplaceSpec
}
confResult <- cabal_configure spec ghcPath
assertEqual "configure failed!" (successful confResult) True
assertConfigureSucceeded confResult
buildResult <- cabal_build spec ghcPath
assertEqual "build failed!" (successful buildResult) True
assertBuildSucceeded buildResult
......@@ -19,6 +19,7 @@ module PackageTests.PackageTester
, run
-- * Test helpers
, assertConfigureSucceeded
, assertBuildSucceeded
, assertBuildFailed
, assertHaddockSucceeded
......@@ -241,6 +242,12 @@ record spec res = do
------------------------------------------------------------------------
-- * Test helpers
assertConfigureSucceeded :: Result -> Assertion
assertConfigureSucceeded result = unless (successful result) $
assertFailure $
"expected: \'setup configure\' should succeed\n" ++
" output: " ++ outputText result
assertBuildSucceeded :: Result -> Assertion
assertBuildSucceeded result = unless (successful result) $
assertFailure $
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment