diff options
Diffstat (limited to 'tests/union.scm')
| -rw-r--r-- | tests/union.scm | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/tests/union.scm b/tests/union.scm index a8387edf42e..51ab497383c 100644 --- a/tests/union.scm +++ b/tests/union.scm | |||
| @@ -90,14 +90,12 @@ | |||
| 90 | 1)) | 90 | 1)) |
| 91 | 91 | ||
| 92 | (test-assert "union-build" | 92 | (test-assert "union-build" |
| 93 | (let* ((inputs (map (match-lambda | 93 | (let* ((inputs (map (lambda (package) |
| 94 | ((name package) | 94 | (list (package-name package) |
| 95 | `(,name ,(package-derivation %store package)))) | 95 | (package-derivation %store package))) |
| 96 | |||
| 97 | ;; Purposefully leave duplicate entries. | 96 | ;; Purposefully leave duplicate entries. |
| 98 | (filter (compose package? cadr) | 97 | (append %bootstrap-inputs-for-tests |
| 99 | (append %bootstrap-inputs-for-tests | 98 | (take %bootstrap-inputs-for-tests 3)))) |
| 100 | (take %bootstrap-inputs-for-tests 3))))) | ||
| 101 | (builder `(begin | 99 | (builder `(begin |
| 102 | (use-modules (guix build union)) | 100 | (use-modules (guix build union)) |
| 103 | (union-build (assoc-ref %outputs "out") | 101 | (union-build (assoc-ref %outputs "out") |