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 e24b1e1c75d333f2327ac273bdcf2d7d9d8e127e..7c7f272ad6f620c32735ae47aeeef896c2386b48 100644 (file)
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -1,15 +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 $
-  describe "Replay" $ 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" 
-             "test/recordings/documentSymbolFail"
-        `shouldReturn` False
+  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