diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2024-12-14 23:07:26 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2024-12-18 18:32:41 +0100 |
| commit | 5316e84e1b52cb96bf580552e654fe5b56720c47 (patch) | |
| tree | 23579a90e69d3fcb5f3d48b312d5146ffc82d060 /tests/packages.scm | |
| parent | 2767b4ef031d8efe5c8718f21690b073fb43adda (diff) | |
packages: Add #:recursive? to ‘package-input-rewriting’.
* guix/packages.scm (package-input-rewriting): Add #:recursive?
[cut?]: Honor it.
* tests/packages.scm ("package-input-rewriting, recursive"): New test.
* doc/guix.texi (Defining Package Variants): Document it.
Change-Id: Ie82f35ae0ae873dc68f8b1c0dd6616f552772e65
Diffstat (limited to 'tests/packages.scm')
| -rw-r--r-- | tests/packages.scm | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/tests/packages.scm b/tests/packages.scm index 1d901505aa..9713262d4c 100644 --- a/tests/packages.scm +++ b/tests/packages.scm @@ -1501,6 +1501,36 @@ ((("python" python) _ ...) (derivation-file-name (package-derivation %store python)))))) +(test-assert "package-input-rewriting, recursive" + (let* ((dep (dummy-package "dep" (native-inputs (list grep)))) + (p0 (dummy-package "example1" (inputs (list dep grep)))) + (p1 (dummy-package "example2" (inputs (list dep grep)))) + (replacements `((,grep . ,findutils) (,p0 . ,p1))) + (rewrite (package-input-rewriting replacements)) + (rewrite/recursive (package-input-rewriting replacements + #:recursive? #t)) + (p2 (rewrite p0)) + (p3 (rewrite/recursive p0))) + (and (string=? (package-name p2) "example2") + ;; Here P0 is replaced by P1, but P1 itself is kept unchanged. + (match (package-inputs p2) + ((("dep" dep1) ("grep" dep2)) + (and (match (package-native-inputs dep1) + ((("grep" x)) (eq? x grep))) + (eq? dep2 grep)))) + + ;; Here P0 is replaced by P1, and in addition references to GREP in + ;; P1 and its dependencies are also replaced by FINDUTILS. + (string=? (package-name p3) "example2") + (match (package-inputs p3) + ((("dep" dep1) ("grep" dep2)) + (and (match (package-native-inputs dep1) + ((("grep" x)) + (string=? (package-full-name x) + (package-full-name findutils)))) + (string=? (package-full-name dep2) + (package-full-name findutils)))))))) + (test-assert "package-input-rewriting/spec" (let* ((dep (dummy-package "chbouib" (native-inputs `(("x" ,grep))))) |