emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master d31e560 2/3: Move test-cl-flet-indentation to the right file


From: Lars Ingebrigtsen
Subject: master d31e560 2/3: Move test-cl-flet-indentation to the right file
Date: Mon, 27 Sep 2021 00:01:57 -0400 (EDT)

branch: master
commit d31e56046b1d9d1fae597e299eb223d80ab7488e
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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 5e533b3..e2cecdf 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 fbf264a..e0e2cb1 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]