mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-25 23:10:47 -08:00
Code Issues Projects Releases Wiki Activity

Convert manual indent test for lisp-mode into unit test

Browse source 
* 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.
This commit is contained in:
Stefan Kangas 2020-09-21 16:23:24 +02:00
parent f3e2d3418a
commit 31cb935cd7
2 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
test/lisp/emacs-lisp/lisp-mode-tests.el
View file

@ -294,6 +294,18 @@ Expected initialization file: `%s'\"
(insert "\"\n") (insert "\"\n")
(lisp-indent-region (point-min) (point-max)))) (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 ;;; Fontification

5
test/manual/indent/lisp.lisp
View file

@ -1,5 +0,0 @@
(defun x ()
(print (quote ( thingy great
stuff)))
(print (quote (thingy great
stuff))))