[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
16/58: gnu: libgpg-error: Skip failing test on the Hurd.
From: |
guix-commits |
Subject: |
16/58: gnu: libgpg-error: Skip failing test on the Hurd. |
Date: |
Wed, 19 Jul 2023 03:00:46 -0400 (EDT) |
janneke pushed a commit to branch hurd-team
in repository guix.
commit e155a7c61ffa1df8cc11c26397253ee9a59b97ca
Author: Janneke Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Tue Jun 6 19:34:49 2023 +0200
gnu: libgpg-error: Skip failing test on the Hurd.
* gnu/packages/gnupg.scm (libgpg-error)[arguments]: When building natively
on
the Hurd, add phase 'skip-tests'.
---
gnu/packages/gnupg.scm | 82 +++++++++++++++++++++++++++++---------------------
1 file changed, 48 insertions(+), 34 deletions(-)
diff --git a/gnu/packages/gnupg.scm b/gnu/packages/gnupg.scm
index 49d29ed9bd..4a9a8fbb57 100644
--- a/gnu/packages/gnupg.scm
+++ b/gnu/packages/gnupg.scm
@@ -22,6 +22,7 @@
;;; Copyright © 2021 Nikita Domnitskii <nikita@domnitskii.me>
;;; Copyright © 2021 Aleksandr Vityazev <avityazev@posteo.org>
;;; Copyright © 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
+;;; Copyright © 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -94,40 +95,42 @@
(version "1.45")
(source
(origin
- (method url-fetch)
- (uri (string-append "mirror://gnupg/libgpg-error/libgpg-error-"
- version ".tar.bz2"))
- (sha256
- (base32
- "09haz1kk48b8q0hd58g98whylah0fp121yfgjms7pzsbzgj8w3sp"))))
+ (method url-fetch)
+ (uri (string-append "mirror://gnupg/libgpg-error/libgpg-error-"
+ version ".tar.bz2"))
+ (sha256
+ (base32
+ "09haz1kk48b8q0hd58g98whylah0fp121yfgjms7pzsbzgj8w3sp"))))
(build-system gnu-build-system)
(arguments
- (if (%current-target-system)
- `(#:modules ((guix build gnu-build-system)
- (guix build utils))
- #:phases
- (modify-phases %standard-phases
- ;; If this is left out, some generated header
- ;; files will be sprinkled with ‘\c’, which
- ;; the compiler won't like.
- (add-after 'unpack 'fix-gen-lock-obj.sh
- (lambda _
- (substitute* "src/gen-lock-obj.sh"
- (("if test -n `echo -n`") "if ! test -n `echo -n`"))))
- ;; When cross-compiling, some platform specific properties cannot
- ;; be detected. Create a symlink to the appropriate platform
- ;; file if required. Note that these platform files depend on
- ;; both the operating system and architecture!
- ;;
- ;; See Cross-Compiling section at:
- ;; https://github.com/gpg/libgpg-error/blob/master/README
- (add-after 'unpack 'cross-symlinks
- (lambda _
- (define (link triplet source)
- (symlink (string-append "lock-obj-pub." triplet ".h")
- (string-append "src/syscfg/lock-obj-pub."
- source ".h")))
- ,(let* ((target (%current-target-system))
+ (cond
+ ((%current-target-system)
+ (list
+ #:modules '((guix build gnu-build-system)
+ (guix build utils))
+ #:phases
+ #~(modify-phases %standard-phases
+ ;; If this is left out, some generated header
+ ;; files will be sprinkled with ‘\c’, which
+ ;; the compiler won't like.
+ (add-after 'unpack 'fix-gen-lock-obj.sh
+ (lambda _
+ (substitute* "src/gen-lock-obj.sh"
+ (("if test -n `echo -n`") "if ! test -n `echo -n`"))))
+ ;; When cross-compiling, some platform specific properties cannot
+ ;; be detected. Create a symlink to the appropriate platform
+ ;; file if required. Note that these platform files depend on
+ ;; both the operating system and architecture!
+ ;;
+ ;; See Cross-Compiling section at:
+ ;; https://github.com/gpg/libgpg-error/blob/master/README
+ (add-after 'unpack 'cross-symlinks
+ (lambda _
+ (define (link triplet source)
+ (symlink (string-append "lock-obj-pub." triplet ".h")
+ (string-append "src/syscfg/lock-obj-pub."
+ source ".h")))
+ #$(let* ((target (%current-target-system))
(architecture
(string-take target (string-index target #\-))))
(cond ((target-linux? target)
@@ -140,8 +143,19 @@
;; configuration, as this is not correct for
;; all architectures.
(_ #t)))
- (#t #t)))))))
- '()))
+ (#t #t))))))))
+ ((system-hurd?)
+ (list
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'skip-tests
+ (lambda _
+ (substitute*
+ "tests/t-syserror.c"
+ (("(^| )main *\\(.*" all)
+ (string-append all "{\n exit (77);//"))))))))
+ (else
+ '())))
(native-inputs (list gettext-minimal))
(home-page "https://gnupg.org")
(synopsis "Library of error values for GnuPG components")
- 49/58: system: hurd: Add swap-services to hurd-default-essential-services., (continued)
- 49/58: system: hurd: Add swap-services to hurd-default-essential-services., guix-commits, 2023/07/19
- 45/58: gnu: guix: Disable some tests on the Hurd., guix-commits, 2023/07/19
- 53/58: gnu: guix: Update to 1.4.0-9.2a8bf3da1e., guix-commits, 2023/07/19
- 38/58: gnu: fontforge: Support build on the Hurd., guix-commits, 2023/07/19
- 51/58: self: Build gnu/packages/*.go in 26 steps on the Hurd., guix-commits, 2023/07/19
- 57/58: gnu: Add libc-locales-for-target and glibc-locales/hurd., guix-commits, 2023/07/19
- 54/58: DRAFT hurd: Support second boot., guix-commits, 2023/07/19
- 09/58: gnu: m4: Skip gnulib stack-overflow tests for the Hurd., guix-commits, 2023/07/19
- 13/58: gnu: elfutils: Skip failing tests on the Hurd., guix-commits, 2023/07/19
- 14/58: gnu: libbsd: Skip failing test on the Hurd., guix-commits, 2023/07/19
- 16/58: gnu: libgpg-error: Skip failing test on the Hurd.,
guix-commits <=
- 18/58: gnu: tcl: Remove failing tests on the Hurd.., guix-commits, 2023/07/19
- 30/58: gnu: cmake-bootstrap: Fix build for the Hurd., guix-commits, 2023/07/19
- 40/58: gnu: guile-2.0: Skip failing tests on the Hurd., guix-commits, 2023/07/19
- 52/58: gnu: guix: Update to 1.4.0-8.c0b1d7aac7., guix-commits, 2023/07/19