mirror of
https://github.com/haskell/haskell-language-server.git
synced 2024-09-20 05:07:28 +03:00
Restore delete liquid Haskell related test.
This commit is contained in:
parent
03239ee51b
commit
bd460e7874
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user