From b87a1e0e398f6ee41be871a423ce9a77b3685e42 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Sat, 30 Mar 2013 21:24:57 +0900
Subject: [PATCH] a test case for info.

---
 test/InfoSpec.hs  | 6 ++++++
 test/data/Info.hs | 6 ++++++
 2 files changed, 12 insertions(+)
 create mode 100644 test/data/Info.hs

diff --git a/test/InfoSpec.hs b/test/InfoSpec.hs
index eaec540..c48d003 100644
--- a/test/InfoSpec.hs
+++ b/test/InfoSpec.hs
@@ -31,6 +31,12 @@ spec = do
                 res `shouldBe` unlines ["3 8 3 16 \"String -> IO ()\"", "3 8 3 20 \"IO ()\"", "3 1 3 20 \"IO ()\""]
 
     describe "infoExpr" $ do
+        it "works for non-export functions" $ do
+            withDirectory_ "test/data" $ do
+                cradle <- getGHCVersion >>= findCradle Nothing . fst
+                res <- infoExpr defaultOptions cradle "Info" "fib" "Info.hs"
+                res `shouldSatisfy` ("fib :: Int -> Int" `isPrefixOf`)
+        
         it "works with a module using TemplateHaskell" $ do
             withDirectory_ "test/data" $ do
                 cradle <- getGHCVersion >>= findCradle Nothing . fst
diff --git a/test/data/Info.hs b/test/data/Info.hs
new file mode 100644
index 0000000..7370abc
--- /dev/null
+++ b/test/data/Info.hs
@@ -0,0 +1,6 @@
+module Info () where
+
+fib :: Int -> Int
+fib 0 = 0
+fib 1 = 1
+fib n = fib (n - 1) + fib (n - 2)