ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: Exercise 'modify-inputs' with a 'replace' clause.

Browse source 
* tests/packages.scm ("modify-inputs, replace")
("modify-inputs, replace, change output"): New tests.
This commit is contained in:
Ludovic Courtès 2022-03-15 15:17:04 +01:00
parent 66a4a5ecb2
commit e3801126a9
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 26 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
tests/packages.scm
View file

@ -1956,6 +1956,32 @@ (define (list->set* lst)
(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: