summaryrefslogtreecommitdiff
path: root/tests/packages.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2012-06-28 23:15:24 +0200
committerLudovic Courtès <ludo@gnu.org>2012-06-28 23:15:24 +0200
commit35f3c5f5ad0be31c7b8930c9cb6bcc8ac252829e (patch)
treeb8c6762733cf84f6deab98593dd625e46636f9a7 /tests/packages.scm
parentdba6b34bdd21c4c03895f6eddf461a440ee3b13a (diff)
downloadpatches-35f3c5f5ad0be31c7b8930c9cb6bcc8ac252829e.tar
patches-35f3c5f5ad0be31c7b8930c9cb6bcc8ac252829e.tar.gz
Track the source location of packages.
* guix/packages.scm (<location>): New record type. (location, source-properties->location): New procedures. (<package>)[location]: New field. * tests/packages.scm ("GNU Hello"): Test `package-location'.
Diffstat (limited to 'tests/packages.scm')
-rw-r--r--tests/packages.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/tests/packages.scm b/tests/packages.scm
index 76f63f3662..8df58a8bd2 100644
--- a/tests/packages.scm
+++ b/tests/packages.scm
@@ -36,6 +36,8 @@
(test-assert "GNU Hello"
(and (package? hello)
+ (or (location? (package-location hello))
+ (not (package-location hello)))
(let* ((drv (package-derivation %store hello))
(out (derivation-path->output-path drv)))
(and (build-derivations %store (list drv))