Start work adding the session monad for replays

[lsp-test.git] / test / Test.hs

diff --git a/test/Test.hs b/test/Test.hs
index 2851427db0d0ceb77f41c07d1933fe7196d254d5..7c7f272ad6f620c32735ae47aeeef896c2386b48 100644 (file)
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -1,14 +1,18 @@
 import Test.Hspec
+import System.IO
+import System.Directory
+import Control.Lens
+import Control.Monad.IO.Class
 import Language.Haskell.LSP.Test.Recorded
+-- import Language.Haskell.LSP.Test.Parsing
+-- import Language.Haskell.LSP.Test.Files
+import qualified Language.Haskell.LSP.TH.DataTypesJSON as LSP
 
-main = hspec $ do
-  describe "Replay" $ do
-    it "passes a test" $ do
-      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
+main = hspec $
+  describe "replay" $
+    it "passes a replay" $
+      replaySession "test/recordings/renamePass" $ do
+        x <- sendNextRequest
+        liftIO $ print x
+        y <- sendNextRequest
+        liftIO $ print y
\ No newline at end of file