diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-10-28 18:05:17 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-10-29 00:31:23 +0100 |
| commit | fc93e309196ee8009a975b4c0acf712f54581a93 (patch) | |
| tree | cea95d0312fc5e37bb3fc1a084868ad160d1e857 /tests | |
| parent | 31a123fe00731a9479e8f11baefeb371ff538cd8 (diff) | |
| download | gnu-guix-fc93e309196ee8009a975b4c0acf712f54581a93.tar gnu-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')
| -rw-r--r-- | tests/derivations.scm | 6 |
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" '())) |