diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-09-27 05:57:04 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-09-27 05:57:04 +0200 |
commit | d31e56046b1d9d1fae597e299eb223d80ab7488e (patch) | |
tree | 1d845f87c381ea51a527774e0e9c467a485f2472 | |
parent | 07ecd81dddc17143f5fd1cb8e3ffe04d1f154f62 (diff) | |
download | emacs-d31e56046b1d9d1fae597e299eb223d80ab7488e.tar.gz |
Move test-cl-flet-indentation to the right file
-rw-r--r-- | test/lisp/emacs-lisp/lisp-mode-tests.el | 11 | ||||
-rw-r--r-- | test/lisp/progmodes/elisp-mode-tests.el | 10 |
2 files changed, 10 insertions, 11 deletions
diff --git a/test/lisp/emacs-lisp/lisp-mode-tests.el b/test/lisp/emacs-lisp/lisp-mode-tests.el index 5e533b370ed..e2cecdf6b01 100644 --- a/test/lisp/emacs-lisp/lisp-mode-tests.el +++ b/test/lisp/emacs-lisp/lisp-mode-tests.el @@ -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 diff --git a/test/lisp/progmodes/elisp-mode-tests.el b/test/lisp/progmodes/elisp-mode-tests.el index fbf264a715f..e0e2cb112eb 100644 --- a/test/lisp/progmodes/elisp-mode-tests.el +++ b/test/lisp/progmodes/elisp-mode-tests.el @@ -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 |