projects
/
lsp-test.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Move responses to updateStateC
[lsp-test.git]
/
test
/
Test.hs
diff --git
a/test/Test.hs
b/test/Test.hs
index 12db7851dc4c00c5e667f2d9e31d9db73d0c9c2a..b87d2f617220745e0a6a996ffd869d205c5a8440 100644
(file)
--- a/
test/Test.hs
+++ b/
test/Test.hs
@@
-1,4
+1,4
@@
-{-# LANGUAGE
DataKinds
#-}
+{-# LANGUAGE
TypeInType
#-}
{-# LANGUAGE GADTs #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE GADTs #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE OverloadedStrings #-}
@@
-17,12
+17,12
@@
import Control.Concurrent
import Control.Monad.IO.Class
import Control.Monad
import Control.Lens hiding (List)
import Control.Monad.IO.Class
import Control.Monad
import Control.Lens hiding (List)
-import Language.
Haskell.
LSP.Test
-import Language.
Haskell.
LSP.Types
-import Language.
Haskell.
LSP.Types.Lens hiding
+import Language.LSP.Test
+import Language.LSP.Types
+import Language.LSP.Types.Lens hiding
(capabilities, message, rename, applyEdit)
(capabilities, message, rename, applyEdit)
-import qualified Language.
Haskell.
LSP.Types.Lens as LSP
-import Language.
Haskell.
LSP.Types.Capabilities as LSP
+import qualified Language.LSP.Types.Lens as LSP
+import Language.LSP.Types.Capabilities as LSP
import System.Directory
import System.FilePath
import System.Timeout
import System.Directory
import System.FilePath
import System.Timeout
@@
-53,7
+53,7
@@
main = findServer >>= \serverExe -> hspec $ do
-- won't receive a request - will timeout
-- incoming logging requests shouldn't increase the
-- timeout
-- won't receive a request - will timeout
-- incoming logging requests shouldn't increase the
-- timeout
- withTimeout 5 $ skipManyTill anyMessage (message SWorkspaceApplyEdit)
:: Session ApplyWorkspaceEditRequest
+ withTimeout 5 $ skipManyTill anyMessage (message SWorkspaceApplyEdit)
-- wait just a bit longer than 5 seconds so we have time
-- to open the document
in timeout 6000000 sesh `shouldThrow` anySessionException
-- wait just a bit longer than 5 seconds so we have time
-- to open the document
in timeout 6000000 sesh `shouldThrow` anySessionException