test/FindSpec.hs

{-# LANGUAGE OverloadedStrings #-}
module FindSpec where

import GhcMod.Exe.Find
import Test.Hspec
import TestUtils

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"]
Fix GHC<7.10 2016-01-09 23:39:04 +01:00			`{-# LANGUAGE OverloadedStrings #-}`
Add FindSpec 2014-07-17 16:16:12 +02:00			`module FindSpec where`

Reorganize module namespace - Remove Language.Haskell prefix from all modules - Move 'GHCMod.*' to 'GhcMod.Exe' - Move 'GhcModExe' to 'GhcMod.Exe' 2017-05-28 04:22:56 +02:00			`import GhcMod.Exe.Find`
Add FindSpec 2014-07-17 16:16:12 +02:00			`import Test.Hspec`
Give readProcess' more sensible error messages. Also a bunch of refactoring for GhcModError 2014-08-28 11:54:01 +02:00			`import TestUtils`
Add FindSpec 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
Use stdout pipe instead of temp.files in Find 2016-01-05 13:38:25 +03:00			`db <- runD $ loadSymbolDb`
Transform ModuleString and Expression type synonyms into newtypes 2015-06-01 18:10:37 +03:00			lookupSym "head" db `shouldContain` [ModuleString "Data.List"]