summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-09-07 23:59:02 +0200
committerLudovic Courtès <ludo@gnu.org>2016-09-07 23:59:02 +0200
commitb14a8385095f6672960fb8378c6578acf1ebbf8a (patch)
tree9af192e11499f1195d07cec842f740a8c0f3ade2 /tests
parent5c838ec9cd121e7e80587648e3d76347932436c0 (diff)
downloadpatches-b14a8385095f6672960fb8378c6578acf1ebbf8a.tar
patches-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.scm3
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))))))