diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-04-24 14:43:31 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-04-25 00:13:56 +0200 |
| commit | f903dc056a5176033daca7a69d5b2c8376ff0677 (patch) | |
| tree | e7ca982e7ba57d22245a048c37223ff9f9947ea7 /tests/packages.scm | |
| parent | 5fe21fbeefe109f400aef40a51f71af111546fa3 (diff) | |
| download | guix-f903dc056a5176033daca7a69d5b2c8376ff0677.tar guix-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.scm | 3 |
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")) |