; Fix 'ert-tests' on MS-Windows

* test/lisp/emacs-lisp/ert-tests.el
(ert-test-run-tests-batch-expensive): Skip the test on MS-Windows.

(cherry picked from commit f1715f6411d665442397835ab792ef39051f859a)

diff --git a/test/lisp/emacs-lisp/ert-tests.el b/test/lisp/emacs-lisp/ert-tests.el
index 3765bf5f0bbec917191f925957bbfc536dc70510..a0f00f3213c9320a27a9e1082bdaf11af4d436c6 100644 (file)
--- a/test/lisp/emacs-lisp/ert-tests.el
+++ b/test/lisp/emacs-lisp/ert-tests.el
@@ -588,6 +588,8 @@ This macro is used to test if macroexpansion in `should' works."
 
 (ert-deftest ert-test-run-tests-batch-expensive ()
   :tags (if (getenv "EMACS_EMBA_CI") '(:unstable))
+  ;; This test runs out of memory on MS-Windows, so skip it.
+  (skip-unless (not (eq system-type 'windows-nt)))
   (let* ((complex-list '((:1 (:2 (:3 (:4 (:5 (:6 "abc"))))))))
         (failing-test-1
           (make-ert-test :name 'failing-test-1