Add test for no errors case

2014-05-11 00:25:44 +09:00
parent d88dcde733
commit bcd2dfcffc
2 changed files with 11 additions and 0 deletions
--- a/test/CheckSpec.hs
+++ b/test/CheckSpec.hs
@@ -34,3 +34,10 @@ spec = do
                cradle <- findCradleWithoutSandbox
                res <- checkSyntax defaultOptions cradle ["Baz.hs"]
                res `shouldSatisfy` ("Baz.hs:5:1:Warning:" `isPrefixOf`)
+
+        context "without errors" $ do
+            it "doesn't output empty line" $ do
+                withDirectory_ "test/data/ghc-mod-check/Data" $ do
+                    cradle <- findCradleWithoutSandbox
+                    res <- checkSyntax defaultOptions cradle ["Foo.hs"]
+                    res `shouldBe` ""