Fixed custom cradle test

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

View File

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