summaryrefslogtreecommitdiff
path: root/tests/profiles.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-07-26 18:18:53 +0200
committerLudovic Courtès <ludo@gnu.org>2016-07-26 18:18:53 +0200
commit9e90fc771386a288e1bcf032edbb75bbfc472e7c (patch)
tree9e292feeccc9ed20ba52a3f7b9001b7a4a6d176b /tests/profiles.scm
parent201855221fa426851556b973e39f21e5ced7dfdf (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.scm10
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