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