projects
/
lsp-test.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add argument for server executable
[lsp-test.git]
/
test
/
Test.hs
diff --git
a/test/Test.hs
b/test/Test.hs
index 652485e0af160279340ea8d6730dc37d33b075e9..c7e67131d914875b1fb41f98cb8928b8dba1f7e5 100644
(file)
--- a/
test/Test.hs
+++ b/
test/Test.hs
@@
-14,7
+14,7
@@
import ParsingTests
main = hspec $ do
describe "manual session validation" $ do
it "passes a test" $
main = hspec $ do
describe "manual session validation" $ do
it "passes a test" $
- runSession "test/recordings/renamePass" $ do
+ runSession "
hie" "
test/recordings/renamePass" $ do
doc <- openDoc "Desktop/simple.hs" "haskell"
skipMany loggingNotification
doc <- openDoc "Desktop/simple.hs" "haskell"
skipMany loggingNotification
@@
-39,7
+39,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 "test/recordings/renamePass" $ do
+ let session = runSession "
hie" "
test/recordings/renamePass" $ do
openDoc "Desktop/simple.hs" "haskell"
skipMany loggingNotification
request
openDoc "Desktop/simple.hs" "haskell"
skipMany loggingNotification
request
@@
-47,8
+47,8
@@
main = hspec $ do
describe "replay session" $ do
it "passes a test" $
describe "replay session" $ do
it "passes a test" $
- replaySession "test/recordings/renamePass" `shouldReturn` True
+ replaySession "
hie" "
test/recordings/renamePass" `shouldReturn` True
it "fails a test" $
it "fails a test" $
- replaySession "test/recordings/renameFail" `shouldReturn` False
+ replaySession "
hie" "
test/recordings/renameFail" `shouldReturn` False
parsingSpec
parsingSpec