aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJoão Távora2019-01-17 18:08:01 +0000
committerJoão Távora2019-01-17 18:49:07 +0000
commit4bdc03746915c36313b33b6998b855eef514cdd1 (patch)
tree786a91797e6d39fd7274c66cbf2486b6f5e09007
parente5663bea40f9da9860ea545198c6786cd884be0a (diff)
downloademacs-4bdc03746915c36313b33b6998b855eef514cdd1.tar.gz
emacs-4bdc03746915c36313b33b6998b855eef514cdd1.zip
Revert "Temporarily comment out CC Mode from tests..."
This reverts commit 54f297904e0c641fcfd81f16e9a87177124a27be.
-rw-r--r--test/lisp/electric-tests.el64
1 files changed, 30 insertions, 34 deletions
diff --git a/test/lisp/electric-tests.el b/test/lisp/electric-tests.el
index 86d0daa605a..5a4b20ed04e 100644
--- a/test/lisp/electric-tests.el
+++ b/test/lisp/electric-tests.el
@@ -157,8 +157,7 @@ The buffer's contents should %s:
157 expected-string 157 expected-string
158 expected-point 158 expected-point
159 bindings 159 bindings
160 (modes '(quote (ruby-mode ;; c++-mode 160 (modes '(quote (ruby-mode c++-mode)))
161 )))
162 (test-in-comments t) 161 (test-in-comments t)
163 (test-in-strings t) 162 (test-in-strings t)
164 (test-in-code t) 163 (test-in-code t)
@@ -397,10 +396,10 @@ baz\"\""
397;; mode will sort this out eventually, using some new e-p-m machinery. 396;; mode will sort this out eventually, using some new e-p-m machinery.
398;; See 397;; See
399;; https://lists.gnu.org/archive/html/emacs-devel/2018-06/msg00535.html 398;; https://lists.gnu.org/archive/html/emacs-devel/2018-06/msg00535.html
400;; (setf 399(setf
401;; (ert-test-expected-result-type 400 (ert-test-expected-result-type
402;; (ert-get-test 'electric-pair-whitespace-chomping-2-at-point-4-in-c++-mode-in-strings)) 401 (ert-get-test 'electric-pair-whitespace-chomping-2-at-point-4-in-c++-mode-in-strings))
403;; :failed) 402 :failed)
404 403
405(define-electric-pair-test whitespace-chomping-dont-cross-comments 404(define-electric-pair-test whitespace-chomping-dont-cross-comments
406 " ( \n\t\t\n ) " "--)------" :expected-string " () \n\t\t\n ) " 405 " ( \n\t\t\n ) " "--)------" :expected-string " () \n\t\t\n ) "
@@ -816,34 +815,31 @@ baz\"\""
816 815
817;;; tests for `electric-layout-mode' 816;;; tests for `electric-layout-mode'
818 817
819;; Tests commented out, since C Mode does not use 818(ert-deftest electric-layout-int-main-kernel-style ()
820;; electric-layout-mode. 2019-01-17, ACM 819 (ert-with-test-buffer ()
821 820 (c-mode)
822;; (ert-deftest electric-layout-int-main-kernel-style () 821 (electric-layout-local-mode 1)
823;; (ert-with-test-buffer () 822 (electric-pair-local-mode 1)
824;; (c-mode) 823 (electric-indent-local-mode 1)
825;; (electric-layout-local-mode 1) 824 (setq-local electric-layout-rules
826;; (electric-pair-local-mode 1) 825 '((?\{ . (after-stay after))))
827;; (electric-indent-local-mode 1) 826 (insert "int main () ")
828;; (setq-local electric-layout-rules 827 (let ((last-command-event ?\{))
829;; '((?\{ . (after-stay after)))) 828 (call-interactively (key-binding `[,last-command-event])))
830;; (insert "int main () ") 829 (should (equal (buffer-string) "int main () {\n \n}"))))
831;; (let ((last-command-event ?\{)) 830
832;; (call-interactively (key-binding `[,last-command-event]))) 831(ert-deftest electric-layout-int-main-allman-style ()
833;; (should (equal (buffer-string) "int main () {\n \n}")))) 832 (ert-with-test-buffer ()
834 833 (c-mode)
835;; (ert-deftest electric-layout-int-main-allman-style () 834 (electric-layout-local-mode 1)
836;; (ert-with-test-buffer () 835 (electric-pair-local-mode 1)
837;; (c-mode) 836 (electric-indent-local-mode 1)
838;; (electric-layout-local-mode 1) 837 (setq-local electric-layout-rules
839;; (electric-pair-local-mode 1) 838 '((?\{ . (before after-stay after))))
840;; (electric-indent-local-mode 1) 839 (insert "int main () ")
841;; (setq-local electric-layout-rules 840 (let ((last-command-event ?\{))
842;; '((?\{ . (before after-stay after)))) 841 (call-interactively (key-binding `[,last-command-event])))
843;; (insert "int main () ") 842 (should (equal (buffer-string) "int main ()\n{\n \n}"))))
844;; (let ((last-command-event ?\{))
845;; (call-interactively (key-binding `[,last-command-event])))
846;; (should (equal (buffer-string) "int main ()\n{\n \n}"))))
847 843
848(define-derived-mode plainer-c-mode c-mode "pC" 844(define-derived-mode plainer-c-mode c-mode "pC"
849 "A plainer/saner C-mode with no internal electric machinery." 845 "A plainer/saner C-mode with no internal electric machinery."