From e786293e769f4d69e14d77905bf3a5745557033f Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Fri, 17 Oct 2014 20:58:02 +0200 Subject: derivations: Add 'derivation-name'. * guix/derivations.scm (derivation-name): New procedure. * tests/derivations.scm ("derivation-name"): New test. --- tests/derivations.scm | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'tests') 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 @@ (define prefix-len (string-length dir)) (= (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? -- cgit v1.2.3