Handle text document change events with VFS

[opengl.git] / test / Test.hs

diff --git a/test/Test.hs b/test/Test.hs
index 8f715333092c46b503316b77b0163d8596b9fa18..d615cb904fea91caac358fc30e07fd7f1f89dbc0 100644 (file)
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -88,6 +88,9 @@ main = hspec $ do
 
         checkNoDiagnostics
 
+        contents <- documentContents doc
+        liftIO $ contents `shouldBe` "main :: IO Int\nmain = return 42"
+
   parsingSpec
 
 data ApplyOneParams = AOP