From fc93e309196ee8009a975b4c0acf712f54581a93 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Tue, 28 Oct 2014 18:05:17 +0100 Subject: derivations: Add 'offloadable-derivation?' and 'substitutable-derivation?'. * guix/derivations.scm (offloadable-derivation?, substitutable-derivation?): New procedures. * tests/derivations.scm ("offloadable-derivation?"): New test. --- tests/derivations.scm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'tests') diff --git a/tests/derivations.scm b/tests/derivations.scm index e774fed4c3..698640b548 100644 --- a/tests/derivations.scm +++ b/tests/derivations.scm @@ -173,6 +173,12 @@ (= (stat:ino (lstat file1)) (stat:ino (lstat file2)))))))) +(test-assert "offloadable-derivation?" + (and (offloadable-derivation? (derivation %store "foo" %bash '())) + (not (offloadable-derivation? + (derivation %store "foo" %bash '() + #:local-build? #t))))) + (test-assert "fixed-output-derivation?" (let* ((builder (add-text-to-store %store "my-fixed-builder.sh" "echo -n hello > $out" '())) -- cgit v1.2.3