Merge branch 'master' of https://github.com/Bubba/haskell-lsp-test

[opengl.git] / test / Test.hs

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