summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix/scripts/pack.scm3
-rw-r--r--tests/pack.scm1
2 files changed, 3 insertions, 1 deletions
diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm
index fe4df042d74..7c5fe76fe0b 100644
--- a/guix/scripts/pack.scm
+++ b/guix/scripts/pack.scm
@@ -493,7 +493,8 @@ added to the pack."
493 "-p" "/proc d 555 0 0" 493 "-p" "/proc d 555 0 0"
494 "-p" "/sys d 555 0 0" 494 "-p" "/sys d 555 0 0"
495 "-p" "/dev d 555 0 0" 495 "-p" "/dev d 555 0 0"
496 "-p" "/home d 555 0 0")) 496 "-p" "/home d 555 0 0"
497 "-p" "/tmp d 555 0 0"))
497 498
498 (when database 499 (when database
499 ;; Initialize /var/guix. 500 ;; Initialize /var/guix.
diff --git a/tests/pack.scm b/tests/pack.scm
index 40897a55895..f8a9e09c284 100644
--- a/tests/pack.scm
+++ b/tests/pack.scm
@@ -328,6 +328,7 @@
328 (when (and (file-exists? (string-append bin 328 (when (and (file-exists? (string-append bin
329 "/guile")) 329 "/guile"))
330 (file-exists? "var/guix/db/db.sqlite") 330 (file-exists? "var/guix/db/db.sqlite")
331 (file-is-directory? "tmp")
331 (string=? (string-append #$%bootstrap-guile "/bin") 332 (string=? (string-append #$%bootstrap-guile "/bin")
332 (pk 'binlink (readlink bin))) 333 (pk 'binlink (readlink bin)))
333 334