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

fix test

Browse source
This commit is contained in:
Joey Hess 2013-05-15 22:10:49 -04:00
parent d0e0a565b1
commit 26923b5d64
1 changed files with 6 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Test.hs
View file

@ -364,16 +364,12 @@ test_edit env = "git-annex edit/commit" ~: TestList [t False, t True]
git_annex env "edit" [annexedfile] @? "edit failed"
unannexed annexedfile
changecontent annexedfile
if precommit
then do
-- pre-commit depends on the file being
-- staged, normally git commit does this
boolSystem "git" [Param "add", File annexedfile]
@? "git add of edited file failed"
git_annex env "pre-commit" []
if precommit
then git_annex env "pre-commit" []
@? "pre-commit failed"
else do
boolSystem "git" [Params "commit -q -m contentchanged"]
else boolSystem "git" [Params "commit -q -m contentchanged"]
@? "git commit of edited file failed"
runchecks [checklink, checkunwritable] annexedfile
c <- readFile annexedfile