Mark two tests as expensive

* test/lisp/calendar/todo-mode-tests.el
(todo-test-add-and-delete-file):
* test/lisp/simple-tests.el (simple-tests-shell-command-39067):
Mark tests taking more than 10 seconds to run on a MacBook Pro from
2015 as expensive.

diff --git a/test/lisp/calendar/todo-mode-tests.el b/test/lisp/calendar/todo-mode-tests.el
index 3b49dd56b69f3bdd84ac29cb3e99294af616467b..b72c139b70ac06bedb40a2681f16ac9c4dfb446b 100644 (file)
--- a/test/lisp/calendar/todo-mode-tests.el
+++ b/test/lisp/calendar/todo-mode-tests.el
@@ -825,6 +825,7 @@ automatic testing."
 Calling todo-show should display the last current todo file, not
 necessarily the new file.  After deleting the new file, todo-show
 should display the previously current (or default) todo file."
+  :tags '(:expensive-test)
   (with-todo-test
    (todo-show)
    (should (equal todo-current-todo-file todo-test-file-1))

diff --git a/test/lisp/simple-tests.el b/test/lisp/simple-tests.el
index b632c908443e8199857cde1e36c19adfda88ca94..2e7ba70b11c042fb08e170b89c779003163859db 100644 (file)
--- a/test/lisp/simple-tests.el
+++ b/test/lisp/simple-tests.el
@@ -957,6 +957,7 @@ See Bug#21722."
 
 (ert-deftest simple-tests-shell-command-39067 ()
   "The output buffer is erased or not according to `shell-command-dont-erase-buffer'."
+  :tags '(:expensive-test)
   (let ((str "foo\\n"))
     (dolist (output-current '(t nil))
       (with-shell-command-dont-erase-buffer str output-current