aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-10-17 23:20:39 +0200
committerLudovic Courtès <ludo@gnu.org>2014-10-17 23:23:21 +0200
commit7c3c0374de446af387c8478f77083fd0e357253c (patch)
tree96901f0b59c5bd7127ec010f541959dd5d47c28f /tests
parent67a86d3b8d17b921728eec7776677582cfdd9266 (diff)
downloadguix-7c3c0374de446af387c8478f77083fd0e357253c.tar
guix-7c3c0374de446af387c8478f77083fd0e357253c.tar.gz
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.scm13
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/packages.scm b/tests/packages.scm
index 88d21e0578..ceb2299748 100644
--- a/tests/packages.scm
+++ b/tests/packages.scm
@@ -124,6 +124,19 @@
("d" ,d) ("d/x" "something.drv"))
(pk 'x (package-transitive-inputs e))))))
+(test-equal "package-transitive-supported-systems"
+ '(("x" "y" "z")
+ ("x" "y")
+ ("y"))
+ (let* ((a (dummy-package "a" (supported-systems '("x" "y" "z"))))
+ (b (dummy-package "b" (supported-systems '("x" "y"))
+ (inputs `(("a" ,a)))))
+ (c (dummy-package "c" (supported-systems '("y" "z"))
+ (inputs `(("b" ,b))))))
+ (list (package-transitive-supported-systems a)
+ (package-transitive-supported-systems b)
+ (package-transitive-supported-systems c))))
+
(test-skip (if (not %store) 8 0))
(test-assert "package-source-derivation, file"