2014-07-17 16:16:12 +02:00
|
|
|
module FindSpec where
|
|
|
|
|
|
|
|
|
|
import Language.Haskell.GhcMod.Find
|
|
|
|
|
import Test.Hspec
|
2014-08-28 11:54:01 +02:00
|
|
|
import TestUtils
|
2014-07-17 16:16:12 +02:00
|
|
|
|
|
|
|
|
spec :: Spec
|
|
|
|
|
spec = do
|
|
|
|
|
describe "db <- loadSymbolDb" $ do
|
|
|
|
|
it "lookupSymbol' db \"head\" contains at least `Data.List'" $ do
|
2014-08-28 11:54:01 +02:00
|
|
|
db <- runD loadSymbolDb
|
2014-07-18 15:13:30 +09:00
|
|
|
lookupSym "head" db `shouldContain` ["Data.List"]
|
