ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 13:28:12 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
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
Show stats Download patch file Download diff file Expand all files Collapse all files

10
guix/profiles.scm
View file

@ -464,9 +464,13 @@ (define (dump file port)
(string-append result
"/ca-certificates.crt")))))
(gexp->derivation "ca-certificate-bundle" build
#:modules '((guix build utils))
#:local-build? #t))
;; Don't depend on 'glibc-utf8-locales' and its dependencies when there's
;; nothing to do.
(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
#:key

3
guix/scripts/package.scm
View file

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

3
tests/packages.scm
View file

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

3
tests/profiles.scm
View file

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