branch: elpa/lua-mode
commit 67a90221b4b82c559d62275e73dd966ff5503ed3
Author: immerrr <[email protected]>
Commit: immerrr <[email protected]>
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)))))
