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.

diff --git a/test/lisp/emacs-lisp/lisp-mode-tests.el b/test/lisp/emacs-lisp/lisp-mode-tests.el
index b1b7847961725f8cae986586018c4c74d18a9797..d1183d83f6a218840ac130699f295e57326f3cf4 100644 (file)
--- 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)))))
+
 \f
 ;;; Fontification
 

diff --git a/test/manual/indent/lisp.lisp b/test/manual/indent/lisp.lisp
deleted file mode 100644 (file)
index f3874b5..0000000
--- a/test/manual/indent/lisp.lisp
+++ /dev/null
@@ -1,5 +0,0 @@
-(defun x ()
-  (print (quote ( thingy great
-                 stuff)))
-  (print (quote (thingy great
-                       stuff))))