Generate different colors for TODO keywords and tags

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"))))))