aboutsummaryrefslogtreecommitdiff
path: root/test/functional/legacy/033_lisp_indent_spec.lua
diff options
context:
space:
mode:
authorZyX <kp-pav@yandex.ru>2017-04-10 22:21:06 +0300
committerZyX <kp-pav@yandex.ru>2017-04-10 22:21:06 +0300
commitab4d13e2fa09db538756cc5cfb36f81681e5ff7a (patch)
treeb8bded415655f09bc323a23d21ed8d7e74b1c8da /test/functional/legacy/033_lisp_indent_spec.lua
parenta40a969e9a4776f1e274dcf0e59c8f1ec1770ca0 (diff)
parent9aface8c4d1edd25d4fed3e099e3c2c02b0a282a (diff)
downloadrneovim-ab4d13e2fa09db538756cc5cfb36f81681e5ff7a.tar.gz
rneovim-ab4d13e2fa09db538756cc5cfb36f81681e5ff7a.tar.bz2
rneovim-ab4d13e2fa09db538756cc5cfb36f81681e5ff7a.zip
Merge branch 'master' into luaviml'/lua
Diffstat (limited to 'test/functional/legacy/033_lisp_indent_spec.lua')
-rw-r--r--test/functional/legacy/033_lisp_indent_spec.lua27
1 files changed, 14 insertions, 13 deletions
diff --git a/test/functional/legacy/033_lisp_indent_spec.lua b/test/functional/legacy/033_lisp_indent_spec.lua
index b4abb02ac2..2b79ee024b 100644
--- a/test/functional/legacy/033_lisp_indent_spec.lua
+++ b/test/functional/legacy/033_lisp_indent_spec.lua
@@ -1,10 +1,10 @@
--- vim: set foldmethod=marker foldmarker=[[,]] :
-- Test for 'lisp'
-- If the lisp feature is not enabled, this will fail!
local helpers = require('test.functional.helpers')(after_each)
local clear, feed, insert = helpers.clear, helpers.feed, helpers.insert
-local execute, expect = helpers.execute, helpers.expect
+local command, expect = helpers.command, helpers.expect
+local wait = helpers.wait
describe('lisp indent', function()
setup(clear)
@@ -13,7 +13,7 @@ describe('lisp indent', function()
insert([[
(defun html-file (base)
(format nil "~(~A~).html" base))
-
+
(defmacro page (name title &rest body)
(let ((ti (gensym)))
`(with-open-file (*standard-output*
@@ -26,29 +26,30 @@ describe('lisp indent', function()
(as h2 (string-upcase ,ti)))
(brs 3)
,@body))))
-
+
;;; Utilities for generating links
-
+
(defmacro with-link (dest &rest body)
`(progn
(format t "<a href=\"~A\">" (html-file ,dest))
,@body
(princ "</a>")))]])
- execute('set lisp')
- execute('/^(defun')
+ command('set lisp')
+ command('/^(defun')
feed('=G:/^(defun/,$yank A<cr>')
+ wait()
-- Put @a and clean empty line
- execute('%d')
- execute('0put a')
- execute('$d')
+ command('%d')
+ command('0put a')
+ command('$d')
-- Assert buffer contents.
expect([[
(defun html-file (base)
(format nil "~(~A~).html" base))
-
+
(defmacro page (name title &rest body)
(let ((ti (gensym)))
`(with-open-file (*standard-output*
@@ -61,9 +62,9 @@ describe('lisp indent', function()
(as h2 (string-upcase ,ti)))
(brs 3)
,@body))))
-
+
;;; Utilities for generating links
-
+
(defmacro with-link (dest &rest body)
`(progn
(format t "<a href=\"~A\">" (html-file ,dest))