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

Move test-cl-flet-indentation to the right file

Browse source
This commit is contained in:
Lars Ingebrigtsen 2021-09-27 05:57:04 +02:00
parent 07ecd81ddd
commit d31e56046b
2 changed files with 10 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -330,16 +330,5 @@ Expected initialization file: `%s'\"
(faceup-clean-buffer)
(should (faceup-test-font-lock-buffer 'emacs-lisp-mode faceup)))))
(ert-deftest test-cl-flet-indentation ()
(should (equal
(with-temp-buffer
(lisp-mode)
(insert "(cl-flet ((bla (x)\n(* x x)))\n(bla 42))")
(indent-region (point-min) (point-max))
(buffer-string))
"(cl-flet ((bla (x)
(* x x)))
(bla 42))")))
(provide 'lisp-mode-tests)
;;; lisp-mode-tests.el ends here

10
test/lisp/progmodes/elisp-mode-tests.el
View file

@ -1105,6 +1105,16 @@ evaluation of BODY."
(should (= 84 (funcall (intern-soft "f-test4---"))))
(should (unintern "f-test4---"))))
(ert-deftest test-cl-flet-indentation ()
(should (equal
(with-temp-buffer
(emacs-lisp-mode)
(insert "(cl-flet ((bla (x)\n(* x x)))\n(bla 42))")
(indent-region (point-min) (point-max))
(buffer-string))
"(cl-flet ((bla (x)
(* x x)))
(bla 42))")))
(provide 'elisp-mode-tests)
;;; elisp-mode-tests.el ends here