diff options
| author | Eric Bavier <bavier@member.fsf.org> | 2015-07-21 20:45:54 -0500 |
|---|---|---|
| committer | Eric Bavier <bavier@member.fsf.org> | 2015-09-10 03:21:55 -0500 |
| commit | a6d0b306c20f236324e4bd661d0f82750ee00e90 (patch) | |
| tree | 05c2c2918637a52964e5782dbab2e4c56a7d9412 /tests | |
| parent | 8b45993235ce1ad71e4038452d6e7b4b063ce448 (diff) | |
| download | guix-a6d0b306c20f236324e4bd661d0f82750ee00e90.tar guix-a6d0b306c20f236324e4bd661d0f82750ee00e90.tar.gz | |
guix: packages: Add transitive-input-references.
* guix/packages.scm (transitive-input-references): New procedure.
* gnu/packages/version-control.scm (package-transitive-propagated-labels*)
(package-propagated-input-refs): Delete.
(git)[arguments]: Adjust to transitive-input-references.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/packages.scm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/tests/packages.scm b/tests/packages.scm index 3cb532df1a..00a0998b4c 100644 --- a/tests/packages.scm +++ b/tests/packages.scm @@ -207,6 +207,23 @@ (member i s) (member u s))))) +(test-assert "transitive-input-references" + (let* ((a (dummy-package "a")) + (b (dummy-package "b")) + (c (dummy-package "c" + (inputs `(("a" ,a))) + (propagated-inputs `(("boo" ,b))))) + (d (dummy-package "d" + (inputs `(("c*" ,c))))) + (keys (map (match-lambda + (('assoc-ref 'l key) + key)) + (pk 'refs (transitive-input-references + 'l (package-inputs d)))))) + (and (= (length keys) 2) + (member "c*" keys) + (member "boo" keys)))) + (test-equal "package-transitive-supported-systems, implicit inputs" %supported-systems |