[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master f3e2d34 2/4: Convert manual indent test for elisp-mode into unit
From: |
Stefan Kangas |
Subject: |
master f3e2d34 2/4: Convert manual indent test for elisp-mode into unit test |
Date: |
Mon, 21 Sep 2020 10:46:56 -0400 (EDT) |
branch: master
commit f3e2d3418a482e7b3bf190a524caf0f2eb75b6bb
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
Convert manual indent test for elisp-mode into unit test
* test/manual/indent/elisp.el: Delete file.
* test/lisp/progmodes/elisp-mode-tests.el (elisp-indent-basic):
New unit test based on deleted file.
---
test/lisp/progmodes/elisp-mode-tests.el | 12 ++++++++++++
test/manual/indent/elisp.el | 6 ------
2 files changed, 12 insertions(+), 6 deletions(-)
diff --git a/test/lisp/progmodes/elisp-mode-tests.el
b/test/lisp/progmodes/elisp-mode-tests.el
index 2de533e..6c30e4f 100644
--- a/test/lisp/progmodes/elisp-mode-tests.el
+++ b/test/lisp/progmodes/elisp-mode-tests.el
@@ -810,5 +810,17 @@ to (xref-elisp-test-descr-to-target xref)."
(insert "?\\N{HEAVY CHECK MARK}")
(should (equal (elisp--preceding-sexp) ?\N{HEAVY CHECK MARK}))))
+(ert-deftest elisp-indent-basic ()
+ (with-temp-buffer
+ (emacs-lisp-mode)
+ (let ((orig "(defun x ()
+ (print (quote ( thingy great
+ stuff)))
+ (print (quote (thingy great
+ stuff))))"))
+ (insert orig)
+ (indent-region (point-min) (point-max))
+ (should (equal (buffer-string) orig)))))
+
(provide 'elisp-mode-tests)
;;; elisp-mode-tests.el ends here
diff --git a/test/manual/indent/elisp.el b/test/manual/indent/elisp.el
deleted file mode 100644
index 7d634ae..0000000
--- a/test/manual/indent/elisp.el
+++ /dev/null
@@ -1,6 +0,0 @@
-;; -*- lexical-binding:t -*-
-(defun x ()
- (print (quote ( thingy great
- stuff)))
- (print (quote (thingy great
- stuff))))