test/Test.hs

   1 import Test.Hspec
   2 import System.IO
   3 import System.Directory
   4 import Control.Lens
   5 import Control.Monad.IO.Class
   6 import Language.Haskell.LSP.Test.Recorded
   7 -- import Language.Haskell.LSP.Test.Parsing
   8 -- import Language.Haskell.LSP.Test.Files
   9 import qualified Language.Haskell.LSP.TH.DataTypesJSON as LSP
  10
  11 main = hspec $
  12   describe "replay" $
  13     it "passes a replay" $
  14       replaySession "test/recordings/renamePass" $ do
  15         x <- sendNextRequest
  16         liftIO $ print x
  17         y <- sendNextRequest
  18         liftIO $ print y