Add unit-tests for Cabal-Helper cradles

Author: fendor

haskell-ide-engine.cabal

@@ -177,6 +177,7 @@ test-suite unit-test
   hs-source-dirs:      test/unit
   main-is:             Main.hs
   other-modules:       ApplyRefactPluginSpec
+                       CabalHelperSpec
                        CodeActionsSpec
                        ContextSpec
                        DiffSpec
@@ -193,6 +194,7 @@ test-suite unit-test
   build-tool-depends:  cabal-helper:cabal-helper-main, hspec-discover:hspec-discover
   build-depends:       QuickCheck
                      , aeson
+                     , cabal-helper 
                      , ghc
                      , base
                      , bytestring

hie-plugin-api/Haskell/Ide/Engine/Cradle.hs

@@ -68,11 +68,12 @@ isStackCradle = (`elem` ["stack", "Cabal-Helper-Stack", "Cabal-Helper-Stack-None
 isCabalCradle :: Cradle -> Bool
 isCabalCradle =
   (`elem`
-    ["cabal"
+    [ "cabal"
     , "Cabal-Helper-Cabal-V1"
     , "Cabal-Helper-Cabal-V2"
     , "Cabal-Helper-Cabal-V1-Dir"
     , "Cabal-Helper-Cabal-V2-Dir"
+    , "Cabal-Helper-Cabal-V2-None"
     , "Cabal-Helper-Cabal-None"
     ]
   )

test/testdata/cabal-helper/implicit-exe/Setup.hs

@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain

test/testdata/cabal-helper/implicit-exe/cabal.project

@@ -0,0 +1 @@
+packages: ./

test/testdata/cabal-helper/implicit-exe/implicit-exe.cabal

@@ -0,0 +1,17 @@
+cabal-version:       >=1.10
+name:                implicit-exe
+version:             0.1.0.0
+license-file:        LICENSE
+build-type:          Simple
+
+library
+  exposed-modules:     Lib
+  hs-source-dirs:      src
+  build-depends:       base >=4.12 && <4.13
+  default-language:    Haskell2010
+
+
+executable implicit-exe
+  main-is:             src/Exe.hs
+  build-depends:       base >=4.12 && <4.13, implicit-exe
+  default-language:    Haskell2010

test/testdata/cabal-helper/implicit-exe/src/Exe.hs

@@ -0,0 +1,4 @@
+
+import Lib (someFunc)
+
+main = someFunc

test/testdata/cabal-helper/implicit-exe/src/Lib.hs

@@ -0,0 +1,4 @@
+module Lib (someFunc) where
+
+someFunc :: IO ()
+someFunc = putStrLn "someFunc"

test/testdata/cabal-helper/mono-repo/A/A.cabal

@@ -0,0 +1,15 @@
+cabal-version:       >=2.0
+name:                A
+version:             0.1.0.0
+build-type:          Simple
+
+library
+  exposed-modules:     MyLib
+  build-depends:       base >=4.9 && < 5
+  default-language:    Haskell2010
+
+executable A
+  main-is:             Main.hs
+  other-modules:       MyLib
+  build-depends:       base >= 4.9 && < 5, A
+  default-language:    Haskell2010

test/testdata/cabal-helper/mono-repo/A/Main.hs

@@ -0,0 +1,8 @@
+module Main where
+
+import qualified MyLib (someFunc)
+
+main :: IO ()
+main = do
+  putStrLn "Hello, Haskell!"
+  MyLib.someFunc

test/testdata/cabal-helper/mono-repo/A/MyLib.hs

@@ -0,0 +1,4 @@
+module MyLib (someFunc) where
+
+someFunc :: IO ()
+someFunc = putStrLn "someFunc"

test/testdata/cabal-helper/mono-repo/A/Setup.hs

@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain

test/testdata/cabal-helper/mono-repo/B/B.cabal

@@ -0,0 +1,15 @@
+cabal-version:       >=2.0
+name:                B
+version:             0.1.0.0
+build-type:          Simple
+
+library
+  exposed-modules:     MyLib
+  build-depends:       base >= 4.9 && < 5
+  default-language:    Haskell2010
+
+executable B
+  main-is:             Main.hs
+  other-modules:       MyLib
+  build-depends:       base >= 4.9 && < 5, B
+  default-language:    Haskell2010

test/testdata/cabal-helper/mono-repo/B/Main.hs

@@ -0,0 +1,8 @@
+module Main where
+
+import qualified MyLib (someFunc)
+
+main :: IO ()
+main = do
+  putStrLn "Hello, Haskell!"
+  MyLib.someFunc

test/testdata/cabal-helper/mono-repo/B/MyLib.hs

@@ -0,0 +1,4 @@
+module MyLib (someFunc) where
+
+someFunc :: IO ()
+someFunc = putStrLn "someFunc"

test/testdata/cabal-helper/mono-repo/B/Setup.hs

@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain

test/testdata/cabal-helper/mono-repo/C/C.cabal

@@ -0,0 +1,9 @@
+cabal-version:       >=2.0
+name:                C
+version:             0.1.0.0
+build-type:          Simple
+
+library
+  exposed-modules:     MyLib
+  build-depends:       base>= 4.9 && < 5
+  default-language:    Haskell2010

test/testdata/cabal-helper/mono-repo/C/MyLib.hs

@@ -0,0 +1,4 @@
+module MyLib (someFunc) where
+
+someFunc :: IO ()
+someFunc = putStrLn "someFunc"

test/testdata/cabal-helper/mono-repo/C/Setup.hs

@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain

test/testdata/cabal-helper/mono-repo/cabal.project

@@ -0,0 +1,4 @@
+packages:
+  ./A/
+  ./B/
+  ./C/

test/testdata/cabal-helper/simple-cabal/MyLib.hs

@@ -0,0 +1,4 @@
+module MyLib (someFunc) where
+
+someFunc :: IO ()
+someFunc = putStrLn "someFunc"

test/testdata/cabal-helper/simple-cabal/Setup.hs

@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain

test/testdata/cabal-helper/simple-cabal/simple-cabal-test.cabal

@@ -0,0 +1,10 @@
+cabal-version:       >=1.10
+name:                simple-cabal-test
+version:             0.1.0.0
+license-file:        LICENSE
+build-type:          Simple
+
+library
+  exposed-modules:     MyLib
+  build-depends:       base >=4.12 && <4.13
+  default-language:    Haskell2010

test/testdata/cabal-helper/simple-stack/MyLib.hs

@@ -0,0 +1,4 @@
+module MyLib (someFunc) where
+
+someFunc :: IO ()
+someFunc = putStrLn "someFunc"

test/testdata/cabal-helper/simple-stack/Setup.hs

@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain

test/testdata/cabal-helper/simple-stack/simple-stack-test.cabal

@@ -0,0 +1,10 @@
+cabal-version:       >=1.10
+name:                simple-stack-test
+version:             0.1.0.0
+license-file:        LICENSE
+build-type:          Simple
+
+library
+  exposed-modules:     MyLib
+  build-depends:       base >=4.12 && <4.13
+  default-language:    Haskell2010

test/testdata/cabal-helper/sub-package/Setup.hs

@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain

test/testdata/cabal-helper/sub-package/app/Main.hs

@@ -0,0 +1,8 @@
+module Main where
+
+import qualified MyLib (someFunc)
+
+main :: IO ()
+main = do
+  putStrLn "Hello, Haskell!"
+  MyLib.someFunc

test/testdata/cabal-helper/sub-package/plugins-api/PluginLib.hs

@@ -0,0 +1,4 @@
+module PluginLib (someFunc) where
+
+someFunc :: IO ()
+someFunc = putStrLn "someFunc"

test/testdata/cabal-helper/sub-package/plugins-api/Setup.hs

@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain

test/testdata/cabal-helper/sub-package/plugins-api/plugins-api.cabal

@@ -0,0 +1,10 @@
+cabal-version:       >=1.10
+name:                plugins-api
+version:             0.1.0.0
+license-file:        LICENSE
+build-type:          Simple
+
+library
+  exposed-modules:     PluginLib
+  build-depends:       base >=4.12 && <4.13
+  default-language:    Haskell2010

test/testdata/cabal-helper/sub-package/src/MyLib.hs

@@ -0,0 +1,6 @@
+module MyLib (someFunc) where
+
+import qualified PluginLib as L
+
+someFunc :: IO ()
+someFunc = L.someFunc

test/testdata/cabal-helper/sub-package/sub-package.cabal

@@ -0,0 +1,17 @@
+cabal-version:       >=1.10
+name:                sub-package
+version:             0.1.0.0
+license-file:        LICENSE
+build-type:          Simple
+
+library
+  exposed-modules:     MyLib
+  build-depends:       base >=4.12 && <4.13, plugins-api
+  hs-source-dirs:      src
+  default-language:    Haskell2010
+
+executable sub-package
+  main-is:             Main.hs
+  build-depends:       base >=4.12 && <4.13, sub-package
+  hs-source-dirs:      app
+  default-language:    Haskell2010