X-Git-Url: http://git.lukelau.me/?p=opengl.git;a=blobdiff_plain;f=test%2FTest.hs;h=d615cb904fea91caac358fc30e07fd7f1f89dbc0;hp=8f715333092c46b503316b77b0163d8596b9fa18;hb=2ed0dbaf1233ec79ed0801b406ae9fbf4e36e8a4;hpb=1f39d55cc3fb2e840a115c12d7da3935b9529361

diff --git a/test/Test.hs b/test/Test.hs
index 8f71533..d615cb9 100644
--- 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