From abf97c386a8d554c517d7d5e327c06666ba1b372 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Mon, 13 Jan 2020 22:51:39 -0800
Subject: Generate different colors for TODO keywords and tags

---
 test/oni-org-test.el | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 test/oni-org-test.el

(limited to 'test')

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"))))))
-- 
cgit v1.2.3-54-g00ecf