mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 22:47:56 +00:00
Code Releases Activity

org-num: Fix failing tests

Browse source
This commit is contained in:
Nicolas Goaziou 2019-01-08 11:32:34 +01:00
parent 7d638dcd49
commit 21d646775b
1 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
testing/lisp/test-org-num.el
View file

@ -21,18 +21,18 @@
;;; Code:
;; FIXME: this test fails in batch mode.
;;
;; (ert-deftest test-org-num/face ()
;; "Test `org-num-face' parameter."
;; (should
;; (equal
;; '(foo)
;; (org-test-with-temp-text "* H1"
;; (let ((org-num-face 'foo)) (org-num-mode 1))
;; (mapcar (lambda (o)
;; (get-text-property 0 'face (overlay-get o 'after-string)))
;; (overlays-in (point-min) (point-max)))))))
(require 'org-num)
(ert-deftest test-org-num/face ()
"Test `org-num-face' parameter."
(should
(equal
'(foo)
(org-test-with-temp-text "* H1"
(let ((org-num-face 'foo)) (org-num-mode 1))
(mapcar (lambda (o)
(get-text-property 0 'face (overlay-get o 'after-string)))
(overlays-in (point-min) (point-max)))))))
(ert-deftest test-org-num/format-function ()
"Test `org-num-format-function' parameter."