mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-30 00:27:52 +00:00
org-num: Fix failing tests
This commit is contained in:
parent
7d638dcd49
commit
21d646775b
|
@ -21,18 +21,18 @@
|
||||||
|
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
;; FIXME: this test fails in batch mode.
|
(require 'org-num)
|
||||||
;;
|
|
||||||
;; (ert-deftest test-org-num/face ()
|
(ert-deftest test-org-num/face ()
|
||||||
;; "Test `org-num-face' parameter."
|
"Test `org-num-face' parameter."
|
||||||
;; (should
|
(should
|
||||||
;; (equal
|
(equal
|
||||||
;; '(foo)
|
'(foo)
|
||||||
;; (org-test-with-temp-text "* H1"
|
(org-test-with-temp-text "* H1"
|
||||||
;; (let ((org-num-face 'foo)) (org-num-mode 1))
|
(let ((org-num-face 'foo)) (org-num-mode 1))
|
||||||
;; (mapcar (lambda (o)
|
(mapcar (lambda (o)
|
||||||
;; (get-text-property 0 'face (overlay-get o 'after-string)))
|
(get-text-property 0 'face (overlay-get o 'after-string)))
|
||||||
;; (overlays-in (point-min) (point-max)))))))
|
(overlays-in (point-min) (point-max)))))))
|
||||||
|
|
||||||
(ert-deftest test-org-num/format-function ()
|
(ert-deftest test-org-num/format-function ()
|
||||||
"Test `org-num-format-function' parameter."
|
"Test `org-num-format-function' parameter."
|
||||||
|
|
Loading…
Reference in a new issue