Minor change to allow easier batch runs.

m0smith · Mar 4, 2009 · 383633d · 383633d
1 parent f77a58e
commit 383633d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/test/lisp/elk-test.el b/src/test/lisp/elk-test.el
@@ -211,9 +211,9 @@ case a message describing the errors or success is displayed and returned."
         (error "Undefined test <%s>" name)
       (setq error-list (if (equal (car test-or-group) 'group)
                            ;; is test group
-                           (mapcan 'elk-test-run (cdr test-or-group))
+                           (mapcar 'elk-test-run (cdr test-or-group))
                          ;; is simple test
-                         (elk-test-run-internal test-or-group)))
+                         (cons name (elk-test-run-internal test-or-group))))
       (if (or string-result (interactive-p))
           (message (if error-list
                        (mapconcat 'identity error-list "\n")