Don't use ert-select-tests' in ert-delete-all-tests'.

ohler · Sep 29, 2010 · caac900 · caac900
1 parent de487b5
commit caac900
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/ert-ui.el b/ert-ui.el
@@ -116,7 +116,10 @@ Nothing more than an interactive interface to `ert-make-test-unbound'."
   (when (interactive-p)
     (unless (y-or-n-p "Delete all tests? ")
       (error "Aborted")))
-  (mapc #'ert-delete-test (mapcar #'ert-test-name (ert-select-tests t t)))
+  ;; We can't use `ert-select-tests' here since that gives us only
+  ;; test objects, and going from them back to the test name symbols
+  ;; can fail if the `ert-test' defstruct has been redefined.
+  (mapc #'ert-make-test-unbound (apropos-internal "" #'ert-test-boundp))
   t)