2016-01-09 22:39:04 +00:00
|
|
|
{-# LANGUAGE OverloadedStrings #-}
|
2014-07-17 14:16:12 +00:00
|
|
|
module FindSpec where
|
|
|
|
|
2017-05-28 02:22:56 +00:00
|
|
|
import GhcMod.Exe.Find
|
2014-07-17 14:16:12 +00:00
|
|
|
import Test.Hspec
|
2014-08-28 09:54:01 +00:00
|
|
|
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
|
2016-01-05 10:38:25 +00:00
|
|
|
db <- runD $ loadSymbolDb
|
2015-06-01 15:10:37 +00:00
|
|
|
lookupSym "head" db `shouldContain` [ModuleString "Data.List"]
|