mirror of
https://github.com/neovim/neovim.git
synced 2024-12-20 11:15:14 -07:00
052498ed42
Specifically, functions that are run in the context of the test runner are put in module `test/testutil.lua` while the functions that are run in the context of the test session are put in `test/functional/testnvim.lua`. Closes https://github.com/neovim/neovim/issues/27004.
77 lines
1.9 KiB
Lua
77 lines
1.9 KiB
Lua
-- Test for 'lisp'
|
|
-- If the lisp feature is not enabled, this will fail!
|
|
|
|
local n = require('test.functional.testnvim')()
|
|
|
|
local clear, feed, insert = n.clear, n.feed, n.insert
|
|
local command, expect = n.command, n.expect
|
|
local poke_eventloop = n.poke_eventloop
|
|
|
|
describe('lisp indent', function()
|
|
setup(clear)
|
|
|
|
-- luacheck: ignore 621 (Indentation)
|
|
it('is working', 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*
|
|
(html-file ,name)
|
|
:direction :output
|
|
:if-exists :supersede)
|
|
(let ((,ti ,title))
|
|
(as title ,ti)
|
|
(with center
|
|
(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>")))]])
|
|
|
|
command('set lisp')
|
|
command('/^(defun')
|
|
feed('=G:/^(defun/,$yank A<cr>')
|
|
poke_eventloop()
|
|
|
|
-- Put @a and clean empty line
|
|
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*
|
|
(html-file ,name)
|
|
:direction :output
|
|
:if-exists :supersede)
|
|
(let ((,ti ,title))
|
|
(as title ,ti)
|
|
(with center
|
|
(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>")))]])
|
|
end)
|
|
end)
|