projects
/
lsp-test.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
8b4b876
)
Fix tests
author
Luke Lau
<luke_lau@icloud.com>
Fri, 18 Oct 2019 18:01:16 +0000
(19:01 +0100)
committer
Luke Lau
<luke_lau@icloud.com>
Fri, 18 Oct 2019 18:01:16 +0000
(19:01 +0100)
test/Test.hs
patch
|
blob
|
history
diff --git
a/test/Test.hs
b/test/Test.hs
index 75e16283b49895b6dae4eee1737c7dc92a5acf50..d689bff411e53a6603c9812f46ba62825ebe87c6 100644
(file)
--- a/
test/Test.hs
+++ b/
test/Test.hs
@@
-118,7
+118,7
@@
main = hspec $ do
selector _ = False
sesh = do
doc <- openDoc "Desktop/simple.hs" "haskell"
selector _ = False
sesh = do
doc <- openDoc "Desktop/simple.hs" "haskell"
- sendRequest TextDocumentDocumentSymbol (DocumentSymbolParams doc)
+ sendRequest TextDocumentDocumentSymbol (DocumentSymbolParams doc
Nothing
)
skipMany anyNotification
message :: Session RenameResponse -- the wrong type
in runSession "hie" fullCaps "test/data/renamePass" sesh
skipMany anyNotification
message :: Session RenameResponse -- the wrong type
in runSession "hie" fullCaps "test/data/renamePass" sesh
@@
-154,7
+154,7
@@
main = hspec $ do
let args = toJSON $ AOP (doc ^. uri)
(Position 1 14)
"Redundant bracket"
let args = toJSON $ AOP (doc ^. uri)
(Position 1 14)
"Redundant bracket"
- reqParams = ExecuteCommandParams "applyrefact:applyOne" (Just (List [args]))
+ reqParams = ExecuteCommandParams "applyrefact:applyOne" (Just (List [args]))
Nothing
request_ WorkspaceExecuteCommand reqParams
editReq <- message :: Session ApplyWorkspaceEditRequest
request_ WorkspaceExecuteCommand reqParams
editReq <- message :: Session ApplyWorkspaceEditRequest
@@
-177,7
+177,7
@@
main = hspec $ do
let args = toJSON $ AOP (doc ^. uri)
(Position 1 14)
"Redundant bracket"
let args = toJSON $ AOP (doc ^. uri)
(Position 1 14)
"Redundant bracket"
- reqParams = ExecuteCommandParams "applyrefact:applyOne" (Just (List [args]))
+ reqParams = ExecuteCommandParams "applyrefact:applyOne" (Just (List [args]))
Nothing
request_ WorkspaceExecuteCommand reqParams
contents <- getDocumentEdit doc
liftIO $ contents `shouldBe` "main :: IO Int\nmain = return 42\n"
request_ WorkspaceExecuteCommand reqParams
contents <- getDocumentEdit doc
liftIO $ contents `shouldBe` "main :: IO Int\nmain = return 42\n"