summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2015-02-19 23:00:25 -0500
committerKyle Meyer <kyle@kyleam.com>2015-02-19 23:00:25 -0500
commit0866f39b51f18044994118fcdb8d3e85a048da2e (patch)
tree25d497dfa61ca2312e6c9292dd5ea31ae8bdd5dd
parent6feb27d7ab06d00e5364d9b9854c641c9f0d7849 (diff)
downloadbog-0866f39b51f18044994118fcdb8d3e85a048da2e.tar.gz
Add tests for bog--find-duplicates
-rw-r--r--bog-tests.el11
1 files changed, 11 insertions, 0 deletions
diff --git a/bog-tests.el b/bog-tests.el
index cdfa02f..d4fad48 100644
--- a/bog-tests.el
+++ b/bog-tests.el
@@ -589,3 +589,14 @@ some text"
(outline-next-visible-heading 3)
(should (equal (org-no-properties (org-get-heading t t))
"orange2000key")))))
+
+
+;;; Other
+
+(ert-deftest bog--find-duplicates ()
+ (should (equal nil (bog--find-duplicates nil)))
+ (should (equal (list 1) (bog--find-duplicates (list 1 1 2))))
+ (should (equal (list "a" "b")
+ (sort (bog--find-duplicates
+ (list "a" "b" "c" "b" "a"))
+ #'string-lessp))))