From 7c3c0374de446af387c8478f77083fd0e357253c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Fri, 17 Oct 2014 23:20:39 +0200 Subject: 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. --- tests/packages.scm | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'tests/packages.scm') 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" -- cgit v1.2.3