code.delx.au - gnu-emacs-elpa/blob - company-tests.el

   1 (require 'ert)
   2 (require 'company)
   3 (require 'company-keywords)
   4
   5 (ert-deftest sorted-keywords ()
   6   "Test that keywords in `company-keywords-alist' are in alphabetical order."
   7   (dolist (pair company-keywords-alist)
   8     (when (consp (cdr pair))
   9       (let ((prev (cadr pair)))
  10         (dolist (next (cddr pair))
  11           (should (not (equal prev next)))
  12           (should (string< prev next))
  13           (setq prev next))))))