aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Kangas2020-09-21 16:13:53 +0200
committerStefan Kangas2020-09-21 16:46:21 +0200
commitf3e2d3418a482e7b3bf190a524caf0f2eb75b6bb (patch)
tree6d8e055709b1c875131605be55d0302a101f2ed3
parent12ca4638338f671e7cba8693b7230409a0fcb9ea (diff)
downloademacs-f3e2d3418a482e7b3bf190a524caf0f2eb75b6bb.tar.gz
emacs-f3e2d3418a482e7b3bf190a524caf0f2eb75b6bb.zip
Convert manual indent test for elisp-mode into unit test
* test/manual/indent/elisp.el: Delete file. * test/lisp/progmodes/elisp-mode-tests.el (elisp-indent-basic): New unit test based on deleted file.
-rw-r--r--test/lisp/progmodes/elisp-mode-tests.el12
-rw-r--r--test/manual/indent/elisp.el6
2 files changed, 12 insertions, 6 deletions
diff --git a/test/lisp/progmodes/elisp-mode-tests.el b/test/lisp/progmodes/elisp-mode-tests.el
index 2de533e5eb9..6c30e4f664b 100644
--- a/test/lisp/progmodes/elisp-mode-tests.el
+++ b/test/lisp/progmodes/elisp-mode-tests.el
@@ -810,5 +810,17 @@ to (xref-elisp-test-descr-to-target xref)."
810 (insert "?\\N{HEAVY CHECK MARK}") 810 (insert "?\\N{HEAVY CHECK MARK}")
811 (should (equal (elisp--preceding-sexp) ?\N{HEAVY CHECK MARK})))) 811 (should (equal (elisp--preceding-sexp) ?\N{HEAVY CHECK MARK}))))
812 812
813(ert-deftest elisp-indent-basic ()
814 (with-temp-buffer
815 (emacs-lisp-mode)
816 (let ((orig "(defun x ()
817 (print (quote ( thingy great
818 stuff)))
819 (print (quote (thingy great
820 stuff))))"))
821 (insert orig)
822 (indent-region (point-min) (point-max))
823 (should (equal (buffer-string) orig)))))
824
813(provide 'elisp-mode-tests) 825(provide 'elisp-mode-tests)
814;;; elisp-mode-tests.el ends here 826;;; elisp-mode-tests.el ends here
diff --git a/test/manual/indent/elisp.el b/test/manual/indent/elisp.el
deleted file mode 100644
index 7d634ae84c9..00000000000
--- a/test/manual/indent/elisp.el
+++ /dev/null
@@ -1,6 +0,0 @@
1;; -*- lexical-binding:t -*-
2(defun x ()
3 (print (quote ( thingy great
4 stuff)))
5 (print (quote (thingy great
6 stuff))))