tests: Remove dependency on 'glibc-utf8-locales' for profile tests.

This fixes a regression introduced in commit 536c3ee.

* guix/profiles.scm (ca-certificate-bundle): When MANIFEST is empty,
  make a trivial derivation.
* guix/scripts/package.scm (guix-package)[process-actions]: Pass
  #:ca-certificate-bundle? to 'profile-generation'.
* tests/packages.scm ("--search-paths with pattern"): Likewise.
* tests/profiles.scm ("profile-derivation"): Likewise.
This commit is contained in:
Ludovic Courtès 2015-03-04 17:04:35 +01:00
parent 0e309f1e5b
commit 6d0b9d03ce
4 changed files with 13 additions and 6 deletions

View file

@ -464,9 +464,13 @@ (define (dump file port)
(string-append result (string-append result
"/ca-certificates.crt"))))) "/ca-certificates.crt")))))
(gexp->derivation "ca-certificate-bundle" build ;; Don't depend on 'glibc-utf8-locales' and its dependencies when there's
#:modules '((guix build utils)) ;; nothing to do.
#:local-build? #t)) (if (null? (manifest-entries manifest))
(gexp->derivation "ca-certificate-bundle" #~(mkdir #$output))
(gexp->derivation "ca-certificate-bundle" build
#:modules '((guix build utils))
#:local-build? #t)))
(define* (profile-derivation manifest (define* (profile-derivation manifest
#:key #:key

View file

@ -829,7 +829,8 @@ (define current-generation-number
(let* ((prof-drv (run-with-store (%store) (let* ((prof-drv (run-with-store (%store)
(profile-derivation (profile-derivation
new new
#:info-dir? (not bootstrap?)))) #:info-dir? (not bootstrap?)
#:ca-certificate-bundle? (not bootstrap?))))
(prof (derivation->output-path prof-drv))) (prof (derivation->output-path prof-drv)))
(show-manifest-transaction (%store) manifest transaction (show-manifest-transaction (%store) manifest transaction
#:dry-run? dry-run?) #:dry-run? dry-run?)

View file

@ -599,7 +599,8 @@ (define read-at
(profile-derivation (profile-derivation
(manifest (map package->manifest-entry (manifest (map package->manifest-entry
(list p1 p2))) (list p1 p2)))
#:info-dir? #f) #:info-dir? #f
#:ca-certificate-bundle? #f)
#:guile-for-build (%guile-for-build)))) #:guile-for-build (%guile-for-build))))
(build-derivations %store (list prof)) (build-derivations %store (list prof))
(string-match (format #f "^export XML_CATALOG_FILES=\"~a/xml/+bar/baz/catalog\\.xml\"\n" (string-match (format #f "^export XML_CATALOG_FILES=\"~a/xml/+bar/baz/catalog\\.xml\"\n"

View file

@ -182,7 +182,8 @@ (define glibc
((entry -> (package->manifest-entry %bootstrap-guile)) ((entry -> (package->manifest-entry %bootstrap-guile))
(guile (package->derivation %bootstrap-guile)) (guile (package->derivation %bootstrap-guile))
(drv (profile-derivation (manifest (list entry)) (drv (profile-derivation (manifest (list entry))
#:info-dir? #f)) #:info-dir? #f
#:ca-certificate-bundle? #f))
(profile -> (derivation->output-path drv)) (profile -> (derivation->output-path drv))
(bindir -> (string-append profile "/bin")) (bindir -> (string-append profile "/bin"))
(_ (built-derivations (list drv)))) (_ (built-derivations (list drv))))