haskell/ghcide
1
1
Fork 0
mirror of https://github.com/haskell/ghcide.git synced 2025-01-06 01:44:13 +03:00
Code Issues Projects Releases Wiki Activity

Remove completion resolve data from tests

Browse Source
This commit is contained in:
Alejandro Serrano 2019-12-20 17:15:15 +01:00
parent 12ff27dce7
commit 625d710f11
No known key found for this signature in database
GPG Key ID: A04B82DC1AD554C3
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
test/exe/Main.hs
View File

@ -11,7 +11,6 @@ module Main (main) where
import Control.Applicative.Combinators
import Control.Monad
import Control.Monad.IO.Class (liftIO)
import qualified Data.Aeson as Aeson
import Data.Char (toLower)
import Data.Foldable
import Development.IDE.GHC.Util
@ -1061,7 +1060,7 @@ completionTests
let source = T.unlines ["module A where", "f = hea"]
docId <- openDoc' "A.hs" "haskell" source
compls <- getCompletions docId (Position 1 7)
liftIO $ compls @?= [complItem "head" ["GHC.List", "base", "v", "head"] (Just CiFunction)]
liftIO $ compls @?= [complItem "head" (Just CiFunction)]
, testSessionWait "type" $ do
let source = T.unlines ["{-# OPTIONS_GHC -Wall #-}", "module A () where", "f :: ()", "f = ()"]
docId <- openDoc' "A.hs" "haskell" source
@ -1069,8 +1068,8 @@ completionTests
changeDoc docId [TextDocumentContentChangeEvent Nothing Nothing $ T.unlines ["{-# OPTIONS_GHC -Wall #-}", "module A () where", "f :: Bo", "f = True"]]
compls <- getCompletions docId (Position 2 7)
liftIO $ compls @?=
[ complItem "Bounded" ["GHC.Enum", "base", "t", "Bounded"] (Just CiClass)
, complItem "Bool" ["GHC.Types", "ghc-prim", "t", "Bool"] (Just CiClass)
[ complItem "Bounded" (Just CiClass)
, complItem "Bool" (Just CiClass)
]
, testSessionWait "qualified" $ do
let source = T.unlines ["{-# OPTIONS_GHC -Wunused-binds #-}", "module A () where", "f = ()"]
@ -1078,10 +1077,10 @@ completionTests
expectDiagnostics [ ("A.hs", [(DsWarning, (2, 0), "not used")]) ]
changeDoc docId [TextDocumentContentChangeEvent Nothing Nothing $ T.unlines ["{-# OPTIONS_GHC -Wunused-binds #-}", "module A () where", "f = Prelude.hea"]]
compls <- getCompletions docId (Position 2 15)
liftIO $ compls @?= [complItem "head" ["GHC.List", "base", "v", "head"] (Just CiFunction)]
liftIO $ compls @?= [complItem "head" (Just CiFunction)]
]
where
complItem label xdata kind = CompletionItem
complItem label kind = CompletionItem
{ _label = label
, _kind = kind
, _detail = Just "Prelude"