2013-02-12 14:06:22 +09:00
|
|
|
module ListSpec 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 "listModules" $ do
|
|
|
|
|
it "lists up module names" $ do
|
2013-09-27 12:23:53 +09:00
|
|
|
cradle <- findCradle
|
|
|
|
|
modules <- lines <$> listModules defaultOptions cradle
|
2013-09-03 11:44:59 +09:00
|
|
|
modules `shouldContain` ["Data.Map"]
|
