test/Test.hs

   1 import Test.Hspec
   2 import Language.Haskell.LSP.Test.Recorded
   3
   4 main = hspec $ do
   5   describe "Replay" $ do
   6     it "passes a test" $ do
   7       replay "test/recordings/renamePass/client.log"
   8              "test/recordings/renamePass/server.log"
   9         `shouldReturn` True
  10     it "fails a test" $
  11       replay "test/recordings/documentSymbolFail/client.log"
  12              "test/recordings/documentSymbolFail/server.log"
  13         `shouldReturn` False