mirror of
https://github.com/vim/vim.git
synced 2025-07-26 11:04:33 -04:00
patch 7.4.1001
Problem: test_viml isn't run. Solution: Include change in makefile.
This commit is contained in:
Bram Moolenaar
parent
c06624661a
commit
f49e240c2d
@ -174,6 +174,7 @@ SCRIPTS_GUI = test16.out
|
|||||||
# Keep test_alot.res as the last one, sort the others.
|
# Keep test_alot.res as the last one, sort the others.
|
||||||
NEW_TESTS = test_assert.res \
|
NEW_TESTS = test_assert.res \
|
||||||
test_cdo.res \
|
test_cdo.res \
|
||||||
|
test_viml.res \
|
||||||
test_alot.res
|
test_alot.res
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
408
src/testdir/test_viml.vim
Normal file
408
src/testdir/test_viml.vim
Normal file
@ -0,0 +1,408 @@
|
|||||||
|
" Test various aspects of the Vim language.
|
||||||
|
" This was formerly in test49.
|
||||||
|
|
||||||
|
"-------------------------------------------------------------------------------
|
||||||
|
" Test environment {{{1
|
||||||
|
"-------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
com! XpathINIT let g:Xpath = ''
|
||||||
|
com! -nargs=1 -bar Xpath let g:Xpath = g:Xpath . <args>
|
||||||
|
|
||||||
|
" Append a message to the "messages" file
|
||||||
|
func! Xout(text)
|
||||||
|
split messages
|
||||||
|
$put =a:text
|
||||||
|
wq
|
||||||
|
endfunc
|
||||||
|
|
||||||
|
com! -nargs=1 Xout call Xout(<args>)
|
||||||
|
|
||||||
|
" MakeScript() - Make a script file from a function. {{{2
|
||||||
|
"
|
||||||
|
" Create a script that consists of the body of the function a:funcname.
|
||||||
|
" Replace any ":return" by a ":finish", any argument variable by a global
|
||||||
|
" variable, and and every ":call" by a ":source" for the next following argument
|
||||||
|
" in the variable argument list. This function is useful if similar tests are
|
||||||
|
" to be made for a ":return" from a function call or a ":finish" in a script
|
||||||
|
" file.
|
||||||
|
function! MakeScript(funcname, ...)
|
||||||
|
let script = tempname()
|
||||||
|
execute "redir! >" . script
|
||||||
|
execute "function" a:funcname
|
||||||
|
redir END
|
||||||
|
execute "edit" script
|
||||||
|
" Delete the "function" and the "endfunction" lines. Do not include the
|
||||||
|
" word "function" in the pattern since it might be translated if LANG is
|
||||||
|
" set. When MakeScript() is being debugged, this deletes also the debugging
|
||||||
|
" output of its line 3 and 4.
|
||||||
|
exec '1,/.*' . a:funcname . '(.*)/d'
|
||||||
|
/^\d*\s*endfunction\>/,$d
|
||||||
|
%s/^\d*//e
|
||||||
|
%s/return/finish/e
|
||||||
|
%s/\<a:\(\h\w*\)/g:\1/ge
|
||||||
|
normal gg0
|
||||||
|
let cnt = 0
|
||||||
|
while search('\<call\s*\%(\u\|s:\)\w*\s*(.*)', 'W') > 0
|
||||||
|
let cnt = cnt + 1
|
||||||
|
s/\<call\s*\%(\u\|s:\)\w*\s*(.*)/\='source ' . a:{cnt}/
|
||||||
|
endwhile
|
||||||
|
g/^\s*$/d
|
||||||
|
write
|
||||||
|
bwipeout
|
||||||
|
return script
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
" ExecAsScript - Source a temporary script made from a function. {{{2
|
||||||
|
"
|
||||||
|
" Make a temporary script file from the function a:funcname, ":source" it, and
|
||||||
|
" delete it afterwards.
|
||||||
|
function! ExecAsScript(funcname)
|
||||||
|
" Make a script from the function passed as argument.
|
||||||
|
let script = MakeScript(a:funcname)
|
||||||
|
|
||||||
|
" Source and delete the script.
|
||||||
|
exec "source" script
|
||||||
|
call delete(script)
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
com! -nargs=1 -bar ExecAsScript call ExecAsScript(<f-args>)
|
||||||
|
|
||||||
|
|
||||||
|
"-------------------------------------------------------------------------------
|
||||||
|
" Test 1: :endwhile in function {{{1
|
||||||
|
"
|
||||||
|
" Detect if a broken loop is (incorrectly) reactivated by the
|
||||||
|
" :endwhile. Use a :return to prevent an endless loop, and make
|
||||||
|
" this test first to get a meaningful result on an error before other
|
||||||
|
" tests will hang.
|
||||||
|
"-------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
function! T1_F()
|
||||||
|
Xpath 'a'
|
||||||
|
let first = 1
|
||||||
|
while 1
|
||||||
|
Xpath 'b'
|
||||||
|
if first
|
||||||
|
Xpath 'c'
|
||||||
|
let first = 0
|
||||||
|
break
|
||||||
|
else
|
||||||
|
Xpath 'd'
|
||||||
|
return
|
||||||
|
endif
|
||||||
|
endwhile
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function! T1_G()
|
||||||
|
Xpath 'h'
|
||||||
|
let first = 1
|
||||||
|
while 1
|
||||||
|
Xpath 'i'
|
||||||
|
if first
|
||||||
|
Xpath 'j'
|
||||||
|
let first = 0
|
||||||
|
break
|
||||||
|
else
|
||||||
|
Xpath 'k'
|
||||||
|
return
|
||||||
|
endif
|
||||||
|
if 1 " unmatched :if
|
||||||
|
endwhile
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
func Test_endwhile_function()
|
||||||
|
XpathINIT
|
||||||
|
call T1_F()
|
||||||
|
Xpath 'F'
|
||||||
|
|
||||||
|
try
|
||||||
|
call T1_G()
|
||||||
|
catch
|
||||||
|
" Catch missing :endif
|
||||||
|
call assert_true(v:exception =~ 'E171')
|
||||||
|
Xpath 'x'
|
||||||
|
endtry
|
||||||
|
Xpath 'G'
|
||||||
|
|
||||||
|
call assert_equal('abcFhijxG', g:Xpath)
|
||||||
|
endfunc
|
||||||
|
|
||||||
|
"-------------------------------------------------------------------------------
|
||||||
|
" Test 2: :endwhile in script {{{1
|
||||||
|
"
|
||||||
|
" Detect if a broken loop is (incorrectly) reactivated by the
|
||||||
|
" :endwhile. Use a :finish to prevent an endless loop, and place
|
||||||
|
" this test before others that might hang to get a meaningful result
|
||||||
|
" on an error.
|
||||||
|
"
|
||||||
|
" This test executes the bodies of the functions T1_F and T1_G from
|
||||||
|
" the previous test as script files (:return replaced by :finish).
|
||||||
|
"-------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
func Test_endwhile_script()
|
||||||
|
XpathINIT
|
||||||
|
ExecAsScript T1_F
|
||||||
|
Xpath 'F'
|
||||||
|
|
||||||
|
try
|
||||||
|
ExecAsScript T1_G
|
||||||
|
catch
|
||||||
|
" Catch missing :endif
|
||||||
|
call assert_true(v:exception =~ 'E171')
|
||||||
|
Xpath 'x'
|
||||||
|
endtry
|
||||||
|
Xpath 'G'
|
||||||
|
|
||||||
|
call assert_equal('abcFhijxG', g:Xpath)
|
||||||
|
endfunc
|
||||||
|
|
||||||
|
"-------------------------------------------------------------------------------
|
||||||
|
" Test 3: :if, :elseif, :while, :continue, :break {{{1
|
||||||
|
"-------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
function Test_if_while()
|
||||||
|
XpathINIT
|
||||||
|
if 1
|
||||||
|
Xpath 'a'
|
||||||
|
let loops = 3
|
||||||
|
while loops > -1 " main loop: loops == 3, 2, 1 (which breaks)
|
||||||
|
if loops <= 0
|
||||||
|
let break_err = 1
|
||||||
|
let loops = -1
|
||||||
|
else
|
||||||
|
Xpath 'b' . loops
|
||||||
|
endif
|
||||||
|
if (loops == 2)
|
||||||
|
while loops == 2 " dummy loop
|
||||||
|
Xpath 'c' . loops
|
||||||
|
let loops = loops - 1
|
||||||
|
continue " stop dummy loop
|
||||||
|
Xpath 'd' . loops
|
||||||
|
endwhile
|
||||||
|
continue " continue main loop
|
||||||
|
Xpath 'e' . loops
|
||||||
|
elseif (loops == 1)
|
||||||
|
let p = 1
|
||||||
|
while p " dummy loop
|
||||||
|
Xpath 'f' . loops
|
||||||
|
let p = 0
|
||||||
|
break " break dummy loop
|
||||||
|
Xpath 'g' . loops
|
||||||
|
endwhile
|
||||||
|
Xpath 'h' . loops
|
||||||
|
unlet p
|
||||||
|
break " break main loop
|
||||||
|
Xpath 'i' . loops
|
||||||
|
endif
|
||||||
|
if (loops > 0)
|
||||||
|
Xpath 'j' . loops
|
||||||
|
endif
|
||||||
|
while loops == 3 " dummy loop
|
||||||
|
let loops = loops - 1
|
||||||
|
endwhile " end dummy loop
|
||||||
|
endwhile " end main loop
|
||||||
|
Xpath 'k'
|
||||||
|
else
|
||||||
|
Xpath 'l'
|
||||||
|
endif
|
||||||
|
Xpath 'm'
|
||||||
|
if exists("break_err")
|
||||||
|
Xpath 'm'
|
||||||
|
unlet break_err
|
||||||
|
endif
|
||||||
|
|
||||||
|
unlet loops
|
||||||
|
|
||||||
|
call assert_equal('ab3j3b2c2b1f1h1km', g:Xpath)
|
||||||
|
endfunc
|
||||||
|
|
||||||
|
"-------------------------------------------------------------------------------
|
||||||
|
" Test 4: :return {{{1
|
||||||
|
"-------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
function! T4_F()
|
||||||
|
if 1
|
||||||
|
Xpath 'a'
|
||||||
|
let loops = 3
|
||||||
|
while loops > 0 " 3: 2: 1:
|
||||||
|
Xpath 'b' . loops
|
||||||
|
if (loops == 2)
|
||||||
|
Xpath 'c' . loops
|
||||||
|
return
|
||||||
|
Xpath 'd' . loops
|
||||||
|
endif
|
||||||
|
Xpath 'e' . loops
|
||||||
|
let loops = loops - 1
|
||||||
|
endwhile
|
||||||
|
Xpath 'f'
|
||||||
|
else
|
||||||
|
Xpath 'g'
|
||||||
|
endif
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
function Test_return()
|
||||||
|
XpathINIT
|
||||||
|
call T4_F()
|
||||||
|
Xpath '4'
|
||||||
|
|
||||||
|
call assert_equal('ab3e3b2c24', g:Xpath)
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
|
||||||
|
"-------------------------------------------------------------------------------
|
||||||
|
" Test 5: :finish {{{1
|
||||||
|
"
|
||||||
|
" This test executes the body of the function T4_F from the previous
|
||||||
|
" test as a script file (:return replaced by :finish).
|
||||||
|
"-------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
function Test_finish()
|
||||||
|
XpathINIT
|
||||||
|
ExecAsScript T4_F
|
||||||
|
Xpath '5'
|
||||||
|
|
||||||
|
call assert_equal('ab3e3b2c25', g:Xpath)
|
||||||
|
endfunction
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
"-------------------------------------------------------------------------------
|
||||||
|
" Test 6: Defining functions in :while loops {{{1
|
||||||
|
"
|
||||||
|
" Functions can be defined inside other functions. An inner function
|
||||||
|
" gets defined when the outer function is executed. Functions may
|
||||||
|
" also be defined inside while loops. Expressions in braces for
|
||||||
|
" defining the function name are allowed.
|
||||||
|
"
|
||||||
|
" The functions are defined when sourcing the script, only the
|
||||||
|
" resulting path is checked in the test function.
|
||||||
|
"-------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
XpathINIT
|
||||||
|
|
||||||
|
" The command CALL collects the argument of all its invocations in "calls"
|
||||||
|
" when used from a function (that is, when the global variable "calls" needs
|
||||||
|
" the "g:" prefix). This is to check that the function code is skipped when
|
||||||
|
" the function is defined. For inner functions, do so only if the outer
|
||||||
|
" function is not being executed.
|
||||||
|
"
|
||||||
|
let calls = ""
|
||||||
|
com! -nargs=1 CALL
|
||||||
|
\ if !exists("calls") && !exists("outer") |
|
||||||
|
\ let g:calls = g:calls . <args> |
|
||||||
|
\ endif
|
||||||
|
|
||||||
|
let i = 0
|
||||||
|
while i < 3
|
||||||
|
let i = i + 1
|
||||||
|
if i == 1
|
||||||
|
Xpath 'a'
|
||||||
|
function! F1(arg)
|
||||||
|
CALL a:arg
|
||||||
|
let outer = 1
|
||||||
|
|
||||||
|
let j = 0
|
||||||
|
while j < 1
|
||||||
|
Xpath 'b'
|
||||||
|
let j = j + 1
|
||||||
|
function! G1(arg)
|
||||||
|
CALL a:arg
|
||||||
|
endfunction
|
||||||
|
Xpath 'c'
|
||||||
|
endwhile
|
||||||
|
endfunction
|
||||||
|
Xpath 'd'
|
||||||
|
|
||||||
|
continue
|
||||||
|
endif
|
||||||
|
|
||||||
|
Xpath 'e' . i
|
||||||
|
function! F{i}(i, arg)
|
||||||
|
CALL a:arg
|
||||||
|
let outer = 1
|
||||||
|
|
||||||
|
if a:i == 3
|
||||||
|
Xpath 'f'
|
||||||
|
endif
|
||||||
|
let k = 0
|
||||||
|
while k < 3
|
||||||
|
Xpath 'g' . k
|
||||||
|
let k = k + 1
|
||||||
|
function! G{a:i}{k}(arg)
|
||||||
|
CALL a:arg
|
||||||
|
endfunction
|
||||||
|
Xpath 'h' . k
|
||||||
|
endwhile
|
||||||
|
endfunction
|
||||||
|
Xpath 'i'
|
||||||
|
|
||||||
|
endwhile
|
||||||
|
|
||||||
|
if exists("*G1")
|
||||||
|
Xpath 'j'
|
||||||
|
endif
|
||||||
|
if exists("*F1")
|
||||||
|
call F1("F1")
|
||||||
|
if exists("*G1")
|
||||||
|
call G1("G1")
|
||||||
|
endif
|
||||||
|
endif
|
||||||
|
|
||||||
|
if exists("G21") || exists("G22") || exists("G23")
|
||||||
|
Xpath 'k'
|
||||||
|
endif
|
||||||
|
if exists("*F2")
|
||||||
|
call F2(2, "F2")
|
||||||
|
if exists("*G21")
|
||||||
|
call G21("G21")
|
||||||
|
endif
|
||||||
|
if exists("*G22")
|
||||||
|
call G22("G22")
|
||||||
|
endif
|
||||||
|
if exists("*G23")
|
||||||
|
call G23("G23")
|
||||||
|
endif
|
||||||
|
endif
|
||||||
|
|
||||||
|
if exists("G31") || exists("G32") || exists("G33")
|
||||||
|
Xpath 'l'
|
||||||
|
endif
|
||||||
|
if exists("*F3")
|
||||||
|
call F3(3, "F3")
|
||||||
|
if exists("*G31")
|
||||||
|
call G31("G31")
|
||||||
|
endif
|
||||||
|
if exists("*G32")
|
||||||
|
call G32("G32")
|
||||||
|
endif
|
||||||
|
if exists("*G33")
|
||||||
|
call G33("G33")
|
||||||
|
endif
|
||||||
|
endif
|
||||||
|
|
||||||
|
Xpath 'm'
|
||||||
|
|
||||||
|
let g:test6_result = g:Xpath
|
||||||
|
let g:test6_calls = calls
|
||||||
|
|
||||||
|
unlet calls
|
||||||
|
delfunction F1
|
||||||
|
delfunction G1
|
||||||
|
delfunction F2
|
||||||
|
delfunction G21
|
||||||
|
delfunction G22
|
||||||
|
delfunction G23
|
||||||
|
delfunction G31
|
||||||
|
delfunction G32
|
||||||
|
delfunction G33
|
||||||
|
|
||||||
|
function Test_defining_functions()
|
||||||
|
call assert_equal('ade2ie3ibcg0h1g1h2g2h3fg0h1g1h2g2h3m', g:test6_result)
|
||||||
|
call assert_equal('F1G1F2G21G22G23F3G31G32G33', g:test6_calls)
|
||||||
|
endfunc
|
||||||
|
|
||||||
|
"-------------------------------------------------------------------------------
|
||||||
|
" Modelines {{{1
|
||||||
|
" vim: ts=8 sw=4 tw=80 fdm=marker
|
||||||
|
" vim: fdt=substitute(substitute(foldtext(),\ '\\%(^+--\\)\\@<=\\(\\s*\\)\\(.\\{-}\\)\:\ \\%(\"\ \\)\\=\\(Test\ \\d*\\)\:\\s*',\ '\\3\ (\\2)\:\ \\1',\ \"\"),\ '\\(Test\\s*\\)\\(\\d\\)\\D\\@=',\ '\\1\ \\2',\ "")
|
||||||
|
"-------------------------------------------------------------------------------
|
||||||
@ -741,6 +741,8 @@ static char *(features[]) =
|
|||||||
|
|
||||||
static int included_patches[] =
|
static int included_patches[] =
|
||||||
{ /* Add new patch number below this line */
|
{ /* Add new patch number below this line */
|
||||||
|
/**/
|
||||||
|
1001,
|
||||||
/**/
|
/**/
|
||||||
1000,
|
1000,
|
||||||
/**/
|
/**/
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user