gnu: emacs-elpy: Reinstate disabled tests.
* gnu/packages/emacs-xyz.scm (emacs-elpy): [phases]: Delete trailing #t. {disable-problematic-tests}: Remove phase.
This commit is contained in:
parent
221985ce6b
commit
4e2dc58367
|
@ -9124,17 +9124,6 @@ (define-public emacs-elpy
|
||||||
`(#:include (cons* "^elpy/[^/]+\\.py$" "^snippets\\/" %default-include)
|
`(#:include (cons* "^elpy/[^/]+\\.py$" "^snippets\\/" %default-include)
|
||||||
#:phases
|
#:phases
|
||||||
(modify-phases %standard-phases
|
(modify-phases %standard-phases
|
||||||
;; The following tests fail when building with Emacs 27 (see:
|
|
||||||
;; https://github.com/jorgenschaefer/elpy/issues/1812).
|
|
||||||
(add-after 'unpack 'disable-problematic-tests
|
|
||||||
(lambda _
|
|
||||||
(substitute* "test/elpy-company-backend-test.el"
|
|
||||||
(("elpy-company-backend-should-add-shell-candidates.*" all)
|
|
||||||
(string-append all " (skip-unless nil)\n")))
|
|
||||||
(substitute* "test/elpy-folding-fold-comments-test.el"
|
|
||||||
(("elpy-fold-at-point-should-fold-and-unfold-comments.*" all)
|
|
||||||
(string-append all " (skip-unless nil)\n")))
|
|
||||||
#t))
|
|
||||||
;; The default environment of the RPC uses Virtualenv to install
|
;; The default environment of the RPC uses Virtualenv to install
|
||||||
;; Python dependencies from PyPI. We don't want/need this in Guix.
|
;; Python dependencies from PyPI. We don't want/need this in Guix.
|
||||||
(add-before 'check 'do-not-use-virtualenv
|
(add-before 'check 'do-not-use-virtualenv
|
||||||
|
@ -9142,24 +9131,21 @@ (define-public emacs-elpy
|
||||||
(setenv "ELPY_TEST_DONT_USE_VIRTUALENV" "1")
|
(setenv "ELPY_TEST_DONT_USE_VIRTUALENV" "1")
|
||||||
(substitute* "elpy-rpc.el"
|
(substitute* "elpy-rpc.el"
|
||||||
(("defcustom elpy-rpc-virtualenv-path 'default")
|
(("defcustom elpy-rpc-virtualenv-path 'default")
|
||||||
"defcustom elpy-rpc-virtualenv-path 'system"))
|
"defcustom elpy-rpc-virtualenv-path 'system"))))
|
||||||
#t))
|
|
||||||
(add-before 'check 'build-doc
|
(add-before 'check 'build-doc
|
||||||
(lambda _
|
(lambda _
|
||||||
(with-directory-excursion "docs"
|
(with-directory-excursion "docs"
|
||||||
(invoke "make" "info" "man"))
|
(invoke "make" "info" "man"))
|
||||||
;; Move .info file at the root so that it can installed by the
|
;; Move .info file at the root so that it can installed by the
|
||||||
;; 'move-doc phase.
|
;; 'move-doc phase.
|
||||||
(rename-file "docs/_build/texinfo/Elpy.info" "Elpy.info")
|
(rename-file "docs/_build/texinfo/Elpy.info" "Elpy.info")))
|
||||||
#t))
|
|
||||||
(add-after 'build-doc 'install-manpage
|
(add-after 'build-doc 'install-manpage
|
||||||
(lambda* (#:key outputs #:allow-other-keys)
|
(lambda* (#:key outputs #:allow-other-keys)
|
||||||
(let* ((out (assoc-ref outputs "out"))
|
(let* ((out (assoc-ref outputs "out"))
|
||||||
(man1 (string-append out "/share/man/man1")))
|
(man1 (string-append out "/share/man/man1")))
|
||||||
(mkdir-p man1)
|
(mkdir-p man1)
|
||||||
(copy-file "docs/_build/man/elpy.1"
|
(copy-file "docs/_build/man/elpy.1"
|
||||||
(string-append man1 "/elpy.1")))
|
(string-append man1 "/elpy.1"))))))
|
||||||
#t)))
|
|
||||||
#:tests? #t
|
#:tests? #t
|
||||||
#:test-command '("ert-runner")))
|
#:test-command '("ert-runner")))
|
||||||
(propagated-inputs
|
(propagated-inputs
|
||||||
|
|
Loading…
Reference in a new issue