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