summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2015-07-09 17:41:38 -0400
committerMark H Weaver <mhw@netris.org>2015-07-09 17:43:34 -0400
commitb93c1d9dba450f5b32d63ab72c1f48b590e23cd8 (patch)
treea0bb0e3842b203a626a01f64f497d5c7af3176b8
parentdd9114107d8ed3a616f309425d75462c6436d460 (diff)
gnu: guix: Update snapshot.
* gnu/packages/package-management.scm (guix-devel): Update to dd91141. [arguments]: Use 'modify-phases'. Add 'disable-container-tests' phase.
-rw-r--r--gnu/packages/package-management.scm33
1 files changed, 22 insertions, 11 deletions
diff --git a/gnu/packages/package-management.scm b/gnu/packages/package-management.scm
index 9865c1cce8..a61a079642 100644
--- a/gnu/packages/package-management.scm
+++ b/gnu/packages/package-management.scm
@@ -165,7 +165,7 @@ the Nix package manager.")
;;
;; Note: use a short commit id; when using the long one, the limit on socket
;; file names is exceeded while running the tests.
- (let ((commit "684bf7c"))
+ (let ((commit "dd91141"))
(package (inherit guix-0.8.2)
(version (string-append "0.8.2." commit))
(source (origin
@@ -175,21 +175,32 @@ the Nix package manager.")
(commit commit)))
(sha256
(base32
- "0fq9ajj17kbb0f1p79al2vcqah9sl0imayhggcp31c3vq0ahya9g"))
+ "05rgz1kkxjsc07asvwrf6gpjc8blpvs5ipbby4kvjjq6j0g2bgxa"))
(file-name (string-append "guix-" version "-checkout"))))
(arguments
(substitute-keyword-arguments (package-arguments guix-0.8.2)
((#:phases phases)
- `(alist-cons-after
- 'unpack 'bootstrap
- (lambda _
- ;; Make sure 'msgmerge' can modify the PO files.
- (for-each (lambda (po)
- (chmod po #o666))
- (find-files "." "\\.po$"))
+ `(modify-phases ,phases
+ (add-after
+ 'unpack 'bootstrap
+ (lambda _
+ ;; Make sure 'msgmerge' can modify the PO files.
+ (for-each (lambda (po)
+ (chmod po #o666))
+ (find-files "." "\\.po$"))
- (zero? (system* "sh" "bootstrap")))
- ,phases))))
+ (zero? (system* "sh" "bootstrap"))))
+ (add-after
+ 'unpack 'disable-container-tests
+ ;; XXX FIXME: These tests fail within the build container.
+ (lambda _
+ (substitute* "tests/syscalls.scm"
+ (("^\\(test-assert \"(clone|setns|pivot-root)\"" all)
+ (string-append "(test-skip 1)\n" all)))
+ (substitute* "tests/containers.scm"
+ (("^\\(test-assert" all)
+ (string-append "(test-skip 1)\n" all)))
+ #t))))))
(native-inputs
`(("autoconf" ,(autoconf-wrapper))
("automake" ,automake)