summary refs log tree commit diff
path: root/tests/packages.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-04-24 14:43:31 +0200
committerLudovic Courtès <ludo@gnu.org>2013-04-25 00:13:56 +0200
commitf903dc056a5176033daca7a69d5b2c8376ff0677 (patch)
treee7ca982e7ba57d22245a048c37223ff9f9947ea7 /tests/packages.scm
parent5fe21fbeefe109f400aef40a51f71af111546fa3 (diff)
downloadguix-f903dc056a5176033daca7a69d5b2c8376ff0677.tar.gz
packages: Use `read' and source properties for `package-field-location'.
* guix/packages.scm (package-field-location): Rewrite using `read' and
  source properties.  Change to return #f upon failure.
* tests/packages.scm ("package-field-location"): Check for #f upon failure.
* build-aux/sync-synopses.scm: Adjust accordingly.
Diffstat (limited to 'tests/packages.scm')
-rw-r--r--tests/packages.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/packages.scm b/tests/packages.scm
index bf82aba858..22985d6e9a 100644
--- a/tests/packages.scm
+++ b/tests/packages.scm
@@ -71,7 +71,8 @@
     (and (equal? (read-at (package-field-location %bootstrap-guile 'name))
                  (package-name %bootstrap-guile))
          (equal? (read-at (package-field-location %bootstrap-guile 'version))
-                 (package-version %bootstrap-guile)))))
+                 (package-version %bootstrap-guile))
+         (not (package-field-location %bootstrap-guile 'does-not-exist)))))
 
 (test-assert "package-transitive-inputs"
   (let* ((a (dummy-package "a"))