diff options
author | Tom Willemse | 2020-01-13 22:51:39 -0800 |
---|---|---|
committer | Tom Willemse | 2020-01-13 22:51:39 -0800 |
commit | abf97c386a8d554c517d7d5e327c06666ba1b372 (patch) | |
tree | 33d5277689352ecda83df8119b0af8ace5f2be52 /test/oni-org-test.el | |
parent | 214eb3508189ac346ce2389d4e2a1e939cfa1e75 (diff) | |
download | emacs-config-abf97c386a8d554c517d7d5e327c06666ba1b372.tar.gz emacs-config-abf97c386a8d554c517d7d5e327c06666ba1b372.zip |
Generate different colors for TODO keywords and tags
Diffstat (limited to 'test/oni-org-test.el')
-rw-r--r-- | test/oni-org-test.el | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/test/oni-org-test.el b/test/oni-org-test.el new file mode 100644 index 0000000..dfaf11a --- /dev/null +++ b/test/oni-org-test.el @@ -0,0 +1,18 @@ +(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")))))) |