ghc-mod/test/GhcPkgSpec.hs

24 lines
711 B
Haskell
Raw Normal View History

module GhcPkgSpec where
import Language.Haskell.GhcMod.GhcPkg
import Language.Haskell.GhcMod.CabalHelper
2015-09-08 04:20:12 +00:00
import Language.Haskell.GhcMod.CustomPackageDb
import Test.Hspec
2015-08-17 05:03:32 +00:00
import System.Process (system)
import Dir
import TestUtils
spec :: Spec
spec = do
describe "getPackageDbStack'" $ do
it "fixes out of sync custom pkg-db stack" $ do
withDirectory_ "test/data/custom-cradle" $ do
_ <- system "cabal configure"
(s, s') <- runD $ do
Just stack <- getCustomPkgDbStack
withCabal $ do
stack' <- getPackageDbStack
return (stack, stack')
s' `shouldBe` s