From 2a552f1177fc79a66ba5ae53467556dfa3386b68 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sat, 25 May 2013 16:19:06 +0200 Subject: gnu: gettext, attr, acl: Disable `check' phase twiddling when cross building. * gnu/packages/gettext.scm (gettext)[arguments]: Disable `check' phase manipulations when (%current-target-system) is true. * gnu/packages/attr.scm (attr)[arguments]: Likewise. * gnu/packages/acl.scm (acl)[arguments]: Likewise. --- gnu/packages/gettext.scm | 29 ++++++++++++++++------------- 1 file changed, 16 insertions(+), 13 deletions(-) (limited to 'gnu/packages/gettext.scm') diff --git a/gnu/packages/gettext.scm b/gnu/packages/gettext.scm index 29ea54924a..e22b1ba6ff 100644 --- a/gnu/packages/gettext.scm +++ b/gnu/packages/gettext.scm @@ -38,19 +38,22 @@ (build-system gnu-build-system) (arguments `(#:patches (list (assoc-ref %build-inputs "patch/gets")) - #:phases (alist-cons-before - 'check 'patch-tests - (lambda* (#:key inputs #:allow-other-keys) - (let ((bash (assoc-ref inputs "bash"))) - (substitute* (find-files "gettext-tools/tests" - "^msgexec-[0-9]") - (("#![[:blank:]]/bin/sh") - (format #f "#!~a/bin/sh" bash))) - (substitute* (find-files "gettext-tools/gnulib-tests" - "posix_spawn") - (("/bin/sh") - (format #f "~a/bin/bash" bash))))) - %standard-phases))) + #:phases ,(if (%current-target-system) + '%standard-cross-phases + '(alist-cons-before + 'check 'patch-tests + (lambda* (#:key inputs #:allow-other-keys) + ;; TODO: Use (which "sh"). + (let ((bash (assoc-ref inputs "bash"))) + (substitute* (find-files "gettext-tools/tests" + "^msgexec-[0-9]") + (("#![[:blank:]]/bin/sh") + (format #f "#!~a/bin/sh" bash))) + (substitute* (find-files "gettext-tools/gnulib-tests" + "posix_spawn") + (("/bin/sh") + (format #f "~a/bin/bash" bash))))) + %standard-phases)))) (inputs `(("patch/gets" ,(search-patch "gettext-gets-undeclared.patch")))) -- cgit v1.2.3