+ 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\""
+