cabal-testsuite/PackageTests/BuildTools/Foreign/setup.test.hs

   1 import Test.Cabal.Prelude
   2
   3 import Control.Applicative ((<$>))
   4 import Control.Monad.IO.Class
   5 import System.Environment
   6
   7 -- Test PATH-munging
   8 -- TODO: Enable this test on Windows
   9 main = setupAndCabalTest $ do
  10     skipIfWindows
  11     path <- liftIO $ getEnv "PATH"
  12     cwd <- testCurrentDir <$> getTestEnv
  13     r <- withEnv [("PATH", Just $ cwd ++ ":" ++ path)] $ setup_build []
  14     runExe' "hello-world" []
  15         >>= assertOutputContains "1111"