1 ;;; electric-tests.el --- tests for electric.el
3 ;; Copyright (C) 2013-2014 Free Software Foundation, Inc.
5 ;; Author: João Távora <joaotavora@gmail.com>
8 ;; This program is free software; you can redistribute it and/or modify
9 ;; it under the terms of the GNU General Public License as published by
10 ;; the Free Software Foundation, either version 3 of the License, or
11 ;; (at your option) any later version.
13 ;; This program is distributed in the hope that it will be useful,
14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 ;; GNU General Public License for more details.
18 ;; You should have received a copy of the GNU General Public License
19 ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
23 ;; Tests for Electric Pair mode.
24 ;; TODO: Add tests for other Electric-* functionality
33 (defun call-with-saved-electric-modes (fn)
34 (let ((saved-electric (if electric-pair-mode 1 -1))
35 (saved-layout (if electric-layout-mode 1 -1))
36 (saved-indent (if electric-indent-mode 1 -1)))
37 (electric-pair-mode -1)
38 (electric-layout-mode -1)
39 (electric-indent-mode -1)
42 (electric-pair-mode saved-electric)
43 (electric-indent-mode saved-indent)
44 (electric-layout-mode saved-layout))))
46 (defmacro save-electric-modes (&rest body)
47 (declare (indent defun) (debug t))
48 `(call-with-saved-electric-modes #'(lambda () ,@body)))
50 (defun electric-pair-test-for (fixture where char expected-string
51 expected-point mode bindings fixture-fn)
56 (let ((last-command-event char)
57 (transient-mark-mode 'lambda))
61 (mapcar #'car bindings)
62 (mapcar #'cdr bindings)
63 (self-insert-command 1))))
64 (should (equal (buffer-substring-no-properties (point-min) (point-max))
66 (should (equal (point)
70 (defun electric-pair-define-test-form (name fixture
82 (let* ((expected-string-and-point
86 ;; FIXME: avoid `eval'
87 (mapcar #'car (eval bindings))
88 (mapcar #'cdr (eval bindings))
93 (cond ((eq (aref skip-pair-string pos)
95 (insert (cadr (electric-pair-syntax-info char)))
97 ((eq (aref skip-pair-string pos)
102 (buffer-substring-no-properties (point-min) (point-max))
104 (list expected-string expected-point)))
105 (expected-string (car expected-string-and-point))
106 (expected-point (cadr expected-string-and-point))
107 (fixture (format "%s%s%s" prefix fixture suffix))
108 (expected-string (format "%s%s%s" prefix expected-string suffix))
109 (expected-point (+ (length prefix) expected-point))
110 (pos (+ (length prefix) pos)))
111 `(ert-deftest ,(intern (format "electric-pair-%s-at-point-%s-in-%s%s"
117 ,(format "With \"%s\", try input %c at point %d. \
118 Should %s \"%s\" and point at %d"
122 (if (string= fixture expected-string)
125 (replace-regexp-in-string "\n" "\\\\n" expected-string)
127 (electric-pair-test-for ,fixture
136 (cl-defmacro define-electric-pair-test
144 (modes '(quote (emacs-lisp-mode ruby-mode c++-mode)))
148 (fixture-fn #'(lambda ()
149 (electric-pair-mode 1))))
152 for mode in (eval modes) ;FIXME: avoid `eval'
155 for (prefix suffix extra-desc) in
156 (append (if test-in-comments
157 `((,(with-temp-buffer
160 (comment-region (point-min) (point-max))
161 (buffer-substring-no-properties (point-min)
166 `(("\"" "\"" "-in-strings")))
171 for char across input
174 collect (electric-pair-define-test-form
189 ;;; Basic pairs and skips
191 (define-electric-pair-test balanced-situation
192 " (()) " "(((((((" :skip-pair-string "ppppppp"
195 (define-electric-pair-test too-many-openings
196 " ((()) " "(((((((" :skip-pair-string "ppppppp")
198 (define-electric-pair-test too-many-closings
199 " (())) " "(((((((" :skip-pair-string "------p")
201 (define-electric-pair-test too-many-closings-2
202 "() ) " "---(---" :skip-pair-string "-------")
204 (define-electric-pair-test too-many-closings-3
205 ")() " "(------" :skip-pair-string "-------")
207 (define-electric-pair-test balanced-autoskipping
208 " (()) " "---))--" :skip-pair-string "---ss--")
210 (define-electric-pair-test too-many-openings-autoskipping
211 " ((()) " "----))-" :skip-pair-string "-------")
213 (define-electric-pair-test too-many-closings-autoskipping
214 " (())) " "---)))-" :skip-pair-string "---sss-")
219 (define-electric-pair-test mixed-paren-1
220 " ()] " "-(-(---" :skip-pair-string "-p-p---")
222 (define-electric-pair-test mixed-paren-2
223 " [() " "-(-()--" :skip-pair-string "-p-ps--")
225 (define-electric-pair-test mixed-paren-3
226 " (]) " "-(-()--" :skip-pair-string "---ps--")
228 (define-electric-pair-test mixed-paren-4
229 " ()] " "---)]--" :skip-pair-string "---ss--")
231 (define-electric-pair-test mixed-paren-5
232 " [() " "----(--" :skip-pair-string "----p--")
234 (define-electric-pair-test find-matching-different-paren-type
235 " ()] " "-[-----" :skip-pair-string "-------")
237 (define-electric-pair-test find-matching-different-paren-type-inside-list
238 "( ()]) " "-[-----" :skip-pair-string "-------")
240 (define-electric-pair-test ignore-different-nonmatching-paren-type
241 "( ()]) " "-(-----" :skip-pair-string "-p-----")
243 (define-electric-pair-test autopair-keep-least-amount-of-mixed-unbalance
244 "( ()] " "-(-----" :skip-pair-string "-p-----")
246 (define-electric-pair-test dont-autopair-to-resolve-mixed-unbalance
247 "( ()] " "-[-----" :skip-pair-string "-------")
249 (define-electric-pair-test autopair-so-as-not-to-worsen-unbalance-situation
250 "( (]) " "-[-----" :skip-pair-string "-p-----")
252 (define-electric-pair-test skip-over-partially-balanced
253 " [([]) " "-----)---" :skip-pair-string "-----s---")
255 (define-electric-pair-test only-skip-over-at-least-partially-balanced-stuff
256 " [([()) " "-----))--" :skip-pair-string "-----s---")
263 (define-electric-pair-test pair-some-quotes-skip-others
264 " \"\" " "-\"\"-----" :skip-pair-string "-ps------"
266 :bindings `((electric-pair-text-syntax-table
267 . ,prog-mode-syntax-table)))
269 (define-electric-pair-test skip-single-quotes-in-ruby-mode
270 " '' " "--'-" :skip-pair-string "--s-"
272 :test-in-comments nil
274 :bindings `((electric-pair-text-syntax-table
275 . ,prog-mode-syntax-table)))
277 (define-electric-pair-test leave-unbalanced-quotes-alone
278 " \"' " "-\"'-" :skip-pair-string "----"
281 :bindings `((electric-pair-text-syntax-table
282 . ,prog-mode-syntax-table)))
284 (define-electric-pair-test leave-unbalanced-quotes-alone-2
285 " \"\\\"' " "-\"--'-" :skip-pair-string "------"
288 :bindings `((electric-pair-text-syntax-table
289 . ,prog-mode-syntax-table)))
291 (define-electric-pair-test leave-unbalanced-quotes-alone-3
292 " foo\\''" "'------" :skip-pair-string "-------"
295 :bindings `((electric-pair-text-syntax-table
296 . ,prog-mode-syntax-table)))
298 (define-electric-pair-test inhibit-only-if-next-is-mismatched
300 :expected-string "\"\"\"foo\"\"bar"
303 :bindings `((electric-pair-text-syntax-table
304 . ,prog-mode-syntax-table)))
307 ;;; More quotes, but now don't bind `electric-pair-text-syntax-table'
308 ;;; to `prog-mode-syntax-table'. Use the defaults for
309 ;;; `electric-pair-pairs' and `electric-pair-text-pairs'.
311 (define-electric-pair-test pairing-skipping-quotes-in-code
312 " \"\" " "-\"\"-----" :skip-pair-string "-ps------"
314 :test-in-comments nil)
316 (define-electric-pair-test skipping-quotes-in-comments
317 " \"\" " "--\"-----" :skip-pair-string "--s------"
318 :test-in-strings nil)
321 ;;; Skipping over whitespace
323 (define-electric-pair-test whitespace-jumping
324 " ( ) " "--))))---" :expected-string " ( ) " :expected-point 8
325 :bindings '((electric-pair-skip-whitespace . t)))
327 (define-electric-pair-test whitespace-chomping
328 " ( ) " "--)------" :expected-string " () " :expected-point 4
329 :bindings '((electric-pair-skip-whitespace . chomp)))
331 (define-electric-pair-test whitespace-chomping-2
332 " ( \n\t\t\n ) " "--)------" :expected-string " () " :expected-point 4
333 :bindings '((electric-pair-skip-whitespace . chomp))
334 :test-in-comments nil)
336 (define-electric-pair-test whitespace-chomping-dont-cross-comments
337 " ( \n\t\t\n ) " "--)------" :expected-string " () \n\t\t\n ) "
339 :bindings '((electric-pair-skip-whitespace . chomp))
345 ;;; Pairing arbitrary characters
347 (define-electric-pair-test angle-brackets-everywhere
348 "<>" "<>" :skip-pair-string "ps"
349 :bindings '((electric-pair-pairs . ((?\< . ?\>)))))
351 (define-electric-pair-test angle-brackets-everywhere-2
352 "(<>" "-<>" :skip-pair-string "-ps"
353 :bindings '((electric-pair-pairs . ((?\< . ?\>)))))
355 (defvar electric-pair-test-angle-brackets-table
356 (let ((table (make-syntax-table prog-mode-syntax-table)))
357 (modify-syntax-entry ?\< "(>" table)
358 (modify-syntax-entry ?\> ")<`" table)
361 (define-electric-pair-test angle-brackets-pair
362 "<>" "<" :expected-string "<><>" :expected-point 2
364 :bindings `((electric-pair-text-syntax-table
365 . ,electric-pair-test-angle-brackets-table)))
367 (define-electric-pair-test angle-brackets-skip
368 "<>" "->" :expected-string "<>" :expected-point 3
370 :bindings `((electric-pair-text-syntax-table
371 . ,electric-pair-test-angle-brackets-table)))
373 (define-electric-pair-test pair-backtick-and-quote-in-comments
374 ";; " "---`" :expected-string ";; `'" :expected-point 5
375 :test-in-comments nil
377 :modes '(emacs-lisp-mode)
378 :bindings '((electric-pair-text-pairs . ((?\` . ?\')))))
380 (define-electric-pair-test skip-backtick-and-quote-in-comments
381 ";; `foo'" "-------'" :expected-string ";; `foo'" :expected-point 9
382 :test-in-comments nil
384 :modes '(emacs-lisp-mode)
385 :bindings '((electric-pair-text-pairs . ((?\` . ?\')))))
387 (define-electric-pair-test pair-backtick-and-quote-in-strings
388 "\"\"" "-`" :expected-string "\"`'\"" :expected-point 3
389 :test-in-comments nil
391 :modes '(emacs-lisp-mode)
392 :bindings '((electric-pair-text-pairs . ((?\` . ?\')))))
394 (define-electric-pair-test skip-backtick-and-quote-in-strings
395 "\"`'\"" "--'" :expected-string "\"`'\"" :expected-point 4
396 :test-in-comments nil
398 :modes '(emacs-lisp-mode)
399 :bindings '((electric-pair-text-pairs . ((?\` . ?\')))))
401 (define-electric-pair-test skip-backtick-and-quote-in-strings-2
402 " \"`'\"" "----'" :expected-string " \"`'\"" :expected-point 6
403 :test-in-comments nil
405 :modes '(emacs-lisp-mode)
406 :bindings '((electric-pair-text-pairs . ((?\` . ?\')))))
409 ;;; `js-mode' has `electric-layout-rules' for '{ and '}
411 (define-electric-pair-test js-mode-braces
412 "" "{" :expected-string "{}" :expected-point 2
414 :fixture-fn #'(lambda ()
415 (electric-pair-mode 1)))
417 (define-electric-pair-test js-mode-braces-with-layout
418 "" "{" :expected-string "{\n\n}" :expected-point 3
420 :test-in-comments nil
422 :fixture-fn #'(lambda ()
423 (electric-layout-mode 1)
424 (electric-pair-mode 1)))
426 (define-electric-pair-test js-mode-braces-with-layout-and-indent
427 "" "{" :expected-string "{\n \n}" :expected-point 7
429 :test-in-comments nil
431 :fixture-fn #'(lambda ()
432 (electric-pair-mode 1)
433 (electric-indent-mode 1)
434 (electric-layout-mode 1)))
438 ;;; TODO: better tests
440 (ert-deftest electric-pair-backspace-1 ()
445 (electric-pair-backward-delete-char 1)
446 (should (equal "" (buffer-string))))))
449 ;;; Electric newlines between pairs
450 ;;; TODO: better tests
451 (ert-deftest electric-pair-open-extra-newline ()
455 (electric-pair-mode 1)
456 (electric-indent-mode 1)
457 (insert "int main {}")
459 (let ((c-basic-offset 4))
461 (should (equal "int main {\n \n}"
463 (should (equal (point) (- (point-max) 2)))))))
469 (define-electric-pair-test autowrapping-1
470 "foo" "(" :expected-string "(foo)" :expected-point 2
471 :fixture-fn #'(lambda ()
472 (electric-pair-mode 1)
475 (define-electric-pair-test autowrapping-2
476 "foo" ")" :expected-string "(foo)" :expected-point 6
477 :fixture-fn #'(lambda ()
478 (electric-pair-mode 1)
481 (define-electric-pair-test autowrapping-3
482 "foo" ")" :expected-string "(foo)" :expected-point 6
483 :fixture-fn #'(lambda ()
484 (electric-pair-mode 1)
485 (goto-char (point-max))
486 (skip-chars-backward "\"")
489 (define-electric-pair-test autowrapping-4
490 "foo" "(" :expected-string "(foo)" :expected-point 2
491 :fixture-fn #'(lambda ()
492 (electric-pair-mode 1)
493 (goto-char (point-max))
494 (skip-chars-backward "\"")
497 (define-electric-pair-test autowrapping-5
498 "foo" "\"" :expected-string "\"foo\"" :expected-point 2
499 :fixture-fn #'(lambda ()
500 (electric-pair-mode 1)
503 (define-electric-pair-test autowrapping-6
504 "foo" "\"" :expected-string "\"foo\"" :expected-point 6
505 :fixture-fn #'(lambda ()
506 (electric-pair-mode 1)
507 (goto-char (point-max))
508 (skip-chars-backward "\"")
511 (provide 'electric-tests)
512 ;;; electric-tests.el ends here