mirror of
https://github.com/neovim/neovim.git
synced 2026-08-01 05:09:08 +00:00
6d8c8b18d5
Problem: The magic globals `it`, `describe`, etc., are more trouble than they are worth. - Hooking into `after_each` requires `getfenv()` hacks. - They confuse luals/emmylua, because the top-level `.luarc.json` isn't merged with `test/.luarc.json` (apparently a luals limitation?) - They totally defeat discoverability because the user just has to "know" about the various magic symbols. So they harm DX, which means they serve no purpose at all. Solution: - Expose the test API from `testutil`, so tests can call `t.it()`, `t.describe()`, etc., in the conventional way. - Drop `getfenv()` hacks. - Drop the `setfenv()` injection in `load_chunk`. - Drop `test/_meta.lua`.
79 lines
1.9 KiB
Lua
79 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 t = require('test.testutil')
|
|
|
|
local describe, it, setup = t.describe, t.it, t.setup
|
|
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)
|