hackport-0.2.19: cabal/Cabal/tests/PackageTests/BuildDeps/InternalLibrary1/Check.hs

module PackageTests.BuildDeps.InternalLibrary1.Check where

import Test.HUnit
import PackageTests.PackageTester
import System.FilePath
import Control.Exception
import Prelude hiding (catch)


suite :: Test
suite = TestCase $ do
    let spec = PackageSpec ("PackageTests" </> "BuildDeps" </> "InternalLibrary1") []
    result <- cabal_build spec
    do
        assertEqual "cabal build should succeed - see test-log.txt" True (successful result)
      `catch` \exc -> do
        putStrLn $ "Cabal result was "++show result
        throwIO (exc :: SomeException)