in test suite display error from git push that fails to exit nonzero

This commit is contained in:
Joey Hess 2024-11-20 15:12:23 -04:00
parent 31a38f8468
commit 6f49f17f22
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 44 additions and 4 deletions

View file

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