test for Browse.
This commit is contained in:
parent
fb7e509efc
commit
42a1ea0a87
@ -67,6 +67,7 @@ Test-Suite spec
|
||||
Hs-Source-Dirs: test, .
|
||||
Type: exitcode-stdio-1.0
|
||||
Other-Modules: Expectation
|
||||
BrowseSpec
|
||||
FlagSpec
|
||||
LangSpec
|
||||
ListSpec
|
||||
|
14
test/BrowseSpec.hs
Normal file
14
test/BrowseSpec.hs
Normal file
@ -0,0 +1,14 @@
|
||||
module BrowseSpec where
|
||||
|
||||
import Control.Applicative
|
||||
import Test.Hspec
|
||||
import Browse
|
||||
import Expectation
|
||||
import Types
|
||||
|
||||
spec :: Spec
|
||||
spec = do
|
||||
describe "browseModule" $ do
|
||||
it "lists up symbols in the module" $ do
|
||||
syms <- lines <$> browseModule defaultOptions "Data.Map"
|
||||
syms `shouldContain` "differenceWithKey"
|
Loading…
Reference in New Issue
Block a user