From: Glenn Morris <rgm@gnu.org>
Date: Tue, 17 Aug 2021 15:53:00 +0000 (-0700)
Subject: * test/lisp/electric-tests.el: Skip most c-mode tests on hydra.
X-Git-Tag: emacs-28.0.90~1463
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c609b4c7287c416e320a1b95f866f1ce1ce7254d;p=emacs.git

* test/lisp/electric-tests.el: Skip most c-mode tests on hydra.
---

diff --git a/test/lisp/electric-tests.el b/test/lisp/electric-tests.el
index ea856ab311c..4b799925539 100644
--- a/test/lisp/electric-tests.el
+++ b/test/lisp/electric-tests.el
@@ -587,6 +587,7 @@ baz\"\""
 ;;; Electric newlines between pairs
 ;;; TODO: better tests
 (ert-deftest electric-pair-open-extra-newline ()
+  (skip-unless (not (getenv "EMACS_HYDRA_CI")))
   (save-electric-modes
     (with-temp-buffer
       (c-mode)
@@ -877,6 +878,8 @@ baz\"\""
       (c-brace-newlines (c-point-syntax)))))
 
 (ert-deftest electric-layout-plainer-c-mode-use-c-style ()
+  ;; FIXME hangs since c4d34d2
+  (skip-unless (not (getenv "EMACS_HYDRA_CI")))
   (ert-with-test-buffer ()
     (plainer-c-mode)
     (electric-layout-local-mode 1)
@@ -890,6 +893,7 @@ baz\"\""
     (should (equal (buffer-string) "int main ()\n{\n  \n}\n"))))
 
 (ert-deftest electric-layout-int-main-kernel-style ()
+  (skip-unless (not (getenv "EMACS_HYDRA_CI")))
   (ert-with-test-buffer ()
     (plainer-c-mode)
     (electric-layout-local-mode 1)
@@ -906,6 +910,7 @@ baz\"\""
 (ert-deftest electric-layout-control-reindentation ()
   "Same as `emacs-lisp-int-main-kernel-style', but checking
 Bug#35254."
+  (skip-unless (not (getenv "EMACS_HYDRA_CI")))
   (ert-with-test-buffer ()
     (plainer-c-mode)
     (electric-layout-local-mode 1)
@@ -924,6 +929,7 @@ Bug#35254."
     (should (equal (buffer-string) "int main () {\n\n  \n}"))))
 
 (ert-deftest electric-modes-int-main-allman-style ()
+  (skip-unless (not (getenv "EMACS_HYDRA_CI")))
   (ert-with-test-buffer ()
     (plainer-c-mode)
     (electric-layout-local-mode 1)
@@ -938,6 +944,7 @@ Bug#35254."
     (should (equal (buffer-string) "int main ()\n{\n  \n}"))))
 
 (ert-deftest electric-pair-mode-newline-between-parens ()
+  (skip-unless (not (getenv "EMACS_HYDRA_CI")))
   (ert-with-test-buffer ()
     (plainer-c-mode)
     (electric-layout-local-mode -1) ;; ensure e-l-m mode is off
@@ -949,6 +956,7 @@ Bug#35254."
     (should (equal (buffer-string) "int main () {\n  \n}"))))
 
 (ert-deftest electric-layout-mode-newline-between-parens-without-e-p-m ()
+  (skip-unless (not (getenv "EMACS_HYDRA_CI")))
   (ert-with-test-buffer ()
     (plainer-c-mode)
     (electric-layout-local-mode 1)
@@ -970,6 +978,7 @@ Bug#35254."
     (should (equal (buffer-string) "int main () {\n  \n}"))))
 
 (ert-deftest electric-layout-mode-newline-between-parens-without-e-p-m-2 ()
+  (skip-unless (not (getenv "EMACS_HYDRA_CI")))
   (ert-with-test-buffer ()
     (plainer-c-mode)
     (electric-layout-local-mode 1)