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

diff --git a/test/lisp/emacs-lisp/lisp-mode-tests.el b/test/lisp/emacs-lisp/lisp-mode-tests.el
index 5e533b370ed0bb70ca08513970ea51e6f1830823..e2cecdf6b01b19b528402b3cc2082d54c92c617a 100644 (file)
--- 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 fbf264a715fb4600232272ecf7c0da4661079dd2..e0e2cb112eb58cf450427311810df536119d82eb 100644 (file)
--- 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