Restore delete liquid Haskell related test.

Author: peterwicksstringfield

test/functional/Progress.hs

@@ -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