Permalink
Browse files

Test suite: more helpful error messages when dynamic way test fails

  • Loading branch information...
1 parent 9e6baf3 commit d81b805814e764adc58a6ae6fb114cc941f4b6a0 @tibbe tibbe committed Oct 4, 2012
Showing with 2 additions and 3 deletions.
  1. +2 −3 Cabal/tests/PackageTests/TemplateHaskell/Check.hs
@@ -31,7 +31,7 @@ profiling = TestCase $ do
,"--enable-executable-profiling"]
spec = PackageSpec ("PackageTests" </> "TemplateHaskell" </> "profiling") flags
result <- cabal_build spec
- assertEqual "cabal build should succeed - see test-log.txt" True (successful result)
+ assertBuildSucceeded result
dynamic :: Test
dynamic = TestCase $ do
@@ -40,5 +40,4 @@ dynamic = TestCase $ do
,"--enable-executable-dynamic"]
spec = PackageSpec ("PackageTests" </> "TemplateHaskell" </> "dynamic") flags
result <- cabal_build spec
- assertEqual "cabal build should succeed - see test-log.txt" True (successful result)
-
+ assertBuildSucceeded result

0 comments on commit d81b805

Please sign in to comment.