2013-02-12 14:12:15 +09:00
|
|
|
module FlagSpec where
|
|
|
|
|
|
|
|
|
|
import Control.Applicative
|
2013-05-20 11:29:44 +09:00
|
|
|
import Language.Haskell.GhcMod
|
|
|
|
|
import Test.Hspec
|
2014-07-11 03:10:37 +02:00
|
|
|
import TestUtils
|
2015-08-31 08:01:20 +02:00
|
|
|
import Prelude
|
2013-02-12 14:12:15 +09:00
|
|
|
|
|
|
|
|
spec :: Spec
|
|
|
|
|
spec = do
|
2014-07-11 03:10:37 +02:00
|
|
|
describe "flags" $ do
|
2016-05-22 02:55:06 +02:00
|
|
|
it "contains at least `-fprint-explicit-foralls" $ do
|
2014-07-11 03:10:37 +02:00
|
|
|
f <- runD $ lines <$> flags
|
2016-05-22 02:55:06 +02:00
|
|
|
f `shouldContain` ["-fprint-explicit-foralls"]
|
