ListSpec.hs 315 B

123456789101112131415
  1. module ListSpec where
  2. import Control.Applicative
  3. import Test.Hspec
  4. import Expectation
  5. import List
  6. import Types
  7. spec :: Spec
  8. spec = do
  9. describe "listModules" $ do
  10. it "lists up module names" $ do
  11. modules <- lines <$> listModules defaultOptions
  12. modules `shouldContain` "Data.Map"