ghc-mod/test/CradleSpec.hs

42 lines
1.7 KiB
Haskell
Raw Normal View History

2013-03-05 01:22:33 +00:00
module CradleSpec where
2013-03-05 01:44:17 +00:00
import Control.Applicative
2013-05-20 02:29:44 +00:00
import Language.Haskell.GhcMod
import System.Directory (canonicalizePath)
import System.FilePath ((</>))
2013-03-05 01:22:33 +00:00
import Test.Hspec
2013-09-03 02:49:35 +00:00
import Dir
2013-03-05 01:22:33 +00:00
spec :: Spec
spec = do
describe "findCradle" $ do
it "returns the current directory" $ do
2013-03-05 01:44:17 +00:00
withDirectory_ "/" $ do
2013-03-31 14:12:34 +00:00
curDir <- canonicalizePath "/"
res <- findCradle
2013-03-05 01:44:17 +00:00
res `shouldBe` Cradle {
cradleCurrentDir = curDir
, cradleCabalDir = Nothing
, cradleCabalFile = Nothing
, cradlePackageDbOpts = []
2013-03-05 01:44:17 +00:00
}
2013-03-05 01:22:33 +00:00
2013-09-20 06:57:26 +00:00
it "finds a cabal file and a sandbox" $ do
2013-03-05 01:44:17 +00:00
withDirectory "test/data/subdir1/subdir2" $ \dir -> do
res <- relativeCradle dir <$> findCradle
2013-03-05 01:44:17 +00:00
res `shouldBe` Cradle {
cradleCurrentDir = "test" </> "data" </> "subdir1" </> "subdir2"
, cradleCabalDir = Just ("test" </> "data")
, cradleCabalFile = Just ("test" </> "data" </> "cabalapi.cabal")
, cradlePackageDbOpts = ["-no-user-package-db", "-package-db", "test" </> "data" </> ".cabal-sandbox" </> "i386-osx-ghc-7.6.3-packages.conf.d"]
2013-03-05 01:44:17 +00:00
}
2013-03-05 01:22:33 +00:00
2013-03-05 01:44:17 +00:00
relativeCradle :: FilePath -> Cradle -> Cradle
relativeCradle dir cradle = Cradle {
cradleCurrentDir = toRelativeDir dir $ cradleCurrentDir cradle
, cradleCabalDir = toRelativeDir dir <$> cradleCabalDir cradle
, cradleCabalFile = toRelativeDir dir <$> cradleCabalFile cradle
, cradlePackageDbOpts = map (toRelativeDir dir) (cradlePackageDbOpts cradle)
2013-03-05 01:44:17 +00:00
}