X-Git-Url: http://git.lukelau.me/?a=blobdiff_plain;f=test%2FTest.hs;h=e24b1e1c75d333f2327ac273bdcf2d7d9d8e127e;hb=37aa4a22ec691b45bbd1cd0dd23d70e90a0c4e40;hp=986b4c5202e16da4b8e187b77a2db2db38b541ee;hpb=93bbb70d531238c46a28eb356a68c3648b88082f;p=lsp-test.git

diff --git a/test/Test.hs b/test/Test.hs
index 986b4c5..e24b1e1 100644
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -1,13 +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