X-Git-Url: http://git.lukelau.me/?a=blobdiff_plain;f=test%2FTest.hs;h=e24b1e1c75d333f2327ac273bdcf2d7d9d8e127e;hb=37aa4a22ec691b45bbd1cd0dd23d70e90a0c4e40;hp=2851427db0d0ceb77f41c07d1933fe7196d254d5;hpb=6930c3cb143fb7aca3f14ea865052ab79c386684;p=lsp-test.git diff --git a/test/Test.hs b/test/Test.hs index 2851427..e24b1e1 100644 --- a/test/Test.hs +++ b/test/Test.hs @@ -1,14 +1,15 @@ import Test.Hspec import Language.Haskell.LSP.Test.Recorded -main = hspec $ do +main = hspec $ describe "Replay" $ do - it "passes a test" $ do + it "passes a test" $ replay "test/recordings/renamePass/client.log" "test/recordings/renamePass/server.log" "test/recordings/renamePass" `shouldReturn` True - -- it "fails a test" $ - -- replay "test/recordings/documentSymbolFail/client.log" - -- "test/recordings/documentSymbolFail/server.log" - -- `shouldReturn` False + it "fails a test" $ + replay "test/recordings/documentSymbolFail/client.log" + "test/recordings/documentSymbolFail/server.log" + "test/recordings/documentSymbolFail" + `shouldReturn` False