mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-04-06 21:20:33 +02:00
tests: Fix the git-http test.
The test fails because the fcgiwrap daemon that runs as "fcgiwrap" user cannot access the /srv/git directory that is root-owned. * gnu/tests/version-control.scm (run-git-http-test): Change the ownership of /srv/git so that fcgiwrap can access it. Change-Id: I01fa98e3311ac0dba88a4af21cee3ae0da986582
This commit is contained in:
@@ -286,6 +286,14 @@ HTTP-PORT."
|
|||||||
(test-equal "clone"
|
(test-equal "clone"
|
||||||
'#$README-contents
|
'#$README-contents
|
||||||
(begin
|
(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"
|
(invoke #$(file-append git "/bin/git") "clone" "-v"
|
||||||
"http://localhost:8080/git/test" "/tmp/clone")
|
"http://localhost:8080/git/test" "/tmp/clone")
|
||||||
(call-with-input-file "/tmp/clone/README"
|
(call-with-input-file "/tmp/clone/README"
|
||||||
|
|||||||
Reference in New Issue
Block a user