X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/5ebcae8283b17198ce5f0ee94da7c38c11233259..395f846b05fa37be4d00247941a370e6e0b7790e:/test/core-tests.el

diff --git a/test/core-tests.el b/test/core-tests.el
index 13e547e3d..666ed80e0 100644
--- a/test/core-tests.el
+++ b/test/core-tests.el
@@ -399,6 +399,9 @@
       (and (ert-equal-including-properties (car list1) (car list2))
            (ct-equal-including-properties (cdr list1) (cdr list2)))))
 
+(ert-deftest company-strips-duplicates-returns-nil ()
+  (should (null (company--preprocess-candidates nil))))
+
 (ert-deftest company-strips-duplicates-within-groups ()
   (let* ((kvs '(("a" . "b")
                 ("a" . nil)