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
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.Link
import qualified Annex.Init import qualified Annex.Init
import qualified Annex.CatFile import qualified Annex.CatFile
import qualified Annex.Path
import qualified Annex.View import qualified Annex.View
import qualified Annex.View.ViewedFile import qualified Annex.View.ViewedFile
import qualified Logs.View import qualified Logs.View
@ -1596,7 +1597,8 @@ git_annex command params = do
{- Runs git-annex and returns its output. -} {- Runs git-annex and returns its output. -}
git_annex_output :: String -> [String] -> IO String git_annex_output :: String -> [String] -> IO String
git_annex_output command params = do 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 -- Since the above is a separate process, code coverage stats are
-- not gathered for things run in it. -- not gathered for things run in it.
-- Run same command again, to get code coverage. -- Run same command again, to get code coverage.