From 8f36614512d479fb76764bf013ad23550696c5a6 Mon Sep 17 00:00:00 2001
From: Philipp Stephani <phst@google.com>
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 107b2e79fb6..afd707667b8 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.5