X-Git-Url: https://git.lukelau.me/?p=lsp-test.git;a=blobdiff_plain;f=test%2FTest.hs;h=36594aa5df2968e50e826634471fd70a18cdb83a;hp=6c153a935c99266ddb8c79f0aa3034a168483a95;hb=75db44e4ff6541608adca5e6f15523575c98e558;hpb=ea87bf94ca92b6de74505ba8df208ad3e2110de5

diff --git a/test/Test.hs b/test/Test.hs
index 6c153a9..36594aa 100644
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -126,14 +126,14 @@ main = findServer >>= \serverExe -> hspec $ do
             in runSession serverExe fullCaps "test/data/renamePass" sesh
               `shouldThrow` selector
 
-  describe "replaySession" $
   -- This is too fickle at the moment
+  -- describe "replaySession" $
   --   it "passes a test" $
   --     replaySession serverExe "test/data/renamePass"
-    it "fails a test" $
-      let selector (ReplayOutOfOrder _ _) = True
-          selector _ = False
-        in replaySession serverExe "test/data/renameFail" `shouldThrow` selector
+  --   it "fails a test" $
+  --     let selector (ReplayOutOfOrder _ _) = True
+  --         selector _ = False
+  --       in replaySession serverExe "test/data/renameFail" `shouldThrow` selector
 
   -- describe "manual javascript session" $
   --   it "passes a test" $