Add FindSpec

This commit is contained in:
Daniel Gröber 2014-07-17 16:16:12 +02:00
parent 3c1b560068
commit c3b959a8e5

16
test/FindSpec.hs Normal file
View File

@ -0,0 +1,16 @@
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
lookupSymbol' "head" db `shouldContain` ["Data.List"]