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/LintSpec.hs
+++ b/test/LintSpec.hs
@@ -10,3 +10,7 @@ spec = do
            res <- lintSyntax defaultOptions "test/data/hlint.hs"
            res `shouldBe` "test/data/hlint.hs:4:8: Error: Redundant do\NULFound:\NUL  do putStrLn \"Hello, world!\"\NULWhy not:\NUL  putStrLn \"Hello, world!\"\n"

+        context "without suggestions" $ do
+            it "doesn't output empty line" $ do
+                res <- lintSyntax defaultOptions "test/data/ghc-mod-check/Data/Foo.hs"
+                res `shouldBe` ""