projects
/
lsp-test.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Change server filepath to a command to run
[lsp-test.git]
/
test
/
Test.hs
diff --git
a/test/Test.hs
b/test/Test.hs
index 426dd6bd704f3df283e2f19e7ac08609697211d9..a639e38dbb1dd222bc5b202a513623d0a3b53f97 100644
(file)
--- a/
test/Test.hs
+++ b/
test/Test.hs
@@
-12,7
+12,7
@@
import ParsingTests
main = hspec $ do
describe "manual session" $ do
it "passes a test" $
main = hspec $ do
describe "manual session" $ do
it "passes a test" $
- runSession "hie" "test/recordings/renamePass" $ do
+ runSession "hie
--lsp
" "test/recordings/renamePass" $ do
doc <- openDoc "Desktop/simple.hs" "haskell"
skipMany loggingNotification
doc <- openDoc "Desktop/simple.hs" "haskell"
skipMany loggingNotification
@@
-35,7
+35,7
@@
main = hspec $ do
it "fails a test" $
-- TODO: Catch the exception in haskell-lsp-test and provide nicer output
it "fails a test" $
-- TODO: Catch the exception in haskell-lsp-test and provide nicer output
- let session = runSession "hie" "test/recordings/renamePass" $ do
+ let session = runSession "hie
--lsp
" "test/recordings/renamePass" $ do
openDoc "Desktop/simple.hs" "haskell"
skipMany loggingNotification
anyRequest
openDoc "Desktop/simple.hs" "haskell"
skipMany loggingNotification
anyRequest
@@
-43,8
+43,8
@@
main = hspec $ do
describe "replay session" $ do
it "passes a test" $
describe "replay session" $ do
it "passes a test" $
- replaySession "hie" "test/recordings/renamePass" `shouldReturn` True
+ replaySession "hie
--lsp
" "test/recordings/renamePass" `shouldReturn` True
it "fails a test" $
it "fails a test" $
- replaySession "hie" "test/recordings/renameFail" `shouldReturn` False
+ replaySession "hie
--lsp
" "test/recordings/renameFail" `shouldReturn` False
parsingSpec
parsingSpec