gnu: emacs-adoc-mode: Enable tests.

* gnu/packages/emacs-xyz.scm (emacs-adoc-mode)[source]: Fetch sources from
Git, as there are no tests in the MELPA release.
[arguments]: Enable tests and specify the test command.
{phases}: Add a 'disable-failing-tests phase.
This commit is contained in:
Maxim Cournoyer 2019-11-01 21:37:37 -04:00
parent 23c5c8e4e4
commit 44d1cce557
No known key found for this signature in database
GPG key ID: 1260E46482E63562

View file

@ -15869,13 +15869,41 @@ (define-public emacs-adoc-mode
(version "0.6.6")
(source
(origin
(method url-fetch)
(uri (string-append "https://stable.melpa.org/packages/adoc-mode-"
version ".el"))
(method git-fetch)
(uri (git-reference
(url "https://github.com/sensorflo/adoc-mode.git")
(commit (string-append "V" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1c6hrgxxsnl2c19rgjykpm7r4xg9lp6bmk5z6bi7g8pqlrgwffcy"))))
"0kp2aafjhqxz3mjr9hkkss85r4n51chws5a2qj1xzb63dh36liwm"))))
(build-system emacs-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
;; See: https://github.com/sensorflo/adoc-mode/issues/39.
(add-after 'unpack 'disable-failing-tests
(lambda _
(let-syntax
((disable-tests
(syntax-rules ()
((_ file ())
(syntax-error "test names list must not be empty"))
((_ file (test-name ...))
(substitute* file
(((string-append "^\\(ert-deftest " test-name ".*") all)
(string-append all "(skip-unless nil)\n")) ...)))))
(disable-tests "adoc-mode-test.el"
("adoctest-test-tempo-delimited-blocks"
"adoctest-test-tempo-macros"
"adoctest-test-tempo-paragraphs"
"adoctest-test-tempo-passthroug-macros"
"adoctest-test-tempo-quotes")))
#t)))
#:tests? #t
#:test-command '("emacs" "-Q" "-batch"
"-l" "adoc-mode-test.el"
"-f" "ert-run-tests-batch-and-exit")))
(propagated-inputs
`(("emacs-markup-faces" ,emacs-markup-faces)))
(home-page "https://github.com/sensorflo/adoc-mode/wiki")