Make migrated test33 more similar to old legacy test.

Remove `expandtab` and add a missing trailing space from the legacy test.
This commit is contained in:
Julian Mehne 2014-12-06 02:52:35 +01:00
parent 6cba2eef21
commit 42891ea9d9

View File

@ -22,7 +22,7 @@ describe('lisp indent', function()
:if-exists :supersede) :if-exists :supersede)
(let ((,ti ,title)) (let ((,ti ,title))
(as title ,ti) (as title ,ti)
(with center (with center
(as h2 (string-upcase ,ti))) (as h2 (string-upcase ,ti)))
(brs 3) (brs 3)
,@body)))) ,@body))))
@ -35,7 +35,7 @@ describe('lisp indent', function()
,@body ,@body
(princ "</a>")))]]) (princ "</a>")))]])
execute('set lisp expandtab') execute('set lisp')
execute('/^(defun') execute('/^(defun')
feed('=G:/^(defun/,$yank A<cr>') feed('=G:/^(defun/,$yank A<cr>')
@ -52,15 +52,15 @@ describe('lisp indent', function()
(defmacro page (name title &rest body) (defmacro page (name title &rest body)
(let ((ti (gensym))) (let ((ti (gensym)))
`(with-open-file (*standard-output* `(with-open-file (*standard-output*
(html-file ,name) (html-file ,name)
:direction :output :direction :output
:if-exists :supersede) :if-exists :supersede)
(let ((,ti ,title)) (let ((,ti ,title))
(as title ,ti) (as title ,ti)
(with center (with center
(as h2 (string-upcase ,ti))) (as h2 (string-upcase ,ti)))
(brs 3) (brs 3)
,@body)))) ,@body))))
;;; Utilities for generating links ;;; Utilities for generating links