From 76c321d8e85683091ecbcd3afe8c56fb7c45c00a Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Wed, 20 Jun 2018 10:00:44 +0200
Subject: services: cleanup: Expect file names to be UTF-8-encoded.

Fixes <https://bugs.gnu.org/26353>.
Reported by Danny Milosavljevic <dannym@scratchpost.org>.

* gnu/services.scm (cleanup-gexp): Add 'setenv' and 'setlocale' calls
before 'delete-file-recursively'.
* gnu/tests/base.scm (%cleanup-os, %test-cleanup): New variables.
(run-cleanup-test): New procedure.
---
 gnu/services.scm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'gnu/services.scm')

diff --git a/gnu/services.scm b/gnu/services.scm
index 3162c6ba05..55ad5c9368 100644
--- a/gnu/services.scm
+++ b/gnu/services.scm
@@ -394,8 +394,14 @@ boot."
                      (delete-file "/etc/passwd.lock")
                      (delete-file "/etc/.pwd.lock") ;from 'lckpwdf'
 
+                     ;; Force file names to be decoded as UTF-8.  See
+                     ;; <https://bugs.gnu.org/26353>.
+                     (setenv "GUIX_LOCPATH"
+                             #+(file-append glibc-utf8-locales "/lib/locale"))
+                     (setlocale LC_CTYPE "en_US.utf8")
                      (delete-file-recursively "/tmp")
                      (delete-file-recursively "/var/run")
+
                      (mkdir "/tmp")
                      (chmod "/tmp" #o1777)
                      (mkdir "/var/run")
-- 
cgit v1.2.3