diff options
| -rw-r--r-- | guix/scripts/pack.scm | 3 | ||||
| -rw-r--r-- | tests/pack.scm | 1 |
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 | ||
