Cleanup errors and logging a bit

2015-03-04 21:48:21 +01:00
parent bc71877dcf
commit f0ea445a9b
41 changed files with 242 additions and 456 deletions
--- a/test/BrowseSpec.hs
+++ b/test/BrowseSpec.hs
@@ -26,7 +26,8 @@ spec = do
            syms `shouldContain` ["Left :: a -> Either a b"]

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