diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-09-07 23:59:02 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-09-07 23:59:02 +0200 |
| commit | b14a8385095f6672960fb8378c6578acf1ebbf8a (patch) | |
| tree | 9af192e11499f1195d07cec842f740a8c0f3ade2 /tests | |
| parent | 5c838ec9cd121e7e80587648e3d76347932436c0 (diff) | |
| download | guix-b14a8385095f6672960fb8378c6578acf1ebbf8a.tar guix-b14a8385095f6672960fb8378c6578acf1ebbf8a.tar.gz | |
utils: 'wrap-program' produces only one wrapper file.
* guix/build/utils.scm (wrap-program)[wrapper-file-name]
[next-wrapper-number, wrapper-target]: Remove.
[wrapped-file, already-wrapped?]: New variables.
[last-line]: New procedure.
Use it to append to PROG when a wrapper already exists.
* tests/build-utils.scm ("wrap-program, one input, multiple calls"):
Adjust the list of files to delete.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/build-utils.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tests/build-utils.scm b/tests/build-utils.scm index cc59b2eff7..7d49446f66 100644 --- a/tests/build-utils.scm +++ b/tests/build-utils.scm @@ -118,8 +118,7 @@ (let* ((pipe (open-input-pipe foo)) (str (get-string-all pipe))) (with-directory-excursion directory - (for-each delete-file - '("foo" ".foo-real" ".foo-wrap-01" ".foo-wrap-02"))) + (for-each delete-file '("foo" ".foo-real"))) (and (zero? (close-pipe pipe)) str)))))) |