From 31cb935cd72ec915f3461f4517a8675e96b66ac5 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 21 Sep 2020 16:23:24 +0200 Subject: [PATCH] Convert manual indent test for lisp-mode into unit test * test/manual/indent/lisp.lisp: Delete file. * test/lisp/emacs-lisp/lisp-mode-tests.el (lisp-indent-defun): New unit test based on deleted file. --- test/lisp/emacs-lisp/lisp-mode-tests.el | 12 ++++++++++++ test/manual/indent/lisp.lisp | 5 ----- 2 files changed, 12 insertions(+), 5 deletions(-) delete mode 100644 test/manual/indent/lisp.lisp diff --git a/test/lisp/emacs-lisp/lisp-mode-tests.el b/test/lisp/emacs-lisp/lisp-mode-tests.el index b1b78479617..d1183d83f6a 100644 --- a/test/lisp/emacs-lisp/lisp-mode-tests.el +++ b/test/lisp/emacs-lisp/lisp-mode-tests.el @@ -294,6 +294,18 @@ Expected initialization file: `%s'\" (insert "\"\n") (lisp-indent-region (point-min) (point-max)))) +(ert-deftest lisp-indent-defun () + (with-temp-buffer + (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))))) + ;;; Fontification diff --git a/test/manual/indent/lisp.lisp b/test/manual/indent/lisp.lisp deleted file mode 100644 index f3874b5c3e0..00000000000 --- a/test/manual/indent/lisp.lisp +++ /dev/null @@ -1,5 +0,0 @@ -(defun x () - (print (quote ( thingy great - stuff))) - (print (quote (thingy great - stuff)))) -- 2.39.5