in test suite display error from git push that fails to exit nonzero
This commit is contained in:
parent
31a38f8468
commit
6f49f17f22
3 changed files with 44 additions and 4 deletions
8
Test.hs
8
Test.hs
|
@ -446,10 +446,12 @@ test_git_remote_annex exporttree
|
|||
git_annex "get" [] "get failed"
|
||||
() <- populate
|
||||
git "config" ["remote.foo.url", "annex::"] "git config"
|
||||
git "push" ["foo", "master"] "git push"
|
||||
git "push" ["foo", "git-annex"] "git push"
|
||||
-- git push does not always propagate nonzero exit
|
||||
-- status from git-remote-annex, so remember the
|
||||
-- transcript and display it if clone fails
|
||||
pushtranscript <- testProcess' "git" ["push", "foo", "master", "git-annex"] Nothing (== True) (const True) "git push"
|
||||
git "clone" ["annex::"++diruuid++"?"++intercalate "&" cfg', "clonedir"]
|
||||
"git clone from special remote"
|
||||
("git clone from special remote (after git push with output: " ++ pushtranscript ++ ")")
|
||||
inpath "clonedir" $
|
||||
git_annex "get" [annexedfile] "get from origin special remote"
|
||||
diruuid="89ddefa4-a04c-11ef-87b5-e880882a4f98"
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue