2013-02-12 05:06:22 +00:00
|
|
|
module LangSpec where
|
|
|
|
|
|
|
|
|
|
import Control.Applicative
|
|
|
|
|
import Test.Hspec
|
|
|
|
|
import Expectation
|
|
|
|
|
import Lang
|
|
|
|
|
import Types
|
|
|
|
|
|
|
|
|
|
spec :: Spec
|
|
|
|
|
spec = do
|
|
|
|
|
describe "listLanguages" $ do
|
|
|
|
|
it "lists up language extensions" $ do
|
2013-02-12 05:09:42 +00:00
|
|
|
exts <- lines <$> listLanguages defaultOptions
|
|
|
|
|
exts `shouldContain` "OverloadedStrings"
|
