mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-26 06:18:07 -05:00
gnu: emacs-org-journal: Disable failing tests.
* gnu/packages/emacs-xyz.scm (emacs-org-journal) [arguments]: Add disable-failing-tests phase. Change-Id: I466cb46613a7048ccbda66cd7855001a04871891
This commit is contained in:
parent
72f31a9be6
commit
ec24673bf9
1 changed files with 21 additions and 1 deletions
|
@ -36039,7 +36039,27 @@ (define-public emacs-org-journal
|
|||
#:test-command #~(list "emacs" "-Q" "--batch"
|
||||
"-L" "."
|
||||
"-l" "tests/org-journal-test"
|
||||
"-f" "ert-run-tests-batch-and-exit")))
|
||||
"-f" "ert-run-tests-batch-and-exit")
|
||||
#:phases
|
||||
#~(modify-phases %standard-phases
|
||||
(add-before 'check '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")) ...)))))
|
||||
;; These tests fail for unknown reasons (see:
|
||||
;; https://github.com/bastibe/org-journal/issues/427).
|
||||
(disable-tests
|
||||
"tests/org-journal-test.el"
|
||||
("org-journal-carryover-delete-empty-journal-test"
|
||||
"org-journal-carryover-items-test"
|
||||
"org-journal-scheduled-weekly-test"))))))))
|
||||
(home-page "https://github.com/bastibe/org-journal")
|
||||
(synopsis "Simple Org mode journaling mode")
|
||||
(description
|
||||
|
|
Loading…
Reference in a new issue