Add electric-quote-string unit test

* test/automated/electric-tests.el (electric-quote-string): New test.
This commit is contained in:
Philipp Stephani 2016-05-02 08:57:30 -07:00 committed by Paul Eggert
parent 628053101d
commit 8f36614512

View file

@ -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