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) | |
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 691e8196d6d..40d9547e8b0 100644 --- a/tests/home-import.scm +++ b/tests/home-import.scm | |||
| @@ -156,7 +156,8 @@ corresponding file." | |||
| 156 | 'home-bash-service-type | 156 | 'home-bash-service-type |
| 157 | ('home-bash-configuration | 157 | ('home-bash-configuration |
| 158 | ('bashrc | 158 | ('bashrc |
| 159 | ('list ('local-file "/tmp/guix-config/.bashrc")))))))))) | 159 | ('list ('local-file "/tmp/guix-config/.bashrc" |
| 160 | "bashrc")))))))))) | ||
| 160 | 161 | ||
| 161 | (test-assert "manifest->code: No services" | 162 | (test-assert "manifest->code: No services" |
| 162 | (eval-test-with-home-environment | 163 | (eval-test-with-home-environment |