mirror of
https://github.com/neovim/neovim.git
synced 2024-12-25 21:55:17 -07:00
4ba3d059bf
This reverts commit 4be0e92db0.
Unfortunately, that commit stalled the Windows builds on GHA and likely requires
other patches to work properly.
237 lines
7.9 KiB
Lua
237 lines
7.9 KiB
Lua
-- Tests for autocommands
|
|
-- - FileWritePre writing a compressed file
|
|
-- - FileReadPost reading a compressed file
|
|
-- - BufNewFile reading a file template
|
|
-- - BufReadPre decompressing the file to be read
|
|
-- - FilterReadPre substituting characters in the temp file
|
|
-- - FilterReadPost substituting characters after filtering
|
|
-- - FileReadPre set options for decompression
|
|
-- - FileReadPost decompress the file
|
|
-- Note: This test is skipped if "gzip" is not available.
|
|
-- $GZIP is made empty, "-v" would cause trouble.
|
|
-- Use a FileChangedShell autocommand to avoid a prompt for "Xtestfile.gz"
|
|
-- being modified outside of Vim (noticed on Solaris).
|
|
|
|
local helpers= require('test.functional.helpers')(after_each)
|
|
local lfs = require('lfs')
|
|
local clear, feed_command, expect, eq, neq, dedent, write_file, feed =
|
|
helpers.clear, helpers.feed_command, helpers.expect, helpers.eq, helpers.neq,
|
|
helpers.dedent, helpers.write_file, helpers.feed
|
|
local iswin = helpers.iswin
|
|
local read_file = helpers.read_file
|
|
|
|
local function has_gzip()
|
|
local null = iswin() and 'nul' or '/dev/null'
|
|
return os.execute('gzip --help >' .. null .. ' 2>&1') == 0
|
|
end
|
|
|
|
local function prepare_gz_file(name, text)
|
|
write_file(name, text..'\n')
|
|
-- Compress the file with gzip.
|
|
os.execute('gzip --force '..name)
|
|
-- This should create the .gz file and delete the original.
|
|
neq(nil, lfs.attributes(name..'.gz'))
|
|
eq(nil, lfs.attributes(name))
|
|
end
|
|
|
|
describe('file reading, writing and bufnew and filter autocommands', function()
|
|
local text1 = dedent([[
|
|
start of testfile
|
|
line 2 Abcdefghijklmnopqrstuvwxyz
|
|
line 3 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
|
|
line 4 Abcdefghijklmnopqrstuvwxyz
|
|
line 5 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
|
|
line 6 Abcdefghijklmnopqrstuvwxyz
|
|
line 7 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
|
|
line 8 Abcdefghijklmnopqrstuvwxyz
|
|
line 9 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
|
|
line 10 Abcdefghijklmnopqrstuvwxyz
|
|
end of testfile]])
|
|
setup(function()
|
|
write_file('Xtest.c', [[
|
|
/*
|
|
* Here is a new .c file
|
|
*/
|
|
]])
|
|
end)
|
|
before_each(clear)
|
|
teardown(function()
|
|
os.remove('Xtestfile.gz')
|
|
os.remove('Xtest.c')
|
|
os.remove('test.out')
|
|
end)
|
|
|
|
if not has_gzip() then
|
|
pending('skipped (missing `gzip` utility)', function() end)
|
|
else
|
|
|
|
it('FileReadPost (using gzip)', function()
|
|
prepare_gz_file('Xtestfile', text1)
|
|
feed_command('let $GZIP = ""')
|
|
--execute('au FileChangedShell * echo "caught FileChangedShell"')
|
|
feed_command('set bin')
|
|
feed_command("au FileReadPost *.gz '[,']!gzip -d")
|
|
-- Read and decompress the testfile.
|
|
feed_command('$r Xtestfile.gz')
|
|
expect('\n'..text1)
|
|
end)
|
|
|
|
it('BufReadPre, BufReadPost (using gzip)', function()
|
|
prepare_gz_file('Xtestfile', text1)
|
|
local gzip_data = read_file('Xtestfile.gz')
|
|
feed_command('let $GZIP = ""')
|
|
-- Setup autocommands to decompress before reading and re-compress afterwards.
|
|
feed_command("au BufReadPre *.gz exe '!gzip -d ' . shellescape(expand('<afile>'))")
|
|
feed_command("au BufReadPre *.gz call rename(expand('<afile>:r'), expand('<afile>'))")
|
|
feed_command("au BufReadPost *.gz call rename(expand('<afile>'), expand('<afile>:r'))")
|
|
feed_command("au BufReadPost *.gz exe '!gzip ' . shellescape(expand('<afile>:r'))")
|
|
-- Edit compressed file.
|
|
feed_command('e! Xtestfile.gz')
|
|
-- Discard all prompts and messages.
|
|
feed('<C-L>')
|
|
-- Expect the decompressed file in the buffer.
|
|
expect(text1)
|
|
-- Expect the original file to be unchanged.
|
|
eq(gzip_data, read_file('Xtestfile.gz'))
|
|
end)
|
|
|
|
-- luacheck: ignore 621 (Indentation)
|
|
-- luacheck: ignore 611 (Line contains only whitespaces)
|
|
it('FileReadPre, FileReadPost', function()
|
|
prepare_gz_file('Xtestfile', text1)
|
|
feed_command('au! FileReadPre *.gz exe "silent !gzip -d " . shellescape(expand("<afile>"))')
|
|
feed_command('au FileReadPre *.gz call rename(expand("<afile>:r"), expand("<afile>"))')
|
|
feed_command("au! FileReadPost *.gz '[,']s/l/L/")
|
|
-- Read compressed file.
|
|
feed_command('$r Xtestfile.gz')
|
|
-- Discard all prompts and messages.
|
|
feed('<C-L>')
|
|
expect([[
|
|
|
|
start of testfiLe
|
|
Line 2 Abcdefghijklmnopqrstuvwxyz
|
|
Line 3 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
|
|
Line 4 Abcdefghijklmnopqrstuvwxyz
|
|
Line 5 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
|
|
Line 6 Abcdefghijklmnopqrstuvwxyz
|
|
Line 7 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
|
|
Line 8 Abcdefghijklmnopqrstuvwxyz
|
|
Line 9 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
|
|
Line 10 Abcdefghijklmnopqrstuvwxyz
|
|
end of testfiLe]])
|
|
end)
|
|
|
|
end
|
|
|
|
it('FileAppendPre, FileAppendPost', function()
|
|
feed_command('au BufNewFile *.c read Xtest.c')
|
|
-- Will load Xtest.c.
|
|
feed_command('e! foo.c')
|
|
feed_command("au FileAppendPre *.out '[,']s/new/NEW/")
|
|
feed_command('au FileAppendPost *.out !cat Xtest.c >>test.out')
|
|
-- Append it to the output file.
|
|
feed_command('w>>test.out')
|
|
-- Discard all prompts and messages.
|
|
feed('<C-L>')
|
|
-- Expect the decompressed file in the buffer.
|
|
feed_command('e test.out')
|
|
expect([[
|
|
|
|
/*
|
|
* Here is a NEW .c file
|
|
*/]])
|
|
end)
|
|
|
|
it('FilterReadPre, FilterReadPost', function()
|
|
-- Write a special input file for this test block.
|
|
write_file('test.out', dedent([[
|
|
startstart
|
|
]]) .. text1 .. dedent([[
|
|
|
|
|
|
start of test.c
|
|
/*
|
|
* Here is a new .c file
|
|
*/
|
|
end of test.c
|
|
]]) .. text1 .. dedent([[
|
|
|
|
|
|
/*
|
|
* Here is a NEW .c file
|
|
*/
|
|
/*
|
|
* Here is a new .c file
|
|
*/
|
|
]]) .. text1 .. dedent([[
|
|
|
|
/*
|
|
* Here is a new .c file
|
|
*/]]))
|
|
-- Need temp files here.
|
|
feed_command('set shelltemp')
|
|
feed_command('au FilterReadPre *.out call rename(expand("<afile>"), expand("<afile>") . ".t")')
|
|
feed_command('au FilterReadPre *.out exe "silent !sed s/e/E/ " . shellescape(expand("<afile>")) . ".t >" . shellescape(expand("<afile>"))')
|
|
feed_command('au FilterReadPre *.out exe "silent !rm " . shellescape(expand("<afile>")) . ".t"')
|
|
feed_command("au FilterReadPost *.out '[,']s/x/X/g")
|
|
-- Edit the output file.
|
|
feed_command('e! test.out')
|
|
feed_command('23,$!cat')
|
|
-- Discard all prompts and messages.
|
|
feed('<C-L>')
|
|
-- Remove CR for when sed adds them.
|
|
feed_command([[23,$s/\r$//]])
|
|
expect([[
|
|
startstart
|
|
start of testfile
|
|
line 2 Abcdefghijklmnopqrstuvwxyz
|
|
line 3 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
|
|
line 4 Abcdefghijklmnopqrstuvwxyz
|
|
line 5 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
|
|
line 6 Abcdefghijklmnopqrstuvwxyz
|
|
line 7 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
|
|
line 8 Abcdefghijklmnopqrstuvwxyz
|
|
line 9 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
|
|
line 10 Abcdefghijklmnopqrstuvwxyz
|
|
end of testfile
|
|
|
|
start of test.c
|
|
/*
|
|
* Here is a new .c file
|
|
*/
|
|
end of test.c
|
|
start of testfile
|
|
line 2 Abcdefghijklmnopqrstuvwxyz
|
|
line 3 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
|
|
line 4 Abcdefghijklmnopqrstuvwxyz
|
|
linE 5 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
linE 6 AbcdefghijklmnopqrstuvwXyz
|
|
linE 7 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
linE 8 AbcdefghijklmnopqrstuvwXyz
|
|
linE 9 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
linE 10 AbcdefghijklmnopqrstuvwXyz
|
|
End of testfile
|
|
|
|
/*
|
|
* HEre is a NEW .c file
|
|
*/
|
|
/*
|
|
* HEre is a new .c file
|
|
*/
|
|
start of tEstfile
|
|
linE 2 AbcdefghijklmnopqrstuvwXyz
|
|
linE 3 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
linE 4 AbcdefghijklmnopqrstuvwXyz
|
|
linE 5 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
linE 6 AbcdefghijklmnopqrstuvwXyz
|
|
linE 7 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
linE 8 AbcdefghijklmnopqrstuvwXyz
|
|
linE 9 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
linE 10 AbcdefghijklmnopqrstuvwXyz
|
|
End of testfile
|
|
/*
|
|
* HEre is a new .c file
|
|
*/]])
|
|
end)
|
|
end)
|