diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-10-17 23:20:39 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-10-17 23:23:21 +0200 |
| commit | 7c3c0374de446af387c8478f77083fd0e357253c (patch) | |
| tree | 96901f0b59c5bd7127ec010f541959dd5d47c28f /tests | |
| parent | 67a86d3b8d17b921728eec7776677582cfdd9266 (diff) | |
packages: Add 'package-transitive-supported-systems'.
* guix/packages.scm (package-transitive-supported-systems): New procedure.
* tests/packages.scm ("package-transitive-supported-systems"): New test.
* build-aux/hydra/gnu-system.scm (package->job): Use it.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/packages.scm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/packages.scm b/tests/packages.scm index 88d21e05784..ceb2299748a 100644 --- a/tests/packages.scm +++ b/tests/packages.scm | |||
| @@ -124,6 +124,19 @@ | |||
| 124 | ("d" ,d) ("d/x" "something.drv")) | 124 | ("d" ,d) ("d/x" "something.drv")) |
| 125 | (pk 'x (package-transitive-inputs e)))))) | 125 | (pk 'x (package-transitive-inputs e)))))) |
| 126 | 126 | ||
| 127 | (test-equal "package-transitive-supported-systems" | ||
| 128 | '(("x" "y" "z") | ||
| 129 | ("x" "y") | ||
| 130 | ("y")) | ||
| 131 | (let* ((a (dummy-package "a" (supported-systems '("x" "y" "z")))) | ||
| 132 | (b (dummy-package "b" (supported-systems '("x" "y")) | ||
| 133 | (inputs `(("a" ,a))))) | ||
| 134 | (c (dummy-package "c" (supported-systems '("y" "z")) | ||
| 135 | (inputs `(("b" ,b)))))) | ||
| 136 | (list (package-transitive-supported-systems a) | ||
| 137 | (package-transitive-supported-systems b) | ||
| 138 | (package-transitive-supported-systems c)))) | ||
| 139 | |||
| 127 | (test-skip (if (not %store) 8 0)) | 140 | (test-skip (if (not %store) 8 0)) |
| 128 | 141 | ||
| 129 | (test-assert "package-source-derivation, file" | 142 | (test-assert "package-source-derivation, file" |