ghc-mod/test/FindSpec.hs

14 lines
366 B
Haskell
Raw Normal View History

2016-01-09 22:39:04 +00:00
{-# LANGUAGE OverloadedStrings #-}
2014-07-17 14:16:12 +00:00
module FindSpec where
import GhcModExe.Find
2014-07-17 14:16:12 +00:00
import Test.Hspec
import TestUtils
2014-07-17 14:16:12 +00:00
spec :: Spec
spec = do
describe "db <- loadSymbolDb" $ do
it "lookupSymbol' db \"head\" contains at least `Data.List'" $ do
db <- runD $ loadSymbolDb
lookupSym "head" db `shouldContain` [ModuleString "Data.List"]