module PackageTests.BuildDeps.SameDepsAllRound.Check where import Test.HUnit import PackageTests.PackageTester import System.FilePath import qualified Control.Exception as E suite :: FilePath -> Test suite ghcPath = TestCase $ do let spec = PackageSpec ("PackageTests" </> "BuildDeps" </> "SameDepsAllRound") [] result <- cabal_build spec ghcPath do assertEqual "cabal build should succeed - see test-log.txt" True (successful result) `E.catch` \exc -> do putStrLn $ "Cabal result was "++show result E.throwIO (exc :: E.SomeException)