diff options
author | Ludovic Courtès <ludo@gnu.org> | 2020-11-16 11:03:19 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2020-11-16 11:21:42 +0100 |
commit | 977eb5d023cfdf8e336f1896480eea9cef5c04e9 (patch) | |
tree | ef52e8a6dd446e79c964afb83befc46daedd4335 /tests | |
parent | 630602831dd93e7bc9a8e64fba958300e8cb0474 (diff) | |
download | guix-977eb5d023cfdf8e336f1896480eea9cef5c04e9.tar guix-977eb5d023cfdf8e336f1896480eea9cef5c04e9.tar.gz |
Properly deal with build directories containing '~'.
Fixes <https://bugs.gnu.org/44626>.
Reported by Vagrant Cascadian <vagrant@debian.org>.
* tests/build-utils.scm ("wrap-script, simple case"): Pass
SCRIPT-CONTENTS to 'display' rather than 'format'.
* gnu/services/base.scm (file-system->shepherd-service-name)
[valid-characters, mount-point]: New variables.
Filter out invalid store file name characters from the mount point of
FILE-SYSTEM.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/build-utils.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/build-utils.scm b/tests/build-utils.scm index 47a57a984b..654b480ed9 100644 --- a/tests/build-utils.scm +++ b/tests/build-utils.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2015, 2016, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2012, 2015, 2016, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2019 Ricardo Wurmus <rekado@elephly.net> ;;; ;;; This file is part of GNU Guix. @@ -174,7 +174,7 @@ echo hello world")) (let ((script-file-name (string-append directory "/foo"))) (call-with-output-file script-file-name (lambda (port) - (format port script-contents))) + (display script-contents port))) (chmod script-file-name #o777) (wrap-script script-file-name `("GUIX_FOO" prefix ("/some/path" |