diff options
author | Ludovic Courtès <ludo@gnu.org> | 2012-06-28 23:15:24 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2012-06-28 23:15:24 +0200 |
commit | 35f3c5f5ad0be31c7b8930c9cb6bcc8ac252829e (patch) | |
tree | b8c6762733cf84f6deab98593dd625e46636f9a7 /tests/packages.scm | |
parent | dba6b34bdd21c4c03895f6eddf461a440ee3b13a (diff) | |
download | patches-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.scm | 2 |
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)) |