haskell/haskell-language-server
1
1
Fork 0
mirror of https://github.com/haskell/haskell-language-server.git synced 2024-09-20 05:07:28 +03:00
Code Issues Projects Releases Wiki Activity

Restore delete liquid Haskell related test.

Browse Source
This commit is contained in:
Peter Wicks Stringfield 2020-12-25 15:36:34 -06:00
parent 03239ee51b
commit bd460e7874
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
test/functional/Progress.hs
View File

@ -6,15 +6,18 @@ module Progress (tests) where
import Control.Applicative.Combinators
import Control.Lens hiding ((.=))
import Control.Monad.IO.Class
import Data.Default
import Ide.Plugin.Config
import Language.Haskell.LSP.Test
import Language.Haskell.LSP.Types
import qualified Language.Haskell.LSP.Types.Lens as L
import Language.Haskell.LSP.Types.Capabilities
import Test.Hls.Util
import Test.Tasty
import Test.Tasty.ExpectedFailure (ignoreTestBecause)
import Test.Tasty.HUnit
import Data.Text (Text)
import Data.Aeson (encode, decode, object, Value, (.=))
import Data.Aeson (encode, decode, object, toJSON, Value, (.=))
import Data.Maybe (fromJust)
import Data.List (delete)
@ -46,6 +49,14 @@ tests = testGroup "window/workDoneProgress" [
expectProgressReports ["Setting up testdata (for Format.hs)", "Processing"]
_ <- sendRequest TextDocumentFormatting $ DocumentFormattingParams doc (FormattingOptions 2 True) Nothing
expectProgressReports ["Formatting Format.hs"]
, ignoreTestBecause "no liquid Haskell support" $
testCase "liquid haskell plugin sends progress notifications" $ do
runSession hlsCommand progressCaps "test/testdata" $ do
doc <- openDoc "liquid/Evens.hs" "haskell"
let config = def { liquidOn = True, hlintOn = False }
sendNotification WorkspaceDidChangeConfiguration (DidChangeConfigurationParams (toJSON config))
sendNotification TextDocumentDidSave (DidSaveTextDocumentParams doc)
expectProgressReports ["Running Liquid Haskell on Evens.hs"]
]
formatLspConfig :: Value -> Value