diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-07-26 18:18:53 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-07-26 18:18:53 +0200 |
| commit | 9e90fc771386a288e1bcf032edbb75bbfc472e7c (patch) | |
| tree | 9e292feeccc9ed20ba52a3f7b9001b7a4a6d176b /tests/profiles.scm | |
| parent | 201855221fa426851556b973e39f21e5ced7dfdf (diff) | |
profiles: Output in 'package->manifest-entry' defaults to "out".
Fixes <http://bugs.gnu.org/24029>.
Reported by Dylan Jeffers <sapientech@openmailbox.org>.
* guix/profiles.scm (package->manifest-entry): Change #:output to
default to "out".
(packages->manifest): Add 'package?' in second 'match' clause.
* tests/profiles.scm ("package->manifest-entry defaults to \"out\""):
New test.
Diffstat (limited to 'tests/profiles.scm')
| -rw-r--r-- | tests/profiles.scm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/profiles.scm b/tests/profiles.scm index fc1dfd2bfcc..028d7b6fb45 100644 --- a/tests/profiles.scm +++ b/tests/profiles.scm | |||
| @@ -207,6 +207,16 @@ | |||
| 207 | #:hooks '()))) | 207 | #:hooks '()))) |
| 208 | (return (derivation-inputs drv)))) | 208 | (return (derivation-inputs drv)))) |
| 209 | 209 | ||
| 210 | (test-assert "package->manifest-entry defaults to \"out\"" | ||
| 211 | (let ((outputs (package-outputs packages:glibc))) | ||
| 212 | (equal? (manifest-entry-output | ||
| 213 | (package->manifest-entry (package | ||
| 214 | (inherit packages:glibc) | ||
| 215 | (outputs (reverse outputs))))) | ||
| 216 | (manifest-entry-output | ||
| 217 | (package->manifest-entry packages:glibc)) | ||
| 218 | "out"))) | ||
| 219 | |||
| 210 | (test-assertm "profile-manifest, search-paths" | 220 | (test-assertm "profile-manifest, search-paths" |
| 211 | (mlet* %store-monad | 221 | (mlet* %store-monad |
| 212 | ((guile -> (package | 222 | ((guile -> (package |
