test for Flag.

2013-02-12 14:12:15 +09:00
parent a8b199ab70
commit fb7e509efc
2 changed files with 15 additions and 0 deletions
--- a/test/FlagSpec.hs
+++ b/test/FlagSpec.hs
@@ -0,0 +1,14 @@
+module FlagSpec where
+
+import Control.Applicative
+import Test.Hspec
+import Expectation
+import Flag
+import Types
+
+spec :: Spec
+spec = do
+    describe "listFlags" $ do
+        it "lists up GHC flags" $ do
+            flags <- lines <$> listFlags defaultOptions
+            flags `shouldContain` "-fno-warn-orphans"