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.

1 files changed, 6 insertions, 0 deletions

diff --git a/gnu/services.scm b/gnu/services.scm
index 3162c6ba05f..55ad5c93688 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")