test for Browse.

This commit is contained in:
Kazu Yamamoto 2013-02-12 14:18:19 +09:00
parent fb7e509efc
commit 42a1ea0a87
2 changed files with 15 additions and 0 deletions

View File

@ -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
View 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"