code.delx.au - gnu-emacs-elpa/blob - tests.elk

   1 (require 'elk-test)
   2
   3 (deftest "Sorted keywords"
   4   (require 'company-keywords)
   5   (dolist (pair company-keywords-alist)
   6     (when (consp (cdr pair))
   7       (let ((prev (cadr pair)))
   8         (dolist (next (cddr pair))
   9           (assert-not-equal prev next)
  10           (assert-string< prev next)
  11           (setq prev next))))))