From 35f3c5f5ad0be31c7b8930c9cb6bcc8ac252829e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 28 Jun 2012 23:15:24 +0200
Subject: 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'.
---
 tests/packages.scm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'tests/packages.scm')

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))
-- 
cgit v1.2.3