Added test case to ensure keywords are sorted.

diff --git a/tests.elk b/tests.elk
new file mode 100644 (file)
index 0000000..0d9288b
--- /dev/null
+++ b/tests.elk
@@ -0,0 +1,11 @@
+(require 'elk-test)
+
+(deftest "Sorted keywords"
+  (require 'company-keywords)
+  (dolist (pair company-keywords-alist)
+    (when (consp (cdr pair))
+      (let ((prev (cadr pair)))
+        (dolist (next (cddr pair))
+          (assert-not-equal prev next)
+          (assert-string< prev next)
+          (setq prev next))))))