{-# LANGUAGE OverloadedStrings #-}
module RenameSpec where

-- import Control.Monad.IO.Class
-- import Language.Haskell.LSP.Test
-- import Language.Haskell.LSP.Types
import Test.Hspec
-- import TestUtils

spec :: Spec
spec = describe "rename" $
  it "works" $ pendingWith "removed because of HaRe"
  -- runSession hieCommand fullCaps "test/testdata" $ do
  --   doc <- openDoc "Rename.hs" "haskell"
  --   rename doc (Position 3 1) "baz" -- foo :: Int -> Int
  --   documentContents doc >>= liftIO . flip shouldBe expected
  -- where
  --   expected =
  --     "main = do\n\
  --     \  x <- return $ baz 42\n\
  --     \  return (baz x)\n\
  --     \baz :: Int -> Int\n\
  --     \baz x = x + 1\n\
  --     \bar = (+ 1) . baz\n"