diff --git a/test/CradleSpec.hs b/test/CradleSpec.hs index 8e7f733..97fc81d 100644 --- a/test/CradleSpec.hs +++ b/test/CradleSpec.hs @@ -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] diff --git a/test/data/custom-cradle/.ghc-mod.cradle b/test/data/custom-cradle/ghc-mod.cradle similarity index 100% rename from test/data/custom-cradle/.ghc-mod.cradle rename to test/data/custom-cradle/ghc-mod.cradle