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:
cecfb20
)
Remove test that already exists in hie
author
jneira
<atreyu.bbb@gmail.com>
Tue, 9 Jul 2019 12:42:45 +0000
(14:42 +0200)
committer
jneira
<atreyu.bbb@gmail.com>
Tue, 9 Jul 2019 12:42:45 +0000
(14:42 +0200)
test/Test.hs
patch
|
blob
|
history
diff --git
a/test/Test.hs
b/test/Test.hs
index 81b5c7b131707c6180fb3ab5c2d39327409ea86b..cdcdf5d37d5c5fedf093b0d638b20e4f25ff5d29 100644
(file)
--- a/
test/Test.hs
+++ b/
test/Test.hs
@@
-284,18
+284,6
@@
main = hspec $ do
rename doc (Position 1 0) "bar"
documentContents doc >>= liftIO . shouldBe "main = bar\nbar = return 42\n"
rename doc (Position 1 0) "bar"
documentContents doc >>= liftIO . shouldBe "main = bar\nbar = return 42\n"
- describe "rename suggestion" $
- it "works" $ runSession "hie" fullCaps "test/data" $ do
- doc <- openDoc "RenameSuggestion.hs" "haskell"
-
- _ <- waitForDiagnosticsSource "ghcmod"
-
- CACodeAction cmd:_ <- getAllCodeActions doc
- executeCodeAction cmd
-
- x:_ <- T.lines <$> documentContents doc
- liftIO $ x `shouldBe` "main = putStrLn \"hello\""
-
describe "getHover" $
it "works" $ runSession "hie" fullCaps "test/data/renamePass" $ do
doc <- openDoc "Desktop/simple.hs" "haskell"
describe "getHover" $
it "works" $ runSession "hie" fullCaps "test/data/renamePass" $ do
doc <- openDoc "Desktop/simple.hs" "haskell"