ghc-mod/test/FindSpec.hs
2014-07-18 15:13:30 +09:00

17 lines
417 B
Haskell

module FindSpec where
import Control.Applicative ((<$>))
import Data.List (isPrefixOf)
import Language.Haskell.GhcMod.Find
import Test.Hspec
import TestUtils
import qualified Data.Map
spec :: Spec
spec = do
describe "db <- loadSymbolDb" $ do
it "lookupSymbol' db \"head\" contains at least `Data.List'" $ do
db <- loadSymbolDb
lookupSym "head" db `shouldContain` ["Data.List"]