ghc-mod/test/CabalHelperSpec.hs

102 lines
3.4 KiB
Haskell
Raw Normal View History

2015-11-26 18:21:15 +00:00
{-# LANGUAGE CPP #-}
2015-03-05 15:50:06 +00:00
module CabalHelperSpec where
import Control.Arrow
import Control.Applicative
2015-08-07 02:13:12 +00:00
import Distribution.Helper
import GhcMod.CabalHelper
import GhcMod.PathsAndFiles
import GhcMod.Error
2015-03-05 15:50:06 +00:00
import Test.Hspec
2015-08-07 02:13:12 +00:00
import System.Directory
import System.FilePath
2015-09-10 05:57:29 +00:00
import System.Process
2015-08-31 06:01:20 +00:00
import Prelude
2015-03-05 15:50:06 +00:00
2015-08-07 02:13:12 +00:00
import Dir
import TestUtils
2015-03-05 15:50:06 +00:00
import Data.List
import Config (cProjectVersionInt)
ghcVersion :: Int
ghcVersion = read cProjectVersionInt
gmeProcessException :: GhcModError -> Bool
gmeProcessException GMEProcess {} = True
gmeProcessException _ = False
pkgOptions :: [String] -> [String]
pkgOptions [] = []
pkgOptions (_:[]) = []
pkgOptions (x:y:xs) | x == "-package-id" = [name y] ++ pkgOptions xs
| otherwise = pkgOptions (y:xs)
where
stripDash s = maybe s id $ (flip drop s . (+1) <$> findIndex (=='-') s)
#if __GLASGOW_HASKELL__ >= 800
name s = reverse $ stripDash $ reverse s
#else
2015-03-05 15:50:06 +00:00
name s = reverse $ stripDash $ stripDash $ reverse s
#endif
2015-03-05 15:50:06 +00:00
idirOpts :: [(c, [String])] -> [(c, [String])]
idirOpts = map (second $ map (drop 2) . filter ("-i"`isPrefixOf`))
spec :: Spec
2015-08-07 02:13:12 +00:00
spec = do
describe "getComponents" $ do
it "throws an exception if the cabal file is broken" $ do
let tdir = "test/data/broken-cabal"
runD' tdir getComponents `shouldThrow` anyIOException
2015-03-05 15:50:06 +00:00
2015-08-07 02:13:12 +00:00
it "handles sandboxes correctly" $ do
let tdir = "test/data/cabal-project"
cwd <- getCurrentDirectory
2015-03-05 15:50:06 +00:00
2015-08-07 02:13:12 +00:00
-- TODO: ChSetupHsName should also have sandbox stuff, see related
-- comment in cabal-helper
opts <- map gmcGhcOpts . filter ((/= ChSetupHsName) . gmcName) <$> runD' tdir getComponents
2015-03-05 15:50:06 +00:00
2015-08-12 08:44:36 +00:00
bp <- buildPlatform readProcess
2015-08-07 02:13:12 +00:00
if ghcVersion < 706
2015-08-12 08:44:36 +00:00
then forM_ opts (\o -> o `shouldContain` ["-no-user-package-conf","-package-conf", cwd </> "test/data/cabal-project/.cabal-sandbox/"++ghcSandboxPkgDbDir bp])
else forM_ opts (\o -> o `shouldContain` ["-no-user-package-db","-package-db",cwd </> "test/data/cabal-project/.cabal-sandbox/"++ghcSandboxPkgDbDir bp])
2015-03-05 15:50:06 +00:00
2015-11-26 18:21:15 +00:00
#if !MIN_VERSION_ghc(7,8,0)
2015-08-18 07:33:18 +00:00
it "handles stack project" $ do
2015-08-17 09:20:43 +00:00
let tdir = "test/data/stack-project"
2015-08-19 04:48:27 +00:00
[ghcOpts] <- map gmcGhcOpts . filter ((==ChExeName "new-template-exe") . gmcName) <$> runD' tdir getComponents
let pkgs = pkgOptions ghcOpts
sort pkgs `shouldBe` ["base", "bytestring"]
2015-11-26 18:21:15 +00:00
#endif
2015-08-17 09:20:43 +00:00
2015-08-07 02:13:12 +00:00
it "extracts build dependencies" $ do
let tdir = "test/data/cabal-project"
opts <- map gmcGhcOpts <$> runD' tdir getComponents
let ghcOpts:_ = opts
2015-08-07 02:13:12 +00:00
pkgs = pkgOptions ghcOpts
pkgs `shouldBe` ["Cabal","base","template-haskell"]
2015-03-05 15:50:06 +00:00
it "uses non default flags and preserves them across reconfigures" $ do
2015-08-07 02:13:12 +00:00
let tdir = "test/data/cabal-flags"
_ <- withDirectory_ tdir $
readProcess "cabal" ["configure", "-ftest-flag"] ""
let test = do
opts <- map gmcGhcOpts <$> runD' tdir getComponents
let ghcOpts = head opts
pkgs = pkgOptions ghcOpts
pkgs `shouldBe` ["Cabal","base"]
test
touch $ tdir </> "cabal-flags.cabal"
test
touch :: FilePath -> IO ()
touch fn = do
f <- readFile fn
writeFile (fn <.> "tmp") f
renameFile (fn <.> "tmp") fn