2013-02-12 05:12:15 +00:00
|
|
|
module FlagSpec where
|
|
|
|
|
|
|
|
|
|
import Control.Applicative
|
2013-05-20 02:29:44 +00:00
|
|
|
import Language.Haskell.GhcMod
|
|
|
|
|
import Test.Hspec
|
2013-02-12 05:12:15 +00:00
|
|
|
|
|
|
|
|
spec :: Spec
|
|
|
|
|
spec = do
|
|
|
|
|
describe "listFlags" $ do
|
|
|
|
|
it "lists up GHC flags" $ do
|
|
|
|
|
flags <- lines <$> listFlags defaultOptions
|
2013-09-03 02:44:59 +00:00
|
|
|
flags `shouldContain` ["-fno-warn-orphans"]
|
