X-Git-Url: http://git.lukelau.me/?p=opengl.git;a=blobdiff_plain;f=test%2FTest.hs;h=d83d03d5082b2cc138b2ea9bcfb86b984954cdfd;hp=0bffa5e1a7c3f7a23d40205887b9216441bf5454;hb=f6e14409afddc74ea8ffb1d852c316a5374caf2c;hpb=5d58e92cc411d9f89f55737b6a225075e77f4f6b

diff --git a/test/Test.hs b/test/Test.hs
index 0bffa5e..d83d03d 100644
--- 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