Add tests

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

diff --git a/test/Test.hs b/test/Test.hs
new file mode 100644 (file)
index 0000000..703265e
--- /dev/null
+++ b/test/Test.hs
@@ -0,0 +1,13 @@
+import Test.Hspec
+import Language.Haskell.LSP.Test.Recorded
+
+main = hspec $ do
+  describe "Replay" $ do
+    it "passes a test" $ do
+      replay "test/recordings/renamePass/client.log"
+             "test/recordings/renamePass/server.log"
+        `shouldReturn` True
+    it "fails a test" $
+      replay "test/recordings/documentSymbolFail/client.log"
+             "test/recordings/documentSymbolFail/server.log" 
+        `shouldReturn` False