20 lines
866 B
EmacsLisp
20 lines
866 B
EmacsLisp
(require 'oni-org)
|
||
|
||
(ert-deftest oni-org-test-color-for ()
|
||
"Test that ‘oni-org-color-for’ returns a hex color name."
|
||
(should (string= "#acbd18" (oni-org-color-for "foo"))))
|
||
|
||
(ert-deftest oni-org-test-generate-todo-keyword-faces ()
|
||
"Test that ‘oni-org-generate-todo-keyword-faces’ returns a list of colors."
|
||
(let ((org-todo-keywords-1 '("foo" "bar")))
|
||
(should (equal (oni-org-generate-todo-keyword-faces)
|
||
'(("foo" . "#acbd18")
|
||
("bar" . "#37b51d"))))))
|
||
|
||
(ert-deftest oni-org-test-generate-tag-faces ()
|
||
"Test that ‘oni-org-generate-tag-faces’ returns a list of colors."
|
||
(cl-letf (((symbol-function 'org-get-buffer-tags)
|
||
(lambda () '(("foo") ("bar")))))
|
||
(should (equal (oni-org-generate-tag-faces)
|
||
'(("foo" . "#acbd18")
|
||
("bar" . "#37b51d"))))))
|