test for Cradle.

2013-03-05 10:22:33 +09:00
parent b7cacee767
commit 89dc02f185
5 changed files with 37 additions and 5 deletions
--- a/test/InfoSpec.hs
+++ b/test/InfoSpec.hs
@@ -11,7 +11,7 @@ spec :: Spec
 spec = do
    describe "typeExpr" $ do
        it "shows types of the expression and its outers" $ do
-            withDirectory "test/data/ghc-mod-check" $ do
+            withDirectory_ "test/data/ghc-mod-check" $ do
                (strVer,_) <- getGHCVersion
                cradle <- findCradle Nothing strVer
                res <- typeExpr defaultOptions cradle "Data.Foo" 9 5 "Data/Foo.hs"