[nongnu] elpa/lua-mode 67a9022 229/468: test-electric-mode: check interaction with electric-pair-skip-self flag

[Philip Kaludercic]

branch: elpa/lua-mode
commit 67a90221b4b82c559d62275e73dd966ff5503ed3
Author: immerrr <immerrr+lua@gmail.com>
Commit: immerrr <immerrr+lua@gmail.com>

    test-electric-mode: check interaction with electric-pair-skip-self flag
---
 ert-tests/test-electric-mode.el | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/ert-tests/test-electric-mode.el b/ert-tests/test-electric-mode.el
index f05259f..b95797e 100644
--- a/ert-tests/test-electric-mode.el
+++ b/ert-tests/test-electric-mode.el
@@ -63,3 +63,18 @@
    (execute-kbd-macro (kbd "elseif C-j"))
    (beginning-of-line 0)
    (should (eq (current-indentation) 0))))
+
+
+(when (fboundp 'electric-pair-mode)
+  (ert-deftest test-electric-pair-skip-self ()
+    (let ((old-mode (if electric-pair-mode 1 0)))
+      (unwind-protect
+          (with-lua-buffer
+           (set (make-local-variable 'electric-pair-skip-self) t)
+           (set (make-local-variable 'lua-electric-flag) t)
+           (electric-pair-mode 1)
+           (execute-kbd-macro "(")
+           (should (string= (buffer-string) "()"))
+           (execute-kbd-macro ")")
+           (should (string= (buffer-string) "()")))
+        (electric-pair-mode old-mode)))))