hackport-0.4.7: cabal/cabal-install/tests/PackageTests/MultipleSource/Check.hs

module PackageTests.MultipleSource.Check
       ( tests
       ) where


import PackageTests.PackageTester

import Test.Tasty
import Test.Tasty.HUnit

import Control.Monad    (void, when)
import System.Directory (doesDirectoryExist)
import System.FilePath  ((</>))

dir :: FilePath
dir = packageTestsDirectory </> "MultipleSource"

tests :: TestsPaths -> [TestTree]
tests paths =
    [ testCase "finds second source of multiple source" $ do
          sandboxExists <- doesDirectoryExist $ dir </> ".cabal-sandbox"
          when sandboxExists $
            void $ cabal_sandbox paths dir ["delete"]
          assertSandboxSucceeded =<< cabal_sandbox paths dir ["init"]
          assertSandboxSucceeded =<< cabal_sandbox paths dir ["add-source", "p"]
          assertSandboxSucceeded =<< cabal_sandbox paths dir ["add-source", "q"]
          assertInstallSucceeded =<< cabal_install paths dir ["q"]
    ]