gnu: automake: Adjust test suite to lack of /bin/sh.

* gnu/packages/autotools.scm (autoconf-wrapper): New variable.
  (automake): Use AUTOCONF-WRAPPER instead of AUTOCONF.
  Add `automake-skip-amhello-tests.patch' as an input.
  Add #:patches and #:phases arguments.
* gnu/packages/patches/automake-skip-amhello-tests.patch: New file.
* Makefile.am (dist_patch_DATA): Add it.
This commit is contained in:
Ludovic Courtès 2013-01-22 00:16:47 +01:00
parent f153d89155
commit 7cd1d7bd0c
3 changed files with 174 additions and 45 deletions

View file

@ -136,37 +136,38 @@ GOBJECTS = $(MODULES:%.scm=%.go) guix/config.go
nobase_dist_guilemodule_DATA = $(MODULES) nobase_dist_guilemodule_DATA = $(MODULES)
patchdir = $(guilemoduledir)/gnu/packages/patches patchdir = $(guilemoduledir)/gnu/packages/patches
dist_patch_DATA = \ dist_patch_DATA = \
gnu/packages/patches/bigloo-gc-shebangs.patch \ gnu/packages/patches/automake-skip-amhello-tests.patch \
gnu/packages/patches/binutils-ld-new-dtags.patch \ gnu/packages/patches/bigloo-gc-shebangs.patch \
gnu/packages/patches/cpio-gets-undeclared.patch \ gnu/packages/patches/binutils-ld-new-dtags.patch \
gnu/packages/patches/diffutils-gets-undeclared.patch \ gnu/packages/patches/cpio-gets-undeclared.patch \
gnu/packages/patches/emacs-configure-sh.patch \ gnu/packages/patches/diffutils-gets-undeclared.patch \
gnu/packages/patches/flex-bison-tests.patch \ gnu/packages/patches/emacs-configure-sh.patch \
gnu/packages/patches/gawk-shell.patch \ gnu/packages/patches/flex-bison-tests.patch \
gnu/packages/patches/gettext-gets-undeclared.patch \ gnu/packages/patches/gawk-shell.patch \
gnu/packages/patches/glib-tests-desktop.patch \ gnu/packages/patches/gettext-gets-undeclared.patch \
gnu/packages/patches/glib-tests-homedir.patch \ gnu/packages/patches/glib-tests-desktop.patch \
gnu/packages/patches/glib-tests-timezone.patch \ gnu/packages/patches/glib-tests-homedir.patch \
gnu/packages/patches/glibc-bootstrap-system.patch \ gnu/packages/patches/glib-tests-timezone.patch \
gnu/packages/patches/glibc-no-ld-so-cache.patch \ gnu/packages/patches/glibc-bootstrap-system.patch \
gnu/packages/patches/guile-1.8-cpp-4.5.patch \ gnu/packages/patches/glibc-no-ld-so-cache.patch \
gnu/packages/patches/guile-default-utf8.patch \ gnu/packages/patches/guile-1.8-cpp-4.5.patch \
gnu/packages/patches/guile-relocatable.patch \ gnu/packages/patches/guile-default-utf8.patch \
gnu/packages/patches/libevent-dns-tests.patch \ gnu/packages/patches/guile-relocatable.patch \
gnu/packages/patches/libtool-skip-tests.patch \ gnu/packages/patches/libevent-dns-tests.patch \
gnu/packages/patches/lsh-guile-compat.patch \ gnu/packages/patches/libtool-skip-tests.patch \
gnu/packages/patches/lsh-no-root-login.patch \ gnu/packages/patches/lsh-guile-compat.patch \
gnu/packages/patches/lsh-pam-service-name.patch \ gnu/packages/patches/lsh-no-root-login.patch \
gnu/packages/patches/m4-gets-undeclared.patch \ gnu/packages/patches/lsh-pam-service-name.patch \
gnu/packages/patches/m4-readlink-EINVAL.patch \ gnu/packages/patches/m4-gets-undeclared.patch \
gnu/packages/patches/m4-s_isdir.patch \ gnu/packages/patches/m4-readlink-EINVAL.patch \
gnu/packages/patches/make-impure-dirs.patch \ gnu/packages/patches/m4-s_isdir.patch \
gnu/packages/patches/findutils-absolute-paths.patch \ gnu/packages/patches/make-impure-dirs.patch \
gnu/packages/patches/perl-no-sys-dirs.patch \ gnu/packages/patches/findutils-absolute-paths.patch \
gnu/packages/patches/procps-make-3.82.patch \ gnu/packages/patches/perl-no-sys-dirs.patch \
gnu/packages/patches/readline-link-ncurses.patch \ gnu/packages/patches/procps-make-3.82.patch \
gnu/packages/patches/shishi-gets-undeclared.patch \ gnu/packages/patches/readline-link-ncurses.patch \
gnu/packages/patches/shishi-gets-undeclared.patch \
gnu/packages/patches/tar-gets-undeclared.patch gnu/packages/patches/tar-gets-undeclared.patch
bootstrapdir = $(guilemoduledir)/gnu/packages/bootstrap bootstrapdir = $(guilemoduledir)/gnu/packages/bootstrap

View file

@ -22,9 +22,12 @@ (define-module (gnu packages autotools)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages perl) #:use-module (gnu packages perl)
#:use-module (gnu packages m4) #:use-module (gnu packages m4)
#:use-module (gnu packages bash)
#:use-module (guix utils)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix download) #:use-module (guix download)
#:use-module (guix build-system gnu)) #:use-module (guix build-system gnu)
#:use-module (guix build-system trivial))
(define-public autoconf (define-public autoconf
(package (package
@ -59,31 +62,117 @@ (define-public autoconf
can use, in the form of M4 macro calls.") can use, in the form of M4 macro calls.")
(license gpl3+))) ; some files are under GPLv2+ (license gpl3+))) ; some files are under GPLv2+
(define autoconf-wrapper
;; An Autoconf wrapper that generates `configure' scripts that use our
;; own Bash instead of /bin/sh in shebangs. For that reason, it
;; should only be used internally---users should not end up
;; distributing `configure' files with a system-specific shebang.
(package (inherit autoconf)
(location (source-properties->location (current-source-location)))
(name (string-append (package-name autoconf) "-wrapper"))
(build-system trivial-build-system)
(inputs `(("guile"
,(lambda _
;; XXX: Kludge to hide the circular dependency.
(module-ref (resolve-interface '(gnu packages guile))
'guile-2.0)))
("autoconf" ,autoconf)
("bash" ,bash)))
(arguments
'(#:modules ((guix build utils))
#:builder
(begin
(use-modules (guix build utils))
(let* ((out (assoc-ref %outputs "out"))
(bin (string-append out "/bin"))
(autoconf (string-append
(assoc-ref %build-inputs "autoconf")
"/bin/autoconf"))
(guile (string-append
(assoc-ref %build-inputs "guile")
"/bin/guile"))
(sh (string-append
(assoc-ref %build-inputs "bash")
"/bin/sh"))
(modules ((compose dirname dirname dirname)
(search-path %load-path
"guix/build/utils.scm"))))
(mkdir-p bin)
;; Symlink all the binaries but `autoconf'.
(with-directory-excursion bin
(for-each (lambda (file)
(unless (string=? (basename file) "autoconf")
(symlink file (basename file))))
(find-files (dirname autoconf) ".*")))
;; Add an `autoconf' binary that wraps the real one.
(call-with-output-file (string-append bin "/autoconf")
(lambda (port)
;; Shamefully, Guile can be used in shebangs only if a
;; single argument is passed (-ds); otherwise it gets
;; them all as a single argument and fails to parse them.
(format port "#!~a
export GUILE_LOAD_PATH=\"~a\"
export GUILE_LOAD_COMPILED_PATH=\"~a\"
exec ~a --no-auto-compile \"$0\" \"$@\"
!#~%"
sh modules modules guile)
(write
`(begin
(use-modules (guix build utils))
(let ((result (apply system* ,autoconf
(cdr (command-line)))))
(if (and (zero? result)
(file-exists? "configure")
(not (file-exists? "/bin/sh")))
(begin
(patch-shebang "configure")
#t)
(exit (status:exit-val result)))))
port)))
(chmod (string-append bin "/autoconf") #o555)))))))
(define-public automake (define-public automake
(package (package
(name "automake") (name "automake")
(version "1.12.6") (version "1.12.6")
(source (source (origin
(origin (method url-fetch)
(method url-fetch) (uri (string-append "mirror://gnu/automake/automake-"
(uri (string-append "mirror://gnu/automake/automake-" version ".tar.xz"))
version ".tar.xz")) (sha256
(sha256 (base32
(base32 "1ynvca8z4aqcwr94rf7j1bfiid2w9w250y9qhnyj9vmi8lhsnd7q"))))
"1ynvca8z4aqcwr94rf7j1bfiid2w9w250y9qhnyj9vmi8lhsnd7q"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs (inputs
`(("autoconf" ,autoconf) `(("autoconf" ,autoconf-wrapper)
("perl" ,perl))) ("perl" ,perl)
(home-page ("patch/skip-amhello"
"http://www.gnu.org/software/automake/") ,(search-patch "automake-skip-amhello-tests.patch"))))
(arguments
'(#:patches (list (assoc-ref %build-inputs "patch/skip-amhello"))
#:phases (alist-cons-before
'patch-source-shebangs 'patch-tests-shebangs
(lambda _
(let ((sh (which "sh")))
(substitute* (find-files "t" "\\.(sh|tap)$")
(("#![[:blank:]]?/bin/sh")
(string-append "#!" sh)))
;; Set these variables for all the `configure' runs
;; that occur during the test suite.
(setenv "SHELL" sh)
(setenv "CONFIG_SHELL" sh)))
%standard-phases)))
(home-page "http://www.gnu.org/software/automake/")
(synopsis (synopsis
"GNU Automake, a GNU standard-compliant makefile generator") "GNU Automake, a GNU standard-compliant makefile generator")
(description (description
"GNU Automake is a tool for automatically generating "GNU Automake is a tool for automatically generating
`Makefile.in' files compliant with the GNU Coding `Makefile.in' files compliant with the GNU Coding
Standards. Automake requires the use of Autoconf.") Standards. Automake requires the use of Autoconf.")
(license gpl2+))) ; some files are under GPLv3+ (license gpl2+))) ; some files are under GPLv3+
(define-public libtool (define-public libtool
(package (package

View file

@ -0,0 +1,39 @@
Skip tests that rely on the `amhello' tarball that comes with Automake.
That tarball's `configure' uses #!/bin/sh, but we can't easily patch it.
diff --git a/t/amhello-binpkg.sh b/t/amhello-binpkg.sh
index fa88cc6..d988cee 100755
--- a/t/amhello-binpkg.sh
+++ b/t/amhello-binpkg.sh
@@ -17,6 +17,7 @@
# Test an example from the manual about the 'amhello' package:
# using DESTDIR to build simple, no-frills binary packages.
+exit 77
am_create_testdir=empty
. ./defs || exit 1
diff --git a/t/amhello-cflags.sh b/t/amhello-cflags.sh
index 666011f..2a95e3c 100755
--- a/t/amhello-cflags.sh
+++ b/t/amhello-cflags.sh
@@ -18,6 +18,7 @@
# using VPATH builds to configure the same package with different
# options.
+exit 77
am_create_testdir=empty
required=gcc
. ./defs || exit 1
diff --git a/t/amhello-cross-compile.sh b/t/amhello-cross-compile.sh
index 708abda..2ee4292 100755
--- a/t/amhello-cross-compile.sh
+++ b/t/amhello-cross-compile.sh
@@ -17,6 +17,7 @@
# Test an example from the manual about the 'amhello' package:
# cross-compiling a package from Linux/Unix to MinGW.
+exit 77
am_create_testdir=empty
required=i586-mingw32msvc-gcc
. ./defs || exit 1