mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

don't assume git-annex is in path when calling itself from test suite

Browse source
This commit is contained in:
Joey Hess 2016-02-16 16:29:04 -04:00
parent 3fba4f83ed
commit 3120b63560
Failed to extract signature
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Test.hs
View file

@ -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.