tests: Fix the git-http test.
Changes
1 files changed · +8 −0
| File | Status | Add | Del | Content |
|---|---|---|---|---|
| gnu/tests/version-control.scm | modified | +8 | −0 | View file |
gnu/tests/version-control.scm
View filediff --git a/gnu/tests/version-control.scm b/gnu/tests/version-control.scm
index 8b02d3d..0f35e55 100644
--- a/gnu/tests/version-control.scm
+++ b/gnu/tests/version-control.scm
@@ -286,6 +286,14 @@ HTTP-PORT."
(test-equal "clone"
'#$README-contents
(begin
+ ;; Make sure that the fcgiwrap user can access the /srv/git
+ ;; directory and its child.
+ (marionette-eval
+ '(let ((user (getpw (pk "fcgiwrap"))))
+ (for-each (lambda (dir)
+ (chown dir (passwd:uid user) (passwd:gid user)))
+ '("/srv/git" "/srv/git/test")))
+ marionette)
(invoke #$(file-append git "/bin/git") "clone" "-v"
"http://localhost:8080/git/test" "/tmp/clone")
(call-with-input-file "/tmp/clone/README"