X-Git-Url: http://git.lukelau.me/?p=lsp-test.git;a=blobdiff_plain;f=test%2FTest.hs;fp=test%2FTest.hs;h=703265ebc1e0bfcc7ea73972008df32368589cd6;hp=0000000000000000000000000000000000000000;hb=35925b4a5a5e24e1611431106fd8ddd7c89a4436;hpb=092af98d24a00b540c3370774ebaa33161e98f3b

diff --git a/test/Test.hs b/test/Test.hs
new file mode 100644
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