2013-02-12 14:06:22 +09:00
|
|
|
module LangSpec where
|
|
|
|
|
|
|
|
|
|
import Control.Applicative
|
2013-05-20 11:29:44 +09:00
|
|
|
import Language.Haskell.GhcMod
|
|
|
|
|
import Test.Hspec
|
2013-02-12 14:06:22 +09:00
|
|
|
|
|
|
|
|
spec :: Spec
|
|
|
|
|
spec = do
|
|
|
|
|
describe "listLanguages" $ do
|
|
|
|
|
it "lists up language extensions" $ do
|
2013-02-12 14:09:42 +09:00
|
|
|
exts <- lines <$> listLanguages defaultOptions
|
2013-09-03 11:44:59 +09:00
|
|
|
exts `shouldContain` ["OverloadedStrings"]
|
