diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-03-15 15:17:04 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-03-16 15:48:51 +0100 |
| commit | e3801126a9566bc89c3746a54128609ad6eff1fd (patch) | |
| tree | 9de2562fe498590360461df89fc951db992e9d19 | |
| parent | 66a4a5ecb23832cde158b3f71cb941a830b66eef (diff) | |
| download | guix-e3801126a9566bc89c3746a54128609ad6eff1fd.tar guix-e3801126a9566bc89c3746a54128609ad6eff1fd.tar.gz | |
tests: Exercise 'modify-inputs' with a 'replace' clause.
* tests/packages.scm ("modify-inputs, replace")
("modify-inputs, replace, change output"): New tests.
| -rw-r--r-- | tests/packages.scm | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/tests/packages.scm b/tests/packages.scm index 02bdba5f98..2cb90d3145 100644 --- a/tests/packages.scm +++ b/tests/packages.scm @@ -1956,6 +1956,32 @@ (dummy-package "a" (arguments (this-package-native-input "hello"))))) +(test-eq "modify-inputs, replace" + coreutils + ;; Replace an input; notice that the label in unchanged. + (let* ((p1 (dummy-package "p" + (inputs (list hello)))) + (p2 (package + (inherit p1) + (version "1") + (inputs (modify-inputs (package-inputs p1) + (replace "hello" coreutils)))))) + (lookup-package-input p2 "hello"))) + +(test-eq "modify-inputs, replace, change output" + guile-3.0 + ;; Replace an input and choose a different output. + (let* ((p1 (dummy-package "p" + (inputs (list `(,coreutils "debug"))))) + (p2 (package + (inherit p1) + (version "1") + (inputs (modify-inputs (package-inputs p1) + (replace "coreutils" `(,guile-3.0 "out"))))))) + (match (package-inputs p2) + ((("coreutils" input "out")) + input)))) + (test-end "packages") ;;; Local Variables: |