adding tests.

This commit is contained in:
Kazu Yamamoto
2013-02-12 14:06:22 +09:00
parent e42a7e8bcb
commit 418c39b759
5 changed files with 63 additions and 0 deletions

14
test/LangSpec.hs Normal file
View File

@@ -0,0 +1,14 @@
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
modules <- lines <$> listLanguages defaultOptions
modules `shouldContain` "OverloadedStrings"