summaryrefslogtreecommitdiff
path: root/test/lisp/emacs-lisp/lisp-mode-tests.el
diff options
context:
space:
mode:
authorStefan Kangas <stefan@marxist.se>2020-09-21 16:23:24 +0200
committerStefan Kangas <stefan@marxist.se>2020-09-21 16:46:21 +0200
commit31cb935cd72ec915f3461f4517a8675e96b66ac5 (patch)
tree96b14f5f0dba48e5709a6c149997e7679295eebf /test/lisp/emacs-lisp/lisp-mode-tests.el
parentf3e2d3418a482e7b3bf190a524caf0f2eb75b6bb (diff)
downloademacs-31cb935cd72ec915f3461f4517a8675e96b66ac5.tar.gz
Convert manual indent test for lisp-mode into unit test
* test/manual/indent/lisp.lisp: Delete file. * test/lisp/emacs-lisp/lisp-mode-tests.el (lisp-indent-defun): New unit test based on deleted file.
Diffstat (limited to 'test/lisp/emacs-lisp/lisp-mode-tests.el')
-rw-r--r--test/lisp/emacs-lisp/lisp-mode-tests.el12
1 files changed, 12 insertions, 0 deletions
diff --git a/test/lisp/emacs-lisp/lisp-mode-tests.el b/test/lisp/emacs-lisp/lisp-mode-tests.el
index b1b78479617..d1183d83f6a 100644
--- a/test/lisp/emacs-lisp/lisp-mode-tests.el
+++ b/test/lisp/emacs-lisp/lisp-mode-tests.el
@@ -294,6 +294,18 @@ Expected initialization file: `%s'\"
(insert "\"\n")
(lisp-indent-region (point-min) (point-max))))
+(ert-deftest lisp-indent-defun ()
+ (with-temp-buffer
+ (lisp-mode)
+ (let ((orig "(defun x ()
+ (print (quote ( thingy great
+ stuff)))
+ (print (quote (thingy great
+ stuff))))"))
+ (insert orig)
+ (indent-region (point-min) (point-max))
+ (should (equal (buffer-string) orig)))))
+
;;; Fontification