[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