From d31e56046b1d9d1fae597e299eb223d80ab7488e Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 27 Sep 2021 05:57:04 +0200 Subject: [PATCH] Move test-cl-flet-indentation to the right file --- test/lisp/emacs-lisp/lisp-mode-tests.el | 11 ----------- 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 -- 2.39.2