mirror/guix
mirror/guix
1
Fork 0
mirror of https://https.git.savannah.gnu.org/git/guix.git/ synced 2025-07-10 16:50:43 +02:00
Code Releases Activity

environment: Provide a writable /run/user/$UID.

Browse source 
* guix/scripts/environment.scm (launch-environment/container): Add
/run/user/UID to ‘file-systems’.
* tests/guix-environment-container.sh: Test it.

Change-Id: I44c70a7554a06f40d073c25929ea7c6ded356d08
This commit is contained in:
Ludovic Courtès 2025-05-19 21:28:14 +02:00
parent 0c799ea004
commit f8527e7f20
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
guix/scripts/environment.scm
View file

@ -875,6 +875,11 @@ WHILE-LIST."
reqs))) reqs)))
(file-systems (append %container-file-systems (file-systems (append %container-file-systems
(list tmpfs ; RW /tmp (list tmpfs ; RW /tmp
(file-system ; RW /run
(inherit tmpfs)
(mount-point
(string-append "/run/user/"
(number->string uid))))
(file-system ; RW ~ (file-system ; RW ~
(device "none") (device "none")
(mount-point (mount-point

3
tests/guix-environment-container.sh
View file

@ -203,6 +203,9 @@ guix environment --bootstrap --container --ad-hoc guile-bootstrap \
guix environment --bootstrap --container --ad-hoc guile-bootstrap \ guix environment --bootstrap --container --ad-hoc guile-bootstrap \
-- guile -c '(mkdir (string-append (getenv "HOME") "/foo"))' -- guile -c '(mkdir (string-append (getenv "HOME") "/foo"))'
# And /run too!
guix environment --bootstrap --container --ad-hoc guile-bootstrap \
-- guile -c '(mkdir "/run/user/1000/shepherd")'
# Check the exit code. # Check the exit code.