a test case for info.

2013-03-30 21:24:57 +09:00
parent 5aabca1e99
commit b87a1e0e39
2 changed files with 12 additions and 0 deletions
--- 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