me/guix
Archived
1
0
Fork 0
Code Activity

gnu: emacs-circadian: Fix build.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-circadian)[arguments]<#:phases>: Skip
failing tests.
This commit is contained in:
Nicolas Goaziou 2023-05-03 16:12:59 +02:00
parent 9559356264
commit 23c65faff2
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gnu/packages/emacs-xyz.scm
View file

@ -21762,16 +21762,18 @@ timestamps by providing a @code{ts} struct.")
(list (list
#:tests? #t #:tests? #t
#:test-command #:test-command
#~(list "emacs" "--batch" #~(list "emacs" "-Q" "--batch"
"-l" "test.el" "-l" "test.el"
"--eval" "(ert-run-tests-batch-and-exit test-order)") "--eval" "(ert-run-tests-batch-and-exit test-order)")
#:phases #:phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'check 'skip-failing-test (add-before 'check 'skip-failing-test
;; XXX: Skip known (to upstream) failing test. ;; XXX: Skip known (to upstream) failing tests.
(lambda _ (lambda _
(substitute* "test.el" (substitute* "test.el"
(("\\(ert-deftest test-circadian-sunrise-sunset .*" all) (("\\(ert-deftest test-circadian-sunrise-sunset .*" all)
(string-append all " (skip-unless nil)"))
(("\\(ert-deftest test-circadian-setup-benchmark .*" all)
(string-append all " (skip-unless nil)")))))))) (string-append all " (skip-unless nil)"))))))))
(native-inputs (native-inputs
(list emacs-el-mock)) (list emacs-el-mock))