diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-02-06 22:51:24 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-02-06 23:04:10 +0100 |
| commit | 6211223021cdb477e93d7ba789d5a0119ffb4bd4 (patch) | |
| tree | 7322568ef89680dafdd2a36feca89bd415f3748b /tests | |
| parent | 44ce77ff52b0456e71ccaabbf3900e71d7a5841f (diff) | |
| download | guix-6211223021cdb477e93d7ba789d5a0119ffb4bd4.tar guix-6211223021cdb477e93d7ba789d5a0119ffb4bd4.tar.gz | |
union: Delete duplicates when passed the same input several times.
* guix/build/union.scm (union-build): Prepend "." to the result of
`union-tree', to match the expectations of `delete-duplicate-leaves'.
Don't do mkdir when SUBDIR is ".".
* tests/union.scm ("union-build"): Keep duplicates in %BOOTSTRAP-INPUTS.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/union.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/union.scm b/tests/union.scm index 87450d74fd..9816882101 100644 --- a/tests/union.scm +++ b/tests/union.scm @@ -94,9 +94,10 @@ (let* ((inputs (map (match-lambda ((name package) `(,name ,(package-derivation %store package)))) - (delete-duplicates %bootstrap-inputs - (lambda (i1 i2) - (eq? (second i1) (second i2)))))) + + ;; Purposefully leave duplicate entries. + (append %bootstrap-inputs + (take %bootstrap-inputs 3)))) (builder `(begin (use-modules (guix build union)) (union-build (assoc-ref %outputs "out") |