diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-10-17 20:58:02 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-11-02 21:22:12 +0100 |
| commit | e786293e769f4d69e14d77905bf3a5745557033f (patch) | |
| tree | 4e95aa8dff7c98f527f15cf628c7c34c3377732c /tests/derivations.scm | |
| parent | 5c2033f86469ed052fd89a2a228f8cb17128ddf2 (diff) | |
| download | patches-e786293e769f4d69e14d77905bf3a5745557033f.tar patches-e786293e769f4d69e14d77905bf3a5745557033f.tar.gz | |
derivations: Add 'derivation-name'.
* guix/derivations.scm (derivation-name): New procedure.
* tests/derivations.scm ("derivation-name"): New test.
Diffstat (limited to 'tests/derivations.scm')
| -rw-r--r-- | tests/derivations.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/derivations.scm b/tests/derivations.scm index 29b341e2bb..4b36758c25 100644 --- a/tests/derivations.scm +++ b/tests/derivations.scm @@ -173,6 +173,11 @@ (= (stat:ino (lstat file1)) (stat:ino (lstat file2)))))))) +(test-equal "derivation-name" + "foo-0.0" + (let ((drv (derivation %store "foo-0.0" %bash '()))) + (derivation-name drv))) + (test-assert "offloadable-derivation?" (and (offloadable-derivation? (derivation %store "foo" %bash '())) (not (offloadable-derivation? |