[nongnu] elpa/lua-mode e97861c 226/468: ert-tests/test-electric-mode.el: add tests for electric indentation

[Philip Kaludercic]

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

    ert-tests/test-electric-mode.el: add tests for electric indentation
---
 Cask                            |  3 ++
 Makefile                        |  1 +
 ert-tests/test-electric-mode.el | 65 +++++++++++++++++++++++++++++++++++++++++
 3 files changed, 69 insertions(+)

diff --git a/Cask b/Cask
index 9dcc96b..8f1dd5a 100644
--- a/Cask
+++ b/Cask
@@ -2,6 +2,9 @@
 
 (package "lua-mode" "dev" "Major mode for editing Lua")
 
+(development
+ (depends-on "s"))
+
 ;; Local Variables:
 ;; mode: emacs-lisp
 ;; End:
diff --git a/Makefile b/Makefile
index 1cacc2c..24f6f2a 100644
--- a/Makefile
+++ b/Makefile
@@ -11,6 +11,7 @@ EMACS_BATCH=cask exec $(EMACS) --batch -Q
 TESTS=
 TESTS += ert-tests/test-defun-font-lock.el
 TESTS += ert-tests/test-builtin-font-lock.el
+TESTS += ert-tests/test-electric-mode.el
 
 default:
        @echo version is $(VERSION)
diff --git a/ert-tests/test-electric-mode.el b/ert-tests/test-electric-mode.el
new file mode 100644
index 0000000..f05259f
--- /dev/null
+++ b/ert-tests/test-electric-mode.el
@@ -0,0 +1,65 @@
+(require 'ert)
+(require 's)
+
+(defmacro with-lua-buffer (&rest body)
+  `(with-temp-buffer
+     (switch-to-buffer (current-buffer))
+     (lua-mode)
+     (font-lock-fontify-buffer)
+     ,@body))
+
+
+(ert-deftest test-electric-brace ()
+  (with-lua-buffer
+    (execute-kbd-macro (kbd "return SPC foo SPC { C-j"))
+    (execute-kbd-macro (kbd "'baz' C-j"))
+    (should (eq (current-indentation) lua-indent-level))
+
+    (execute-kbd-macro (kbd "}"))
+    (should (eq (current-indentation) 0))))
+
+
+(ert-deftest test-electric-paren ()
+   (with-lua-buffer
+     (execute-kbd-macro (kbd "return SPC foo SPC ( C-j"))
+     (execute-kbd-macro (kbd "'baz' C-j"))
+     (should (eq (current-indentation) lua-indent-level))
+
+     (execute-kbd-macro (kbd ")"))
+     (should (eq (current-indentation) 0))))
+
+
+(ert-deftest test-electric-end ()
+   (with-lua-buffer
+    (execute-kbd-macro (kbd "if SPC foo SPC then C-j"))
+    (execute-kbd-macro (kbd "'baz' C-j"))
+    (should (eq (current-indentation) lua-indent-level))
+
+    (abbrev-mode 1)
+    (execute-kbd-macro (kbd "end C-j"))
+    (beginning-of-line 0)
+    (should (eq (current-indentation) 0))))
+
+
+(ert-deftest test-electric-else ()
+  (with-lua-buffer
+   (execute-kbd-macro (kbd "if SPC foo SPC then C-j"))
+   (execute-kbd-macro (kbd "'baz' C-j"))
+   (should (eq (current-indentation) lua-indent-level))
+
+   (abbrev-mode 1)
+   (execute-kbd-macro (kbd "else C-j"))
+   (beginning-of-line 0)
+   (should (eq (current-indentation) 0))))
+
+
+(ert-deftest test-electric-elseif ()
+  (with-lua-buffer
+   (execute-kbd-macro (kbd "if SPC foo SPC then C-j"))
+   (execute-kbd-macro (kbd "'baz' C-j"))
+   (should (eq (current-indentation) lua-indent-level))
+
+   (abbrev-mode 1)
+   (execute-kbd-macro (kbd "elseif C-j"))
+   (beginning-of-line 0)
+   (should (eq (current-indentation) 0))))