lsp-test 0.3.0.0 → 0.4.0.0

raw patch · 9 files changed

+25/−15 lines, 9 filesdep ~basedep ~containersdep ~haskell-lspPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: base, containers, haskell-lsp, process

API changes (from Hackage documentation)

Files

• lsp-test.cabal +3/−3
• src/Language/Haskell/LSP/Test.hs +3/−2
• src/Language/Haskell/LSP/Test/Decoding.hs +3/−1
• src/Language/Haskell/LSP/Test/Files.hs +2/−1
• src/Language/Haskell/LSP/Test/Messages.hs +1/−1
• src/Language/Haskell/LSP/Test/Parsing.hs +2/−1
• src/Language/Haskell/LSP/Test/Replay.hs +2/−1
• src/Language/Haskell/LSP/Test/Session.hs +2/−1
• test/Test.hs +7/−4

@@ -1,5 +1,5 @@ name:                lsp-test-version:             0.3.0.0+version:             0.4.0.0 synopsis:            Functional test framework for LSP servers. description:   A test framework for writing tests against @@ -36,7 +36,7 @@                      , parser-combinators:Control.Applicative.Combinators   default-language:    Haskell2010   build-depends:       base >= 4.7 && < 5-                     , haskell-lsp >= 0.7+                     , haskell-lsp == 0.8.*                      , aeson                      , aeson-pretty                      , ansi-terminal@@ -78,7 +78,7 @@   build-depends:       base >= 4.7 && < 5                      , hspec                      , lens-                     , haskell-lsp >= 0.7+                     , haskell-lsp == 0.8.*                      , lsp-test                      , data-default                      , aeson

@@ -91,9 +91,10 @@ import qualified Data.HashMap.Strict as HashMap import qualified Data.Map as Map import Data.Maybe-import Language.Haskell.LSP.Types hiding+import Language.Haskell.LSP.Types+import Language.Haskell.LSP.Types.Lens hiding   (id, capabilities, message, executeCommand, applyEdit, rename)-import qualified Language.Haskell.LSP.Types as LSP+import qualified Language.Haskell.LSP.Types.Lens as LSP import qualified Language.Haskell.LSP.Types.Capabilities as C import Language.Haskell.LSP.Messages import Language.Haskell.LSP.VFS

@@ -8,7 +8,7 @@ import           Data.Maybe import           System.IO import           Language.Haskell.LSP.Types-                                         hiding ( error )+import           Language.Haskell.LSP.Types.Lens hiding (error) import           Language.Haskell.LSP.Messages import qualified Data.HashMap.Strict           as HM @@ -127,6 +127,8 @@         ClientRegisterCapability       -> ReqRegisterCapability $ fromJust $ decode bytes         ClientUnregisterCapability     -> ReqUnregisterCapability $ fromJust $ decode bytes         WorkspaceApplyEdit             -> ReqApplyWorkspaceEdit $ fromJust $ decode bytes+        WorkspaceWorkspaceFolders      -> error "ReqWorkspaceFolders not supported yet"+        WorkspaceConfiguration         -> error "ReqWorkspaceConfiguration not supported yet"        Error e -> error e 

@@ -8,7 +8,8 @@ where  import           Language.Haskell.LSP.Capture-import           Language.Haskell.LSP.Types hiding ( error )+import           Language.Haskell.LSP.Types+import           Language.Haskell.LSP.Types.Lens hiding (error) import           Language.Haskell.LSP.Messages import           Control.Lens import qualified Data.HashMap.Strict           as HM

@@ -3,7 +3,7 @@  import Data.Aeson import Language.Haskell.LSP.Messages-import Language.Haskell.LSP.Types hiding (error)+import Language.Haskell.LSP.Types  isServerResponse :: FromServerMessage -> Bool isServerResponse (RspInitialize               _) = True

@@ -27,7 +27,8 @@ import qualified Data.Text as T import Data.Typeable import Language.Haskell.LSP.Messages-import Language.Haskell.LSP.Types as LSP hiding (error, message)+import Language.Haskell.LSP.Types+import qualified Language.Haskell.LSP.Types.Lens as LSP import Language.Haskell.LSP.Test.Messages import Language.Haskell.LSP.Test.Session 

@@ -12,7 +12,8 @@ import qualified Data.Text                     as T import           Language.Haskell.LSP.Capture import           Language.Haskell.LSP.Messages-import           Language.Haskell.LSP.Types as LSP hiding (error)+import           Language.Haskell.LSP.Types +import           Language.Haskell.LSP.Types.Lens as LSP hiding (error) import           Data.Aeson import           Data.Default import           Data.List

@@ -52,7 +52,8 @@ import Data.Function import Language.Haskell.LSP.Messages import Language.Haskell.LSP.Types.Capabilities-import Language.Haskell.LSP.Types hiding (error)+import Language.Haskell.LSP.Types+import Language.Haskell.LSP.Types.Lens hiding (error) import Language.Haskell.LSP.VFS import Language.Haskell.LSP.Test.Decoding import Language.Haskell.LSP.Test.Exceptions

@@ -18,7 +18,9 @@ import           Language.Haskell.LSP.Messages import           Language.Haskell.LSP.Test import           Language.Haskell.LSP.Test.Replay-import           Language.Haskell.LSP.Types as LSP hiding (capabilities, message, rename, applyEdit)+import           Language.Haskell.LSP.Types+import           Language.Haskell.LSP.Types.Lens as LSP hiding+  (capabilities, message, rename, applyEdit) import           Language.Haskell.LSP.Types.Capabilities as LSP import           System.Timeout @@ -119,9 +121,10 @@             in runSession "hie --lsp" fullCaps "test/data/renamePass" sesh               `shouldThrow` selector -  describe "replaySession" $ do-    it "passes a test" $-      replaySession "hie --lsp" "test/data/renamePass"+  describe "replaySession" $+    -- This is too fickle at the moment+    -- it "passes a test" $+    --   replaySession "hie --lsp" "test/data/renamePass"     it "fails a test" $       let selector (ReplayOutOfOrder _ _) = True           selector _ = False