dashed deps test

Author: VenInf

plugins/hls-cabal-plugin/test/Main.hs

@@ -25,8 +25,6 @@ import           System.FilePath
 import           Test.Hls
 import           Utils
 
-import Debug.Trace
-
 main :: IO ()
 main = do
     defaultTestRunner $
@@ -227,9 +225,21 @@ codeActionTests = testGroup "Code Actions"
         cas <- Maybe.mapMaybe (^? _R) <$> getAllCodeActions hsdoc
         let selectedCas = filter (\ca -> "Add dependency" `T.isPrefixOf` (ca ^. L.title)) cas
         mapM_ executeCodeAction selectedCas
-        _ <- skipManyTill anyMessage $ getDocumentEdit cabDoc -- Needed to wait for the changes in cabal file
+        _ <- skipManyTill anyMessage $ getDocumentEdit cabDoc -- Wait for the changes in cabal file
         contents <- documentContents cabDoc
         liftIO $ assertEqual "Split isn't found in the cabal file" (Text.indices "split" contents) [256]
+    , runHaskellTestCaseSession "Code Actions - Can add dashed hidden package" ("cabal-add-testdata" </> "hidden-package-dashed") $ do
+        hsdoc <- openDoc ("src" </> "Main.hs") "haskell"
+        cabDoc <- openDoc "hidden-package-dashed.cabal" "cabal"
+        _ <- waitForDiagnosticsFrom hsdoc
+        cas <- Maybe.mapMaybe (^? _R) <$> getAllCodeActions hsdoc
+        let selectedCas = filter (\ca -> "Add dependency" `T.isPrefixOf` (ca ^. L.title)) cas
+        mapM_ executeCodeAction selectedCas
+        _ <- skipManyTill anyMessage $ getDocumentEdit cabDoc -- Wait for the changes in cabal file
+        contents <- documentContents cabDoc
+        liftIO $ assertEqual "hls-plugin-api isn't found in the cabal file" (Text.indices "hls-plugin-api" contents) [263]
+
+
     ]
   where
     getLicenseAction :: T.Text -> [Command |? CodeAction] -> [CodeAction]

plugins/hls-cabal-plugin/test/testdata/cabal-add-testdata/hidden-package-dashed/hidden-package-dashed.cabal

@@ -0,0 +1,12 @@
+cabal-version:       2.4
+
+name:                hidden-package
+version:             0.1.0.0
+build-type:          Simple
+
+executable hidden-package-dashed
+  main-is:             Main.hs
+  hs-source-dirs:      src
+  ghc-options:         -Wall
+  build-depends:       base
+  default-language:    Haskell2010

plugins/hls-cabal-plugin/test/testdata/cabal-add-testdata/hidden-package-dashed/src/Main.hs

@@ -0,0 +1,5 @@
+module Main where
+
+import Ide.Types
+
+main = putStrLn "Hello, Haskell!"