diff options
| author | João Távora | 2019-01-17 18:08:01 +0000 |
|---|---|---|
| committer | João Távora | 2019-01-17 18:49:07 +0000 |
| commit | 4bdc03746915c36313b33b6998b855eef514cdd1 (patch) | |
| tree | 786a91797e6d39fd7274c66cbf2486b6f5e09007 | |
| parent | e5663bea40f9da9860ea545198c6786cd884be0a (diff) | |
| download | emacs-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.el | 64 |
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." |