-(require 'ert)
-(require 'company)
-(require 'company-keywords)
-
-(ert-deftest sorted-keywords ()
- "Test that keywords in `company-keywords-alist' are in alphabetical order."
- (dolist (pair company-keywords-alist)
- (when (consp (cdr pair))
- (let ((prev (cadr pair)))
- (dolist (next (cddr pair))
- (should (not (equal prev next)))
- (should (string< prev next))
- (setq prev next))))))