adding tests.

test/Expectation.hs

@@ -0,0 +1,8 @@
+module Expectation where
+
+import Test.Hspec
+
+shouldContain :: Eq a => [a] -> a -> Expectation
+shouldContain containers element = do
+    let res = element `elem` containers
+    res `shouldBe` True

test/LangSpec.hs

@@ -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"

test/ListSpec.hs

@@ -0,0 +1,14 @@
+module ListSpec where
+
+import Control.Applicative
+import Test.Hspec
+import Expectation
+import List
+import Types
+
+spec :: Spec
+spec = do
+    describe "listModules" $ do
+        it "lists up module names" $ do
+            modules <- lines <$> listModules defaultOptions
+            modules `shouldContain` "Data.Map"

test/Spec.hs

@@ -0,0 +1 @@
+{-# OPTIONS_GHC -F -pgmF hspec-discover #-}