hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixed custom cradle test

Browse Source
This commit is contained in:
Daniel Vigovszky 2015-04-26 17:33:01 +02:00
parent 3b7d51d25a
commit 84888627af
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
test/CradleSpec.hs
View File

@ -71,6 +71,8 @@ spec = do
cradleCabalFile res `shouldBe` cradleCabalFile res `shouldBe`
Just ("test" </> "data" </> "broken-sandbox" </> "dummy.cabal") Just ("test" </> "data" </> "broken-sandbox" </> "dummy.cabal")
cradlePkgDbStack res `shouldBe` [GlobalDb, UserDb]
it "uses the custom cradle file if present" $ do it "uses the custom cradle file if present" $ do
withDirectory "test/data/custom-cradle" $ \dir -> do withDirectory "test/data/custom-cradle" $ \dir -> do
res <- relativeCradle dir <$> findCradle res <- relativeCradle dir <$> findCradle
@ -78,4 +80,3 @@ spec = do
cradleRootDir res `shouldBe` "test" </> "data" </> "custom-cradle" cradleRootDir res `shouldBe` "test" </> "data" </> "custom-cradle"
cradleCabalFile res `shouldBe` Just ("test" </> "data" </> "custom-cradle" </> "dummy.cabal") cradleCabalFile res `shouldBe` Just ("test" </> "data" </> "custom-cradle" </> "dummy.cabal")
cradlePkgDbStack res `shouldBe` [PackageDb "a/packages", GlobalDb, PackageDb "b/packages", UserDb, PackageDb "c/packages"] cradlePkgDbStack res `shouldBe` [PackageDb "a/packages", GlobalDb, PackageDb "b/packages", UserDb, PackageDb "c/packages"]
cradlePkgDbStack res `shouldBe` [GlobalDb, UserDb]

0
test/data/custom-cradle/.ghc-mod.cradle → test/data/custom-cradle/ghc-mod.cradle
View File