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"