diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-11-18 23:56:07 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-11-18 23:56:07 +0100 |
| commit | 0b8749b7bdd68c9b28cf3d520b9a3a9cc1a5bddb (patch) | |
| tree | b8d49b94aa148a63d3dbf320aeeff15364b9abdc /tests/packages.scm | |
| parent | ac5de156ae5de8cb61870469863fb862b6a1205e (diff) | |
| download | guix-0b8749b7bdd68c9b28cf3d520b9a3a9cc1a5bddb.tar guix-0b8749b7bdd68c9b28cf3d520b9a3a9cc1a5bddb.tar.gz | |
packages: 'package-field-location' returns a relative file name.
* guix/packages.scm (package-field-location): Set
%FILE-PORT-NAME-CANONICALIZATION.
* tests/packages.scm ("package-field-location, relative file name"): New
test.
Diffstat (limited to 'tests/packages.scm')
| -rw-r--r-- | tests/packages.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/packages.scm b/tests/packages.scm index b499c380ce..7de3fc2156 100644 --- a/tests/packages.scm +++ b/tests/packages.scm @@ -81,6 +81,12 @@ (list version `(version ,version)))) (not (package-field-location %bootstrap-guile 'does-not-exist))))) +;; Make sure we don't change the file name to an absolute file name. +(test-equal "package-field-location, relative file name" + (location-file (package-location %bootstrap-guile)) + (with-fluids ((%file-port-name-canonicalization 'absolute)) + (location-file (package-field-location %bootstrap-guile 'version)))) + (test-assert "package-transitive-inputs" (let* ((a (dummy-package "a")) (b (dummy-package "b" |