diff options
| author | Xinglu Chen <public@yoctocell.xyz> | 2021-10-30 12:42:44 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2021-10-31 00:51:06 +0200 |
| commit | ea19381bd9405bdb711c36b534e463fc7c8ca949 (patch) | |
| tree | 26cbfb0e562efec7a9f6eeb4d207b24e555c798e /tests/home-import.scm | |
| parent | 40acbaf0789d47464062622bef463921556c2235 (diff) | |
| download | guix-ea19381bd9405bdb711c36b534e463fc7c8ca949.tar guix-ea19381bd9405bdb711c36b534e463fc7c8ca949.tar.gz | |
guix home: import: Call ‘local-file’ with ‘name’
Set the name of the file to just the basename of the file passed to
‘local-file’.
* guix/scripts/home/import.scm (basename+remove-dots): New procedure.
(generate-bash-configuration+modules): Use it.
* tests/home-import.scm (match-home-environment-bash-service): Adjust
accordingly.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'tests/home-import.scm')
| -rw-r--r-- | tests/home-import.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/home-import.scm b/tests/home-import.scm index 691e8196d6..40d9547e8b 100644 --- a/tests/home-import.scm +++ b/tests/home-import.scm @@ -156,7 +156,8 @@ corresponding file." 'home-bash-service-type ('home-bash-configuration ('bashrc - ('list ('local-file "/tmp/guix-config/.bashrc")))))))))) + ('list ('local-file "/tmp/guix-config/.bashrc" + "bashrc")))))))))) (test-assert "manifest->code: No services" (eval-test-with-home-environment |