]> code.delx.au - gnu-emacs-elpa/commitdiff
Moved tests to ERT.
authorNikolaj Schumacher <git@nschum.de>
Sat, 18 Jun 2011 12:14:50 +0000 (14:14 +0200)
committerNikolaj Schumacher <git@nschum.de>
Sat, 18 Jun 2011 12:14:50 +0000 (14:14 +0200)
company-tests.el [new file with mode: 0644]
tests.elk [deleted file]

diff --git a/company-tests.el b/company-tests.el
new file mode 100644 (file)
index 0000000..bb1e654
--- /dev/null
@@ -0,0 +1,13 @@
+(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))))))
diff --git a/tests.elk b/tests.elk
deleted file mode 100644 (file)
index 0d9288b..0000000
--- a/tests.elk
+++ /dev/null
@@ -1,11 +0,0 @@
-(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))))))