* test/automated/occur-tests.el (occur-test-create): New function.

Use it to create separate tests for each element, so we run them
all rather than stopping at the first error.

1 files changed, 12 insertions, 6 deletions

diff --git a/test/automated/occur-tests.el b/test/automated/occur-tests.el
index c690f4ada20..306803b7567 100644
--- a/test/automated/occur-tests.el
+++ b/test/automated/occur-tests.el
@@ -335,12 +335,18 @@ Each element has the format:
       (and (buffer-name temp-buffer)
            (kill-buffer temp-buffer)))))
 
-(ert-deftest occur-tests ()
-  "Test the functionality of `occur'.
-The test data is in the `occur-tests' constant."
-  (let ((occur-hook nil))
-    (dolist (test occur-tests)
-      (should (occur-test-case test)))))
+(defun occur-test-create (n)
+  "Create a test for element N of the `occur-tests' constant."
+  (let ((testname (intern (format "occur-test-%.2d" n)))
+        (testdoc (format "Test element %d of `occur-tests'." n)))
+    (eval
+     `(ert-deftest ,testname ()
+        ,testdoc
+        (let (occur-hook)
+          (should (occur-test-case (nth ,n occur-tests))))))))
+
+(dotimes (i (length occur-tests))
+  (occur-test-create i))
 
 (provide 'occur-tests)