2019-04-26 19:38:15 -07:00
|
|
|
" Tests for the Vim script debug commands
|
|
|
|
|
|
|
|
source shared.vim
|
2020-04-28 20:13:23 -07:00
|
|
|
source screendump.vim
|
2021-04-07 14:58:04 -07:00
|
|
|
source check.vim
|
|
|
|
|
2021-04-07 15:23:04 -07:00
|
|
|
func CheckCWD()
|
|
|
|
" Check that the longer lines don't wrap due to the length of the script name
|
|
|
|
" in cwd
|
|
|
|
let script_len = len( getcwd() .. '/Xtest1.vim' )
|
|
|
|
let longest_line = len( 'Breakpoint in "" line 1' )
|
|
|
|
if script_len > ( 75 - longest_line )
|
|
|
|
throw 'Skipped: Your CWD has too many characters'
|
|
|
|
endif
|
|
|
|
endfunc
|
|
|
|
command! -nargs=0 -bar CheckCWD call CheckCWD()
|
|
|
|
|
2022-08-21 18:48:11 -07:00
|
|
|
" "options" argument can contain:
|
|
|
|
" 'msec' - time to wait for a match
|
|
|
|
" 'match' - "pattern" to use "lines" as pattern instead of text
|
2021-04-07 14:58:04 -07:00
|
|
|
func CheckDbgOutput(buf, lines, options = {})
|
|
|
|
" Verify the expected output
|
|
|
|
let lnum = 20 - len(a:lines)
|
2022-08-21 18:48:11 -07:00
|
|
|
let msec = get(a:options, 'msec', 1000)
|
2021-04-07 14:58:04 -07:00
|
|
|
for l in a:lines
|
|
|
|
if get(a:options, 'match', 'equal') ==# 'pattern'
|
2022-08-21 18:48:11 -07:00
|
|
|
call WaitForAssert({-> assert_match(l, term_getline(a:buf, lnum))}, msec)
|
2021-04-07 14:58:04 -07:00
|
|
|
else
|
2022-08-21 18:48:11 -07:00
|
|
|
call WaitForAssert({-> assert_equal(l, term_getline(a:buf, lnum))}, msec)
|
2021-04-07 14:58:04 -07:00
|
|
|
endif
|
|
|
|
let lnum += 1
|
|
|
|
endfor
|
|
|
|
endfunc
|
2019-04-26 19:38:15 -07:00
|
|
|
|
|
|
|
" Run a Vim debugger command
|
|
|
|
" If the expected output argument is supplied, then check for it.
|
|
|
|
func RunDbgCmd(buf, cmd, ...)
|
|
|
|
call term_sendkeys(a:buf, a:cmd . "\r")
|
2023-01-21 05:50:46 -07:00
|
|
|
call term_wait(a:buf, 20)
|
2019-04-26 19:38:15 -07:00
|
|
|
|
|
|
|
if a:0 != 0
|
2021-04-07 14:58:04 -07:00
|
|
|
let options = #{match: 'equal'}
|
|
|
|
if a:0 > 1
|
|
|
|
call extend(options, a:2)
|
|
|
|
endif
|
|
|
|
call CheckDbgOutput(a:buf, a:1, options)
|
2019-04-26 19:38:15 -07:00
|
|
|
endif
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
" Debugger tests
|
|
|
|
func Test_Debugger()
|
2021-04-07 15:23:04 -07:00
|
|
|
CheckRunVimInTerminal
|
2019-04-26 19:38:15 -07:00
|
|
|
|
|
|
|
" Create a Vim script with some functions
|
2019-10-12 00:48:48 -07:00
|
|
|
let lines =<< trim END
|
|
|
|
func Foo()
|
|
|
|
let var1 = 1
|
|
|
|
let var2 = Bar(var1) + 9
|
|
|
|
return var2
|
|
|
|
endfunc
|
|
|
|
func Bar(var)
|
|
|
|
let var1 = 2 + a:var
|
|
|
|
let var2 = Bazz(var1) + 4
|
|
|
|
return var2
|
|
|
|
endfunc
|
|
|
|
func Bazz(var)
|
|
|
|
try
|
|
|
|
let var1 = 3 + a:var
|
|
|
|
let var3 = "another var"
|
|
|
|
let var3 = "value2"
|
|
|
|
catch
|
|
|
|
let var4 = "exception"
|
|
|
|
endtry
|
|
|
|
return var1
|
|
|
|
endfunc
|
|
|
|
END
|
|
|
|
call writefile(lines, 'Xtest.vim')
|
2019-04-26 19:38:15 -07:00
|
|
|
|
|
|
|
" Start Vim in a terminal
|
|
|
|
let buf = RunVimInTerminal('-S Xtest.vim', {})
|
|
|
|
|
|
|
|
" Start the Vim debugger
|
2019-08-11 04:18:29 -07:00
|
|
|
call RunDbgCmd(buf, ':debug echo Foo()', ['cmd: echo Foo()'])
|
2019-04-26 19:38:15 -07:00
|
|
|
|
|
|
|
" Create a few stack frames by stepping through functions
|
2019-08-11 04:18:29 -07:00
|
|
|
call RunDbgCmd(buf, 'step', ['line 1: let var1 = 1'])
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 2: let var2 = Bar(var1) + 9'])
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 1: let var1 = 2 + a:var'])
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 2: let var2 = Bazz(var1) + 4'])
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 1: try'])
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 2: let var1 = 3 + a:var'])
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 3: let var3 = "another var"'])
|
2019-04-26 19:38:15 -07:00
|
|
|
|
|
|
|
" check backtrace
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ ' 2 function Foo[2]',
|
|
|
|
\ ' 1 Bar[2]',
|
|
|
|
\ '->0 Bazz',
|
2019-06-08 15:10:33 -07:00
|
|
|
\ 'line 3: let var3 = "another var"'])
|
2019-04-26 19:38:15 -07:00
|
|
|
|
|
|
|
" Check variables in different stack frames
|
|
|
|
call RunDbgCmd(buf, 'echo var1', ['6'])
|
|
|
|
|
|
|
|
call RunDbgCmd(buf, 'up')
|
|
|
|
call RunDbgCmd(buf, 'back', [
|
|
|
|
\ ' 2 function Foo[2]',
|
|
|
|
\ '->1 Bar[2]',
|
|
|
|
\ ' 0 Bazz',
|
2019-06-08 15:10:33 -07:00
|
|
|
\ 'line 3: let var3 = "another var"'])
|
2019-04-26 19:38:15 -07:00
|
|
|
call RunDbgCmd(buf, 'echo var1', ['3'])
|
|
|
|
|
|
|
|
call RunDbgCmd(buf, 'u')
|
|
|
|
call RunDbgCmd(buf, 'bt', [
|
|
|
|
\ '->2 function Foo[2]',
|
|
|
|
\ ' 1 Bar[2]',
|
|
|
|
\ ' 0 Bazz',
|
2019-06-08 15:10:33 -07:00
|
|
|
\ 'line 3: let var3 = "another var"'])
|
2019-04-26 19:38:15 -07:00
|
|
|
call RunDbgCmd(buf, 'echo var1', ['1'])
|
|
|
|
|
|
|
|
" Undefined variables
|
|
|
|
call RunDbgCmd(buf, 'step')
|
|
|
|
call RunDbgCmd(buf, 'frame 2')
|
|
|
|
call RunDbgCmd(buf, 'echo var3', [
|
|
|
|
\ 'Error detected while processing function Foo[2]..Bar[2]..Bazz:',
|
2019-06-08 15:10:33 -07:00
|
|
|
\ 'line 4:',
|
2019-04-26 19:38:15 -07:00
|
|
|
\ 'E121: Undefined variable: var3'])
|
|
|
|
|
|
|
|
" var3 is defined in this level with some other value
|
|
|
|
call RunDbgCmd(buf, 'fr 0')
|
|
|
|
call RunDbgCmd(buf, 'echo var3', ['another var'])
|
|
|
|
|
|
|
|
call RunDbgCmd(buf, 'step')
|
2019-06-08 15:10:33 -07:00
|
|
|
call RunDbgCmd(buf, '')
|
|
|
|
call RunDbgCmd(buf, '')
|
|
|
|
call RunDbgCmd(buf, '')
|
|
|
|
call RunDbgCmd(buf, '')
|
2019-04-26 19:38:15 -07:00
|
|
|
call RunDbgCmd(buf, 'step', [
|
|
|
|
\ 'function Foo[2]..Bar',
|
|
|
|
\ 'line 3: End of function'])
|
|
|
|
call RunDbgCmd(buf, 'up')
|
|
|
|
|
|
|
|
" Undefined var2
|
|
|
|
call RunDbgCmd(buf, 'echo var2', [
|
|
|
|
\ 'Error detected while processing function Foo[2]..Bar:',
|
|
|
|
\ 'line 3:',
|
|
|
|
\ 'E121: Undefined variable: var2'])
|
|
|
|
|
|
|
|
" Var2 is defined with 10
|
|
|
|
call RunDbgCmd(buf, 'down')
|
|
|
|
call RunDbgCmd(buf, 'echo var2', ['10'])
|
|
|
|
|
|
|
|
" Backtrace movements
|
|
|
|
call RunDbgCmd(buf, 'b', [
|
|
|
|
\ ' 1 function Foo[2]',
|
|
|
|
\ '->0 Bar',
|
|
|
|
\ 'line 3: End of function'])
|
|
|
|
|
|
|
|
" next command cannot go down, we are on bottom
|
|
|
|
call RunDbgCmd(buf, 'down', ['frame is zero'])
|
|
|
|
call RunDbgCmd(buf, 'up')
|
|
|
|
|
|
|
|
" next command cannot go up, we are on top
|
|
|
|
call RunDbgCmd(buf, 'up', ['frame at highest level: 1'])
|
|
|
|
call RunDbgCmd(buf, 'where', [
|
|
|
|
\ '->1 function Foo[2]',
|
|
|
|
\ ' 0 Bar',
|
|
|
|
\ 'line 3: End of function'])
|
|
|
|
|
|
|
|
" fil is not frame or finish, it is file
|
|
|
|
call RunDbgCmd(buf, 'fil', ['"[No Name]" --No lines in buffer--'])
|
|
|
|
|
|
|
|
" relative backtrace movement
|
|
|
|
call RunDbgCmd(buf, 'fr -1')
|
|
|
|
call RunDbgCmd(buf, 'frame', [
|
|
|
|
\ ' 1 function Foo[2]',
|
|
|
|
\ '->0 Bar',
|
|
|
|
\ 'line 3: End of function'])
|
|
|
|
|
|
|
|
call RunDbgCmd(buf, 'fr +1')
|
|
|
|
call RunDbgCmd(buf, 'fram', [
|
|
|
|
\ '->1 function Foo[2]',
|
|
|
|
\ ' 0 Bar',
|
|
|
|
\ 'line 3: End of function'])
|
|
|
|
|
|
|
|
" go beyond limits does not crash
|
|
|
|
call RunDbgCmd(buf, 'fr 100', ['frame at highest level: 1'])
|
|
|
|
call RunDbgCmd(buf, 'fra', [
|
|
|
|
\ '->1 function Foo[2]',
|
|
|
|
\ ' 0 Bar',
|
|
|
|
\ 'line 3: End of function'])
|
|
|
|
|
|
|
|
call RunDbgCmd(buf, 'frame -40', ['frame is zero'])
|
|
|
|
call RunDbgCmd(buf, 'fram', [
|
|
|
|
\ ' 1 function Foo[2]',
|
|
|
|
\ '->0 Bar',
|
|
|
|
\ 'line 3: End of function'])
|
|
|
|
|
|
|
|
" final result 19
|
|
|
|
call RunDbgCmd(buf, 'cont', ['19'])
|
|
|
|
|
|
|
|
" breakpoints tests
|
|
|
|
|
|
|
|
" Start a debug session, so that reading the last line from the terminal
|
|
|
|
" works properly.
|
2022-08-21 18:48:11 -07:00
|
|
|
call RunDbgCmd(buf, ':debug echo Foo()', ['cmd: echo Foo()'])
|
2019-04-26 19:38:15 -07:00
|
|
|
|
|
|
|
" No breakpoints
|
|
|
|
call RunDbgCmd(buf, 'breakl', ['No breakpoints defined'])
|
|
|
|
|
|
|
|
" Place some breakpoints
|
|
|
|
call RunDbgCmd(buf, 'breaka func Bar')
|
|
|
|
call RunDbgCmd(buf, 'breaklis', [' 1 func Bar line 1'])
|
|
|
|
call RunDbgCmd(buf, 'breakadd func 3 Bazz')
|
|
|
|
call RunDbgCmd(buf, 'breaklist', [' 1 func Bar line 1',
|
|
|
|
\ ' 2 func Bazz line 3'])
|
|
|
|
|
|
|
|
" Check whether the breakpoints are hit
|
|
|
|
call RunDbgCmd(buf, 'cont', [
|
|
|
|
\ 'Breakpoint in "Bar" line 1',
|
|
|
|
\ 'function Foo[2]..Bar',
|
|
|
|
\ 'line 1: let var1 = 2 + a:var'])
|
|
|
|
call RunDbgCmd(buf, 'cont', [
|
|
|
|
\ 'Breakpoint in "Bazz" line 3',
|
|
|
|
\ 'function Foo[2]..Bar[2]..Bazz',
|
2019-06-08 15:10:33 -07:00
|
|
|
\ 'line 3: let var3 = "another var"'])
|
2019-04-26 19:38:15 -07:00
|
|
|
|
|
|
|
" Delete the breakpoints
|
|
|
|
call RunDbgCmd(buf, 'breakd 1')
|
|
|
|
call RunDbgCmd(buf, 'breakli', [' 2 func Bazz line 3'])
|
|
|
|
call RunDbgCmd(buf, 'breakdel func 3 Bazz')
|
|
|
|
call RunDbgCmd(buf, 'breakl', ['No breakpoints defined'])
|
|
|
|
|
|
|
|
call RunDbgCmd(buf, 'cont')
|
|
|
|
|
|
|
|
" Make sure the breakpoints are removed
|
|
|
|
call RunDbgCmd(buf, ':echo Foo()', ['19'])
|
|
|
|
|
|
|
|
" Delete a non-existing breakpoint
|
|
|
|
call RunDbgCmd(buf, ':breakdel 2', ['E161: Breakpoint not found: 2'])
|
|
|
|
|
|
|
|
" Expression breakpoint
|
|
|
|
call RunDbgCmd(buf, ':breakadd func 2 Bazz')
|
2019-06-08 15:10:33 -07:00
|
|
|
call RunDbgCmd(buf, ':echo Bazz(1)', [
|
|
|
|
\ 'Entering Debug mode. Type "cont" to continue.',
|
|
|
|
\ 'function Bazz',
|
|
|
|
\ 'line 2: let var1 = 3 + a:var'])
|
|
|
|
call RunDbgCmd(buf, 'step')
|
2019-04-26 19:38:15 -07:00
|
|
|
call RunDbgCmd(buf, 'step')
|
|
|
|
call RunDbgCmd(buf, 'breaka expr var3')
|
2019-06-08 15:10:33 -07:00
|
|
|
call RunDbgCmd(buf, 'breakl', [' 3 func Bazz line 2',
|
|
|
|
\ ' 4 expr var3'])
|
|
|
|
call RunDbgCmd(buf, 'cont', ['Breakpoint in "Bazz" line 5',
|
2019-04-26 19:38:15 -07:00
|
|
|
\ 'Oldval = "''another var''"',
|
|
|
|
\ 'Newval = "''value2''"',
|
|
|
|
\ 'function Bazz',
|
2019-06-08 15:10:33 -07:00
|
|
|
\ 'line 5: catch'])
|
2019-04-26 19:38:15 -07:00
|
|
|
|
|
|
|
call RunDbgCmd(buf, 'breakdel *')
|
|
|
|
call RunDbgCmd(buf, 'breakl', ['No breakpoints defined'])
|
|
|
|
|
2019-06-08 15:10:33 -07:00
|
|
|
" Check for error cases
|
|
|
|
call RunDbgCmd(buf, 'breakadd abcd', [
|
|
|
|
\ 'Error detected while processing function Bazz:',
|
|
|
|
\ 'line 5:',
|
|
|
|
\ 'E475: Invalid argument: abcd'])
|
|
|
|
call RunDbgCmd(buf, 'breakadd func', ['E475: Invalid argument: func'])
|
|
|
|
call RunDbgCmd(buf, 'breakadd func 2', ['E475: Invalid argument: func 2'])
|
|
|
|
call RunDbgCmd(buf, 'breaka func a()', ['E475: Invalid argument: func a()'])
|
|
|
|
call RunDbgCmd(buf, 'breakd abcd', ['E475: Invalid argument: abcd'])
|
|
|
|
call RunDbgCmd(buf, 'breakd func', ['E475: Invalid argument: func'])
|
|
|
|
call RunDbgCmd(buf, 'breakd func a()', ['E475: Invalid argument: func a()'])
|
|
|
|
call RunDbgCmd(buf, 'breakd func a', ['E161: Breakpoint not found: func a'])
|
|
|
|
call RunDbgCmd(buf, 'breakd expr', ['E475: Invalid argument: expr'])
|
2021-09-13 09:09:15 -07:00
|
|
|
call RunDbgCmd(buf, 'breakd expr x', ['E161: Breakpoint not found: expr x'])
|
2019-06-08 15:10:33 -07:00
|
|
|
|
2019-04-26 19:38:15 -07:00
|
|
|
" finish the current function
|
|
|
|
call RunDbgCmd(buf, 'finish', [
|
|
|
|
\ 'function Bazz',
|
2019-06-08 15:10:33 -07:00
|
|
|
\ 'line 8: End of function'])
|
|
|
|
call RunDbgCmd(buf, 'cont')
|
|
|
|
|
|
|
|
" Test for :next
|
|
|
|
call RunDbgCmd(buf, ':debug echo Bar(1)')
|
|
|
|
call RunDbgCmd(buf, 'step')
|
|
|
|
call RunDbgCmd(buf, 'next')
|
|
|
|
call RunDbgCmd(buf, '', [
|
|
|
|
\ 'function Bar',
|
|
|
|
\ 'line 3: return var2'])
|
|
|
|
call RunDbgCmd(buf, 'c')
|
|
|
|
|
|
|
|
" Test for :interrupt
|
|
|
|
call RunDbgCmd(buf, ':debug echo Bazz(1)')
|
|
|
|
call RunDbgCmd(buf, 'step')
|
|
|
|
call RunDbgCmd(buf, 'step')
|
|
|
|
call RunDbgCmd(buf, 'interrupt', [
|
|
|
|
\ 'Exception thrown: Vim:Interrupt',
|
|
|
|
\ 'function Bazz',
|
|
|
|
\ 'line 5: catch'])
|
|
|
|
call RunDbgCmd(buf, 'c')
|
|
|
|
|
|
|
|
" Test for :quit
|
|
|
|
call RunDbgCmd(buf, ':debug echo Foo()')
|
|
|
|
call RunDbgCmd(buf, 'breakdel *')
|
|
|
|
call RunDbgCmd(buf, 'breakadd func 3 Foo')
|
|
|
|
call RunDbgCmd(buf, 'breakadd func 3 Bazz')
|
|
|
|
call RunDbgCmd(buf, 'cont', [
|
|
|
|
\ 'Breakpoint in "Bazz" line 3',
|
|
|
|
\ 'function Foo[2]..Bar[2]..Bazz',
|
|
|
|
\ 'line 3: let var3 = "another var"'])
|
|
|
|
call RunDbgCmd(buf, 'quit', [
|
|
|
|
\ 'Breakpoint in "Foo" line 3',
|
|
|
|
\ 'function Foo',
|
|
|
|
\ 'line 3: return var2'])
|
|
|
|
call RunDbgCmd(buf, 'breakdel *')
|
|
|
|
call RunDbgCmd(buf, 'quit')
|
|
|
|
call RunDbgCmd(buf, 'enew! | only!')
|
|
|
|
|
|
|
|
call StopVimInTerminal(buf)
|
2021-09-13 08:42:33 -07:00
|
|
|
endfunc
|
2019-06-08 15:10:33 -07:00
|
|
|
|
2021-09-13 08:42:33 -07:00
|
|
|
func Test_Debugger_breakadd()
|
2019-06-08 15:10:33 -07:00
|
|
|
" Tests for :breakadd file and :breakadd here
|
|
|
|
" Breakpoints should be set before sourcing the file
|
2021-09-13 08:42:33 -07:00
|
|
|
CheckRunVimInTerminal
|
2019-06-08 15:10:33 -07:00
|
|
|
|
2019-10-12 00:48:48 -07:00
|
|
|
let lines =<< trim END
|
|
|
|
let var1 = 10
|
|
|
|
let var2 = 20
|
|
|
|
let var3 = 30
|
|
|
|
let var4 = 40
|
|
|
|
END
|
|
|
|
call writefile(lines, 'Xtest.vim')
|
2019-06-08 15:10:33 -07:00
|
|
|
|
|
|
|
" Start Vim in a terminal
|
|
|
|
let buf = RunVimInTerminal('Xtest.vim', {})
|
|
|
|
call RunDbgCmd(buf, ':breakadd file 2 Xtest.vim')
|
|
|
|
call RunDbgCmd(buf, ':4 | breakadd here')
|
|
|
|
call RunDbgCmd(buf, ':source Xtest.vim', ['line 2: let var2 = 20'])
|
|
|
|
call RunDbgCmd(buf, 'cont', ['line 4: let var4 = 40'])
|
2019-04-26 19:38:15 -07:00
|
|
|
call RunDbgCmd(buf, 'cont')
|
|
|
|
|
|
|
|
call StopVimInTerminal(buf)
|
|
|
|
|
|
|
|
call delete('Xtest.vim')
|
2021-09-13 08:42:33 -07:00
|
|
|
%bw!
|
|
|
|
|
|
|
|
call assert_fails('breakadd here', 'E32:')
|
|
|
|
call assert_fails('breakadd file Xtest.vim /\)/', 'E55:')
|
2019-04-26 19:38:15 -07:00
|
|
|
endfunc
|
2020-08-12 15:23:36 -07:00
|
|
|
|
2021-04-07 14:58:04 -07:00
|
|
|
func Test_Backtrace_Through_Source()
|
|
|
|
CheckRunVimInTerminal
|
2021-04-07 15:23:04 -07:00
|
|
|
CheckCWD
|
2021-04-07 14:58:04 -07:00
|
|
|
let file1 =<< trim END
|
|
|
|
func SourceAnotherFile()
|
|
|
|
source Xtest2.vim
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
func CallAFunction()
|
|
|
|
call SourceAnotherFile()
|
|
|
|
call File2Function()
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
func GlobalFunction()
|
|
|
|
call CallAFunction()
|
|
|
|
endfunc
|
|
|
|
END
|
|
|
|
call writefile(file1, 'Xtest1.vim')
|
|
|
|
|
|
|
|
let file2 =<< trim END
|
|
|
|
func DoAThing()
|
|
|
|
echo "DoAThing"
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
func File2Function()
|
|
|
|
call DoAThing()
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
call File2Function()
|
|
|
|
END
|
|
|
|
call writefile(file2, 'Xtest2.vim')
|
|
|
|
|
|
|
|
let buf = RunVimInTerminal('-S Xtest1.vim', {})
|
|
|
|
|
|
|
|
call RunDbgCmd(buf,
|
|
|
|
\ ':debug call GlobalFunction()',
|
|
|
|
\ ['cmd: call GlobalFunction()'])
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 1: call CallAFunction()'])
|
|
|
|
|
|
|
|
call RunDbgCmd(buf, 'backtrace', ['>backtrace',
|
|
|
|
\ '->0 function GlobalFunction',
|
|
|
|
\ 'line 1: call CallAFunction()'])
|
|
|
|
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 1: call SourceAnotherFile()'])
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 1: source Xtest2.vim'])
|
|
|
|
|
|
|
|
call RunDbgCmd(buf, 'backtrace', ['>backtrace',
|
|
|
|
\ ' 2 function GlobalFunction[1]',
|
|
|
|
\ ' 1 CallAFunction[1]',
|
|
|
|
\ '->0 SourceAnotherFile',
|
|
|
|
\ 'line 1: source Xtest2.vim'])
|
|
|
|
|
|
|
|
" Step into the 'source' command. Note that we print the full trace all the
|
|
|
|
" way though the source command.
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 1: func DoAThing()'])
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ ' 3 function GlobalFunction[1]',
|
|
|
|
\ ' 2 CallAFunction[1]',
|
|
|
|
\ ' 1 SourceAnotherFile[1]',
|
|
|
|
\ '->0 script ' .. getcwd() .. '/Xtest2.vim',
|
|
|
|
\ 'line 1: func DoAThing()'])
|
|
|
|
|
2021-04-07 15:23:04 -07:00
|
|
|
call RunDbgCmd( buf, 'up' )
|
|
|
|
call RunDbgCmd( buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ ' 3 function GlobalFunction[1]',
|
|
|
|
\ ' 2 CallAFunction[1]',
|
|
|
|
\ '->1 SourceAnotherFile[1]',
|
|
|
|
\ ' 0 script ' .. getcwd() .. '/Xtest2.vim',
|
|
|
|
\ 'line 1: func DoAThing()' ] )
|
|
|
|
|
|
|
|
call RunDbgCmd( buf, 'up' )
|
|
|
|
call RunDbgCmd( buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ ' 3 function GlobalFunction[1]',
|
|
|
|
\ '->2 CallAFunction[1]',
|
|
|
|
\ ' 1 SourceAnotherFile[1]',
|
|
|
|
\ ' 0 script ' .. getcwd() .. '/Xtest2.vim',
|
|
|
|
\ 'line 1: func DoAThing()' ] )
|
|
|
|
|
|
|
|
call RunDbgCmd( buf, 'up' )
|
|
|
|
call RunDbgCmd( buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ '->3 function GlobalFunction[1]',
|
|
|
|
\ ' 2 CallAFunction[1]',
|
|
|
|
\ ' 1 SourceAnotherFile[1]',
|
|
|
|
\ ' 0 script ' .. getcwd() .. '/Xtest2.vim',
|
|
|
|
\ 'line 1: func DoAThing()' ] )
|
|
|
|
|
|
|
|
call RunDbgCmd( buf, 'up', [ 'frame at highest level: 3' ] )
|
|
|
|
call RunDbgCmd( buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ '->3 function GlobalFunction[1]',
|
|
|
|
\ ' 2 CallAFunction[1]',
|
|
|
|
\ ' 1 SourceAnotherFile[1]',
|
|
|
|
\ ' 0 script ' .. getcwd() .. '/Xtest2.vim',
|
|
|
|
\ 'line 1: func DoAThing()' ] )
|
|
|
|
|
|
|
|
call RunDbgCmd( buf, 'down' )
|
|
|
|
call RunDbgCmd( buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ ' 3 function GlobalFunction[1]',
|
|
|
|
\ '->2 CallAFunction[1]',
|
|
|
|
\ ' 1 SourceAnotherFile[1]',
|
|
|
|
\ ' 0 script ' .. getcwd() .. '/Xtest2.vim',
|
|
|
|
\ 'line 1: func DoAThing()' ] )
|
|
|
|
|
|
|
|
call RunDbgCmd( buf, 'down' )
|
|
|
|
call RunDbgCmd( buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ ' 3 function GlobalFunction[1]',
|
|
|
|
\ ' 2 CallAFunction[1]',
|
|
|
|
\ '->1 SourceAnotherFile[1]',
|
|
|
|
\ ' 0 script ' .. getcwd() .. '/Xtest2.vim',
|
|
|
|
\ 'line 1: func DoAThing()' ] )
|
|
|
|
|
|
|
|
call RunDbgCmd( buf, 'down' )
|
|
|
|
call RunDbgCmd( buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ ' 3 function GlobalFunction[1]',
|
|
|
|
\ ' 2 CallAFunction[1]',
|
|
|
|
\ ' 1 SourceAnotherFile[1]',
|
|
|
|
\ '->0 script ' .. getcwd() .. '/Xtest2.vim',
|
|
|
|
\ 'line 1: func DoAThing()' ] )
|
|
|
|
|
|
|
|
call RunDbgCmd( buf, 'down', [ 'frame is zero' ] )
|
|
|
|
|
2021-04-07 14:58:04 -07:00
|
|
|
" step until we have another meaninfgul trace
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 5: func File2Function()'])
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 9: call File2Function()'])
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ ' 3 function GlobalFunction[1]',
|
|
|
|
\ ' 2 CallAFunction[1]',
|
|
|
|
\ ' 1 SourceAnotherFile[1]',
|
|
|
|
\ '->0 script ' .. getcwd() .. '/Xtest2.vim',
|
|
|
|
\ 'line 9: call File2Function()'])
|
|
|
|
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 1: call DoAThing()'])
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 1: echo "DoAThing"'])
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ ' 5 function GlobalFunction[1]',
|
|
|
|
\ ' 4 CallAFunction[1]',
|
|
|
|
\ ' 3 SourceAnotherFile[1]',
|
|
|
|
\ ' 2 script ' .. getcwd() .. '/Xtest2.vim[9]',
|
|
|
|
\ ' 1 function File2Function[1]',
|
|
|
|
\ '->0 DoAThing',
|
|
|
|
\ 'line 1: echo "DoAThing"'])
|
|
|
|
|
|
|
|
" Now, step (back to Xfile1.vim), and call the function _in_ Xfile2.vim
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 1: End of function'])
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 1: End of function'])
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 10: End of sourced file'])
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 1: End of function'])
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 2: call File2Function()'])
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ ' 1 function GlobalFunction[1]',
|
|
|
|
\ '->0 CallAFunction',
|
|
|
|
\ 'line 2: call File2Function()'])
|
|
|
|
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 1: call DoAThing()'])
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ ' 2 function GlobalFunction[1]',
|
|
|
|
\ ' 1 CallAFunction[2]',
|
|
|
|
\ '->0 File2Function',
|
|
|
|
\ 'line 1: call DoAThing()'])
|
|
|
|
|
|
|
|
call StopVimInTerminal(buf)
|
|
|
|
call delete('Xtest1.vim')
|
|
|
|
call delete('Xtest2.vim')
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
func Test_Backtrace_Autocmd()
|
|
|
|
CheckRunVimInTerminal
|
2021-04-07 15:23:04 -07:00
|
|
|
CheckCWD
|
2021-04-07 14:58:04 -07:00
|
|
|
let file1 =<< trim END
|
|
|
|
func SourceAnotherFile()
|
|
|
|
source Xtest2.vim
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
func CallAFunction()
|
|
|
|
call SourceAnotherFile()
|
|
|
|
call File2Function()
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
func GlobalFunction()
|
|
|
|
call CallAFunction()
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
au User TestGlobalFunction :call GlobalFunction() | echo "Done"
|
|
|
|
END
|
|
|
|
call writefile(file1, 'Xtest1.vim')
|
|
|
|
|
|
|
|
let file2 =<< trim END
|
|
|
|
func DoAThing()
|
|
|
|
echo "DoAThing"
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
func File2Function()
|
|
|
|
call DoAThing()
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
call File2Function()
|
|
|
|
END
|
|
|
|
call writefile(file2, 'Xtest2.vim')
|
|
|
|
|
|
|
|
let buf = RunVimInTerminal('-S Xtest1.vim', {})
|
|
|
|
|
|
|
|
call RunDbgCmd(buf,
|
|
|
|
\ ':debug doautocmd User TestGlobalFunction',
|
|
|
|
\ ['cmd: doautocmd User TestGlobalFunction'])
|
|
|
|
call RunDbgCmd(buf, 'step', ['cmd: call GlobalFunction() | echo "Done"'])
|
|
|
|
|
|
|
|
" At this point the ontly thing in the stack is the autocommand
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ '->0 User Autocommands for "TestGlobalFunction"',
|
|
|
|
\ 'cmd: call GlobalFunction() | echo "Done"'])
|
|
|
|
|
|
|
|
" And now we're back into the call stack
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 1: call CallAFunction()'])
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ ' 1 User Autocommands for "TestGlobalFunction"',
|
|
|
|
\ '->0 function GlobalFunction',
|
|
|
|
\ 'line 1: call CallAFunction()'])
|
|
|
|
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 1: call SourceAnotherFile()'])
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 1: source Xtest2.vim'])
|
|
|
|
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ ' 3 User Autocommands for "TestGlobalFunction"',
|
|
|
|
\ ' 2 function GlobalFunction[1]',
|
|
|
|
\ ' 1 CallAFunction[1]',
|
|
|
|
\ '->0 SourceAnotherFile',
|
|
|
|
\ 'line 1: source Xtest2.vim'])
|
|
|
|
|
|
|
|
" Step into the 'source' command. Note that we print the full trace all the
|
|
|
|
" way though the source command.
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 1: func DoAThing()'])
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ ' 4 User Autocommands for "TestGlobalFunction"',
|
|
|
|
\ ' 3 function GlobalFunction[1]',
|
|
|
|
\ ' 2 CallAFunction[1]',
|
|
|
|
\ ' 1 SourceAnotherFile[1]',
|
|
|
|
\ '->0 script ' .. getcwd() .. '/Xtest2.vim',
|
|
|
|
\ 'line 1: func DoAThing()'])
|
|
|
|
|
2021-04-07 15:32:14 -07:00
|
|
|
call RunDbgCmd( buf, 'up' )
|
|
|
|
call RunDbgCmd( buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ ' 4 User Autocommands for "TestGlobalFunction"',
|
|
|
|
\ ' 3 function GlobalFunction[1]',
|
|
|
|
\ ' 2 CallAFunction[1]',
|
|
|
|
\ '->1 SourceAnotherFile[1]',
|
|
|
|
\ ' 0 script ' .. getcwd() .. '/Xtest2.vim',
|
|
|
|
\ 'line 1: func DoAThing()' ] )
|
|
|
|
|
|
|
|
call RunDbgCmd( buf, 'up' )
|
|
|
|
call RunDbgCmd( buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ ' 4 User Autocommands for "TestGlobalFunction"',
|
|
|
|
\ ' 3 function GlobalFunction[1]',
|
|
|
|
\ '->2 CallAFunction[1]',
|
|
|
|
\ ' 1 SourceAnotherFile[1]',
|
|
|
|
\ ' 0 script ' .. getcwd() .. '/Xtest2.vim',
|
|
|
|
\ 'line 1: func DoAThing()' ] )
|
|
|
|
|
|
|
|
call RunDbgCmd( buf, 'up' )
|
|
|
|
call RunDbgCmd( buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ ' 4 User Autocommands for "TestGlobalFunction"',
|
|
|
|
\ '->3 function GlobalFunction[1]',
|
|
|
|
\ ' 2 CallAFunction[1]',
|
|
|
|
\ ' 1 SourceAnotherFile[1]',
|
|
|
|
\ ' 0 script ' .. getcwd() .. '/Xtest2.vim',
|
|
|
|
\ 'line 1: func DoAThing()' ] )
|
|
|
|
|
|
|
|
call RunDbgCmd( buf, 'up' )
|
|
|
|
call RunDbgCmd( buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ '->4 User Autocommands for "TestGlobalFunction"',
|
|
|
|
\ ' 3 function GlobalFunction[1]',
|
|
|
|
\ ' 2 CallAFunction[1]',
|
|
|
|
\ ' 1 SourceAnotherFile[1]',
|
|
|
|
\ ' 0 script ' .. getcwd() .. '/Xtest2.vim',
|
|
|
|
\ 'line 1: func DoAThing()' ] )
|
|
|
|
|
|
|
|
call RunDbgCmd( buf, 'up', [ 'frame at highest level: 4' ] )
|
|
|
|
call RunDbgCmd( buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ '->4 User Autocommands for "TestGlobalFunction"',
|
|
|
|
\ ' 3 function GlobalFunction[1]',
|
|
|
|
\ ' 2 CallAFunction[1]',
|
|
|
|
\ ' 1 SourceAnotherFile[1]',
|
|
|
|
\ ' 0 script ' .. getcwd() .. '/Xtest2.vim',
|
|
|
|
\ 'line 1: func DoAThing()' ] )
|
|
|
|
|
|
|
|
call RunDbgCmd( buf, 'down' )
|
|
|
|
call RunDbgCmd( buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ ' 4 User Autocommands for "TestGlobalFunction"',
|
|
|
|
\ '->3 function GlobalFunction[1]',
|
|
|
|
\ ' 2 CallAFunction[1]',
|
|
|
|
\ ' 1 SourceAnotherFile[1]',
|
|
|
|
\ ' 0 script ' .. getcwd() .. '/Xtest2.vim',
|
|
|
|
\ 'line 1: func DoAThing()' ] )
|
|
|
|
|
|
|
|
|
|
|
|
call RunDbgCmd( buf, 'down' )
|
|
|
|
call RunDbgCmd( buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ ' 4 User Autocommands for "TestGlobalFunction"',
|
|
|
|
\ ' 3 function GlobalFunction[1]',
|
|
|
|
\ '->2 CallAFunction[1]',
|
|
|
|
\ ' 1 SourceAnotherFile[1]',
|
|
|
|
\ ' 0 script ' .. getcwd() .. '/Xtest2.vim',
|
|
|
|
\ 'line 1: func DoAThing()' ] )
|
|
|
|
|
|
|
|
call RunDbgCmd( buf, 'down' )
|
|
|
|
call RunDbgCmd( buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ ' 4 User Autocommands for "TestGlobalFunction"',
|
|
|
|
\ ' 3 function GlobalFunction[1]',
|
|
|
|
\ ' 2 CallAFunction[1]',
|
|
|
|
\ '->1 SourceAnotherFile[1]',
|
|
|
|
\ ' 0 script ' .. getcwd() .. '/Xtest2.vim',
|
|
|
|
\ 'line 1: func DoAThing()' ] )
|
|
|
|
|
|
|
|
call RunDbgCmd( buf, 'down' )
|
|
|
|
call RunDbgCmd( buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ ' 4 User Autocommands for "TestGlobalFunction"',
|
|
|
|
\ ' 3 function GlobalFunction[1]',
|
|
|
|
\ ' 2 CallAFunction[1]',
|
|
|
|
\ ' 1 SourceAnotherFile[1]',
|
|
|
|
\ '->0 script ' .. getcwd() .. '/Xtest2.vim',
|
|
|
|
\ 'line 1: func DoAThing()' ] )
|
|
|
|
|
|
|
|
call RunDbgCmd( buf, 'down', [ 'frame is zero' ] )
|
|
|
|
|
2021-04-07 14:58:04 -07:00
|
|
|
" step until we have another meaninfgul trace
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 5: func File2Function()'])
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 9: call File2Function()'])
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ ' 4 User Autocommands for "TestGlobalFunction"',
|
|
|
|
\ ' 3 function GlobalFunction[1]',
|
|
|
|
\ ' 2 CallAFunction[1]',
|
|
|
|
\ ' 1 SourceAnotherFile[1]',
|
|
|
|
\ '->0 script ' .. getcwd() .. '/Xtest2.vim',
|
|
|
|
\ 'line 9: call File2Function()'])
|
|
|
|
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 1: call DoAThing()'])
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 1: echo "DoAThing"'])
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ ' 6 User Autocommands for "TestGlobalFunction"',
|
|
|
|
\ ' 5 function GlobalFunction[1]',
|
|
|
|
\ ' 4 CallAFunction[1]',
|
|
|
|
\ ' 3 SourceAnotherFile[1]',
|
|
|
|
\ ' 2 script ' .. getcwd() .. '/Xtest2.vim[9]',
|
|
|
|
\ ' 1 function File2Function[1]',
|
|
|
|
\ '->0 DoAThing',
|
|
|
|
\ 'line 1: echo "DoAThing"'])
|
|
|
|
|
|
|
|
" Now, step (back to Xfile1.vim), and call the function _in_ Xfile2.vim
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 1: End of function'])
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 1: End of function'])
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 10: End of sourced file'])
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 1: End of function'])
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 2: call File2Function()'])
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ ' 2 User Autocommands for "TestGlobalFunction"',
|
|
|
|
\ ' 1 function GlobalFunction[1]',
|
|
|
|
\ '->0 CallAFunction',
|
|
|
|
\ 'line 2: call File2Function()'])
|
|
|
|
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 1: call DoAThing()'])
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ ' 3 User Autocommands for "TestGlobalFunction"',
|
|
|
|
\ ' 2 function GlobalFunction[1]',
|
|
|
|
\ ' 1 CallAFunction[2]',
|
|
|
|
\ '->0 File2Function',
|
|
|
|
\ 'line 1: call DoAThing()'])
|
|
|
|
|
|
|
|
|
|
|
|
" Now unwind so that we get back to the original autocommand (and the second
|
|
|
|
" cmd echo "Done")
|
|
|
|
call RunDbgCmd(buf, 'finish', ['line 1: End of function'])
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ ' 3 User Autocommands for "TestGlobalFunction"',
|
|
|
|
\ ' 2 function GlobalFunction[1]',
|
|
|
|
\ ' 1 CallAFunction[2]',
|
|
|
|
\ '->0 File2Function',
|
|
|
|
\ 'line 1: End of function'])
|
|
|
|
|
|
|
|
call RunDbgCmd(buf, 'finish', ['line 2: End of function'])
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ ' 2 User Autocommands for "TestGlobalFunction"',
|
|
|
|
\ ' 1 function GlobalFunction[1]',
|
|
|
|
\ '->0 CallAFunction',
|
|
|
|
\ 'line 2: End of function'])
|
|
|
|
|
|
|
|
call RunDbgCmd(buf, 'finish', ['line 1: End of function'])
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ ' 1 User Autocommands for "TestGlobalFunction"',
|
|
|
|
\ '->0 function GlobalFunction',
|
|
|
|
\ 'line 1: End of function'])
|
|
|
|
|
|
|
|
call RunDbgCmd(buf, 'step', ['cmd: echo "Done"'])
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ '->0 User Autocommands for "TestGlobalFunction"',
|
|
|
|
\ 'cmd: echo "Done"'])
|
|
|
|
|
|
|
|
call StopVimInTerminal(buf)
|
|
|
|
call delete('Xtest1.vim')
|
|
|
|
call delete('Xtest2.vim')
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
func Test_Backtrace_CmdLine()
|
|
|
|
CheckRunVimInTerminal
|
2021-04-07 15:23:04 -07:00
|
|
|
CheckCWD
|
2021-04-07 14:58:04 -07:00
|
|
|
let file1 =<< trim END
|
|
|
|
func SourceAnotherFile()
|
|
|
|
source Xtest2.vim
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
func CallAFunction()
|
|
|
|
call SourceAnotherFile()
|
|
|
|
call File2Function()
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
func GlobalFunction()
|
|
|
|
call CallAFunction()
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
au User TestGlobalFunction :call GlobalFunction() | echo "Done"
|
|
|
|
END
|
|
|
|
call writefile(file1, 'Xtest1.vim')
|
|
|
|
|
|
|
|
let file2 =<< trim END
|
|
|
|
func DoAThing()
|
|
|
|
echo "DoAThing"
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
func File2Function()
|
|
|
|
call DoAThing()
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
call File2Function()
|
|
|
|
END
|
|
|
|
call writefile(file2, 'Xtest2.vim')
|
|
|
|
|
|
|
|
let buf = RunVimInTerminal(
|
|
|
|
\ '-S Xtest1.vim -c "debug call GlobalFunction()"',
|
|
|
|
\ {'wait_for_ruler': 0})
|
|
|
|
|
2022-08-21 18:48:11 -07:00
|
|
|
" Need to wait for the vim-in-terminal to be ready.
|
|
|
|
" With valgrind this can take quite long.
|
2021-04-07 14:58:04 -07:00
|
|
|
call CheckDbgOutput(buf, ['command line',
|
2022-08-21 18:48:11 -07:00
|
|
|
\ 'cmd: call GlobalFunction()'], #{msec: 5000})
|
2021-04-07 14:58:04 -07:00
|
|
|
|
|
|
|
" At this point the ontly thing in the stack is the cmdline
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ '->0 command line',
|
|
|
|
\ 'cmd: call GlobalFunction()'])
|
|
|
|
|
|
|
|
" And now we're back into the call stack
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 1: call CallAFunction()'])
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ '>backtrace',
|
|
|
|
\ ' 1 command line',
|
|
|
|
\ '->0 function GlobalFunction',
|
|
|
|
\ 'line 1: call CallAFunction()'])
|
|
|
|
|
|
|
|
call StopVimInTerminal(buf)
|
|
|
|
call delete('Xtest1.vim')
|
|
|
|
call delete('Xtest2.vim')
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
func Test_Backtrace_DefFunction()
|
|
|
|
CheckRunVimInTerminal
|
2021-04-07 15:23:04 -07:00
|
|
|
CheckCWD
|
2021-04-07 14:58:04 -07:00
|
|
|
let file1 =<< trim END
|
|
|
|
vim9script
|
|
|
|
import File2Function from './Xtest2.vim'
|
|
|
|
|
|
|
|
def SourceAnotherFile()
|
|
|
|
source Xtest2.vim
|
|
|
|
enddef
|
|
|
|
|
|
|
|
def CallAFunction()
|
|
|
|
SourceAnotherFile()
|
|
|
|
File2Function()
|
|
|
|
enddef
|
|
|
|
|
|
|
|
def g:GlobalFunction()
|
|
|
|
CallAFunction()
|
|
|
|
enddef
|
|
|
|
|
|
|
|
defcompile
|
|
|
|
END
|
|
|
|
call writefile(file1, 'Xtest1.vim')
|
|
|
|
|
|
|
|
let file2 =<< trim END
|
|
|
|
vim9script
|
|
|
|
|
|
|
|
def DoAThing(): number
|
2021-04-07 15:33:22 -07:00
|
|
|
var a = 100 * 2
|
2021-04-07 14:58:04 -07:00
|
|
|
a += 3
|
|
|
|
return a
|
|
|
|
enddef
|
|
|
|
|
|
|
|
export def File2Function()
|
|
|
|
DoAThing()
|
|
|
|
enddef
|
|
|
|
|
|
|
|
defcompile
|
|
|
|
File2Function()
|
|
|
|
END
|
|
|
|
call writefile(file2, 'Xtest2.vim')
|
|
|
|
|
|
|
|
let buf = RunVimInTerminal('-S Xtest1.vim', {})
|
|
|
|
|
|
|
|
call RunDbgCmd(buf,
|
|
|
|
\ ':debug call GlobalFunction()',
|
|
|
|
\ ['cmd: call GlobalFunction()'])
|
|
|
|
|
|
|
|
" FIXME: Vim9 lines are not debugged!
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 1: source Xtest2.vim'])
|
|
|
|
|
|
|
|
" But they do appear in the backtrace
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ '\V>backtrace',
|
|
|
|
\ '\V 2 function GlobalFunction[1]',
|
|
|
|
\ '\V 1 <SNR>\.\*_CallAFunction[1]',
|
|
|
|
\ '\V->0 <SNR>\.\*_SourceAnotherFile',
|
|
|
|
\ '\Vline 1: source Xtest2.vim'],
|
|
|
|
\ #{match: 'pattern'})
|
|
|
|
|
|
|
|
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 1: vim9script'])
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 3: def DoAThing(): number'])
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 9: export def File2Function()'])
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 9: def File2Function()'])
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 13: defcompile'])
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 14: File2Function()'])
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ '\V>backtrace',
|
|
|
|
\ '\V 3 function GlobalFunction[1]',
|
|
|
|
\ '\V 2 <SNR>\.\*_CallAFunction[1]',
|
|
|
|
\ '\V 1 <SNR>\.\*_SourceAnotherFile[1]',
|
|
|
|
\ '\V->0 script ' .. getcwd() .. '/Xtest2.vim',
|
|
|
|
\ '\Vline 14: File2Function()'],
|
|
|
|
\ #{match: 'pattern'})
|
|
|
|
|
|
|
|
" Don't step into compiled functions...
|
|
|
|
call RunDbgCmd(buf, 'step', ['line 15: End of sourced file'])
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ '\V>backtrace',
|
|
|
|
\ '\V 3 function GlobalFunction[1]',
|
|
|
|
\ '\V 2 <SNR>\.\*_CallAFunction[1]',
|
|
|
|
\ '\V 1 <SNR>\.\*_SourceAnotherFile[1]',
|
|
|
|
\ '\V->0 script ' .. getcwd() .. '/Xtest2.vim',
|
|
|
|
\ '\Vline 15: End of sourced file'],
|
|
|
|
\ #{match: 'pattern'})
|
|
|
|
|
|
|
|
|
|
|
|
call StopVimInTerminal(buf)
|
|
|
|
call delete('Xtest1.vim')
|
|
|
|
call delete('Xtest2.vim')
|
|
|
|
endfunc
|
|
|
|
|
2021-04-07 15:23:04 -07:00
|
|
|
func Test_debug_backtrace_level()
|
|
|
|
CheckRunVimInTerminal
|
|
|
|
CheckCWD
|
|
|
|
let lines =<< trim END
|
|
|
|
let s:file1_var = 'file1'
|
|
|
|
let g:global_var = 'global'
|
|
|
|
|
|
|
|
func s:File1Func( arg )
|
|
|
|
let s:file1_var .= a:arg
|
|
|
|
let local_var = s:file1_var .. ' test1'
|
|
|
|
let g:global_var .= local_var
|
|
|
|
source Xtest2.vim
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
call s:File1Func( 'arg1' )
|
|
|
|
END
|
|
|
|
call writefile(lines, 'Xtest1.vim')
|
|
|
|
|
|
|
|
let lines =<< trim END
|
|
|
|
let s:file2_var = 'file2'
|
|
|
|
|
|
|
|
func s:File2Func( arg )
|
|
|
|
let s:file2_var .= a:arg
|
|
|
|
let local_var = s:file2_var .. ' test2'
|
|
|
|
let g:global_var .= local_var
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
call s:File2Func( 'arg2' )
|
|
|
|
END
|
|
|
|
call writefile(lines, 'Xtest2.vim')
|
|
|
|
|
|
|
|
let file1 = getcwd() .. '/Xtest1.vim'
|
|
|
|
let file2 = getcwd() .. '/Xtest2.vim'
|
|
|
|
|
|
|
|
" set a breakpoint and source file1.vim
|
|
|
|
let buf = RunVimInTerminal(
|
|
|
|
\ '-c "breakadd file 1 Xtest1.vim" -S Xtest1.vim',
|
2022-08-21 18:48:11 -07:00
|
|
|
\ #{wait_for_ruler: 0})
|
2021-04-07 15:23:04 -07:00
|
|
|
|
|
|
|
call CheckDbgOutput(buf, [
|
|
|
|
\ 'Breakpoint in "' .. file1 .. '" line 1',
|
|
|
|
\ 'Entering Debug mode. Type "cont" to continue.',
|
|
|
|
\ 'command line..script ' .. file1,
|
|
|
|
\ 'line 1: let s:file1_var = ''file1'''
|
2022-08-21 18:48:11 -07:00
|
|
|
\ ], #{msec: 5000})
|
2021-04-07 15:23:04 -07:00
|
|
|
|
|
|
|
" step through the initial declarations
|
|
|
|
call RunDbgCmd(buf, 'step', [ 'line 2: let g:global_var = ''global''' ] )
|
|
|
|
call RunDbgCmd(buf, 'step', [ 'line 4: func s:File1Func( arg )' ] )
|
|
|
|
call RunDbgCmd(buf, 'echo s:file1_var', [ 'file1' ] )
|
|
|
|
call RunDbgCmd(buf, 'echo g:global_var', [ 'global' ] )
|
|
|
|
call RunDbgCmd(buf, 'echo global_var', [ 'global' ] )
|
|
|
|
|
|
|
|
" step in to the first function
|
|
|
|
call RunDbgCmd(buf, 'step', [ 'line 11: call s:File1Func( ''arg1'' )' ] )
|
|
|
|
call RunDbgCmd(buf, 'step', [ 'line 1: let s:file1_var .= a:arg' ] )
|
|
|
|
call RunDbgCmd(buf, 'echo a:arg', [ 'arg1' ] )
|
|
|
|
call RunDbgCmd(buf, 'echo s:file1_var', [ 'file1' ] )
|
|
|
|
call RunDbgCmd(buf, 'echo g:global_var', [ 'global' ] )
|
|
|
|
call RunDbgCmd(buf,
|
|
|
|
\'echo global_var',
|
|
|
|
\[ 'E121: Undefined variable: global_var' ] )
|
|
|
|
call RunDbgCmd(buf,
|
|
|
|
\'echo local_var',
|
|
|
|
\[ 'E121: Undefined variable: local_var' ] )
|
|
|
|
call RunDbgCmd(buf,
|
|
|
|
\'echo l:local_var',
|
|
|
|
\[ 'E121: Undefined variable: l:local_var' ] )
|
|
|
|
|
|
|
|
" backtrace up
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ '\V>backtrace',
|
|
|
|
\ '\V 2 command line',
|
|
|
|
\ '\V 1 script ' .. file1 .. '[11]',
|
|
|
|
\ '\V->0 function <SNR>\.\*_File1Func',
|
|
|
|
\ '\Vline 1: let s:file1_var .= a:arg',
|
|
|
|
\ ],
|
|
|
|
\ #{ match: 'pattern' } )
|
|
|
|
call RunDbgCmd(buf, 'up', [ '>up' ] )
|
|
|
|
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ '\V>backtrace',
|
|
|
|
\ '\V 2 command line',
|
|
|
|
\ '\V->1 script ' .. file1 .. '[11]',
|
|
|
|
\ '\V 0 function <SNR>\.\*_File1Func',
|
|
|
|
\ '\Vline 1: let s:file1_var .= a:arg',
|
|
|
|
\ ],
|
|
|
|
\ #{ match: 'pattern' } )
|
|
|
|
|
|
|
|
" Expression evaluation in the script frame (not the function frame)
|
|
|
|
" FIXME: Unexpected in this scope (a: should not be visibnle)
|
|
|
|
call RunDbgCmd(buf, 'echo a:arg', [ 'arg1' ] )
|
|
|
|
call RunDbgCmd(buf, 'echo s:file1_var', [ 'file1' ] )
|
|
|
|
call RunDbgCmd(buf, 'echo g:global_var', [ 'global' ] )
|
|
|
|
" FIXME: Unexpected in this scope (global should be found)
|
|
|
|
call RunDbgCmd(buf,
|
|
|
|
\'echo global_var',
|
|
|
|
\[ 'E121: Undefined variable: global_var' ] )
|
|
|
|
call RunDbgCmd(buf,
|
|
|
|
\'echo local_var',
|
|
|
|
\[ 'E121: Undefined variable: local_var' ] )
|
|
|
|
call RunDbgCmd(buf,
|
|
|
|
\'echo l:local_var',
|
|
|
|
\[ 'E121: Undefined variable: l:local_var' ] )
|
|
|
|
|
|
|
|
|
|
|
|
" step while backtraced jumps to the latest frame
|
|
|
|
call RunDbgCmd(buf, 'step', [
|
|
|
|
\ 'line 2: let local_var = s:file1_var .. '' test1''' ] )
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ '\V>backtrace',
|
|
|
|
\ '\V 2 command line',
|
|
|
|
\ '\V 1 script ' .. file1 .. '[11]',
|
|
|
|
\ '\V->0 function <SNR>\.\*_File1Func',
|
|
|
|
\ '\Vline 2: let local_var = s:file1_var .. '' test1''',
|
|
|
|
\ ],
|
|
|
|
\ #{ match: 'pattern' } )
|
|
|
|
|
|
|
|
call RunDbgCmd(buf, 'step', [ 'line 3: let g:global_var .= local_var' ] )
|
|
|
|
call RunDbgCmd(buf, 'echo local_var', [ 'file1arg1 test1' ] )
|
|
|
|
call RunDbgCmd(buf, 'echo l:local_var', [ 'file1arg1 test1' ] )
|
|
|
|
|
|
|
|
call RunDbgCmd(buf, 'step', [ 'line 4: source Xtest2.vim' ] )
|
|
|
|
call RunDbgCmd(buf, 'step', [ 'line 1: let s:file2_var = ''file2''' ] )
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ '\V>backtrace',
|
|
|
|
\ '\V 3 command line',
|
|
|
|
\ '\V 2 script ' .. file1 .. '[11]',
|
|
|
|
\ '\V 1 function <SNR>\.\*_File1Func[4]',
|
|
|
|
\ '\V->0 script ' .. file2,
|
|
|
|
\ '\Vline 1: let s:file2_var = ''file2''',
|
|
|
|
\ ],
|
|
|
|
\ #{ match: 'pattern' } )
|
|
|
|
|
|
|
|
" Expression evaluation in the script frame file2 (not the function frame)
|
|
|
|
call RunDbgCmd(buf, 'echo a:arg', [ 'E121: Undefined variable: a:arg' ] )
|
|
|
|
call RunDbgCmd(buf,
|
|
|
|
\ 'echo s:file1_var',
|
|
|
|
\ [ 'E121: Undefined variable: s:file1_var' ] )
|
|
|
|
call RunDbgCmd(buf, 'echo g:global_var', [ 'globalfile1arg1 test1' ] )
|
|
|
|
call RunDbgCmd(buf, 'echo global_var', [ 'globalfile1arg1 test1' ] )
|
|
|
|
call RunDbgCmd(buf,
|
|
|
|
\'echo local_var',
|
|
|
|
\[ 'E121: Undefined variable: local_var' ] )
|
|
|
|
call RunDbgCmd(buf,
|
|
|
|
\'echo l:local_var',
|
|
|
|
\[ 'E121: Undefined variable: l:local_var' ] )
|
|
|
|
call RunDbgCmd(buf,
|
|
|
|
\ 'echo s:file2_var',
|
|
|
|
\ [ 'E121: Undefined variable: s:file2_var' ] )
|
|
|
|
|
|
|
|
call RunDbgCmd(buf, 'step', [ 'line 3: func s:File2Func( arg )' ] )
|
|
|
|
call RunDbgCmd(buf, 'echo s:file2_var', [ 'file2' ] )
|
|
|
|
|
|
|
|
" Up the stack to the other script context
|
|
|
|
call RunDbgCmd(buf, 'up')
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ '\V>backtrace',
|
|
|
|
\ '\V 3 command line',
|
|
|
|
\ '\V 2 script ' .. file1 .. '[11]',
|
|
|
|
\ '\V->1 function <SNR>\.\*_File1Func[4]',
|
|
|
|
\ '\V 0 script ' .. file2,
|
|
|
|
\ '\Vline 3: func s:File2Func( arg )',
|
|
|
|
\ ],
|
|
|
|
\ #{ match: 'pattern' } )
|
|
|
|
" FIXME: Unexpected. Should see the a: and l: dicts from File1Func
|
|
|
|
call RunDbgCmd(buf, 'echo a:arg', [ 'E121: Undefined variable: a:arg' ] )
|
|
|
|
call RunDbgCmd(buf,
|
|
|
|
\ 'echo l:local_var',
|
|
|
|
\ [ 'E121: Undefined variable: l:local_var' ] )
|
|
|
|
|
|
|
|
call RunDbgCmd(buf, 'up')
|
|
|
|
call RunDbgCmd(buf, 'backtrace', [
|
|
|
|
\ '\V>backtrace',
|
|
|
|
\ '\V 3 command line',
|
|
|
|
\ '\V->2 script ' .. file1 .. '[11]',
|
|
|
|
\ '\V 1 function <SNR>\.\*_File1Func[4]',
|
|
|
|
\ '\V 0 script ' .. file2,
|
|
|
|
\ '\Vline 3: func s:File2Func( arg )',
|
|
|
|
\ ],
|
|
|
|
\ #{ match: 'pattern' } )
|
|
|
|
|
|
|
|
" FIXME: Unexpected (wrong script vars are used)
|
|
|
|
call RunDbgCmd(buf,
|
|
|
|
\ 'echo s:file1_var',
|
|
|
|
\ [ 'E121: Undefined variable: s:file1_var' ] )
|
|
|
|
call RunDbgCmd(buf, 'echo s:file2_var', [ 'file2' ] )
|
|
|
|
|
|
|
|
call StopVimInTerminal(buf)
|
|
|
|
call delete('Xtest1.vim')
|
|
|
|
call delete('Xtest2.vim')
|
|
|
|
endfunc
|
|
|
|
|
2020-08-12 15:23:36 -07:00
|
|
|
" Test for setting a breakpoint on a :endif where the :if condition is false
|
|
|
|
" and then quit the script. This should generate an interrupt.
|
|
|
|
func Test_breakpt_endif_intr()
|
|
|
|
func F()
|
|
|
|
let g:Xpath ..= 'a'
|
|
|
|
if v:false
|
|
|
|
let g:Xpath ..= 'b'
|
|
|
|
endif
|
|
|
|
invalid_command
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
let g:Xpath = ''
|
|
|
|
breakadd func 4 F
|
|
|
|
try
|
|
|
|
let caught_intr = 0
|
|
|
|
debuggreedy
|
|
|
|
call feedkeys(":call F()\<CR>quit\<CR>", "xt")
|
|
|
|
catch /^Vim:Interrupt$/
|
|
|
|
call assert_match('\.F, line 4', v:throwpoint)
|
|
|
|
let caught_intr = 1
|
|
|
|
endtry
|
|
|
|
0debuggreedy
|
|
|
|
call assert_equal(1, caught_intr)
|
|
|
|
call assert_equal('a', g:Xpath)
|
|
|
|
breakdel *
|
|
|
|
delfunc F
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
" Test for setting a breakpoint on a :else where the :if condition is false
|
|
|
|
" and then quit the script. This should generate an interrupt.
|
|
|
|
func Test_breakpt_else_intr()
|
|
|
|
func F()
|
|
|
|
let g:Xpath ..= 'a'
|
|
|
|
if v:false
|
|
|
|
let g:Xpath ..= 'b'
|
|
|
|
else
|
|
|
|
invalid_command
|
|
|
|
endif
|
|
|
|
invalid_command
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
let g:Xpath = ''
|
|
|
|
breakadd func 4 F
|
|
|
|
try
|
|
|
|
let caught_intr = 0
|
|
|
|
debuggreedy
|
|
|
|
call feedkeys(":call F()\<CR>quit\<CR>", "xt")
|
|
|
|
catch /^Vim:Interrupt$/
|
|
|
|
call assert_match('\.F, line 4', v:throwpoint)
|
|
|
|
let caught_intr = 1
|
|
|
|
endtry
|
|
|
|
0debuggreedy
|
|
|
|
call assert_equal(1, caught_intr)
|
|
|
|
call assert_equal('a', g:Xpath)
|
|
|
|
breakdel *
|
|
|
|
delfunc F
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
" Test for setting a breakpoint on a :endwhile where the :while condition is
|
|
|
|
" false and then quit the script. This should generate an interrupt.
|
|
|
|
func Test_breakpt_endwhile_intr()
|
|
|
|
func F()
|
|
|
|
let g:Xpath ..= 'a'
|
|
|
|
while v:false
|
|
|
|
let g:Xpath ..= 'b'
|
|
|
|
endwhile
|
|
|
|
invalid_command
|
|
|
|
endfunc
|
|
|
|
|
|
|
|
let g:Xpath = ''
|
|
|
|
breakadd func 4 F
|
|
|
|
try
|
|
|
|
let caught_intr = 0
|
|
|
|
debuggreedy
|
|
|
|
call feedkeys(":call F()\<CR>quit\<CR>", "xt")
|
|
|
|
catch /^Vim:Interrupt$/
|
|
|
|
call assert_match('\.F, line 4', v:throwpoint)
|
|
|
|
let caught_intr = 1
|
|
|
|
endtry
|
|
|
|
0debuggreedy
|
|
|
|
call assert_equal(1, caught_intr)
|
|
|
|
call assert_equal('a', g:Xpath)
|
|
|
|
breakdel *
|
|
|
|
delfunc F
|
|
|
|
endfunc
|
|
|
|
|
2022-12-02 23:22:18 -07:00
|
|
|
" Test for setting a breakpoint on a script local function
|
|
|
|
func Test_breakpt_scriptlocal_func()
|
|
|
|
let g:Xpath = ''
|
|
|
|
func s:G()
|
|
|
|
let g:Xpath ..= 'a'
|
2020-08-12 15:23:36 -07:00
|
|
|
endfunc
|
|
|
|
|
2022-12-02 23:22:18 -07:00
|
|
|
let funcname = expand("<SID>") .. "G"
|
|
|
|
exe "breakadd func 1 " .. funcname
|
|
|
|
debuggreedy
|
|
|
|
redir => output
|
|
|
|
call feedkeys(":call " .. funcname .. "()\<CR>c\<CR>", "xt")
|
|
|
|
redir END
|
2020-08-12 15:23:36 -07:00
|
|
|
0debuggreedy
|
2022-12-02 23:22:18 -07:00
|
|
|
call assert_match('Breakpoint in "' .. funcname .. '" line 1', output)
|
2020-08-12 15:23:36 -07:00
|
|
|
call assert_equal('a', g:Xpath)
|
|
|
|
breakdel *
|
2022-12-02 23:22:18 -07:00
|
|
|
exe "delfunc " .. funcname
|
2020-08-12 15:23:36 -07:00
|
|
|
endfunc
|
|
|
|
|
|
|
|
" vim: shiftwidth=2 sts=2 expandtab
|