From 0866f39b51f18044994118fcdb8d3e85a048da2e Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Thu, 19 Feb 2015 23:00:25 -0500 Subject: Add tests for bog--find-duplicates --- bog-tests.el | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'bog-tests.el') 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)))) -- cgit v1.2.3