aboutsummaryrefslogtreecommitdiff
path: root/src/nvim/testdir/test_profile.vim
diff options
context:
space:
mode:
Diffstat (limited to 'src/nvim/testdir/test_profile.vim')
-rw-r--r--src/nvim/testdir/test_profile.vim596
1 files changed, 0 insertions, 596 deletions
diff --git a/src/nvim/testdir/test_profile.vim b/src/nvim/testdir/test_profile.vim
deleted file mode 100644
index 9165f7bace..0000000000
--- a/src/nvim/testdir/test_profile.vim
+++ /dev/null
@@ -1,596 +0,0 @@
-" Test Vim profiler
-
-source check.vim
-CheckFeature profile
-
-source shared.vim
-source screendump.vim
-
-func Test_profile_func()
- let lines =<< trim [CODE]
- profile start Xprofile_func.log
- profile func Foo*
- func! Foo1()
- endfunc
- func! Foo2()
- let l:count = 100
- while l:count > 0
- let l:count = l:count - 1
- endwhile
- sleep 1m
- endfunc
- func! Foo3()
- endfunc
- func! Bar()
- endfunc
- call Foo1()
- call Foo1()
- profile pause
- call Foo1()
- profile continue
- call Foo2()
- call Foo3()
- call Bar()
- if !v:profiling
- delfunc Foo2
- endif
- delfunc Foo3
- [CODE]
-
- call writefile(lines, 'Xprofile_func.vim')
- call system(GetVimCommand()
- \ . ' -es --clean'
- \ . ' --cmd "so Xprofile_func.vim"'
- \ . ' --cmd "qall!"')
- call assert_equal(0, v:shell_error)
-
- let lines = readfile('Xprofile_func.log')
-
- " - Foo1() is called 3 times but should be reported as called twice
- " since one call is in between "profile pause" .. "profile continue".
- " - Foo2() should come before Foo1() since Foo1() does much more work.
- " - Foo3() is not reported because function is deleted.
- " - Unlike Foo3(), Foo2() should not be deleted since there is a check
- " for v:profiling.
- " - Bar() is not reported since it does not match "profile func Foo*".
- call assert_equal(31, len(lines))
-
- call assert_equal('FUNCTION Foo1()', lines[0])
- call assert_match('Defined:.*Xprofile_func.vim:3', lines[1])
- call assert_equal('Called 2 times', lines[2])
- call assert_match('^Total time:\s\+\d\+\.\d\+$', lines[3])
- call assert_match('^ Self time:\s\+\d\+\.\d\+$', lines[4])
- call assert_equal('', lines[5])
- call assert_equal('count total (s) self (s)', lines[6])
- call assert_equal('', lines[7])
- call assert_equal('FUNCTION Foo2()', lines[8])
- call assert_equal('Called 1 time', lines[10])
- call assert_match('^Total time:\s\+\d\+\.\d\+$', lines[11])
- call assert_match('^ Self time:\s\+\d\+\.\d\+$', lines[12])
- call assert_equal('', lines[13])
- call assert_equal('count total (s) self (s)', lines[14])
- call assert_match('^\s*1\s\+.*\slet l:count = 100$', lines[15])
- call assert_match('^\s*101\s\+.*\swhile l:count > 0$', lines[16])
- call assert_match('^\s*100\s\+.*\s let l:count = l:count - 1$', lines[17])
- call assert_match('^\s*101\s\+.*\sendwhile$', lines[18])
- call assert_match('^\s*1\s\+.\+sleep 1m$', lines[19])
- call assert_equal('', lines[20])
- call assert_equal('FUNCTIONS SORTED ON TOTAL TIME', lines[21])
- call assert_equal('count total (s) self (s) function', lines[22])
- call assert_match('^\s*1\s\+\d\+\.\d\+\s\+Foo2()$', lines[23])
- call assert_match('^\s*2\s\+\d\+\.\d\+\s\+Foo1()$', lines[24])
- call assert_equal('', lines[25])
- call assert_equal('FUNCTIONS SORTED ON SELF TIME', lines[26])
- call assert_equal('count total (s) self (s) function', lines[27])
- call assert_match('^\s*1\s\+\d\+\.\d\+\s\+Foo2()$', lines[28])
- call assert_match('^\s*2\s\+\d\+\.\d\+\s\+Foo1()$', lines[29])
- call assert_equal('', lines[30])
-
- call delete('Xprofile_func.vim')
- call delete('Xprofile_func.log')
-endfunc
-
-func Test_profile_func_with_ifelse()
- let lines =<< trim [CODE]
- func! Foo1()
- if 1
- let x = 0
- elseif 1
- let x = 1
- else
- let x = 2
- endif
- endfunc
- func! Foo2()
- if 0
- let x = 0
- elseif 1
- let x = 1
- else
- let x = 2
- endif
- endfunc
- func! Foo3()
- if 0
- let x = 0
- elseif 0
- let x = 1
- else
- let x = 2
- endif
- endfunc
- call Foo1()
- call Foo2()
- call Foo3()
- [CODE]
-
- call writefile(lines, 'Xprofile_func.vim')
- call system(GetVimCommand()
- \ . ' -es -i NONE --noplugin'
- \ . ' -c "profile start Xprofile_func.log"'
- \ . ' -c "profile func Foo*"'
- \ . ' -c "so Xprofile_func.vim"'
- \ . ' -c "qall!"')
- call assert_equal(0, v:shell_error)
-
- let lines = readfile('Xprofile_func.log')
-
- " - Foo1() should pass 'if' block.
- " - Foo2() should pass 'elseif' block.
- " - Foo3() should pass 'else' block.
- call assert_equal(57, len(lines))
-
- call assert_equal('FUNCTION Foo1()', lines[0])
- call assert_match('Defined:.*Xprofile_func.vim', lines[1])
- call assert_equal('Called 1 time', lines[2])
- call assert_match('^Total time:\s\+\d\+\.\d\+$', lines[3])
- call assert_match('^ Self time:\s\+\d\+\.\d\+$', lines[4])
- call assert_equal('', lines[5])
- call assert_equal('count total (s) self (s)', lines[6])
- call assert_match('^\s*1\s\+.*\sif 1$', lines[7])
- call assert_match('^\s*1\s\+.*\s let x = 0$', lines[8])
- call assert_match( '^\s\+elseif 1$', lines[9])
- call assert_match( '^\s\+let x = 1$', lines[10])
- call assert_match( '^\s\+else$', lines[11])
- call assert_match( '^\s\+let x = 2$', lines[12])
- call assert_match('^\s*1\s\+.*\sendif$', lines[13])
- call assert_equal('', lines[14])
- call assert_equal('FUNCTION Foo2()', lines[15])
- call assert_equal('Called 1 time', lines[17])
- call assert_match('^Total time:\s\+\d\+\.\d\+$', lines[18])
- call assert_match('^ Self time:\s\+\d\+\.\d\+$', lines[19])
- call assert_equal('', lines[20])
- call assert_equal('count total (s) self (s)', lines[21])
- call assert_match('^\s*1\s\+.*\sif 0$', lines[22])
- call assert_match( '^\s\+let x = 0$', lines[23])
- call assert_match('^\s*1\s\+.*\selseif 1$', lines[24])
- call assert_match('^\s*1\s\+.*\s let x = 1$', lines[25])
- call assert_match( '^\s\+else$', lines[26])
- call assert_match( '^\s\+let x = 2$', lines[27])
- call assert_match('^\s*1\s\+.*\sendif$', lines[28])
- call assert_equal('', lines[29])
- call assert_equal('FUNCTION Foo3()', lines[30])
- call assert_equal('Called 1 time', lines[32])
- call assert_match('^Total time:\s\+\d\+\.\d\+$', lines[33])
- call assert_match('^ Self time:\s\+\d\+\.\d\+$', lines[34])
- call assert_equal('', lines[35])
- call assert_equal('count total (s) self (s)', lines[36])
- call assert_match('^\s*1\s\+.*\sif 0$', lines[37])
- call assert_match( '^\s\+let x = 0$', lines[38])
- call assert_match('^\s*1\s\+.*\selseif 0$', lines[39])
- call assert_match( '^\s\+let x = 1$', lines[40])
- call assert_match('^\s*1\s\+.*\selse$', lines[41])
- call assert_match('^\s*1\s\+.*\s let x = 2$', lines[42])
- call assert_match('^\s*1\s\+.*\sendif$', lines[43])
- call assert_equal('', lines[44])
- call assert_equal('FUNCTIONS SORTED ON TOTAL TIME', lines[45])
- call assert_equal('count total (s) self (s) function', lines[46])
- call assert_match('^\s*1\s\+\d\+\.\d\+\s\+Foo.()$', lines[47])
- call assert_match('^\s*1\s\+\d\+\.\d\+\s\+Foo.()$', lines[48])
- call assert_match('^\s*1\s\+\d\+\.\d\+\s\+Foo.()$', lines[49])
- call assert_equal('', lines[50])
- call assert_equal('FUNCTIONS SORTED ON SELF TIME', lines[51])
- call assert_equal('count total (s) self (s) function', lines[52])
- call assert_match('^\s*1\s\+\d\+\.\d\+\s\+Foo.()$', lines[53])
- call assert_match('^\s*1\s\+\d\+\.\d\+\s\+Foo.()$', lines[54])
- call assert_match('^\s*1\s\+\d\+\.\d\+\s\+Foo.()$', lines[55])
- call assert_equal('', lines[56])
-
- call delete('Xprofile_func.vim')
- call delete('Xprofile_func.log')
-endfunc
-
-func Test_profile_func_with_trycatch()
- let lines =<< trim [CODE]
- func! Foo1()
- try
- let x = 0
- catch
- let x = 1
- finally
- let x = 2
- endtry
- endfunc
- func! Foo2()
- try
- throw 0
- catch
- let x = 1
- finally
- let x = 2
- endtry
- endfunc
- func! Foo3()
- try
- throw 0
- catch
- throw 1
- finally
- let x = 2
- endtry
- endfunc
- call Foo1()
- call Foo2()
- try
- call Foo3()
- catch
- endtry
- [CODE]
-
- call writefile(lines, 'Xprofile_func.vim')
- call system(GetVimCommand()
- \ . ' -es -i NONE --noplugin'
- \ . ' -c "profile start Xprofile_func.log"'
- \ . ' -c "profile func Foo*"'
- \ . ' -c "so Xprofile_func.vim"'
- \ . ' -c "qall!"')
- call assert_equal(0, v:shell_error)
-
- let lines = readfile('Xprofile_func.log')
-
- " - Foo1() should pass 'try' 'finally' blocks.
- " - Foo2() should pass 'catch' 'finally' blocks.
- " - Foo3() should not pass 'endtry'.
- call assert_equal(57, len(lines))
-
- call assert_equal('FUNCTION Foo1()', lines[0])
- call assert_match('Defined:.*Xprofile_func.vim', lines[1])
- call assert_equal('Called 1 time', lines[2])
- call assert_match('^Total time:\s\+\d\+\.\d\+$', lines[3])
- call assert_match('^ Self time:\s\+\d\+\.\d\+$', lines[4])
- call assert_equal('', lines[5])
- call assert_equal('count total (s) self (s)', lines[6])
- call assert_match('^\s*1\s\+.*\stry$', lines[7])
- call assert_match('^\s*1\s\+.*\s let x = 0$', lines[8])
- call assert_match( '^\s\+catch$', lines[9])
- call assert_match( '^\s\+let x = 1$', lines[10])
- call assert_match('^\s*1\s\+.*\sfinally$', lines[11])
- call assert_match('^\s*1\s\+.*\s let x = 2$', lines[12])
- call assert_match('^\s*1\s\+.*\sendtry$', lines[13])
- call assert_equal('', lines[14])
- call assert_equal('FUNCTION Foo2()', lines[15])
- call assert_equal('Called 1 time', lines[17])
- call assert_match('^Total time:\s\+\d\+\.\d\+$', lines[18])
- call assert_match('^ Self time:\s\+\d\+\.\d\+$', lines[19])
- call assert_equal('', lines[20])
- call assert_equal('count total (s) self (s)', lines[21])
- call assert_match('^\s*1\s\+.*\stry$', lines[22])
- call assert_match('^\s*1\s\+.*\s throw 0$', lines[23])
- call assert_match('^\s*1\s\+.*\scatch$', lines[24])
- call assert_match('^\s*1\s\+.*\s let x = 1$', lines[25])
- call assert_match('^\s*1\s\+.*\sfinally$', lines[26])
- call assert_match('^\s*1\s\+.*\s let x = 2$', lines[27])
- call assert_match('^\s*1\s\+.*\sendtry$', lines[28])
- call assert_equal('', lines[29])
- call assert_equal('FUNCTION Foo3()', lines[30])
- call assert_equal('Called 1 time', lines[32])
- call assert_match('^Total time:\s\+\d\+\.\d\+$', lines[33])
- call assert_match('^ Self time:\s\+\d\+\.\d\+$', lines[34])
- call assert_equal('', lines[35])
- call assert_equal('count total (s) self (s)', lines[36])
- call assert_match('^\s*1\s\+.*\stry$', lines[37])
- call assert_match('^\s*1\s\+.*\s throw 0$', lines[38])
- call assert_match('^\s*1\s\+.*\scatch$', lines[39])
- call assert_match('^\s*1\s\+.*\s throw 1$', lines[40])
- call assert_match('^\s*1\s\+.*\sfinally$', lines[41])
- call assert_match('^\s*1\s\+.*\s let x = 2$', lines[42])
- call assert_match( '^\s\+endtry$', lines[43])
- call assert_equal('', lines[44])
- call assert_equal('FUNCTIONS SORTED ON TOTAL TIME', lines[45])
- call assert_equal('count total (s) self (s) function', lines[46])
- call assert_match('^\s*1\s\+\d\+\.\d\+\s\+Foo.()$', lines[47])
- call assert_match('^\s*1\s\+\d\+\.\d\+\s\+Foo.()$', lines[48])
- call assert_match('^\s*1\s\+\d\+\.\d\+\s\+Foo.()$', lines[49])
- call assert_equal('', lines[50])
- call assert_equal('FUNCTIONS SORTED ON SELF TIME', lines[51])
- call assert_equal('count total (s) self (s) function', lines[52])
- call assert_match('^\s*1\s\+\d\+\.\d\+\s\+Foo.()$', lines[53])
- call assert_match('^\s*1\s\+\d\+\.\d\+\s\+Foo.()$', lines[54])
- call assert_match('^\s*1\s\+\d\+\.\d\+\s\+Foo.()$', lines[55])
- call assert_equal('', lines[56])
-
- call delete('Xprofile_func.vim')
- call delete('Xprofile_func.log')
-endfunc
-
-func Test_profile_file()
- let lines =<< trim [CODE]
- func! Foo()
- endfunc
- for i in range(10)
- " a comment
- call Foo()
- endfor
- call Foo()
- [CODE]
-
- call writefile(lines, 'Xprofile_file.vim')
- call system(GetVimCommandClean()
- \ . ' -es'
- \ . ' -c "profile start Xprofile_file.log"'
- \ . ' -c "profile file Xprofile_file.vim"'
- \ . ' -c "so Xprofile_file.vim"'
- \ . ' -c "so Xprofile_file.vim"'
- \ . ' -c "qall!"')
- call assert_equal(0, v:shell_error)
-
- let lines = readfile('Xprofile_file.log')
-
- call assert_equal(14, len(lines))
-
- call assert_match('^SCRIPT .*Xprofile_file.vim$', lines[0])
- call assert_equal('Sourced 2 times', lines[1])
- call assert_match('^Total time:\s\+\d\+\.\d\+$', lines[2])
- call assert_match('^ Self time:\s\+\d\+\.\d\+$', lines[3])
- call assert_equal('', lines[4])
- call assert_equal('count total (s) self (s)', lines[5])
- call assert_match(' 2 0.\d\+ func! Foo()', lines[6])
- call assert_equal(' endfunc', lines[7])
- " Loop iterates 10 times. Since script runs twice, body executes 20 times.
- " First line of loop executes one more time than body to detect end of loop.
- call assert_match('^\s*22\s\+\d\+\.\d\+\s\+for i in range(10)$', lines[8])
- call assert_equal(' " a comment', lines[9])
- " if self and total are equal we only get one number
- call assert_match('^\s*20\s\+\(\d\+\.\d\+\s\+\)\=\d\+\.\d\+\s\+call Foo()$', lines[10])
- call assert_match('^\s*22\s\+\d\+\.\d\+\s\+endfor$', lines[11])
- " if self and total are equal we only get one number
- call assert_match('^\s*2\s\+\(\d\+\.\d\+\s\+\)\=\d\+\.\d\+\s\+call Foo()$', lines[12])
- call assert_equal('', lines[13])
-
- call delete('Xprofile_file.vim')
- call delete('Xprofile_file.log')
-endfunc
-
-func Test_profile_file_with_cont()
- let lines = [
- \ 'echo "hello',
- \ ' \ world"',
- \ 'echo "foo ',
- \ ' \bar"',
- \ ]
-
- call writefile(lines, 'Xprofile_file.vim')
- call system(GetVimCommandClean()
- \ . ' -es'
- \ . ' -c "profile start Xprofile_file.log"'
- \ . ' -c "profile file Xprofile_file.vim"'
- \ . ' -c "so Xprofile_file.vim"'
- \ . ' -c "qall!"')
- call assert_equal(0, v:shell_error)
-
- let lines = readfile('Xprofile_file.log')
- call assert_equal(11, len(lines))
-
- call assert_match('^SCRIPT .*Xprofile_file.vim$', lines[0])
- call assert_equal('Sourced 1 time', lines[1])
- call assert_match('^Total time:\s\+\d\+\.\d\+$', lines[2])
- call assert_match('^ Self time:\s\+\d\+\.\d\+$', lines[3])
- call assert_equal('', lines[4])
- call assert_equal('count total (s) self (s)', lines[5])
- call assert_match(' 1 0.\d\+ echo "hello', lines[6])
- call assert_equal(' \ world"', lines[7])
- call assert_match(' 1 0.\d\+ echo "foo ', lines[8])
- call assert_equal(' \bar"', lines[9])
- call assert_equal('', lines[10])
-
- call delete('Xprofile_file.vim')
- call delete('Xprofile_file.log')
-endfunc
-
-func Test_profile_completion()
- call feedkeys(":profile \<C-A>\<C-B>\"\<CR>", 'tx')
- call assert_equal('"profile continue dump file func pause start stop', @:)
-
- call feedkeys(":profile start test_prof\<C-A>\<C-B>\"\<CR>", 'tx')
- call assert_match('^"profile start.* test_profile\.vim', @:)
-
- call feedkeys(":profile file test_prof\<Tab>\<C-B>\"\<CR>", 'tx')
- call assert_match('"profile file test_profile\.vim', @:)
- call feedkeys(":profile file test_prof\<Tab>\<C-B>\"\<CR>", 'tx')
- call assert_match('"profile file test_profile\.vim', @:)
- call feedkeys(":profile file test_prof \<Tab>\<C-B>\"\<CR>", 'tx')
- call assert_match('"profile file test_prof ', @:)
- call feedkeys(":profile file X1B2C3\<Tab>\<C-B>\"\<CR>", 'tx')
- call assert_match('"profile file X1B2C3', @:)
-
- func Xprof_test()
- endfunc
- call feedkeys(":profile func Xprof\<Tab>\<C-B>\"\<CR>", 'tx')
- call assert_equal('"profile func Xprof_test', @:)
- call feedkeys(":profile func Xprof\<Tab>\<C-B>\"\<CR>", 'tx')
- call assert_equal('"profile func Xprof_test', @:)
- call feedkeys(":profile func Xprof \<Tab>\<C-B>\"\<CR>", 'tx')
- call assert_equal('"profile func Xprof ', @:)
- call feedkeys(":profile func X1B2C3\<Tab>\<C-B>\"\<CR>", 'tx')
- call assert_equal('"profile func X1B2C3', @:)
-
- call feedkeys(":profdel \<C-A>\<C-B>\"\<CR>", 'tx')
- call assert_equal('"profdel file func', @:)
- call feedkeys(":profdel fu\<Tab>\<C-B>\"\<CR>", 'tx')
- call assert_equal('"profdel func', @:)
- call feedkeys(":profdel he\<Tab>\<C-B>\"\<CR>", 'tx')
- call assert_equal('"profdel he', @:)
- call feedkeys(":profdel here \<Tab>\<C-B>\"\<CR>", 'tx')
- call assert_equal('"profdel here ', @:)
- call feedkeys(":profdel file test_prof\<Tab>\<C-B>\"\<CR>", 'tx')
- call assert_equal('"profdel file test_profile.vim', @:)
- call feedkeys(":profdel file X1B2C3\<Tab>\<C-B>\"\<CR>", 'tx')
- call assert_equal('"profdel file X1B2C3', @:)
- call feedkeys(":profdel func Xprof\<Tab>\<C-B>\"\<CR>", 'tx')
- call assert_equal('"profdel func Xprof_test', @:)
- call feedkeys(":profdel func Xprof_test \<Tab>\<C-B>\"\<CR>", 'tx')
- call assert_equal('"profdel func Xprof_test ', @:)
- call feedkeys(":profdel func X1B2C3\<Tab>\<C-B>\"\<CR>", 'tx')
- call assert_equal('"profdel func X1B2C3', @:)
-
- delfunc Xprof_test
-endfunc
-
-func Test_profile_errors()
- call assert_fails("profile func Foo", 'E750:')
- call assert_fails("profile pause", 'E750:')
- call assert_fails("profile continue", 'E750:')
-endfunc
-
-func Test_profile_truncate_mbyte()
- if &enc !=# 'utf-8'
- return
- endif
-
- let lines = [
- \ 'scriptencoding utf-8',
- \ 'func! Foo()',
- \ ' return [',
- \ ' \ "' . join(map(range(0x4E00, 0x4E00 + 340), 'nr2char(v:val)'), '') . '",',
- \ ' \ "' . join(map(range(0x4F00, 0x4F00 + 340), 'nr2char(v:val)'), '') . '",',
- \ ' \ ]',
- \ 'endfunc',
- \ 'call Foo()',
- \ ]
-
- call writefile(lines, 'Xprofile_file.vim')
- call system(GetVimCommandClean()
- \ . ' -es --cmd "set enc=utf-8"'
- \ . ' -c "profile start Xprofile_file.log"'
- \ . ' -c "profile file Xprofile_file.vim"'
- \ . ' -c "so Xprofile_file.vim"'
- \ . ' -c "qall!"')
- call assert_equal(0, v:shell_error)
-
- split Xprofile_file.log
- if &fenc != ''
- call assert_equal('utf-8', &fenc)
- endif
- /func! Foo()
- let lnum = line('.')
- call assert_match('^\s*return \[$', getline(lnum + 1))
- call assert_match("\u4F52$", getline(lnum + 2))
- call assert_match("\u5052$", getline(lnum + 3))
- call assert_match('^\s*\\ \]$', getline(lnum + 4))
- bwipe!
-
- call delete('Xprofile_file.vim')
- call delete('Xprofile_file.log')
-endfunc
-
-func Test_profdel_func()
- let lines =<< trim [CODE]
- profile start Xprofile_file.log
- func! Foo1()
- endfunc
- func! Foo2()
- endfunc
- func! Foo3()
- endfunc
-
- profile func Foo1
- profile func Foo2
- call Foo1()
- call Foo2()
-
- profile func Foo3
- profdel func Foo2
- profdel func Foo3
- call Foo1()
- call Foo2()
- call Foo3()
- [CODE]
- call writefile(lines, 'Xprofile_file.vim')
- call system(GetVimCommandClean() . ' -es --cmd "so Xprofile_file.vim" --cmd q')
- call assert_equal(0, v:shell_error)
-
- let lines = readfile('Xprofile_file.log')
- call assert_equal(26, len(lines))
-
- " Check that:
- " - Foo1() is called twice (profdel not invoked)
- " - Foo2() is called once (profdel invoked after it was called)
- " - Foo3() is not called (profdel invoked before it was called)
- call assert_equal('FUNCTION Foo1()', lines[0])
- call assert_match('Defined:.*Xprofile_file.vim', lines[1])
- call assert_equal('Called 2 times', lines[2])
- call assert_equal('FUNCTION Foo2()', lines[8])
- call assert_equal('Called 1 time', lines[10])
- call assert_equal('FUNCTIONS SORTED ON TOTAL TIME', lines[16])
- call assert_equal('FUNCTIONS SORTED ON SELF TIME', lines[21])
-
- call delete('Xprofile_file.vim')
- call delete('Xprofile_file.log')
-endfunc
-
-func Test_profdel_star()
- " Foo() is invoked once before and once after 'profdel *'.
- " So profiling should report it only once.
- let lines =<< trim [CODE]
- profile start Xprofile_file.log
- func! Foo()
- endfunc
- profile func Foo
- call Foo()
- profdel *
- call Foo()
- [CODE]
- call writefile(lines, 'Xprofile_file.vim')
- call system(GetVimCommandClean() . ' -es -c "so Xprofile_file.vim" -c q')
- call assert_equal(0, v:shell_error)
-
- let lines = readfile('Xprofile_file.log')
- call assert_equal(16, len(lines))
-
- call assert_equal('FUNCTION Foo()', lines[0])
- call assert_match('Defined:.*Xprofile_file.vim', lines[1])
- call assert_equal('Called 1 time', lines[2])
- call assert_equal('FUNCTIONS SORTED ON TOTAL TIME', lines[8])
- call assert_equal('FUNCTIONS SORTED ON SELF TIME', lines[12])
-
- call delete('Xprofile_file.vim')
- call delete('Xprofile_file.log')
-endfunc
-
-" When typing the function it won't have a script ID, test that this works.
-func Test_profile_typed_func()
- if !CanRunVimInTerminal()
- throw 'Skipped: cannot run Vim in a terminal window'
- endif
-
- let lines =<< trim END
- profile start XprofileTypedFunc
- END
- call writefile(lines, 'XtestProfile')
- let buf = RunVimInTerminal('-S XtestProfile', #{})
-
- call term_sendkeys(buf, ":func DoSomething()\<CR>"
- \ .. "echo 'hello'\<CR>"
- \ .. "endfunc\<CR>")
- call term_sendkeys(buf, ":profile func DoSomething\<CR>")
- call term_sendkeys(buf, ":call DoSomething()\<CR>")
- call term_wait(buf, 200)
- call StopVimInTerminal(buf)
- let lines = readfile('XprofileTypedFunc')
- call assert_equal("FUNCTION DoSomething()", lines[0])
- call assert_equal("Called 1 time", lines[1])
-
- " clean up
- call delete('XprofileTypedFunc')
- call delete('XtestProfile')
-endfunc