gnu: lsh: Enable some tests.
* gnu/packages/ssh.scm (lsh)[native-inputs]: Add autoconf and automake. [arguments]: Remove #:tests? argument. [phases]{disable-failing-tests}: New phase.
This commit is contained in:
parent
0ec195ff02
commit
3e34f89980
1 changed files with 15 additions and 7 deletions
|
@ -598,7 +598,9 @@ basis for almost any application.")
|
||||||
(patches (search-patches "lsh-fix-x11-forwarding.patch"))))
|
(patches (search-patches "lsh-fix-x11-forwarding.patch"))))
|
||||||
(build-system gnu-build-system)
|
(build-system gnu-build-system)
|
||||||
(native-inputs
|
(native-inputs
|
||||||
`(("m4" ,m4)
|
`(("autoconf" ,autoconf)
|
||||||
|
("automake" ,automake)
|
||||||
|
("m4" ,m4)
|
||||||
("guile" ,guile-2.0)
|
("guile" ,guile-2.0)
|
||||||
("gperf" ,gperf)
|
("gperf" ,gperf)
|
||||||
("psmisc" ,psmisc))) ; for `killall'
|
("psmisc" ,psmisc))) ; for `killall'
|
||||||
|
@ -630,14 +632,20 @@ basis for almost any application.")
|
||||||
;; 'lsh_argp.h' checks HAVE_ARGP_PARSE but nothing
|
;; 'lsh_argp.h' checks HAVE_ARGP_PARSE but nothing
|
||||||
;; defines it.
|
;; defines it.
|
||||||
"CPPFLAGS=-DHAVE_ARGP_PARSE")
|
"CPPFLAGS=-DHAVE_ARGP_PARSE")
|
||||||
|
|
||||||
;; FIXME: Tests won't run in a chroot, presumably because
|
|
||||||
;; /etc/profile is missing, and thus clients get an empty $PATH
|
|
||||||
;; and nothing works.
|
|
||||||
#:tests? #f
|
|
||||||
|
|
||||||
#:phases
|
#:phases
|
||||||
(modify-phases %standard-phases
|
(modify-phases %standard-phases
|
||||||
|
(add-after 'unpack 'disable-failing-tests
|
||||||
|
(lambda _
|
||||||
|
;; FIXME: Most tests won't run in a chroot, presumably because
|
||||||
|
;; /etc/profile is missing, and thus clients get an empty $PATH
|
||||||
|
;; and nothing works. Run only the subset that passes.
|
||||||
|
(delete-file "configure") ;force rebootstrap
|
||||||
|
(substitute* "src/testsuite/Makefile.am"
|
||||||
|
(("seed-test \\\\") ;prevent trailing slash
|
||||||
|
"seed-test")
|
||||||
|
(("^\t(lsh|daemon|tcpip|socks|lshg|lcp|rapid7|lshd).*test.*")
|
||||||
|
""))
|
||||||
|
#t))
|
||||||
(add-before 'configure 'pre-configure
|
(add-before 'configure 'pre-configure
|
||||||
(lambda* (#:key inputs #:allow-other-keys)
|
(lambda* (#:key inputs #:allow-other-keys)
|
||||||
(let* ((nettle (assoc-ref inputs "nettle"))
|
(let* ((nettle (assoc-ref inputs "nettle"))
|
||||||
|
|
Reference in a new issue