test/Test.hs

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