diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2015-02-19 23:00:25 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2015-02-19 23:00:25 -0500 |
| commit | 0866f39b51f18044994118fcdb8d3e85a048da2e (patch) | |
| tree | 25d497dfa61ca2312e6c9292dd5ea31ae8bdd5dd | |
| parent | 6feb27d7ab06d00e5364d9b9854c641c9f0d7849 (diff) | |
| download | bog-0866f39b51f18044994118fcdb8d3e85a048da2e.tar.gz | |
Add tests for bog--find-duplicates
| -rw-r--r-- | bog-tests.el | 11 |
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)))) |