Fix tests

2015-09-14 10:11:33 +02:00
parent 5b02cc1bb0
commit 0aa3655e08
3 changed files with 20 additions and 13 deletions
--- a/test/BrowseSpec.hs
+++ b/test/BrowseSpec.hs
@@ -28,7 +28,7 @@ spec = do

    describe "`browse' in a project directory" $ do
        it "can list symbols defined in a a local module" $ do
-            withDirectory_ "test/data/ghc-mod-check/lib" $ do
+            withDirectory_ "test/data/ghc-mod-check/" $ do
                syms <- runD $ lines <$> browse "Data.Foo"
                syms `shouldContain` ["foo"]
                syms `shouldContain` ["fibonacci"]