aboutsummaryrefslogtreecommitdiff
path: root/tests/derivations.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-10-28 18:05:17 +0100
committerLudovic Courtès <ludo@gnu.org>2014-10-29 00:31:23 +0100
commitfc93e309196ee8009a975b4c0acf712f54581a93 (patch)
treecea95d0312fc5e37bb3fc1a084868ad160d1e857 /tests/derivations.scm
parent31a123fe00731a9479e8f11baefeb371ff538cd8 (diff)
downloadguix-fc93e309196ee8009a975b4c0acf712f54581a93.tar
guix-fc93e309196ee8009a975b4c0acf712f54581a93.tar.gz
derivations: Add 'offloadable-derivation?' and 'substitutable-derivation?'.
* guix/derivations.scm (offloadable-derivation?, substitutable-derivation?): New procedures. * tests/derivations.scm ("offloadable-derivation?"): New test.
Diffstat (limited to 'tests/derivations.scm')
-rw-r--r--tests/derivations.scm6
1 files changed, 6 insertions, 0 deletions
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" '()))