From b053e35cfe97aee6d31e09564850c1a60331bd1e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 16 Feb 2016 16:29:04 -0400 Subject: don't assume git-annex is in path when calling itself from test suite --- Test.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'Test.hs') diff --git a/Test.hs b/Test.hs index 16744c56d..405a286c1 100644 --- a/Test.hs +++ b/Test.hs @@ -71,6 +71,7 @@ import qualified Annex.WorkTree import qualified Annex.Link import qualified Annex.Init import qualified Annex.CatFile +import qualified Annex.Path import qualified Annex.View import qualified Annex.View.ViewedFile import qualified Logs.View @@ -1596,7 +1597,8 @@ git_annex command params = do {- Runs git-annex and returns its output. -} git_annex_output :: String -> [String] -> IO String git_annex_output command params = do - got <- Utility.Process.readProcess "git-annex" (command:params) + pp <- Annex.Path.programPath + got <- Utility.Process.readProcess pp (command:params) -- Since the above is a separate process, code coverage stats are -- not gathered for things run in it. -- Run same command again, to get code coverage. -- cgit v1.2.3