adding a test for foreign export.

2014-08-12 16:37:05 +09:00
parent 4a02a02409
commit 463ab9a26f
2 changed files with 15 additions and 0 deletions
--- a/test/CheckSpec.hs
+++ b/test/CheckSpec.hs
@@ -31,6 +31,11 @@ spec = do
                res <- runID $ checkSyntax ["Baz.hs"]
                res `shouldSatisfy` ("Baz.hs:5:1:Warning:" `isPrefixOf`)

+        it "works with foreign exports" $ do
+            withDirectory_ "test/data" $ do
+                res <- runID $ checkSyntax ["ForeignExport.hs"]
+                res `shouldBe` ""
+
        context "when no errors are found" $ do
            it "doesn't output an empty line" $ do
                withDirectory_ "test/data/ghc-mod-check/Data" $ do