Skip recent undo tests in batch mode for now

* test/lisp/simple-tests.el (simple-tests--undo-in-region):
Split into separate test.  Skip in batch mode for now.
(simple-tests--undo-equiv-table): Skip in batch mode for now.

diff --git a/test/lisp/simple-tests.el b/test/lisp/simple-tests.el
index 1819775bda55aadee0cbf8744262a14141622c23..8fa8295765b47cf063e5d1979a6b28b353aec54b 100644 (file)
--- a/test/lisp/simple-tests.el
+++ b/test/lisp/simple-tests.el
@@ -465,8 +465,11 @@ See bug#35036."
     (simple-tests--exec '(backward-char undo-redo undo-redo))
     (should (equal (buffer-string) "abc"))
     (simple-tests--exec '(backward-char undo-redo undo-redo))
-    (should (equal (buffer-string) "abcde")))
+    (should (equal (buffer-string) "abcde"))))
+
+(ert-deftest simple-tests--undo-in-region ()
   ;; Test undo/redo in region.
+  (skip-unless (not noninteractive))
   (with-temp-buffer
     (buffer-enable-undo)
     (dolist (x '("a" "b" "c" "d" "e"))
@@ -503,6 +506,7 @@ See bug#35036."
   lst)
 
 (ert-deftest simple-tests--undo-equiv-table ()
+  (skip-unless (not noninteractive))
   (with-temp-buffer
     (buffer-enable-undo)
     (let ((ul-hash-table (make-hash-table :test #'equal)))