2013-02-12 14:06:22 +09:00
|
|
|
module ListSpec where
|
|
|
|
|
|
|
|
|
|
import Control.Applicative
|
2017-01-12 16:36:47 +01:00
|
|
|
import GhcMod
|
2013-05-20 11:29:44 +09:00
|
|
|
import Test.Hspec
|
2014-07-11 03:10:37 +02:00
|
|
|
import TestUtils
|
2015-08-31 08:01:20 +02:00
|
|
|
import Prelude
|
2013-02-12 14:06:22 +09:00
|
|
|
|
|
|
|
|
spec :: Spec
|
|
|
|
|
spec = do
|
2014-07-11 03:10:37 +02:00
|
|
|
describe "modules" $ do
|
|
|
|
|
it "contains at least `Data.Map'" $ do
|
2015-12-06 00:56:19 +03:00
|
|
|
mdls <- runD $ lines <$> modules False
|
2014-08-20 12:14:27 +09:00
|
|
|
mdls `shouldContain` ["Data.Map"]
|