Gather all hs-source-dirs to check test modules in sub-directories

2013-03-15 17:30:21 +09:00
parent 8d7b0d365b
commit 24ada2abeb
8 changed files with 51 additions and 1 deletions
--- a/test/CabalApiSpec.hs
+++ b/test/CabalApiSpec.hs
@@ -11,6 +11,11 @@ spec = do
            pkgs <- cabalAllDependPackages <$> cabalParseFile "test/data/cabalapi.cabal"
            pkgs `shouldBe` ["Cabal","base","template-haskell"]

+    describe "cabalAllSourceDirs" $ do
+        it "extracts all hs-source-dirs" $ do
+            dirs <- cabalAllSourceDirs <$> cabalParseFile "test/data/check-test-subdir/check-test-subdir.cabal"
+            dirs `shouldBe` ["src", "test"]
+
    describe "cabalBuildInfo" $ do
        it "extracts build info" $ do
            info <- cabalBuildInfo <$> cabalParseFile "test/data/cabalapi.cabal"