diff options
Diffstat (limited to 'src/nvim/testdir/test_syntax.vim')
| -rw-r--r-- | src/nvim/testdir/test_syntax.vim | 981 |
1 files changed, 0 insertions, 981 deletions
diff --git a/src/nvim/testdir/test_syntax.vim b/src/nvim/testdir/test_syntax.vim deleted file mode 100644 index 45230c4208..0000000000 --- a/src/nvim/testdir/test_syntax.vim +++ /dev/null @@ -1,981 +0,0 @@ -" Test for syntax and syntax iskeyword option - -source check.vim -CheckFeature syntax - -source view_util.vim -source screendump.vim - -func GetSyntaxItem(pat) - let c = '' - let a = ['a', getreg('a'), getregtype('a')] - 0 - redraw! - call search(a:pat, 'W') - let synid = synID(line('.'), col('.'), 1) - while synid == synID(line('.'), col('.'), 1) - norm! v"ay - " stop at whitespace - if @a =~# '\s' - break - endif - let c .= @a - norm! l - endw - call call('setreg', a) - 0 - return c -endfunc - -func AssertHighlightGroups(lnum, startcol, expected, trans = 1, msg = "") - " Assert that the characters starting at a given (line, col) - " sequentially match the expected highlight groups. - " If groups are provided as a string, each character is assumed to be a - " group and spaces represent no group, useful for visually describing tests. - let l:expectedGroups = type(a:expected) == v:t_string - \ ? a:expected->split('\zs')->map({_, v -> trim(v)}) - \ : a:expected - let l:errors = 0 - let l:msg = (a:msg->empty() ? "" : a:msg .. ": ") - \ .. "Wrong highlight group at " .. a:lnum .. "," - - for l:i in range(a:startcol, a:startcol + l:expectedGroups->len() - 1) - let l:errors += synID(a:lnum, l:i, a:trans) - \ ->synIDattr("name") - \ ->assert_equal(l:expectedGroups[l:i - 1], - \ l:msg .. l:i) - endfor -endfunc - -func Test_syn_iskeyword() - new - call setline(1, [ - \ 'CREATE TABLE FOOBAR(', - \ ' DLTD_BY VARCHAR2(100)', - \ ');', - \ '']) - - syntax on - set ft=sql - syn match SYN /C\k\+\>/ - hi link SYN ErrorMsg - call assert_equal('DLTD_BY', GetSyntaxItem('DLTD')) - /\<D\k\+\>/:norm! ygn - call assert_equal('DLTD_BY', @0) - redir @c - syn iskeyword - redir END - call assert_equal("\nsyntax iskeyword not set", @c) - - syn iskeyword @,48-57,_,192-255 - redir @c - syn iskeyword - redir END - call assert_equal("\nsyntax iskeyword @,48-57,_,192-255", @c) - - setlocal isk-=_ - call assert_equal('DLTD_BY', GetSyntaxItem('DLTD')) - /\<D\k\+\>/:norm! ygn - let b2 = @0 - call assert_equal('DLTD', @0) - - syn iskeyword clear - redir @c - syn iskeyword - redir END - call assert_equal("\nsyntax iskeyword not set", @c) - - quit! -endfunc - -func Test_syntax_after_reload() - split Xsomefile - call setline(1, ['hello', 'there']) - w! - only! - setl filetype=hello - au FileType hello let g:gotit = 1 - call assert_false(exists('g:gotit')) - edit other - buf Xsomefile - call assert_equal('hello', &filetype) - call assert_true(exists('g:gotit')) - call delete('Xsomefile') -endfunc - -func Test_syntime() - if !has('profile') - return - endif - - syntax on - syntime on - let a = execute('syntime report') - call assert_equal("\nNo Syntax items defined for this buffer", a) - - let a = execute('syntime clear') - call assert_equal("\nNo Syntax items defined for this buffer", a) - - view samples/memfile_test.c - setfiletype cpp - redraw - let a = execute('syntime report') - call assert_match('^ TOTAL *COUNT *MATCH *SLOWEST *AVERAGE *NAME *PATTERN', a) - call assert_match(' \d*\.\d* \+[^0]\d* .* cppRawString ', a) - call assert_match(' \d*\.\d* \+[^0]\d* .* cppNumber ', a) - - syntime off - syntime clear - let a = execute('syntime report') - call assert_match('^ TOTAL *COUNT *MATCH *SLOWEST *AVERAGE *NAME *PATTERN', a) - call assert_notmatch('.* cppRawString *', a) - call assert_notmatch('.* cppNumber*', a) - call assert_notmatch('[1-9]', a) - - call assert_fails('syntime abc', 'E475') - - syntax clear - let a = execute('syntime report') - call assert_equal("\nNo Syntax items defined for this buffer", a) - - bd -endfunc - -func Test_syntime_completion() - if !has('profile') - return - endif - - call feedkeys(":syntime \<C-A>\<C-B>\"\<CR>", 'tx') - call assert_equal('"syntime clear off on report', @:) -endfunc - -func Test_syntax_list() - syntax on - let a = execute('syntax list') - call assert_equal("\nNo Syntax items defined for this buffer", a) - - view ../memfile_test.c - setfiletype c - - let a = execute('syntax list') - call assert_match('cInclude*', a) - call assert_match('cDefine', a) - - let a = execute('syntax list cDefine') - call assert_notmatch('cInclude*', a) - call assert_match('cDefine', a) - call assert_match(' links to Macro$', a) - - call assert_fails('syntax list ABCD', 'E28:') - call assert_fails('syntax list @ABCD', 'E392:') - - syntax clear - let a = execute('syntax list') - call assert_equal("\nNo Syntax items defined for this buffer", a) - - syntax keyword Type int containedin=g1 skipwhite skipempty skipnl nextgroup=Abc - let exp = "Type xxx containedin=g1 nextgroup=Abc skipnl skipwhite skipempty int" - call assert_equal(exp, split(execute("syntax list"), "\n")[1]) - - bd -endfunc - -func Test_syntax_completion() - call feedkeys(":syn \<C-A>\<C-B>\"\<CR>", 'tx') - call assert_equal('"syn case clear cluster conceal enable foldlevel include iskeyword keyword list manual match off on region reset spell sync', @:) - - call feedkeys(":syn case \<C-A>\<C-B>\"\<CR>", 'tx') - call assert_equal('"syn case ignore match', @:) - - call feedkeys(":syn spell \<C-A>\<C-B>\"\<CR>", 'tx') - call assert_equal('"syn spell default notoplevel toplevel', @:) - - call feedkeys(":syn sync \<C-A>\<C-B>\"\<CR>", 'tx') - call assert_equal('"syn sync ccomment clear fromstart linebreaks= linecont lines= match maxlines= minlines= region', @:) - - " Check that clearing "Aap" avoids it showing up before Boolean. - hi @Aap ctermfg=blue - call feedkeys(":syn list \<C-A>\<C-B>\"\<CR>", 'tx') - call assert_match('^"syn list @Aap @boolean @character ', @:) - hi clear @Aap - - call feedkeys(":syn list \<C-A>\<C-B>\"\<CR>", 'tx') - call assert_match('^"syn list @boolean @character ', @:) - - call feedkeys(":syn match \<C-A>\<C-B>\"\<CR>", 'tx') - call assert_match('^"syn match @boolean @character ', @:) - - syn cluster Aax contains=Aap - call feedkeys(":syn list @A\<C-A>\<C-B>\"\<CR>", 'tx') - call assert_match('^"syn list @Aax', @:) -endfunc - -func Test_echohl_completion() - call feedkeys(":echohl no\<C-A>\<C-B>\"\<CR>", 'tx') - " call assert_equal('"echohl NonText Normal none', @:) - call assert_equal('"echohl NonText Normal NormalFloat none', @:) -endfunc - -func Test_syntax_arg_skipped() - syn clear - syntax case ignore - if 0 - syntax case match - endif - call assert_match('case ignore', execute('syntax case')) - - syn keyword Foo foo - call assert_match('Foo', execute('syntax')) - syn clear - call assert_match('case match', execute('syntax case')) - call assert_notmatch('Foo', execute('syntax')) - - if has('conceal') - syn clear - syntax conceal on - if 0 - syntax conceal off - endif - call assert_match('conceal on', execute('syntax conceal')) - syn clear - call assert_match('conceal off', execute('syntax conceal')) - endif - - syntax conceal on - syntax conceal off - call assert_match('conceal off', execute('syntax conceal')) - - syntax region Bar start=/</ end=/>/ - if 0 - syntax region NotTest start=/</ end=/>/ contains=@Spell - endif - call assert_match('Bar', execute('syntax')) - call assert_notmatch('NotTest', execute('syntax')) - call assert_notmatch('Spell', execute('syntax')) - - hi Foo ctermfg=blue - let a = execute('hi Foo') - if 0 - syntax rest - endif - call assert_equal(a, execute('hi Foo')) - hi clear Bar - hi clear Foo - - set ft=tags - syn off - if 0 - syntax enable - endif - call assert_match('No Syntax items defined', execute('syntax')) - syntax enable - call assert_match('tagComment', execute('syntax')) - set ft= - - syn clear - if 0 - syntax include @Spell nothing - endif - call assert_notmatch('Spell', execute('syntax')) - - syn clear - syn iskeyword 48-57,$,_ - call assert_match('48-57,$,_', execute('syntax iskeyword')) - if 0 - syn clear - syn iskeyword clear - endif - call assert_match('48-57,$,_', execute('syntax iskeyword')) - syn iskeyword clear - call assert_match('not set', execute('syntax iskeyword')) - syn iskeyword 48-57,$,_ - syn clear - call assert_match('not set', execute('syntax iskeyword')) - - syn clear - syn keyword Foo foo - if 0 - syn keyword NotAdded bar - endif - call assert_match('Foo', execute('syntax')) - call assert_notmatch('NotAdded', execute('highlight')) - - syn clear - syn keyword Foo foo - call assert_match('Foo', execute('syntax')) - call assert_match('Foo', execute('syntax list')) - call assert_notmatch('Foo', execute('if 0 | syntax | endif')) - call assert_notmatch('Foo', execute('if 0 | syntax list | endif')) - - syn clear - syn match Fopi /asdf/ - if 0 - syn match Fopx /asdf/ - endif - call assert_match('Fopi', execute('syntax')) - call assert_notmatch('Fopx', execute('syntax')) - - syn clear - syn spell toplevel - call assert_match('spell toplevel', execute('syntax spell')) - if 0 - syn spell notoplevel - endif - call assert_match('spell toplevel', execute('syntax spell')) - syn spell notoplevel - call assert_match('spell notoplevel', execute('syntax spell')) - syn spell default - call assert_match('spell default', execute('syntax spell')) - - syn clear - if 0 - syntax cluster Spell - endif - call assert_notmatch('Spell', execute('syntax')) - - syn clear - syn keyword Foo foo - syn sync ccomment - syn sync maxlines=5 - if 0 - syn sync maxlines=11 - endif - call assert_match('on C-style comments', execute('syntax sync')) - call assert_match('maximal 5 lines', execute('syntax sync')) - syn sync clear - if 0 - syn sync ccomment - endif - call assert_notmatch('on C-style comments', execute('syntax sync')) - syn sync fromstart - call assert_match('syncing starts at the first line', execute('syntax sync')) - - syn clear -endfunc - -" Check for an error. Used when multiple errors are thrown and we are checking -" for an earliest error. -func AssertFails(cmd, errcode) - let save_exception = '' - try - exe a:cmd - catch - let save_exception = v:exception - endtry - call assert_match(a:errcode, save_exception) -endfunc - -func Test_syntax_invalid_arg() - call assert_fails('syntax case asdf', 'E390:') - if has('conceal') - call assert_fails('syntax conceal asdf', 'E390:') - endif - call assert_fails('syntax spell asdf', 'E390:') - call assert_fails('syntax clear @ABCD', 'E391:') - call assert_fails('syntax include random_file', 'E484:') - call assert_fails('syntax include <afile>', 'E495:') - call assert_fails('syntax sync x', 'E404:') - call assert_fails('syntax keyword Abc a[', 'E789:') - call assert_fails('syntax keyword Abc a[bc]d', 'E890:') - call assert_fails('syntax cluster Abc add=A add=', 'E406:') - - " Test for too many \z\( and unmatched \z\( - " Not able to use assert_fails() here because both E50:/E879: and E475: - " messages are emitted. - set regexpengine=1 - call AssertFails("syntax region MyRegion start='\\z\\(' end='\\*/'", 'E52:') - - let cmd = "syntax region MyRegion start='" - let cmd ..= repeat("\\z\\(.\\)", 10) .. "' end='\*/'" - call AssertFails(cmd, 'E50:') - - set regexpengine=2 - call AssertFails("syntax region MyRegion start='\\z\\(' end='\\*/'", 'E54:') - - let cmd = "syntax region MyRegion start='" - let cmd ..= repeat("\\z\\(.\\)", 10) .. "' end='\*/'" - call AssertFails(cmd, 'E879:') - set regexpengine& - - call AssertFails('syntax keyword cMyItem grouphere G1', 'E393:') - call AssertFails('syntax sync match Abc grouphere MyItem "abc"', 'E394:') - call AssertFails('syn keyword Type contains int', 'E395:') - call assert_fails('syntax include @Xxx', 'E397:') - call AssertFails('syntax region X start', 'E398:') - call assert_fails('syntax region X start="{"', 'E399:') - call AssertFails('syntax cluster contains=Abc', 'E400:') - call AssertFails("syntax match Character /'.'", 'E401:') - call AssertFails("syntax match Character /'.'/a", 'E402:') - call assert_fails('syntax sync linecont /\%(/', 'E53:') - call assert_fails('syntax sync linecont /pat', 'E404:') - call assert_fails('syntax sync linecont', 'E404:') - call assert_fails('syntax sync linecont /pat1/ linecont /pat2/', 'E403:') - call assert_fails('syntax sync minlines=a', 'E404:') - call AssertFails('syntax match ABC /x/ contains=', 'E406:') - call AssertFails("syntax match Character contains /'.'/", 'E405:') - call AssertFails('syntax match ccFoo "Foo" nextgroup=ALLBUT,F', 'E407:') - call AssertFails('syntax region Block start="{" contains=F,ALLBUT', 'E408:') - call AssertFails("syntax match Characters contains=a.*x /'.'/", 'E409:') - call assert_fails('syntax match Search /abc/ contains=ALLBUT,/\%(/', 'E53:') -endfunc - -func Test_syn_sync() - syntax region HereGroup start=/this/ end=/that/ - syntax sync match SyncHere grouphere HereGroup "pattern" - call assert_match('SyncHere', execute('syntax sync')) - syn sync clear - call assert_notmatch('SyncHere', execute('syntax sync')) - syn clear -endfunc - -func Test_syn_clear() - syntax keyword Foo foo - syntax keyword Bar tar - call assert_match('Foo', execute('syntax')) - call assert_match('Bar', execute('syntax')) - call assert_equal('Foo', synIDattr(hlID("Foo"), "name")) - syn clear Foo - call assert_notmatch('Foo', execute('syntax')) - call assert_match('Bar', execute('syntax')) - call assert_equal('Foo', synIDattr(hlID("Foo"), "name")) - syn clear Foo Bar - call assert_notmatch('Foo', execute('syntax')) - call assert_notmatch('Bar', execute('syntax')) - hi clear Foo - call assert_equal('Foo', synIDattr(hlID("Foo"), "name")) - hi clear Bar - call assert_fails('syntax clear invalid_syngroup', 'E28:') -endfunc - -func Test_invalid_name() - syn clear - syn keyword Nop yes - call assert_fails("syntax keyword Wr\x17ong bar", 'E669:') - syntax keyword @Wrong bar - call assert_fails("syntax keyword @#Wrong bar", 'E5248:') - syn clear - hi clear Nop - hi clear @Wrong -endfunc - -func Test_ownsyntax() - new Xfoo - call setline(1, '#define FOO') - syntax on - set filetype=c - - ownsyntax perl - " this should not crash - set - - call assert_equal('perlComment', synIDattr(synID(line('.'), col('.'), 1), 'name')) - call assert_equal('c', b:current_syntax) - call assert_equal('perl', w:current_syntax) - - " A new split window should have the original syntax. - split - call assert_equal('cDefine', synIDattr(synID(line('.'), col('.'), 1), 'name')) - call assert_equal('c', b:current_syntax) - call assert_equal(0, exists('w:current_syntax')) - - wincmd x - call assert_equal('perlComment', synIDattr(synID(line("."), col("."), 1), "name")) - - syntax off - set filetype& - %bw! -endfunc - -func Test_ownsyntax_completion() - call feedkeys(":ownsyntax java\<C-A>\<C-B>\"\<CR>", 'tx') - call assert_equal('"ownsyntax java javacc javascript javascriptreact', @:) -endfunc - -func Test_highlight_invalid_arg() - if has('gui_running') - call assert_fails('hi XXX guifg=xxx', 'E254:') - endif - call assert_fails('hi DoesNotExist', 'E411:') - call assert_fails('hi link', 'E412:') - call assert_fails('hi link a', 'E412:') - call assert_fails('hi link a b c', 'E413:') - call assert_fails('hi XXX =', 'E415:') - call assert_fails('hi XXX cterm', 'E416:') - call assert_fails('hi XXX cterm=', 'E417:') - call assert_fails('hi XXX cterm=DoesNotExist', 'E418:') - call assert_fails('hi XXX ctermfg=DoesNotExist', 'E421:') - call assert_fails('hi XXX xxx=White', 'E423:') -endfunc - -func Test_conceal() - if !has('conceal') - return - endif - - new - call setline(1, ['', '123456']) - syn match test23 "23" conceal cchar=X - syn match test45 "45" conceal - - set conceallevel=0 - call assert_equal('123456 ', ScreenLines(2, 7)[0]) - call assert_equal([[0, '', 0], [0, '', 0], [0, '', 0], [0, '', 0], [0, '', 0], [0, '', 0]], map(range(1, 6), 'synconcealed(2, v:val)')) - - set conceallevel=1 - call assert_equal('1X 6 ', ScreenLines(2, 7)[0]) - call assert_equal([[0, '', 0], [1, 'X', 1], [1, 'X', 1], [1, ' ', 2], [1, ' ', 2], [0, '', 0]], map(range(1, 6), 'synconcealed(2, v:val)')) - - set conceallevel=1 - set listchars=conceal:Y - call assert_equal([[0, '', 0], [1, 'X', 1], [1, 'X', 1], [1, 'Y', 2], [1, 'Y', 2], [0, '', 0]], map(range(1, 6), 'synconcealed(2, v:val)')) - call assert_equal('1XY6 ', ScreenLines(2, 7)[0]) - - set conceallevel=2 - call assert_match('1X6 ', ScreenLines(2, 7)[0]) - call assert_equal([[0, '', 0], [1, 'X', 1], [1, 'X', 1], [1, '', 2], [1, '', 2], [0, '', 0]], map(range(1, 6), 'synconcealed(2, v:val)')) - - set conceallevel=3 - call assert_match('16 ', ScreenLines(2, 7)[0]) - call assert_equal([[0, '', 0], [1, '', 1], [1, '', 1], [1, '', 2], [1, '', 2], [0, '', 0]], map(range(1, 6), 'synconcealed(2, v:val)')) - - call AssertFails("syntax match Entity '&' conceal cchar=\<Tab>", 'E844:') - - syn clear - set conceallevel& - bw! -endfunc - -func Test_bg_detection() - CheckNotGui - - " auto-detection of &bg, make sure sure it isn't set anywhere before - " this test - hi Normal ctermbg=0 - call assert_equal('dark', &bg) - hi Normal ctermbg=4 - call assert_equal('dark', &bg) - hi Normal ctermbg=12 - call assert_equal('light', &bg) - hi Normal ctermbg=15 - call assert_equal('light', &bg) - - " manually-set &bg takes precedence over auto-detection - set bg=light - hi Normal ctermbg=4 - call assert_equal('light', &bg) - set bg=dark - hi Normal ctermbg=12 - call assert_equal('dark', &bg) - - hi Normal ctermbg=NONE -endfunc - -func Test_syntax_hangs() - if !has('reltime') || !has('float') || !has('syntax') - return - endif - - " This pattern takes a long time to match, it should timeout. - new - call setline(1, ['aaa', repeat('abc ', 1000), 'ccc']) - let start = reltime() - set nolazyredraw redrawtime=101 - syn match Error /\%#=1a*.*X\@<=b*/ - redraw - let elapsed = reltimefloat(reltime(start)) - call assert_true(elapsed > 0.1) - call assert_true(elapsed < 1.0) - - " second time syntax HL is disabled - let start = reltime() - redraw - let elapsed = reltimefloat(reltime(start)) - call assert_true(elapsed < 0.1) - - " after CTRL-L the timeout flag is reset - let start = reltime() - exe "normal \<C-L>" - redraw - let elapsed = reltimefloat(reltime(start)) - call assert_true(elapsed > 0.1) - call assert_true(elapsed < 1.0) - - set redrawtime& - bwipe! -endfunc - -func Test_synstack_synIDtrans() - new - setfiletype c - syntax on - call setline(1, ' /* A comment with a TODO */') - - call assert_equal([], synstack(1, 1)) - - norm f/ - eval synstack(line("."), col("."))->map('synIDattr(v:val, "name")')->assert_equal(['cComment', 'cCommentStart']) - eval synstack(line("."), col("."))->map('synIDattr(synIDtrans(v:val), "name")')->assert_equal(['Comment', 'Comment']) - - norm fA - call assert_equal(['cComment'], map(synstack(line("."), col(".")), 'synIDattr(v:val, "name")')) - call assert_equal(['Comment'], map(synstack(line("."), col(".")), 'synIDattr(synIDtrans(v:val), "name")')) - - norm fT - call assert_equal(['cComment', 'cTodo'], map(synstack(line("."), col(".")), 'synIDattr(v:val, "name")')) - call assert_equal(['Comment', 'Todo'], map(synstack(line("."), col(".")), 'synIDattr(synIDtrans(v:val), "name")')) - - call assert_fails("let n=synIDtrans([])", 'E745:') - - syn clear - bw! -endfunc - -" Check highlighting for a small piece of C code with a screen dump. -func Test_syntax_c() - CheckRunVimInTerminal - call writefile([ - \ '/* comment line at the top */', - \ 'int main(int argc, char **argv) { // another comment', - \ '#if 0', - \ ' int not_used;', - \ '#else', - \ ' int used;', - \ '#endif', - \ ' printf("Just an example piece of C code\n");', - \ ' return 0x0ff;', - \ '}', - \ ' static void', - \ 'myFunction(const double count, struct nothing, long there) {', - \ ' // 123: nothing to read here', - \ ' for (int i = 0; i < count; ++i) {', - \ ' break;', - \ ' }', - \ " Note: asdf", - \ '}', - \ ], 'Xtest.c') - - " This makes the default for 'background' use "dark", check that the - " response to t_RB corrects it to "light". - let $COLORFGBG = '15;0' - - let buf = RunVimInTerminal('Xtest.c', {}) - call term_sendkeys(buf, ":syn keyword Search Note\r") - call VerifyScreenDump(buf, 'Test_syntax_c_01', {}) - call StopVimInTerminal(buf) - - let $COLORFGBG = '' - call delete('Xtest.c') -endfun - -" Test \z(...) along with \z1 -func Test_syn_zsub() - new - syntax on - call setline(1, 'xxx start foo xxx not end foo xxx end foo xxx') - let l:expected = ' ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ ' - - for l:re in [0, 1, 2] - " Example taken from :help :syn-ext-match - syntax region Z start="start \z(\I\i*\)" skip="not end \z1" end="end \z1" - eval AssertHighlightGroups(1, 1, l:expected, 1, 'regexp=' .. l:re) - syntax clear Z - endfor - - set re& - bw! -endfunc - -" Using \z() in a region with NFA failing should not crash. -func Test_syn_wrong_z_one() - new - call setline(1, ['just some text', 'with foo and bar to match with']) - syn region FooBar start="foo\z(.*\)bar" end="\z1" - " call test_override("nfa_fail", 1) - redraw! - redraw! - " call test_override("ALL", 0) - bwipe! -endfunc - -func Test_syntax_after_bufdo() - call writefile(['/* aaa comment */'], 'Xaaa.c') - call writefile(['/* bbb comment */'], 'Xbbb.c') - call writefile(['/* ccc comment */'], 'Xccc.c') - call writefile(['/* ddd comment */'], 'Xddd.c') - - let bnr = bufnr('%') - new Xaaa.c - badd Xbbb.c - badd Xccc.c - badd Xddd.c - exe "bwipe " . bnr - let l = [] - bufdo call add(l, bufnr('%')) - call assert_equal(4, len(l)) - - syntax on - - " This used to only enable syntax HL in the last buffer. - bufdo tab split - tabrewind - for tab in range(1, 4) - norm fm - call assert_equal(['cComment'], map(synstack(line("."), col(".")), 'synIDattr(v:val, "name")')) - tabnext - endfor - - bwipe! Xaaa.c - bwipe! Xbbb.c - bwipe! Xccc.c - bwipe! Xddd.c - syntax off - call delete('Xaaa.c') - call delete('Xbbb.c') - call delete('Xccc.c') - call delete('Xddd.c') -endfunc - -func Test_syntax_foldlevel() - new - call setline(1, [ - \ 'void f(int a)', - \ '{', - \ ' if (a == 1) {', - \ ' a = 0;', - \ ' } else if (a == 2) {', - \ ' a = 1;', - \ ' } else {', - \ ' a = 2;', - \ ' }', - \ ' if (a > 0) {', - \ ' if (a == 1) {', - \ ' a = 0;', - \ ' } /* missing newline */ } /* end of outer if */ else {', - \ ' a = 1;', - \ ' }', - \ ' if (a == 1)', - \ ' {', - \ ' a = 0;', - \ ' }', - \ ' else if (a == 2)', - \ ' {', - \ ' a = 1;', - \ ' }', - \ ' else', - \ ' {', - \ ' a = 2;', - \ ' }', - \ '}', - \ ]) - setfiletype c - syntax on - set foldmethod=syntax - - call assert_fails('syn foldlevel start start', 'E390') - call assert_fails('syn foldlevel not_an_option', 'E390') - - set foldlevel=1 - - syn foldlevel start - redir @c - syn foldlevel - redir END - call assert_equal("\nsyntax foldlevel start", @c) - syn sync fromstart - call assert_match('from the first line$', execute('syn sync')) - let a = map(range(3,9), 'foldclosed(v:val)') - call assert_equal([3,3,3,3,3,3,3], a) " attached cascade folds together - let a = map(range(10,15), 'foldclosed(v:val)') - call assert_equal([10,10,10,10,10,10], a) " over-attached 'else' hidden - let a = map(range(16,27), 'foldclosed(v:val)') - let unattached_results = [-1,17,17,17,-1,21,21,21,-1,25,25,25] - call assert_equal(unattached_results, a) " unattached cascade folds separately - - syn foldlevel minimum - redir @c - syn foldlevel - redir END - call assert_equal("\nsyntax foldlevel minimum", @c) - syn sync fromstart - let a = map(range(3,9), 'foldclosed(v:val)') - call assert_equal([3,3,5,5,7,7,7], a) " attached cascade folds separately - let a = map(range(10,15), 'foldclosed(v:val)') - call assert_equal([10,10,10,13,13,13], a) " over-attached 'else' visible - let a = map(range(16,27), 'foldclosed(v:val)') - call assert_equal(unattached_results, a) " unattached cascade folds separately - - set foldlevel=2 - - syn foldlevel start - syn sync fromstart - let a = map(range(11,14), 'foldclosed(v:val)') - call assert_equal([11,11,11,-1], a) " over-attached 'else' hidden - - syn foldlevel minimum - syn sync fromstart - let a = map(range(11,14), 'foldclosed(v:val)') - call assert_equal([11,11,-1,-1], a) " over-attached 'else' visible - - quit! -endfunc - -func Test_search_syntax_skip() - new - let lines =<< trim END - - /* This is VIM */ - Another Text for VIM - let a = "VIM" - END - call setline(1, lines) - syntax on - syntax match Comment "^/\*.*\*/" - syntax match String '".*"' - - " Skip argument using string evaluation. - 1 - call search('VIM', 'w', '', 0, 'synIDattr(synID(line("."), col("."), 1), "name") =~? "comment"') - call assert_equal('Another Text for VIM', getline('.')) - - 1 - call search('VIM', 'cw', '', 0, 'synIDattr(synID(line("."), col("."), 1), "name") !~? "string"') - call assert_equal(' let a = "VIM"', getline('.')) - - " Skip argument using Lambda. - 1 - call search('VIM', 'w', '', 0, { -> synIDattr(synID(line("."), col("."), 1), "name") =~? "comment"}) - call assert_equal('Another Text for VIM', getline('.')) - - 1 - call search('VIM', 'cw', '', 0, { -> synIDattr(synID(line("."), col("."), 1), "name") !~? "string"}) - call assert_equal(' let a = "VIM"', getline('.')) - - " Skip argument using funcref. - func InComment() - return synIDattr(synID(line("."), col("."), 1), "name") =~? "comment" - endfunc - func NotInString() - return synIDattr(synID(line("."), col("."), 1), "name") !~? "string" - endfunc - - 1 - call search('VIM', 'w', '', 0, function('InComment')) - call assert_equal('Another Text for VIM', getline('.')) - - 1 - call search('VIM', 'cw', '', 0, function('NotInString')) - call assert_equal(' let a = "VIM"', getline('.')) - - delfunc InComment - delfunc NotInString - bwipe! -endfunc - -func Test_syn_contained_transparent() - " Comments starting with "Regression:" show the result when the highlighting - " span of the containing item is assigned to the contained region. - syntax on - - let l:case = "Transparent region contained in region" - new - syntax region X start=/\[/ end=/\]/ contained transparent - syntax region Y start=/(/ end=/)/ contains=X - - call setline(1, "==(--[~~]--)==") - let l:expected = " YYYYYYYYYY " - eval AssertHighlightGroups(1, 1, l:expected, 1, l:case) - syntax clear Y X - bw! - - let l:case = "Transparent region extends region" - new - syntax region X start=/\[/ end=/\]/ contained transparent - syntax region Y start=/(/ end=/)/ end=/e/ contains=X - - call setline(1, "==(--[~~e~~]--)==") - let l:expected = " YYYYYYYYYYYYY " - " Regression: " YYYYYYY YYY " - eval AssertHighlightGroups(1, 1, l:expected, 1, l:case) - syntax clear Y X - bw! - - let l:case = "Nested transparent regions extend region" - new - syntax region X start=/\[/ end=/\]/ contained transparent - syntax region Y start=/(/ end=/)/ end=/e/ contains=X - - call setline(1, "==(--[~~e~~[~~e~~]~~e~~]--)==") - let l:expected = " YYYYYYYYYYYYYYYYYYYYYYYYY " - " Regression: " YYYYYYY YYYYYYYYY " - eval AssertHighlightGroups(1, 1, l:expected, 1, l:case) - syntax clear Y X - bw! - - let l:case = "Transparent region contained in match" - new - syntax region X start=/\[/ end=/\]/ contained transparent - syntax match Y /(.\{-})/ contains=X - - call setline(1, "==(--[~~]--)==") - let l:expected = " YYYYYYYYYY " - eval AssertHighlightGroups(1, 1, l:expected, 1, l:case) - syntax clear Y X - bw! - - let l:case = "Transparent region extends match" - new - syntax region X start=/\[/ end=/\]/ contained transparent - syntax match Y /(.\{-}[e)]/ contains=X - - call setline(1, "==(--[~~e~~]--)==") - let l:expected = " YYYYYYYYYY " - " Regression: " YYYYYYY " - eval AssertHighlightGroups(1, 1, l:expected, 1, l:case) - syntax clear Y X - bw! - - let l:case = "Nested transparent regions extend match" - new - syntax region X start=/\[/ end=/\]/ contained transparent - syntax match Y /(.\{-}[e)]/ contains=X - - call setline(1, "==(--[~~e~~[~~e~~]~~e~~]--)==") - let l:expected = " YYYYYYYYYYYYYYYYYYYYYY " - " Regression: " YYYYYYY YYYYYY " - eval AssertHighlightGroups(1, 1, l:expected, 1, l:case) - syntax clear Y X - bw! -endfunc - -func Test_syn_include_contains_TOP() - let l:case = "TOP in included syntax means its group list name" - new - syntax include @INCLUDED syntax/c.vim - syntax region FencedCodeBlockC start=/```c/ end=/```/ contains=@INCLUDED - - call setline(1, ['```c', '#if 0', 'int', '#else', 'int', '#endif', '```' ]) - let l:expected = ["cCppOutIf2"] - eval AssertHighlightGroups(3, 1, l:expected, 1) - " cCppOutElse has contains=TOP - let l:expected = ["cType"] - eval AssertHighlightGroups(5, 1, l:expected, 1, l:case) - syntax clear - bw! -endfunc - -" This was using freed memory -func Test_WinEnter_synstack_synID() - autocmd WinEnter * call synstack(line("."), col(".")) - autocmd WinEnter * call synID(line('.'), col('.') - 1, 1) - call setline(1, 'aaaaa') - normal! $ - new - close - - au! WinEnter - bw! -endfunc - - -" vim: shiftwidth=2 sts=2 expandtab |