Add electric-quote-string unit test

* test/automated/electric-tests.el (electric-quote-string): New test.

diff --git a/test/automated/electric-tests.el b/test/automated/electric-tests.el
index 107b2e79fb61ed707b72d230c65f80191205c4d6..afd707667b8586352841f4f5206c3f5174dea4c4 100644 (file)
--- a/test/automated/electric-tests.el
+++ b/test/automated/electric-tests.el
@@ -584,5 +584,13 @@ baz\"\""
                   (skip-chars-backward "\"")
                   (mark-sexp -1)))
 
+\f
+;;; 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