Add electric-quote-string unit test
* test/automated/electric-tests.el (electric-quote-string): New test.
This commit is contained in:
parent
628053101d
commit
8f36614512
1 changed files with 8 additions and 0 deletions
|
@ -584,5 +584,13 @@ baz\"\""
|
|||
(skip-chars-backward "\"")
|
||||
(mark-sexp -1)))
|
||||
|
||||
|
||||
;;; Electric quotes
|
||||
(define-electric-pair-test electric-quote-string
|
||||
"" "'" :expected-string "'" :expected-point 2
|
||||
:fixture-fn #'electric-quote-local-mode
|
||||
:bindings '((electric-quote-string . t))
|
||||
:test-in-comments nil :test-in-strings nil)
|
||||
|
||||
(provide 'electric-tests)
|
||||
;;; electric-tests.el ends here
|
||||
|
|
Loading…
Add table
Reference in a new issue