projects
/
lsp-test.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Update cabal
[lsp-test.git]
/
test
/
Test.hs
diff --git
a/test/Test.hs
b/test/Test.hs
index 07b95e34c568c333da2b8aaa2494a88d59a62d03..cdcdf5d37d5c5fedf093b0d638b20e4f25ff5d29 100644
(file)
--- a/
test/Test.hs
+++ b/
test/Test.hs
@@
-60,10
+60,14
@@
main = hspec $ do
withTimeout 5 $ skipManyTill anyMessage publishDiagnosticsNotification
in void $ timeout 6000000 sesh
withTimeout 5 $ skipManyTill anyMessage publishDiagnosticsNotification
in void $ timeout 6000000 sesh
- it "further timeout messages are ignored" $ runSession
WithConfig (defaultConfig { logStdErr = True }) "hie -d --vomit
" fullCaps "test/data/renamePass" $ do
+ it "further timeout messages are ignored" $ runSession
"hie
" fullCaps "test/data/renamePass" $ do
doc <- openDoc "Desktop/simple.hs" "haskell"
doc <- openDoc "Desktop/simple.hs" "haskell"
- waitForDiagnostics
+ -- warm up the cache
+ getDocumentSymbols doc
+ -- shouldn't timeout
withTimeout 3 $ getDocumentSymbols doc
withTimeout 3 $ getDocumentSymbols doc
+ -- longer than the original timeout
+ liftIO $ threadDelay (5 * 10^6)
-- shouldn't throw an exception
getDocumentSymbols doc
return ()
-- shouldn't throw an exception
getDocumentSymbols doc
return ()