mirror of
https://github.com/neovim/neovim.git
synced 2025-09-30 06:58:35 +00:00
legacy tests: migrate test100
This commit is contained in:
Rainer Borene
committed by
Justin M. Keyes
Justin M. Keyes
parent
51c6f38fca
commit
b18cd63260
@@ -1,53 +0,0 @@
|
|||||||
Tests for 'undolevel' setting being global-local
|
|
||||||
|
|
||||||
STARTTEST
|
|
||||||
:so small.vim
|
|
||||||
:set ul=5
|
|
||||||
:fu! FillBuffer()
|
|
||||||
:for i in range(1,13)
|
|
||||||
:put=i
|
|
||||||
:exe "setg ul=" . &g:ul
|
|
||||||
:endfor
|
|
||||||
:endfu
|
|
||||||
:fu! UndoLevel()
|
|
||||||
:redir @a | setglobal undolevels? | echon ' global' | setlocal undolevels? | echon ' local' |redir end
|
|
||||||
:$put a
|
|
||||||
:endfu
|
|
||||||
:new one
|
|
||||||
:0put ='ONE: expecting global undolevels: 5, local undolevels: -123456 (default)'
|
|
||||||
:call FillBuffer()
|
|
||||||
:earlier 10
|
|
||||||
:call UndoLevel()
|
|
||||||
:set ff=unix
|
|
||||||
:%w! test.out
|
|
||||||
:new two
|
|
||||||
:0put ='TWO: expecting global undolevels: 5, local undolevels: 2 (first) then 10 (afterwards)'
|
|
||||||
:setlocal ul=2
|
|
||||||
:call FillBuffer()
|
|
||||||
:earlier 10
|
|
||||||
:call UndoLevel()
|
|
||||||
:setlocal ul=10
|
|
||||||
:call UndoLevel()
|
|
||||||
:set ff=unix
|
|
||||||
:%w >> test.out
|
|
||||||
:wincmd p
|
|
||||||
:redir >>test.out | echo "global value shouldn't be changed and still be 5!" | echo 'ONE: expecting global undolevels: 5, local undolevels: -123456 (default)'|:setglobal undolevels? | echon ' global' | setlocal undolevels? | echon ' local' |echo "" |redir end
|
|
||||||
:new three
|
|
||||||
:setglobal ul=50
|
|
||||||
:1put ='global value should be changed to 50'
|
|
||||||
:2put ='THREE: expecting global undolevels: 50, local undolevels: -123456 (default)'
|
|
||||||
:call UndoLevel()
|
|
||||||
:set ff=unix
|
|
||||||
:%w >> test.out
|
|
||||||
:"sleep 10
|
|
||||||
:"
|
|
||||||
:" Testing 'lispwords'
|
|
||||||
:"
|
|
||||||
:setglobal lispwords=foo,bar,baz
|
|
||||||
:setlocal lispwords-=foo | setlocal lispwords+=quux
|
|
||||||
:redir >> test.out | echon "\nTesting 'lispwords' local value" | setglobal lispwords? | setlocal lispwords? | echo &lispwords . "\n" | redir end
|
|
||||||
:setlocal lispwords<
|
|
||||||
:redir >> test.out | echon "\nTesting 'lispwords' value reset" | setglobal lispwords? | setlocal lispwords? | echo &lispwords . "\n" | redir end
|
|
||||||
:qa!
|
|
||||||
ENDTEST
|
|
||||||
|
|
||||||
@@ -1,51 +0,0 @@
|
|||||||
ONE: expecting global undolevels: 5, local undolevels: -123456 (default)
|
|
||||||
1
|
|
||||||
2
|
|
||||||
3
|
|
||||||
4
|
|
||||||
5
|
|
||||||
6
|
|
||||||
7
|
|
||||||
|
|
||||||
|
|
||||||
undolevels=5 global
|
|
||||||
undolevels=-123456 local
|
|
||||||
TWO: expecting global undolevels: 5, local undolevels: 2 (first) then 10 (afterwards)
|
|
||||||
1
|
|
||||||
2
|
|
||||||
3
|
|
||||||
4
|
|
||||||
5
|
|
||||||
6
|
|
||||||
7
|
|
||||||
8
|
|
||||||
9
|
|
||||||
10
|
|
||||||
|
|
||||||
|
|
||||||
undolevels=5 global
|
|
||||||
undolevels=2 local
|
|
||||||
|
|
||||||
undolevels=5 global
|
|
||||||
undolevels=10 local
|
|
||||||
|
|
||||||
global value shouldn't be changed and still be 5!
|
|
||||||
ONE: expecting global undolevels: 5, local undolevels: -123456 (default)
|
|
||||||
undolevels=5 global
|
|
||||||
undolevels=-123456 local
|
|
||||||
|
|
||||||
global value should be changed to 50
|
|
||||||
THREE: expecting global undolevels: 50, local undolevels: -123456 (default)
|
|
||||||
|
|
||||||
undolevels=50 global
|
|
||||||
undolevels=-123456 local
|
|
||||||
|
|
||||||
Testing 'lispwords' local value
|
|
||||||
lispwords=foo,bar,baz
|
|
||||||
lispwords=bar,baz,quux
|
|
||||||
bar,baz,quux
|
|
||||||
|
|
||||||
Testing 'lispwords' value reset
|
|
||||||
lispwords=foo,bar,baz
|
|
||||||
lispwords=foo,bar,baz
|
|
||||||
foo,bar,baz
|
|
||||||
142
test/functional/legacy/100_undo_level.lua
Normal file
142
test/functional/legacy/100_undo_level.lua
Normal file
@@ -0,0 +1,142 @@
|
|||||||
|
-- Tests for 'undolevel' setting being global-local
|
||||||
|
|
||||||
|
local helpers = require('test.functional.helpers')
|
||||||
|
local feed, insert, source = helpers.feed, helpers.insert, helpers.source
|
||||||
|
local clear, execute, expect = helpers.clear, helpers.execute, helpers.expect
|
||||||
|
|
||||||
|
describe('undolevel', function()
|
||||||
|
setup(clear)
|
||||||
|
|
||||||
|
it('is working', function()
|
||||||
|
source([[
|
||||||
|
set ul=5
|
||||||
|
fu! FillBuffer()
|
||||||
|
for i in range(1,13)
|
||||||
|
put=i
|
||||||
|
exe "setg ul=" . &g:ul
|
||||||
|
endfor
|
||||||
|
endfu
|
||||||
|
fu! UndoLevel()
|
||||||
|
redir @z
|
||||||
|
setglobal undolevels?
|
||||||
|
echon ' global'
|
||||||
|
setlocal undolevels?
|
||||||
|
echon ' local'
|
||||||
|
redir end
|
||||||
|
$put z
|
||||||
|
endfu
|
||||||
|
|
||||||
|
0put ='ONE: expecting global undolevels: 5, local undolevels: -123456 (default)'
|
||||||
|
call FillBuffer()
|
||||||
|
setlocal undolevels<
|
||||||
|
earlier 10
|
||||||
|
call UndoLevel()
|
||||||
|
set ff=unix
|
||||||
|
%yank A
|
||||||
|
%delete
|
||||||
|
|
||||||
|
0put ='TWO: expecting global undolevels: 5, local undolevels: 2 (first) then 10 (afterwards)'
|
||||||
|
setlocal ul=2
|
||||||
|
call FillBuffer()
|
||||||
|
earlier 10
|
||||||
|
call UndoLevel()
|
||||||
|
setlocal ul=10
|
||||||
|
call UndoLevel()
|
||||||
|
set ff=unix
|
||||||
|
%yank A
|
||||||
|
%delete
|
||||||
|
setlocal undolevels<
|
||||||
|
redir @A
|
||||||
|
echo "global value shouldn't be changed and still be 5!"
|
||||||
|
echo 'ONE: expecting global undolevels: 5, local undolevels: -123456 (default)'
|
||||||
|
setglobal undolevels?
|
||||||
|
echon ' global'
|
||||||
|
setlocal undolevels?
|
||||||
|
echon ' local'
|
||||||
|
echo ""
|
||||||
|
redir end
|
||||||
|
|
||||||
|
setglobal ul=50
|
||||||
|
1put ='global value should be changed to 50'
|
||||||
|
2put ='THREE: expecting global undolevels: 50, local undolevels: -123456 (default)'
|
||||||
|
call UndoLevel()
|
||||||
|
set ff=unix
|
||||||
|
%yank A
|
||||||
|
%delete
|
||||||
|
setglobal lispwords=foo,bar,baz
|
||||||
|
setlocal lispwords-=foo
|
||||||
|
setlocal lispwords+=quux
|
||||||
|
redir @A
|
||||||
|
echo "Testing 'lispwords' local value"
|
||||||
|
setglobal lispwords?
|
||||||
|
setlocal lispwords?
|
||||||
|
echo &lispwords
|
||||||
|
echo ''
|
||||||
|
redir end
|
||||||
|
setlocal lispwords<
|
||||||
|
redir @A
|
||||||
|
echo "Testing 'lispwords' value reset"
|
||||||
|
setglobal lispwords?
|
||||||
|
setlocal lispwords?
|
||||||
|
echo &lispwords
|
||||||
|
redir end
|
||||||
|
|
||||||
|
0put a
|
||||||
|
$d
|
||||||
|
]])
|
||||||
|
|
||||||
|
-- Assert buffer contents.
|
||||||
|
expect([[
|
||||||
|
ONE: expecting global undolevels: 5, local undolevels: -123456 (default)
|
||||||
|
1
|
||||||
|
2
|
||||||
|
3
|
||||||
|
4
|
||||||
|
5
|
||||||
|
6
|
||||||
|
7
|
||||||
|
|
||||||
|
|
||||||
|
undolevels=5 global
|
||||||
|
undolevels=-123456 local
|
||||||
|
TWO: expecting global undolevels: 5, local undolevels: 2 (first) then 10 (afterwards)
|
||||||
|
1
|
||||||
|
2
|
||||||
|
3
|
||||||
|
4
|
||||||
|
5
|
||||||
|
6
|
||||||
|
7
|
||||||
|
8
|
||||||
|
9
|
||||||
|
10
|
||||||
|
|
||||||
|
|
||||||
|
undolevels=5 global
|
||||||
|
undolevels=2 local
|
||||||
|
|
||||||
|
undolevels=5 global
|
||||||
|
undolevels=10 local
|
||||||
|
|
||||||
|
global value shouldn't be changed and still be 5!
|
||||||
|
ONE: expecting global undolevels: 5, local undolevels: -123456 (default)
|
||||||
|
undolevels=5 global
|
||||||
|
undolevels=-123456 local
|
||||||
|
|
||||||
|
global value should be changed to 50
|
||||||
|
THREE: expecting global undolevels: 50, local undolevels: -123456 (default)
|
||||||
|
|
||||||
|
undolevels=50 global
|
||||||
|
undolevels=-123456 local
|
||||||
|
|
||||||
|
Testing 'lispwords' local value
|
||||||
|
lispwords=foo,bar,baz
|
||||||
|
lispwords=bar,baz,quux
|
||||||
|
bar,baz,quux
|
||||||
|
|
||||||
|
Testing 'lispwords' value reset
|
||||||
|
lispwords=foo,bar,baz
|
||||||
|
lispwords=foo,bar,baz
|
||||||
|
foo,bar,baz]])
|
||||||
|
end)
|
||||||
|
end)
|
||||||
Reference in New Issue
Block a user