diff options
| author | Nicolas Graves <ngraves@ngraves.fr> | 2026-04-28 20:16:38 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2026-06-05 16:24:49 +0200 |
| commit | 3b671d42c54932c4f30fd3881cf1c3b4a772f05d (patch) | |
| tree | db99d165ebf1eb3c4574c8ca31c1be9934477b8d /tests | |
| parent | e228918c75cf34d8fb48dccb14103c7e78174a91 (diff) | |
gnu: %bootstrap-inputs-for-tests: Drop input labels.
* gnu/packages/bootstrap.scm (%bootstrap-inputs-for-tests): Drop input
labels.
* tests/union.scm ("union-build"): Rewrite input fetching accordingly.
Change-Id: I575a1cc43c4e4947648ae0dace38337e8855525d
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Merges: #8213
Diffstat (limited to 'tests')
| -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") |