From e06ca952ed150c50109b1a29cd0e3645a80023a2 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Fri, 12 May 2017 22:39:33 +0200
Subject: scripts: Do not create the config directory.

This fixes runs of 'guix package' and 'guix system' tests in
environments where $HOME is read-only.

* guix/ui.scm (config-directory): Add #:ensure? parameter and honor it.
* guix/scripts.scm (warn-about-old-distro): Pass #:ensure? #f to
'config-directory'.
---
 guix/scripts.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'guix/scripts.scm')

diff --git a/guix/scripts.scm b/guix/scripts.scm
index d5c53dea1b..9ff7f25548 100644
--- a/guix/scripts.scm
+++ b/guix/scripts.scm
@@ -165,7 +165,8 @@ (define (seconds->days seconds)
 
     (define age
       (match (false-if-not-found
-              (lstat (string-append (config-directory) "/latest")))
+              (lstat (string-append (config-directory #:ensure? #f)
+                                    "/latest")))
         (#f    #f)
         (stat  (- (time-second (current-time time-utc))
                   (stat:mtime stat)))))
-- 
cgit v1.2.3