From 8f36614512d479fb76764bf013ad23550696c5a6 Mon Sep 17 00:00:00 2001 From: Philipp Stephani Date: Mon, 2 May 2016 08:57:30 -0700 Subject: [PATCH] Add electric-quote-string unit test * test/automated/electric-tests.el (electric-quote-string): New test. --- test/automated/electric-tests.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/test/automated/electric-tests.el b/test/automated/electric-tests.el index 107b2e79fb..afd707667b 100644 --- a/test/automated/electric-tests.el +++ b/test/automated/electric-tests.el @@ -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 -- 2.39.2