From 4d9a170e50b79e2cb63de6611a1b0fdfa1115f73 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Fri, 1 Mar 2013 09:46:17 +0900
Subject: [PATCH] Adding a test case for Browse.

---
 test/BrowseSpec.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/test/BrowseSpec.hs b/test/BrowseSpec.hs
index 5cebc0b..78d308f 100644
--- a/test/BrowseSpec.hs
+++ b/test/BrowseSpec.hs
@@ -12,3 +12,8 @@ spec = do
         it "lists up symbols in the module" $ do
             syms <- lines <$> browseModule defaultOptions "Data.Map"
             syms `shouldContain` "differenceWithKey"
+
+    describe "browseModule -d" $ do
+        it "lists up symbols with type info in the module" $ do
+            syms <- lines <$> browseModule defaultOptions { detailed = True } "Data.Either"
+            syms `shouldContain` "either :: (a -> c) -> (b -> c) -> Either a b -> c"