mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-07-07 09:04:04 +02:00
Compare commits
2 Commits
| Author | SHA1 | Date | |
|---|---|---|---|
| c5b76579e8 | |||
| 99b0b7aa1f |
@@ -1168,6 +1168,21 @@ to supplementary group ~a...~%" other)
|
||||
hello))
|
||||
#$marionette))
|
||||
|
||||
|
||||
;; Check that guix-daemon is up and running and that the build
|
||||
;; environment is properly set up (build users, etc.).
|
||||
(test-equal "containerized guix shell"
|
||||
0
|
||||
(marionette-eval
|
||||
'(system "guix shell --no-cwd --bootstrap -C hello -- hello")
|
||||
#$marionette))
|
||||
|
||||
(test-equal "containerized guix shell, unprivileged user"
|
||||
0
|
||||
(marionette-eval
|
||||
'(system "su - user -c 'guix shell --bootstrap -C hello -- hello'")
|
||||
#$marionette))
|
||||
|
||||
(test-equal "guix build hello"
|
||||
0
|
||||
;; Check that guix-daemon is up and running and that the build
|
||||
|
||||
@@ -828,7 +828,11 @@ WHILE-LIST."
|
||||
(let* ((cwd (getcwd))
|
||||
(home (getenv "HOME"))
|
||||
(uid (if user 1000 (getuid)))
|
||||
(gid (if user 1000 (getgid)))
|
||||
(gid (if user
|
||||
1000
|
||||
(match (getgid)
|
||||
(0 1000)
|
||||
(gid gid))))
|
||||
|
||||
;; On a foreign distro, the name service switch might be
|
||||
;; dysfunctional and 'getpwuid' throws. Don't let that hamper
|
||||
|
||||
Reference in New Issue
Block a user