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 | |
| parent | 5c2033f86469ed052fd89a2a228f8cb17128ddf2 (diff) | |
derivations: Add 'derivation-name'.
* guix/derivations.scm (derivation-name): New procedure.
* tests/derivations.scm ("derivation-name"): New test.
Diffstat (limited to 'tests')
| -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 29b341e2bb0..4b36758c250 100644 --- a/tests/derivations.scm +++ b/tests/derivations.scm | |||
| @@ -173,6 +173,11 @@ | |||
| 173 | (= (stat:ino (lstat file1)) | 173 | (= (stat:ino (lstat file1)) |
| 174 | (stat:ino (lstat file2)))))))) | 174 | (stat:ino (lstat file2)))))))) |
| 175 | 175 | ||
| 176 | (test-equal "derivation-name" | ||
| 177 | "foo-0.0" | ||
| 178 | (let ((drv (derivation %store "foo-0.0" %bash '()))) | ||
| 179 | (derivation-name drv))) | ||
| 180 | |||
| 176 | (test-assert "offloadable-derivation?" | 181 | (test-assert "offloadable-derivation?" |
| 177 | (and (offloadable-derivation? (derivation %store "foo" %bash '())) | 182 | (and (offloadable-derivation? (derivation %store "foo" %bash '())) |
| 178 | (not (offloadable-derivation? | 183 | (not (offloadable-derivation? |