1 files changed, 8 insertions, 0 deletions

diff --git a/gnu/tests/version-control.scm b/gnu/tests/version-control.scm
index 8b02d3d9ba1..0f35e55de18 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"