Problem: Code style is not check in test scripts.
Solution: Add basic code style check for test files.
#
# Usage: vim -u NONE -S keycode_check.vim
#
-# Author: Bram Moolenaar
-# Last Update: 2022 Nov 15
+# Author: Bram Moolenaar
+# Last Update: 2022 Nov 15
#
# The codes are stored in the file "keycode_check.json", so that you can
# compare the results of various terminals.
# The main loop
while true
var action = inputlist(['Select operation:',
- '1. List results',
+ '1. List results',
'2. Add results for a new terminal',
'3. Replace results',
'4. Clear results',
endif
" Check that the screen size is at least 24 x 80 characters.
-if &lines < 24 || &columns < 80
+if &lines < 24 || &columns < 80
let error = 'Screen size too small! Tests require at least 24 lines with 80 characters, got ' .. &lines .. ' lines with ' .. &columns .. ' characters'
echoerr error
split test.log
let &packpath = &rtp
endif
-" Only when the +eval feature is present.
+" Only when the +eval feature is present.
if 1
" Make sure the .Xauthority file can be found after changing $HOME.
if $XAUTHORITY == ''
silent %s/^SKIPPED \zs.*/\=Count(submatch(0), 'skipped')/egn
silent %s/^\(\d\+\)\s\+FAILED:/\=Count(submatch(1), 'failed')/egn
- call extend(output, ["Skipped:"])
+ call extend(output, ["Skipped:"])
call extend(output, skipped_output)
call extend(output, [
endfunc
func Test_compare_fail()
- let s:v = {}
- let s:x = {"a": s:v}
- let s:v["b"] = s:x
+ let s:v = {}
+ let s:x = {"a": s:v}
+ let s:v["b"] = s:x
let s:w = {"c": s:x, "d": ''}
try
call assert_equal(s:w, '')
augroup testing
au WinNew * call add(g:record, 'WinNew')
au WinClosed * call add(g:record, 'WinClosed')
- au WinEnter * call add(g:record, 'WinEnter')
- au WinLeave * call add(g:record, 'WinLeave')
+ au WinEnter * call add(g:record, 'WinEnter')
+ au WinLeave * call add(g:record, 'WinLeave')
au TabNew * call add(g:record, 'TabNew')
au TabClosed * call add(g:record, 'TabClosed')
au TabEnter * call add(g:record, 'TabEnter')
func Test_Visual_doautoall_redraw()
call setline(1, ['a', 'b'])
- new
+ new
wincmd p
call feedkeys("G\<C-V>", 'txn')
autocmd User Explode ++once redraw
func Test_autocmd_split_dummy()
" Autocommand trying to split a window containing a dummy buffer.
- auto BufReadPre * exe "sbuf " .. expand("<abuf>")
+ auto BufReadPre * exe "sbuf " .. expand("<abuf>")
" Avoid the "W11" prompt
au FileChangedShell * let v:fcs_choice = 'reload'
func Xautocmd_changelist()
call assert_equal(b[-3 :], br5)
VAR br6 = readblob('Xblob', -3, 2)
call assert_equal(b[-3 : -2], br6)
-
+
#" reading past end of file, empty result
VAR br1e = readblob('Xblob', 10000)
call assert_equal(0z, br1e)
let expected =<< trim END
vim9script
var d = {
- a: (): asdf => 0,
+ a: (): asdf => 0,
b: (): asdf => 0,
c: (): asdf => 0,
}
" call ch_logfile('channellog', 'w')
func SetUp()
- if g:testfunc =~ '_ipv6()$'
+ if g:testfunc =~ '_ipv6()$'
let s:localhost = '[::1]:'
let s:testscript = 'test_channel_6.py'
elseif g:testfunc =~ '_unix()$'
func Test_pipe_to_buffer_raw()
let options = {'out_mode': 'raw', 'out_io': 'buffer', 'out_name': 'testout'}
split testout
- let job = job_start([s:python, '-c',
+ let job = job_start([s:python, '-c',
\ 'import sys; [sys.stdout.write(".") and sys.stdout.flush() for _ in range(10000)]'], options)
" the job may be done quickly, also accept "dead"
call assert_match('^\%(dead\|run\)$', job_status(job))
\ 'interface',
\ 'public',
\ 'static',
- \ 'this',
+ \ 'this',
\ 'type',
\ '++',
\ '--',
bwipe!
enddef
+def Test_test_files()
+ for fname in glob('*.vim', 0, 1)
+ exe 'edit ' .. fname
+
+ # some files intentionally have misplaced white space
+ if fname =~ 'test_cindent.vim' || fname =~ 'test_join.vim'
+ continue
+ endif
+
+ # skip files that are known to have a space before a tab
+ if fname !~ 'test_comments.vim'
+ && fname !~ 'test_listchars.vim'
+ && fname !~ 'test_visual.vim'
+ cursor(1, 1)
+ var lnum = search(fname =~ "test_regexp_latin" ? '[^á] \t' : ' \t')
+ assert_equal(0, lnum, 'testdir/' .. fname .. ': space before tab')
+ endif
+
+ # skip files that are known to have trailing white space
+ if fname !~ 'test_cmdline.vim'
+ && fname !~ 'test_let.vim'
+ && fname !~ 'test_tagjump.vim'
+ && fname !~ 'test_vim9_cmd.vim'
+ cursor(1, 1)
+ var lnum = search(
+ fname =~ 'test_vim9_assign.vim' ? '[^=]\s$'
+ : fname =~ 'test_vim9_class.vim' ? '[^)]\s$'
+ : fname =~ 'test_vim9_script.vim' ? '[^,:3]\s$'
+ : fname =~ 'test_visual.vim' ? '[^/]\s$'
+ : '[^\\]\s$')
+ assert_equal(0, lnum, 'testdir/' .. fname .. ': trailing white space')
+ endif
+ endfor
+
+ bwipe!
+enddef
+
" vim: shiftwidth=2 sts=2 expandtab
call assert_equal('10', getline('.'))
21
call assert_equal('two', getline('.'))
- diffget one
+ diffget one
call assert_equal('20', getline('.'))
31
CheckScreendump
let lines =<< trim END
- void doNothing() {
+ void doNothing() {
int x = 0;
char *s = "hello";
return 5;
END
call writefile(lines, 'Xprogram1.c', 'D')
let lines =<< trim END
- void doSomething() {
+ void doSomething() {
int x = 0;
char *s = "there";
return 5;
call writefile(lines, 'Xprogram2.c', 'D')
let lines =<< trim END
- edit Xprogram1.c
+ edit Xprogram1.c
diffsplit Xprogram2.c
END
call writefile(lines, 'Xtest_diff_syntax', 'D')
func Test_diff_and_scroll()
" this was causing an ml_get error
set ls=2
- for i in range(winheight(0) * 2)
- call setline(i, i < winheight(0) - 10 ? i : i + 10)
+ for i in range(winheight(0) * 2)
+ call setline(i, i < winheight(0) - 10 ? i : i + 10)
endfor
vnew
- for i in range(winheight(0)*2 + 10)
- call setline(i, i < winheight(0) - 10 ? 0 : i)
+ for i in range(winheight(0)*2 + 10)
+ call setline(i, i < winheight(0) - 10 ? 0 : i)
endfor
diffthis
wincmd p
file %%%%%%%%%%%%%%%%%%%%%%%%%%
file %%%%%%
set readonly
- set ls=2
+ set ls=2
redraw!
set noreadonly ls&
func Test_expand_tilde_filename()
split ~
- call assert_equal('~', expand('%'))
+ call assert_equal('~', expand('%'))
call assert_notequal(expand('%:p'), expand('~/'))
- call assert_match('\~', expand('%:p'))
+ call assert_match('\~', expand('%:p'))
bwipe!
endfunc
let $TEST_EXPAND_DLLPATH = '/dllpath/lib' . substitute(a:optname, '\zedll$', '.', '')
execute 'let dllpath_save = &' . a:optname
try
- execute 'set ' . a:optname . '=$TEST_EXPAND_DLLPATH'
- execute 'call assert_equal("' . $TEST_EXPAND_DLLPATH . '", &' . a:optname . ')'
+ execute 'set ' . a:optname . '=$TEST_EXPAND_DLLPATH'
+ execute 'call assert_equal("' . $TEST_EXPAND_DLLPATH . '", &' . a:optname . ')'
execute 'set ' . a:optname . '=~' . $TEST_EXPAND_DLLPATH
let home = substitute($HOME, '\\', '/', 'g')
- execute 'call assert_equal("' . home . $TEST_EXPAND_DLLPATH . '", &' . a:optname . ')'
+ execute 'call assert_equal("' . home . $TEST_EXPAND_DLLPATH . '", &' . a:optname . ')'
finally
execute 'let &' . a:optname . ' = dllpath_save'
let $TEST_EXPAND_DLLPATH = ''
let s:sflnum = str2nr(expand('<sflnum>'))
func s:expand_sfile()
- return expand('<sfile>')
+ return expand('<sfile>')
endfunc
func s:expand_slnum()
- return str2nr(expand('<slnum>'))
+ return str2nr(expand('<slnum>'))
endfunc
func s:expand_sflnum()
- return str2nr(expand('<sflnum>'))
+ return str2nr(expand('<sflnum>'))
endfunc
" This test depends on the location in the test file, put it first.
%foldopen!
13m7
call Check_foldlevels([1, 2, 2, 2, 1, 2, 2, 1, 1, 1, 2, 2, 2, 1, 0])
-
+
bw!
endfunc
let content =<< trim [CODE]
/*
* comment
- *
+ *
*
*/
int f(int* p) {
func Test_gD()
let lines =<< trim [CODE]
int x;
-
+
int func(void)
{
return x;
func Test_gD_too()
let lines =<< trim [CODE]
Filename x;
-
+
int Filename
int func() {
Filename x;
let lines =<< trim [CODE]
/* int x; */
int x;
-
+
int func(void)
{
return x;
let lines =<< trim [CODE]
int y /* , x */;
int x;
-
+
int func(void)
{
return x;
let lines =<< trim [CODE]
char *s[] = "x";
int x = 1;
-
+
int func(void)
{
return x;
func Test_gD_string_same_line()
let lines =<< trim [CODE]
char *s[] = "x", int x = 1;
-
+
int func(void)
{
return x;
let lines =<< trim [CODE]
char c = 'x';
int x = 1;
-
+
int func(void)
{
return x;
func Test_gd()
let lines =<< trim [CODE]
int x;
-
+
int func(int x)
{
return x;
{
return x;
}
-
+
int func2(int x)
{
return x;
def func1(a)
a + 1
end
-
+
a = 1
-
+
def func2()
return a
end
int func(void)
{
int y /* , x */;
-
+
for (/* int x = 0 */; y < 2; y++);
-
+
int x = 0;
-
+
return x;
}
[CODE]
{
char *s = "x";
int x = 1;
-
+
return x;
}
[CODE]
int func(void)
{
char *s = "x";
-
+
return x;
}
[CODE]
char *b = "NULL";
return b;
}
-
+
return 0;
}
[CODE]
" Text:
" 1 23
" 4 56
-"
+"
" Expected:
" 1) f2 Ctrl-V jl <ctrl-a>, repeat twice afterwards with .
" 1 26
endfunc
func Test_indent_func_with_gq()
-
+
function GetTeXIndent()
" Sample indent expression for TeX files
let lnum = prevnonblank(v:lnum - 1)
let line = getline(lnum)
let ind = indent(lnum)
" Add a 'shiftwidth' after beginning of environments.
- if line =~ '\\begin{center}'
+ if line =~ '\\begin{center}'
let ind = ind + shiftwidth()
endif
return ind
bwipe!
delmark ab
- delfunction GetTeXIndent
+ delfunction GetTeXIndent
endfu
func Test_formatting_keeps_first_line_indent()
func Test_ins_complete_end_of_line()
" this was reading past the end of the line
- new
+ new
norm 8o\80ý
sil! norm o\10\18\10\18\10
set list
set listchars=eol:$,space:_,nbsp:=
-
+
let nbsp1 = nr2char(0xa0)
let nbsp2 = nr2char(0x202f)
call append(0, [
" Tests for maparg(), mapcheck(), mapset(), maplist()
" Also test utf8 map with a 0x80 byte.
-func s:SID()
+func s:SID()
return str2nr(matchstr(expand('<sfile>'), '<SNR>\zs\d\+\ze_SID$'))
endfunc
call assert_equal({'silent': 0, 'noremap': 0, 'script': 0, 'lhs': 'foo<C-V>',
\ 'lhsraw': "foo\x80\xfc\x04V", 'lhsrawalt': "foo\x16",
\ 'mode': ' ', 'nowait': 0, 'expr': 0, 'sid': sid, 'scriptversion': 1,
- \ 'lnum': lnum + 1,
+ \ 'lnum': lnum + 1,
\ 'rhs': 'is<F4>foo', 'buffer': 0, 'abbr': 0, 'mode_bits': 0x47},
\ maparg('foo<C-V>', '', 0, 1))
call assert_equal({'silent': 1, 'noremap': 1, 'script': 1, 'lhs': 'bar',
func Test_method_syntax()
eval [1, 2, 3] ->sort( )
- eval [1, 2, 3]
+ eval [1, 2, 3]
\ ->sort(
\ )
eval [1, 2, 3]->sort()
endfor
endfunc
-" This tells Vim to execute the buffered keys as user commands,
+" This tells Vim to execute the buffered keys as user commands,
" ie. same as feekdeys with mode X would do.
func ExecuteBufferedKeys()
if has('gui_running')
let s:MOD_MASK_SHIFT = 0x02
let s:MOD_MASK_CTRL = 0x04
let s:MOD_MASK_ALT = 0x08
-
+
let s:vim_key_modifiers = [
\ ["", 0, []],
\ ["S-", 2, [s:VK.LSHIFT]],
" Test for lowercase 'a' to 'z', VK codes 65(0x41) - 90(0x5A)
" Note: VK_A-VK_Z virtual key codes coincide with uppercase ASCII codes A-Z.
" eg VK_A is 65, and the ASCII character code for uppercase 'A' is also 65.
-" Caution: these are interpreted as lowercase when Shift is NOT pressed.
+" Caution: these are interpreted as lowercase when Shift is NOT pressed.
" eg, sending VK_A (65) 'A' Key code without shift modifier, will produce ASCII
" char 'a' (91) as the output. The ASCII codes for the lowercase letters are
" numbered 32 higher than their uppercase versions.
call MouseShiftWheelDown(2, 1)
call feedkeys("H", 'Lx!')
" should scroll from where it is (4) + visible buffer height - cmdheight
- let shift_scroll_height = line('w$') - line('w0') - &cmdheight
+ let shift_scroll_height = line('w$') - line('w0') - &cmdheight
call assert_equal(4 + shift_scroll_height, line('.'))
" Shift Scroll Up
call MSWinMouseEvent(0x100, 2, 1, 0, 0, 0x04)
call feedkeys("H", 'Lx!')
" should scroll from where it is (4) + visible buffer height - cmdheight
- let shift_scroll_height = line('w$') - line('w0') - &cmdheight
+ let shift_scroll_height = line('w$') - line('w0') - &cmdheight
call assert_equal(4 + shift_scroll_height, line('.'))
" Shift Scroll Up (using MOD)
call feedkeys('g0', 'Lx!')
" should scroll from where it is (7) + window width
call assert_equal(7 + winwidth(0), col('.'))
-
+
" Shift Scroll Left
call MouseShiftWheelLeft(1, 50)
call feedkeys('g0', 'Lx!')
\ substitute(e, '[<>]', '', 'g') .. '")<CR>'
endfor
- " Test various mouse buttons
- "(0 - Left, 1 - Middle, 2 - Right,
+ " Test various mouse buttons
+ "(0 - Left, 1 - Middle, 2 - Right,
" 0x300 - MOUSE_X1/FROM_LEFT_3RD_BUTTON,
" 0x400 - MOUSE_X2/FROM_LEFT_4TH_BUTTON)
for button in [0, 1, 2, 0x300, 0x400]
let args = #{button: 0, row: 2, col: 4, move: 0, multiclick: 0, modifiers: 0}
call assert_fails("call test_mswin_event('a1b2c3', args)", 'E475:')
call assert_fails("call test_mswin_event(test_null_string(), {})", 'E475:')
-
+
call assert_fails("call test_mswin_event([], args)", 'E1174:')
call assert_fails("call test_mswin_event('abc', [])", 'E1206:')
-
+
call assert_false(test_mswin_event('mouse', test_null_dict()))
let args = #{row: 2, col: 4, multiclick: 0, modifiers: 0}
call assert_false(test_mswin_event('mouse', args))
a character like this:
.NH
End of text here
-
+
[DATA]
call assert_equal(expected, getline(1, '$'))
if !empty(entered)
let mth = filter(mth, 'v:val=~"^".entered')
endif
- call complete(1, mth)
+ call complete(1, mth)
return ''
endfunc
call feedkeys("aJu\<f5>\<c-p>l\<c-y>", 'tx')
call assert_equal(["Jul"], getline(1,2))
%d
-
+
" any-non printable, non-white character: Add this character and
" reduce number of matches
call feedkeys("aJu\<f5>\<c-p>l\<c-n>\<c-y>", 'tx')
call feedkeys("aJ\<f5>".repeat("\<c-n>",3)."\<c-l>\<esc>", 'tx')
call assert_equal(["J\f"], getline(1,2))
%d
-
+
" <c-l> - Insert one character from the current match
call feedkeys("aJ\<f5>".repeat("\<c-n>",4)."\<c-l>\<esc>", 'tx')
call assert_equal(["January\f"], getline(1,2))
call term_sendkeys(buf, "jI123456789_\<Esc>")
call term_sendkeys(buf, "GA\<C-N>")
call VerifyScreenDump(buf, 'Test_popup_position_04', {'rows': 10})
-
+
call term_sendkeys(buf, "\<Esc>u")
call StopVimInTerminal(buf)
endfunc
\ bufnr: bufnr('%'),
\ })
let winid = popup_create('the text', #{
- \ pos: 'botleft',
+ \ pos: 'botleft',
\ textprop: 'popupMarker',
\ border: [],
\ padding: [0,1,0,1],
\ type: 'popupMarker',
\ })
let winid = popup_create('bottom left', #{
- \ pos: 'botleft',
+ \ pos: 'botleft',
\ textprop: 'popupMarker',
\ textpropwin: win_getid(),
\ padding: [0,1,0,1],
\ })
let winid = popup_create('bottom right', #{
- \ pos: 'botright',
+ \ pos: 'botright',
\ textprop: 'popupMarker',
\ border: [],
\ padding: [0,1,0,1],
\ })
let winid = popup_create('top left', #{
- \ pos: 'topleft',
+ \ pos: 'topleft',
\ textprop: 'popupMarker',
\ border: [],
\ padding: [0,1,0,1],
\ })
let winid = popup_create('top right', #{
- \ pos: 'topright',
+ \ pos: 'topright',
\ textprop: 'popupMarker',
\ padding: [0,1,0,1],
\ })
\ type: 'popupMarker',
\ })
let winid = popup_create('bottom left', #{
- \ pos: 'botleft',
+ \ pos: 'botleft',
\ line: -1,
\ col: 2,
\ textprop: 'popupMarker',
\ padding: [0,1,0,1],
\ })
let winid = popup_create('bottom right', #{
- \ pos: 'botright',
+ \ pos: 'botright',
\ line: -1,
\ col: -2,
\ textprop: 'popupMarker',
\ padding: [0,1,0,1],
\ })
let winid = popup_create('top left', #{
- \ pos: 'topleft',
+ \ pos: 'topleft',
\ line: 1,
\ col: 2,
\ textprop: 'popupMarker',
\ padding: [0,1,0,1],
\ })
let winid = popup_create('top right', #{
- \ pos: 'topright',
+ \ pos: 'topright',
\ line: 1,
\ col: -2,
\ textprop: 'popupMarker',
"Xtestfile", linenr 16: yet another problem
Error in "Xtestfile" at line 17:
x should be a dot
- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 17
+ xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 17
^
Error in "Xtestfile" at line 18:
x should be a dot
- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 18
+ xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 18
.............^
Error in "Xtestfile" at line 19:
x should be a dot
- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 19
+ xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 19
--------------^
Error in "Xtestfile" at line 20:
x should be a dot
- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 20
- ^
+ xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx line 20
+ ^
Does anyone know what is the problem and how to correction it?
"Xtestfile", line 21 col 9: What is the title of the quickfix window?
failUnlessEqual
raise self.failureException, \\
W:AssertionError: 34 != 33
-
+
--------------------------------------------------------------
Ran 27 tests in 0.063s
[DATA]
# matchstr().
enew
setline(1, ['one', 'two', 'three'])
- :3
+ :3
:/ee
bwipe!
set re=1
call term_sendkeys(buf, ":set scrolloff=1\<CR>")
call term_sendkeys(buf, "10|\<C-E>")
call VerifyScreenDump(buf, 'Test_smooth_long_6', {})
-
+
" 'scrolloff' set to 1, scrolling down, cursor moves screen line up
call term_sendkeys(buf, "\<C-E>")
call term_sendkeys(buf, "gjgj")
call term_sendkeys(buf, "\<C-Y>")
call VerifyScreenDump(buf, 'Test_smooth_long_7', {})
-
+
" 'scrolloff' set to 2, scrolling up, cursor moves screen line down
call term_sendkeys(buf, ":set scrolloff=2\<CR>")
call term_sendkeys(buf, "10|\<C-E>")
call VerifyScreenDump(buf, 'Test_smooth_long_8', {})
-
+
" 'scrolloff' set to 2, scrolling down, cursor moves screen line up
call term_sendkeys(buf, "\<C-E>")
call term_sendkeys(buf, "gj")
call term_sendkeys(buf, "3Gzt")
call term_sendkeys(buf, "\<C-E>j")
call VerifyScreenDump(buf, 'Test_smooth_long_15', {})
-
+
call StopVimInTerminal(buf)
endfunc
call writefile(lines, 'XSmoothOneLong', 'D')
let buf = RunVimInTerminal('-S XSmoothOneLong', #{rows: 6, cols: 40})
call VerifyScreenDump(buf, 'Test_smooth_one_long_1', {})
-
+
call term_sendkeys(buf, "\<C-E>")
call VerifyScreenDump(buf, 'Test_smooth_one_long_2', {})
call writefile(lines, 'XSmoothLongShowbreak', 'D')
let buf = RunVimInTerminal('-S XSmoothLongShowbreak', #{rows: 6, cols: 40})
call VerifyScreenDump(buf, 'Test_smooth_long_showbreak_1', {})
-
+
call term_sendkeys(buf, "\<C-E>")
call VerifyScreenDump(buf, 'Test_smooth_long_showbreak_2', {})
call NewWindow(10, 20)
setl smoothscroll wrap
setl scrolloff=3
-
+
" 120 chars are 6 screen lines
call setline(1, "abcdefghijklmnopqrstABCDEFGHIJKLMNOPQRSTabcdefghijklmnopqrstABCDEFGHIJKLMNOPQRSTabcdefghijklmnopqrstABCDEFGHIJKLMNOPQRST")
call setline(2, "below")
sleep 100m
" We resume after the suspend. Sleep a bit for the signal to take effect,
- " also when running under valgrind.
+ " also when running under valgrind.
exe 'silent !kill -s CONT ' .. pid_vim
call WaitForAssert({-> assert_true(filereadable('XautoOut2'))})
sleep 10m
let lines =<< trim END
call setline(1, [repeat('x', 75), 'mmmm', 'yyyy'])
call cursor(2,1)
- sign define s1 texthl=Search text==>
- sign define s2 linehl=Pmenu
+ sign define s1 texthl=Search text==>
+ sign define s2 linehl=Pmenu
redraw
- sign place 10 line=2 name=s1
+ sign place 10 line=2 name=s1
END
call writefile(lines, 'XtestSigncolumn', 'D')
let buf = RunVimInTerminal('-S XtestSigncolumn', {'rows': 6})
" Test statusline works with 80+ items
function! StatusLabel()
redrawstatus
- return '[label]'
+ return '[label]'
endfunc
let statusline = '%{StatusLabel()}'
for i in range(150)
endfunc
func Test_nocatch_sub_failure_handling()
- " normal error results in all replacements
+ " normal error results in all replacements
func Foo()
foobar
endfunc
delf NullTagFunc
bwipe!
- set tags& tfu& cpt&
+ set tags& tfu& cpt&
call delete('Xfile1')
endfunc
let code =<< trim [CODE]
int FUNC1 (int x) { }
- int
+ int
func2 (int y) { }
int * func3 () { }
let save_term = &term
let save_ttymouse = &ttymouse
call test_override('no_query_mouse', 1)
-
+
" 'mousetime' must be sufficiently large, or else the test is flaky when
" using a ssh connection with X forwarding; i.e. ssh -X (issue #7563).
set mouse=a term=xterm mousetime=600
let lines =<< trim END
vim9script
-
+
setline(1, ['vim9script', '', 'three', ''])
# Add text prop below empty line 2 with padding.
END
call writefile(lines, 'XscriptPropBelowAfterEmpty', 'D')
let buf = RunVimInTerminal('-S XscriptPropBelowAfterEmpty', #{rows: 8, cols: 60})
- call VerifyScreenDump(buf, 'Test_prop_below_after_empty_1', {})
+ call VerifyScreenDump(buf, 'Test_prop_below_after_empty_1', {})
call term_sendkeys(buf, ":set number\<CR>")
- call VerifyScreenDump(buf, 'Test_prop_below_after_empty_2', {})
+ call VerifyScreenDump(buf, 'Test_prop_below_after_empty_2', {})
call term_sendkeys(buf, ":set nowrap\<CR>")
- call VerifyScreenDump(buf, 'Test_prop_below_after_empty_3', {})
+ call VerifyScreenDump(buf, 'Test_prop_below_after_empty_3', {})
call StopVimInTerminal(buf)
endfunc
prop_type_add('propnotincl', {highlight: 'NonText', start_incl: false})
prop_add(1, 15, {type: 'propnotincl', text: 'before '})
- set cindent sw=4
+ set cindent sw=4
prop_type_add('argname', {highlight: 'DiffChange', start_incl: true})
prop_add(3, 10, {type: 'argname', text: 'arg: '})
END
call StopVimInTerminal(buf)
endfunc
-
+
func Test_error_when_using_negative_id()
call prop_type_add('test1', #{highlight: 'ErrorMsg'})
call prop_add(1, 1, #{type: 'test1', text: 'virtual'})
" vgetc().
func Test_nocatch_timer_garbage_collect()
" FIXME: why does this fail only on MacOS M1?
- try
+ try
CheckNotMacM1
catch /Skipped/
let g:skipped_reason = v:exception
endfunc
function Try_arg_true_false(expr, false_val, true_val)
- for v in ['v:false', '0', '"0"', '"foo"', '" "']
+ for v in ['v:false', '0', '"0"', '"foo"', '" "']
let r = eval(substitute(a:expr, '%v%', v, ''))
call assert_equal(a:false_val, r, 'result for ' . v . ' is not ' . string(a:false_val) . ' but ' . string(r))
endfor
- for v in ['v:true', '1', '"1"', '"1foo"']
+ for v in ['v:true', '1', '"1"', '"1foo"']
let r = eval(substitute(a:expr, '%v%', v, ''))
call assert_equal(a:true_val, r, 'result for ' . v . ' is not ' . string(a:true_val) . ' but ' . string(r))
endfor
endfunc
function Try_arg_non_zero(expr, false_val, true_val)
- for v in ['v:false', '0', '[1]', '{2:3}', '3.4']
+ for v in ['v:false', '0', '[1]', '{2:3}', '3.4']
let r = eval(substitute(a:expr, '%v%', v, ''))
call assert_equal(a:false_val, r, 'result for ' . v . ' is not ' . a:false_val . ' but ' . r)
endfor
- for v in ['v:true', '1', '" "', '"0"']
+ for v in ['v:true', '1', '" "', '"0"']
let r = eval(substitute(a:expr, '%v%', v, ''))
call assert_equal(a:true_val, r, 'result for ' . v . ' is not ' . a:true_val . ' but ' . r)
endfor
call Try_arg_non_zero("shellescape('foo%', %v%)", "'foo%'", "'foo\\%'")
" visualmode() needs to be called twice to check
- for v in [v:false, 0, [1], {2:3}, 3.4]
+ for v in [v:false, 0, [1], {2:3}, 3.4]
normal vv
let r = visualmode(v)
call assert_equal('v', r, 'result for ' . string(v) . ' is not "v" but ' . r)
let r = visualmode(v)
call assert_equal('v', r, 'result for ' . string(v) . ' is not "v" but ' . r)
endfor
- for v in [v:true, 1, " ", "0"]
+ for v in [v:true, 1, " ", "0"]
normal vv
let r = visualmode(v)
call assert_equal('v', r, 'result for ' . v . ' is not "v" but ' . r)
" Tests for Unicode manipulations
-
+
source check.vim
source view_util.vim
source screendump.vim
let save_encoding = &encoding
set encoding=latin1
-
+
let lres = str2list(s, 1)
let sres = list2str(l, 1)
call assert_equal([65, 66, 67], str2list("ABC"))
func Test_screenchar_utf8()
new
- " 1-cell, with composing characters
+ " 1-cell, with composing characters
call setline(1, ["ABC\u0308"])
redraw
call assert_equal([0x0041], screenchars(1, 1))
call assert_equal("B", screenstring(1, 2))
call assert_equal("C\u0308", screenstring(1, 3))
- " 2-cells, with composing characters
+ " 2-cells, with composing characters
let text = "\u3042\u3044\u3046\u3099"
call setline(1, text)
redraw
v9.CheckDefAndScriptFailure(lines, 'E1012: Type mismatch; expected func(number) but got func(any): bool')
lines =<< trim END
- echo filter([1, 2, 3], (_, v: string) => v + 1)
+ echo filter([1, 2, 3], (_, v: string) => v + 1)
END
v9.CheckDefAndScriptFailure(lines, 'E1051:')
enddef
endif
return 'this'
endfunc
- var val: string = GetValue()
+ var val: string = GetValue()
# env var is always a string
var env = $TERM
END
lines =<< trim END
vim9script
class Something
- endclass school's out
+ endclass school's out
END
v9.CheckScriptFailure(lines, 'E488:')
TextPos.AddToCounter(3)
assert_equal(3, TextPos.counter)
assert_fails('echo TextPos.noSuchMember', 'E1338:')
-
+
def GetCounter(): number
return TextPos.counter
enddef
'8 COND2BOOL\_s*' ..
'9 STORE $3\_s*' ..
'return name\_s*' ..
- '\d\+ LOAD $3\_s*' ..
+ '\d\+ LOAD $3\_s*' ..
'\d\+ RETURN',
instr)
assert_equal(true, InvertBool())
echo ['a'] + (1 ? ['b'] : ['c'] # comment
)
- # with constant condition expression is not evaluated
+ # with constant condition expression is not evaluated
assert_equal('one', 1 ? 'one' : xxx)
var Some: func = function('len')
# check line continuation
var lines =<< trim END
var name = 1
- ? 'yes'
+ ? 'yes'
: 'no'
assert_equal('yes', name)
END
lines =<< trim END
var name = v:false
- ? 'yes'
+ ? 'yes'
: 'no'
assert_equal('no', name)
END
lines =<< trim END
var name = v:false ?
- 'yes' :
+ 'yes' :
'no'
assert_equal('no', name)
END
lines =<< trim END
var name = v:false ? # comment
- 'yes' :
+ 'yes' :
# comment
'no' # comment
assert_equal('no', name)
# check line continuation
var lines =<< trim END
var name = 0
- || 1
+ || 1
assert_equal(true, name)
END
v9.CheckDefAndScriptSuccess(lines)
lines =<< trim END
var name = v:false
- || v:true
- || v:false
+ || v:true
+ || v:false
assert_equal(v:true, name)
END
v9.CheckDefAndScriptSuccess(lines)
lines =<< trim END
var name = v:false ||
- v:true ||
+ v:true ||
v:false
assert_equal(v:true, name)
END
lines =<< trim END
var name = v:false || # comment
# comment
- v:true ||
+ v:true ||
# comment
v:false # comment
assert_equal(v:true, name)
# check line continuation
var lines =<< trim END
var name = 0
- && 1
+ && 1
assert_equal(false, name)
END
v9.CheckDefAndScriptSuccess(lines)
lines =<< trim END
var name = v:true
- && v:true
- && v:true
+ && v:true
+ && v:true
assert_equal(v:true, name)
END
v9.CheckDefAndScriptSuccess(lines)
lines =<< trim END
var name = v:true &&
- v:true &&
- v:true
+ v:true &&
+ v:true
assert_equal(v:true, name)
END
v9.CheckDefAndScriptSuccess(lines)
lines =<< trim END
var name = v:true && # comment
# comment
- v:true &&
+ v:true &&
# comment
- v:true
+ v:true
assert_equal(v:true, name)
END
v9.CheckDefAndScriptSuccess(lines)
# variables declared at script level used in a :def function
lines =<< trim END
vim9script
-
+
var l_decl: list<number>
var l_empty = []
var l_null = null_list
assert_true(caught)
enddef
TestList()
-
+
var b_decl: blob
var b_empty = 0z
var b_null = null_blob
assert_true(caught)
enddef
TestBlob()
-
+
var d_decl: dict<number>
var d_empty = {}
var d_null = null_dict
# check line continuation
var lines =<< trim END
var name = 0
- < 1
+ < 1
assert_equal(true, name)
END
v9.CheckDefAndScriptSuccess(lines)
lines =<< trim END
var name = 123
# comment
- != 123
+ != 123
assert_equal(false, name)
END
v9.CheckDefAndScriptSuccess(lines)
lines =<< trim END
var name = 123 ==
- 123
+ 123
assert_equal(true, name)
END
v9.CheckDefAndScriptSuccess(lines)
lines =<< trim END
var list = [1, 2, 3]
var name = list
- is list
+ is list
assert_equal(true, name)
END
v9.CheckDefAndScriptSuccess(lines)
var list = [1, 2, 3]
var name = list # comment
# comment
- is list
+ is list
assert_equal(true, name)
END
v9.CheckDefAndScriptSuccess(lines)
lines =<< trim END
var myblob = 0z1234
var name = myblob
- isnot 0z11
+ isnot 0z11
assert_equal(true, name)
END
v9.CheckDefAndScriptSuccess(lines)
# check line continuation
var lines =<< trim END
var name = 11
- + 77
+ + 77
- 22
assert_equal(66, name)
END
lines =<< trim END
var name = 'one'
- .. 'two'
+ .. 'two'
assert_equal('onetwo', name)
END
v9.CheckDefAndScriptSuccess(lines)
# check line continuation
var lines =<< trim END
var name = 11
- * 22
+ * 22
/ 3
assert_equal(80, name)
END
lines =<< trim END
var name = 25
- % 10
+ % 10
assert_equal(5, name)
END
v9.CheckDefAndScriptSuccess(lines)
# comment
# comment
- % 10
+ % 10
assert_equal(5, name)
END
v9.CheckDefAndScriptSuccess(lines)
lines =<< trim END
var name = 11 *
- 22 /
+ 22 /
3
assert_equal(80, name)
END
var dkeys = {['key']: 'string',
[12]: 'numberexpr',
34: 'number',
- [true]: 'bool'}
+ [true]: 'bool'}
assert_equal('string', dkeys['key'])
assert_equal('numberexpr', dkeys[12])
assert_equal('number', dkeys[34])
assert_equal('dict<list<unknown>>', typename(dl))
END
v9.CheckDefAndScriptSuccess(lines)
-
+
# legacy syntax doesn't work
v9.CheckDefAndScriptFailure(["var x = #{key: 8}"], 'E1170:', 1)
v9.CheckDefAndScriptFailure(["var x = 'a' #{a: 1}"], 'E1170:', 1)
def Test_expr_member_vim9script()
var lines =<< trim END
var d = {one:
- 'one',
+ 'one',
two: 'two',
1: 1,
_: 2}
assert_equal('ok', g:LegacyReturn())
lines =<< trim END
- vim9script
- def GetNumber(): number
+ vim9script
+ def GetNumber(): number
legacy return notexists
- enddef
+ enddef
echo GetNumber()
END
v9.CheckScriptFailure(lines, 'E121: Undefined variable: notexists')
lines =<< trim END
- vim9script
- def GetNumber(): number
- legacy return range(3)->map('v:val + 1')
- enddef
+ vim9script
+ def GetNumber(): number
+ legacy return range(3)->map('v:val + 1')
+ enddef
echo GetNumber()
END
v9.CheckScriptFailure(lines, 'E1012: Type mismatch; expected number but got list<number>')
var Join = (l) => join(l, 'x')
assert_equal('axb', ['a', 'b']->(Join)())
-
+
var sorted = [3, 1, 2]
-> sort()
assert_equal([1, 2, 3], sorted)
defcompile
func! g:Global(a, b)
- echo a:a a:b
+ echo a:a a:b
endfunc
Tryit()
END
)
# had a double free if the right parenthesis of the nested function is
# on the next line
-
+
enddef|BBBB
enddef
# Compile all functions
def SecondFunction(J =
# Nois
# one
-
- enddef|BBBB
+
+ enddef|BBBB
enddef
# Compile all functions
defcompile
import autoload 'toggle.vim'
- nnoremap <silent> <expr> tt toggle.Toggle()
+ nnoremap <silent> <expr> tt toggle.Toggle()
nnoremap <silent> xx <ScriptCmd>toggle.Doit()<CR>
nnoremap <silent> yy <Cmd>toggle.Doit()<CR>
END
call test_settime(39)
call histadd(':', "echo '39'")
wviminfo Xviminfo
-
+
call histdel(':')
rviminfo Xviminfo
call assert_equal("echo '39'", histget(':', -1))
sp Xviminfo
call assert_equal('latin1', &fenc)
close
-
+
call histdel(':')
rviminfo Xviminfo
call assert_equal("echo 'é'", histget(':', -1))
set virtualedit&
endfunc
-" this was replacing the NUL at the end of the line
+" this was replacing the NUL at the end of the line
func Test_virtualedit_replace_after_tab()
new
s/\v/ 0
set ve=all
let @" = ''
sil! norm vPvr0
-
+
call assert_equal("\t0", getline(1))
set ve&
bwipe!
func Test_visual_put_in_block_using_zp()
new
" paste using zP
- call setline(1, ['/path;text', '/path;text', '/path;text', '',
- \ '/subdir',
+ call setline(1, ['/path;text', '/path;text', '/path;text', '',
+ \ '/subdir',
\ '/longsubdir',
\ '/longlongsubdir'])
exe "normal! 5G\<c-v>2j$y"
call assert_equal(['/path/subdir;text', '/path/longsubdir;text', '/path/longlongsubdir;text'], getline(1, 3))
%d
" paste using zP
- call setline(1, ['/path;text', '/path;text', '/path;text', '',
- \ '/subdir',
+ call setline(1, ['/path;text', '/path;text', '/path;text', '',
+ \ '/subdir',
\ '/longsubdir',
\ '/longlongsubdir'])
exe "normal! 5G\<c-v>2j$y"
new
" Test 1) Paste using zp - after the cursor without trailing spaces
- call setline(1, ['/path;text', '/path;text', '/path;text', '',
+ call setline(1, ['/path;text', '/path;text', '/path;text', '',
\ 'texttext /subdir columntext',
\ 'texttext /longsubdir columntext',
\ 'texttext /longlongsubdir columntext'])
" Test 2) Paste using zP - in front of the cursor without trailing spaces
%d
- call setline(1, ['/path;text', '/path;text', '/path;text', '',
+ call setline(1, ['/path;text', '/path;text', '/path;text', '',
\ 'texttext /subdir columntext',
\ 'texttext /longsubdir columntext',
\ 'texttext /longlongsubdir columntext'])
" Test 3) Paste using p - with trailing spaces
%d
- call setline(1, ['/path;text', '/path;text', '/path;text', '',
+ call setline(1, ['/path;text', '/path;text', '/path;text', '',
\ 'texttext /subdir columntext',
\ 'texttext /longsubdir columntext',
\ 'texttext /longlongsubdir columntext'])
" Test 4) Paste using P - with trailing spaces
%d
- call setline(1, ['/path;text', '/path;text', '/path;text', '',
+ call setline(1, ['/path;text', '/path;text', '/path;text', '',
\ 'texttext /subdir columntext',
\ 'texttext /longsubdir columntext',
\ 'texttext /longlongsubdir columntext'])
" Test 5) Yank with spaces inside the block
%d
- call setline(1, ['/path;text', '/path;text', '/path;text', '',
+ call setline(1, ['/path;text', '/path;text', '/path;text', '',
\ 'texttext /sub dir/ columntext',
\ 'texttext /lon gsubdir/ columntext',
\ 'texttext /lon glongsubdir/ columntext'])
execute "normal \<c-w>b"
let h = winheight(0)
let w = win_getid()
- new
+ new
q
call assert_equal(h, winheight(0), "Window height does not match eight before opening and closing another window")
call assert_equal(w, win_getid(), "Did not return to original window after opening and closing a window")
};
unsigned int varName_len = 11;
[CODE]
-
+
call assert_equal(expected, getline(1,'$'), s:Mess(s:test))
endfor
exe cmd1
exe cmd2
call assert_equal(['00000000: 3a 3a 45 45 3a 3a 3a 3a 46 46 ::EE::::FF'], readfile('Xxxdout'))
-
+
call writefile(["2: 41 41", "08: 42 42"], 'Xxxdin')
call writefile(['::::::::'], 'Xxxdfile')
exe cmd1
exe cmd1
exe cmd2
call assert_equal(['00000000: 3a 3a 45 45 3a 3a 3a 3a 42 44 46 46 ::EE::::BDFF'], readfile('Xxxdout'))
-
+
call delete('Xxxdout')
endfunc
" Always use "sh", don't use the value of "$SHELL".
set shell=sh
-" Only when the +eval feature is present.
+" Only when the +eval feature is present.
if 1
" While some tests overwrite $HOME to prevent them from polluting user files,
" we need to remember the original value so that we can tell external systems
# CheckLegacyAndVim9Success()
export def CheckTransLegacySuccess(lines: list<string>)
var legacylines = lines->mapnew((_, v) =>
- v->substitute('\<VAR\>', 'let', 'g')
- ->substitute('\<LET\>', 'let', 'g')
- ->substitute('\<LSTART\>', '{', 'g')
- ->substitute('\<LMIDDLE\>', '->', 'g')
+ v->substitute('\<VAR\>', 'let', 'g')
+ ->substitute('\<LET\>', 'let', 'g')
+ ->substitute('\<LSTART\>', '{', 'g')
+ ->substitute('\<LMIDDLE\>', '->', 'g')
->substitute('\<LEND\>', '}', 'g')
->substitute('\<TRUE\>', '1', 'g')
->substitute('\<FALSE\>', '0', 'g')
- ->substitute('#"', ' "', 'g'))
+ ->substitute('#"', ' "', 'g'))
CheckLegacySuccess(legacylines)
enddef
endif
var legacylines = lines->mapnew((_, v) =>
- v->substitute('\<VAR\>', 'let', 'g')
- ->substitute('\<LET\>', 'let', 'g')
- ->substitute('#"', ' "', 'g'))
+ v->substitute('\<VAR\>', 'let', 'g')
+ ->substitute('\<LET\>', 'let', 'g')
+ ->substitute('#"', ' "', 'g'))
CheckLegacyFailure(legacylines, legacyError)
var vim9lines = lines->mapnew((_, v) =>
- v->substitute('\<VAR\>', 'var', 'g')
- ->substitute('\<LET ', '', 'g'))
+ v->substitute('\<VAR\>', 'var', 'g')
+ ->substitute('\<LET ', '', 'g'))
CheckDefExecFailure(vim9lines, defError)
CheckScriptFailure(['vim9script'] + vim9lines, scriptError)
enddef
static int included_patches[] =
{ /* Add new patch number below this line */
+/**/
+ 1257,
/**/
1256,
/**/
projects / vim / commitdiff