vim: src/testdir/test_vim9_disassemble.vim annotate

annotate src/testdir/test_vim9_disassemble.vim @ 19912:d4fa9db88d16 v8.2.0512

patch 8.2.0512: Vim9: no optional arguments in func type Commit: https://github.com/vim/vim/commit/5deeb3f1f9db4eabd36e99cbf857fe376eb37e10 Author: Bram Moolenaar <Bram@vim.org> Date: Sun Apr 5 17:08:17 2020 +0200 patch 8.2.0512: Vim9: no optional arguments in func type Problem: Vim9: no optional arguments in func type. Solution: Check for question mark after type. Find function reference without function().

author	Bram Moolenaar <Bram@vim.org>
date	Sun, 05 Apr 2020 17:15:25 +0200
parents	bd4f91762d0f
children	e9af5a09a55b

rev	line source
19330 9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	1 " Test the :disassemble command, and compilation as a side effect
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	2
19572 6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	3 source check.vim
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	4
19330 9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	5 func NotCompiled()
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	6 echo "not"
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	7 endfunc
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	8
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	9 let s:scriptvar = 4
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	10 let g:globalvar = 'g'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	11
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	12 def s:ScriptFuncLoad(arg: string)
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	13 let local = 1
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	14 buffers
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	15 echo arg
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	16 echo local
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	17 echo v:version
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	18 echo s:scriptvar
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	19 echo g:globalvar
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	20 echo &tabstop
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	21 echo $ENVVAR
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	22 echo @z
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	23 enddef
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	24
19342 8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	25 def Test_disassemble_load()
19330 9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	26 assert_fails('disass NoFunc', 'E1061:')
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	27 assert_fails('disass NotCompiled', 'E1062:')
19390 e4b326c9424a patch 8.2.0253: crash when using :disassamble without argument Bram Moolenaar <Bram@vim.org> parents: 19342 diff changeset	28 assert_fails('disass', 'E471:')
e4b326c9424a patch 8.2.0253: crash when using :disassamble without argument Bram Moolenaar <Bram@vim.org> parents: 19342 diff changeset	29 assert_fails('disass [', 'E475:')
e4b326c9424a patch 8.2.0253: crash when using :disassamble without argument Bram Moolenaar <Bram@vim.org> parents: 19342 diff changeset	30 assert_fails('disass 234', 'E475:')
e4b326c9424a patch 8.2.0253: crash when using :disassamble without argument Bram Moolenaar <Bram@vim.org> parents: 19342 diff changeset	31 assert_fails('disass <XX>foo', 'E475:')
19330 9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	32
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	33 let res = execute('disass s:ScriptFuncLoad')
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	34 assert_match('<SNR>\d_ScriptFuncLoad.'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	35 \ .. 'buffers.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	36 \ .. ' EXEC \+buffers.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	37 \ .. ' LOAD arg\[-1\].*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	38 \ .. ' LOAD $0.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	39 \ .. ' LOADV v:version.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	40 \ .. ' LOADS s:scriptvar from .test_vim9_disassemble.vim.'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	41 \ .. ' LOADG g:globalvar.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	42 \ .. ' LOADENV $ENVVAR.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	43 \ .. ' LOADREG @z.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	44 \, res)
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	45 enddef
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	46
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	47 def s:ScriptFuncPush()
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	48 let localbool = true
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	49 let localspec = v:none
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	50 let localblob = 0z1234
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	51 if has('float')
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	52 let localfloat = 1.234
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	53 endif
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	54 enddef
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	55
19342 8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	56 def Test_disassemble_push()
19330 9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	57 let res = execute('disass s:ScriptFuncPush')
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	58 assert_match('<SNR>\d_ScriptFuncPush.'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	59 \ .. 'localbool = true.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	60 \ .. ' PUSH v:true.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	61 \ .. 'localspec = v:none.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	62 \ .. ' PUSH v:none.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	63 \ .. 'localblob = 0z1234.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	64 \ .. ' PUSHBLOB 0z1234.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	65 \, res)
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	66 if has('float')
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	67 assert_match('<SNR>\d_ScriptFuncPush.'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	68 \ .. 'localfloat = 1.234.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	69 \ .. ' PUSHF 1.234.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	70 \, res)
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	71 endif
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	72 enddef
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	73
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	74 def s:ScriptFuncStore()
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	75 let localnr = 1
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	76 localnr = 2
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	77 let localstr = 'abc'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	78 localstr = 'xyz'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	79 v:char = 'abc'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	80 s:scriptvar = 'sv'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	81 g:globalvar = 'gv'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	82 &tabstop = 8
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	83 $ENVVAR = 'ev'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	84 @z = 'rv'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	85 enddef
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	86
19342 8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	87 def Test_disassemble_store()
19330 9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	88 let res = execute('disass s:ScriptFuncStore')
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	89 assert_match('<SNR>\d_ScriptFuncStore.'
19912 d4fa9db88d16 patch 8.2.0512: Vim9: no optional arguments in func type Bram Moolenaar <Bram@vim.org> parents: 19904 diff changeset	90 \ .. 'let localnr = 1.*'
19330 9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	91 \ .. 'localnr = 2.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	92 \ .. ' STORE 2 in $0.*'
19912 d4fa9db88d16 patch 8.2.0512: Vim9: no optional arguments in func type Bram Moolenaar <Bram@vim.org> parents: 19904 diff changeset	93 \ .. 'let localstr = ''abc''.*'
19330 9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	94 \ .. 'localstr = ''xyz''.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	95 \ .. ' STORE $1.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	96 \ .. 'v:char = ''abc''.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	97 \ .. 'STOREV v:char.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	98 \ .. 's:scriptvar = ''sv''.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	99 \ .. ' STORES s:scriptvar in .test_vim9_disassemble.vim.'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	100 \ .. 'g:globalvar = ''gv''.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	101 \ .. ' STOREG g:globalvar.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	102 \ .. '&tabstop = 8.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	103 \ .. ' STOREOPT &tabstop.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	104 \ .. '$ENVVAR = ''ev''.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	105 \ .. ' STOREENV $ENVVAR.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	106 \ .. '@z = ''rv''.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	107 \ .. ' STOREREG @z.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	108 \, res)
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	109 enddef
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	110
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	111 def s:ScriptFuncTry()
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	112 try
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	113 echo 'yes'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	114 catch /fail/
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	115 echo 'no'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	116 finally
19338 ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	117 throw 'end'
19330 9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	118 endtry
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	119 enddef
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	120
19342 8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	121 def Test_disassemble_try()
19330 9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	122 let res = execute('disass s:ScriptFuncTry')
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	123 assert_match('<SNR>\d_ScriptFuncTry.'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	124 \ .. 'try.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	125 \ .. 'TRY catch -> \d\+, finally -> \d\+.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	126 \ .. 'catch /fail/.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	127 \ .. ' JUMP -> \d\+.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	128 \ .. ' PUSH v:exception.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	129 \ .. ' PUSHS "fail".*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	130 \ .. ' COMPARESTRING =\~.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	131 \ .. ' JUMP_IF_FALSE -> \d\+.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	132 \ .. ' CATCH.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	133 \ .. 'finally.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	134 \ .. ' PUSHS "end".*'
19338 ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	135 \ .. ' THROW.*'
19330 9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	136 \ .. 'endtry.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	137 \ .. ' ENDTRY.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	138 \, res)
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	139 enddef
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	140
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	141 def s:ScriptFuncNew()
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	142 let ll = [1, "two", 333]
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	143 let dd = #{one: 1, two: "val"}
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	144 enddef
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	145
19342 8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	146 def Test_disassemble_new()
19330 9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	147 let res = execute('disass s:ScriptFuncNew')
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	148 assert_match('<SNR>\d_ScriptFuncNew.'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	149 \ .. 'let ll = \[1, "two", 333].*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	150 \ .. 'PUSHNR 1.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	151 \ .. 'PUSHS "two".*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	152 \ .. 'PUSHNR 333.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	153 \ .. 'NEWLIST size 3.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	154 \ .. 'let dd = #{one: 1, two: "val"}.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	155 \ .. 'PUSHS "one".*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	156 \ .. 'PUSHNR 1.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	157 \ .. 'PUSHS "two".*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	158 \ .. 'PUSHS "val".*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	159 \ .. 'NEWDICT size 2.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	160 \, res)
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	161 enddef
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	162
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	163 def FuncWithArg(arg)
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	164 echo arg
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	165 enddef
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	166
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	167 func UserFunc()
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	168 echo 'nothing'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	169 endfunc
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	170
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	171 func UserFuncWithArg(arg)
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	172 echo a:arg
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	173 endfunc
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	174
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	175 def s:ScriptFuncCall(): string
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	176 changenr()
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	177 char2nr("abc")
19342 8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	178 Test_disassemble_new()
19330 9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	179 FuncWithArg(343)
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	180 ScriptFuncNew()
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	181 s:ScriptFuncNew()
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	182 UserFunc()
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	183 UserFuncWithArg("foo")
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	184 let FuncRef = function("UserFunc")
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	185 FuncRef()
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	186 let FuncRefWithArg = function("UserFuncWithArg")
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	187 FuncRefWithArg("bar")
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	188 return "yes"
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	189 enddef
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	190
19342 8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	191 def Test_disassemble_call()
19330 9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	192 let res = execute('disass s:ScriptFuncCall')
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	193 assert_match('<SNR>\d\+_ScriptFuncCall.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	194 \ .. 'changenr().*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	195 \ .. ' BCALL changenr(argc 0).*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	196 \ .. 'char2nr("abc").*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	197 \ .. ' PUSHS "abc".*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	198 \ .. ' BCALL char2nr(argc 1).*'
19342 8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	199 \ .. 'Test_disassemble_new().*'
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	200 \ .. ' DCALL Test_disassemble_new(argc 0).*'
19330 9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	201 \ .. 'FuncWithArg(343).*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	202 \ .. ' PUSHNR 343.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	203 \ .. ' DCALL FuncWithArg(argc 1).*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	204 \ .. 'ScriptFuncNew().*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	205 \ .. ' DCALL <SNR>\d\+_ScriptFuncNew(argc 0).*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	206 \ .. 's:ScriptFuncNew().*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	207 \ .. ' DCALL <SNR>\d\+_ScriptFuncNew(argc 0).*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	208 \ .. 'UserFunc().*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	209 \ .. ' UCALL UserFunc(argc 0).*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	210 \ .. 'UserFuncWithArg("foo").*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	211 \ .. ' PUSHS "foo".*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	212 \ .. ' UCALL UserFuncWithArg(argc 1).*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	213 \ .. 'let FuncRef = function("UserFunc").*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	214 \ .. 'FuncRef().*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	215 \ .. ' LOAD $\d.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	216 \ .. ' PCALL (argc 0).*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	217 \ .. 'let FuncRefWithArg = function("UserFuncWithArg").*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	218 \ .. 'FuncRefWithArg("bar").*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	219 \ .. ' PUSHS "bar".*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	220 \ .. ' LOAD $\d.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	221 \ .. ' PCALL (argc 1).*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	222 \ .. 'return "yes".*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	223 \ .. ' PUSHS "yes".*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	224 \ .. ' RETURN.*'
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	225 \, res)
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	226 enddef
9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	227
19483 0d3dcb4476ba patch 8.2.0299: Vim9: ISN_STORE with argument not tested Bram Moolenaar <Bram@vim.org> parents: 19439 diff changeset	228
19862 846fbbacce3a patch 8.2.0487: Vim9: compiling not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19703 diff changeset	229 def EchoArg(arg: string): string
846fbbacce3a patch 8.2.0487: Vim9: compiling not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19703 diff changeset	230 return arg
846fbbacce3a patch 8.2.0487: Vim9: compiling not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19703 diff changeset	231 enddef
846fbbacce3a patch 8.2.0487: Vim9: compiling not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19703 diff changeset	232 def RefThis(): func
846fbbacce3a patch 8.2.0487: Vim9: compiling not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19703 diff changeset	233 return function('EchoArg')
846fbbacce3a patch 8.2.0487: Vim9: compiling not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19703 diff changeset	234 enddef
846fbbacce3a patch 8.2.0487: Vim9: compiling not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19703 diff changeset	235 def s:ScriptPCall()
846fbbacce3a patch 8.2.0487: Vim9: compiling not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19703 diff changeset	236 RefThis()("text")
846fbbacce3a patch 8.2.0487: Vim9: compiling not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19703 diff changeset	237 enddef
846fbbacce3a patch 8.2.0487: Vim9: compiling not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19703 diff changeset	238
846fbbacce3a patch 8.2.0487: Vim9: compiling not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19703 diff changeset	239 def Test_disassemble_pcall()
846fbbacce3a patch 8.2.0487: Vim9: compiling not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19703 diff changeset	240 let res = execute('disass s:ScriptPCall')
846fbbacce3a patch 8.2.0487: Vim9: compiling not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19703 diff changeset	241 assert_match('<SNR>\d\+_ScriptPCall.*'
846fbbacce3a patch 8.2.0487: Vim9: compiling not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19703 diff changeset	242 \ .. 'RefThis()("text").*'
846fbbacce3a patch 8.2.0487: Vim9: compiling not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19703 diff changeset	243 \ .. '\d DCALL RefThis(argc 0).*'
846fbbacce3a patch 8.2.0487: Vim9: compiling not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19703 diff changeset	244 \ .. '\d PUSHS "text".*'
846fbbacce3a patch 8.2.0487: Vim9: compiling not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19703 diff changeset	245 \ .. '\d PCALL top (argc 1).*'
846fbbacce3a patch 8.2.0487: Vim9: compiling not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19703 diff changeset	246 \ .. '\d PCALL end.*'
846fbbacce3a patch 8.2.0487: Vim9: compiling not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19703 diff changeset	247 \ .. '\d DROP.*'
846fbbacce3a patch 8.2.0487: Vim9: compiling not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19703 diff changeset	248 \ .. '\d PUSHNR 0.*'
846fbbacce3a patch 8.2.0487: Vim9: compiling not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19703 diff changeset	249 \ .. '\d RETURN.*'
846fbbacce3a patch 8.2.0487: Vim9: compiling not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19703 diff changeset	250 \, res)
846fbbacce3a patch 8.2.0487: Vim9: compiling not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19703 diff changeset	251 enddef
846fbbacce3a patch 8.2.0487: Vim9: compiling not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19703 diff changeset	252
846fbbacce3a patch 8.2.0487: Vim9: compiling not sufficiently tested Bram Moolenaar <Bram@vim.org> parents: 19703 diff changeset	253
19532 b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	254 def FuncWithForwardCall(): string
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	255 return DefinedLater("yes")
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	256 enddef
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	257
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	258 def DefinedLater(arg: string): string
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	259 return arg
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	260 enddef
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	261
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	262 def Test_disassemble_update_instr()
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	263 let res = execute('disass FuncWithForwardCall')
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	264 assert_match('FuncWithForwardCall.*'
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	265 \ .. 'return DefinedLater("yes").*'
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	266 \ .. '\d PUSHS "yes".*'
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	267 \ .. '\d UCALL DefinedLater(argc 1).*'
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	268 \ .. '\d CHECKTYPE string stack\[-1].*'
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	269 \ .. '\d RETURN.*'
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	270 \, res)
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	271
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	272 " Calling the function will change UCALL into the faster DCALL
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	273 assert_equal('yes', FuncWithForwardCall())
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	274
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	275 res = execute('disass FuncWithForwardCall')
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	276 assert_match('FuncWithForwardCall.*'
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	277 \ .. 'return DefinedLater("yes").*'
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	278 \ .. '\d PUSHS "yes".*'
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	279 \ .. '\d DCALL DefinedLater(argc 1).*'
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	280 \ .. '\d CHECKTYPE string stack\[-1].*'
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	281 \ .. '\d RETURN.*'
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	282 \, res)
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	283 enddef
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	284
b8f778dda1a1 patch 8.2.0323: Vim9: calling a function that is defined later is slow Bram Moolenaar <Bram@vim.org> parents: 19528 diff changeset	285
19483 0d3dcb4476ba patch 8.2.0299: Vim9: ISN_STORE with argument not tested Bram Moolenaar <Bram@vim.org> parents: 19439 diff changeset	286 def FuncWithDefault(arg: string = 'default'): string
0d3dcb4476ba patch 8.2.0299: Vim9: ISN_STORE with argument not tested Bram Moolenaar <Bram@vim.org> parents: 19439 diff changeset	287 return arg
0d3dcb4476ba patch 8.2.0299: Vim9: ISN_STORE with argument not tested Bram Moolenaar <Bram@vim.org> parents: 19439 diff changeset	288 enddef
0d3dcb4476ba patch 8.2.0299: Vim9: ISN_STORE with argument not tested Bram Moolenaar <Bram@vim.org> parents: 19439 diff changeset	289
0d3dcb4476ba patch 8.2.0299: Vim9: ISN_STORE with argument not tested Bram Moolenaar <Bram@vim.org> parents: 19439 diff changeset	290 def Test_disassemble_call_default()
0d3dcb4476ba patch 8.2.0299: Vim9: ISN_STORE with argument not tested Bram Moolenaar <Bram@vim.org> parents: 19439 diff changeset	291 let res = execute('disass FuncWithDefault')
0d3dcb4476ba patch 8.2.0299: Vim9: ISN_STORE with argument not tested Bram Moolenaar <Bram@vim.org> parents: 19439 diff changeset	292 assert_match('FuncWithDefault.*'
0d3dcb4476ba patch 8.2.0299: Vim9: ISN_STORE with argument not tested Bram Moolenaar <Bram@vim.org> parents: 19439 diff changeset	293 \ .. '\d PUSHS "default".*'
0d3dcb4476ba patch 8.2.0299: Vim9: ISN_STORE with argument not tested Bram Moolenaar <Bram@vim.org> parents: 19439 diff changeset	294 \ .. '\d STORE arg\[-1].*'
0d3dcb4476ba patch 8.2.0299: Vim9: ISN_STORE with argument not tested Bram Moolenaar <Bram@vim.org> parents: 19439 diff changeset	295 \ .. 'return arg.*'
0d3dcb4476ba patch 8.2.0299: Vim9: ISN_STORE with argument not tested Bram Moolenaar <Bram@vim.org> parents: 19439 diff changeset	296 \ .. '\d LOAD arg\[-1].*'
0d3dcb4476ba patch 8.2.0299: Vim9: ISN_STORE with argument not tested Bram Moolenaar <Bram@vim.org> parents: 19439 diff changeset	297 \ .. '\d RETURN.*'
0d3dcb4476ba patch 8.2.0299: Vim9: ISN_STORE with argument not tested Bram Moolenaar <Bram@vim.org> parents: 19439 diff changeset	298 \, res)
0d3dcb4476ba patch 8.2.0299: Vim9: ISN_STORE with argument not tested Bram Moolenaar <Bram@vim.org> parents: 19439 diff changeset	299 enddef
0d3dcb4476ba patch 8.2.0299: Vim9: ISN_STORE with argument not tested Bram Moolenaar <Bram@vim.org> parents: 19439 diff changeset	300
0d3dcb4476ba patch 8.2.0299: Vim9: ISN_STORE with argument not tested Bram Moolenaar <Bram@vim.org> parents: 19439 diff changeset	301
19332 d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	302 def HasEval()
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	303 if has("eval")
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	304 echo "yes"
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	305 else
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	306 echo "no"
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	307 endif
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	308 enddef
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	309
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	310 def HasNothing()
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	311 if has("nothing")
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	312 echo "yes"
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	313 else
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	314 echo "no"
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	315 endif
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	316 enddef
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	317
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	318 def HasSomething()
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	319 if has("nothing")
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	320 echo "nothing"
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	321 elseif has("something")
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	322 echo "something"
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	323 elseif has("eval")
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	324 echo "eval"
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	325 elseif has("less")
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	326 echo "less"
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	327 endif
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	328 enddef
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	329
19342 8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	330 def Test_disassemble_const_expr()
19332 d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	331 assert_equal("\nyes", execute('call HasEval()'))
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	332 let instr = execute('disassemble HasEval')
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	333 assert_match('HasEval.*'
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	334 \ .. 'if has("eval").*'
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	335 \ .. ' PUSHS "yes".*'
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	336 \, instr)
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	337 assert_notmatch('JUMP', instr)
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	338
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	339 assert_equal("\nno", execute('call HasNothing()'))
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	340 instr = execute('disassemble HasNothing')
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	341 assert_match('HasNothing.*'
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	342 \ .. 'if has("nothing").*'
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	343 \ .. 'else.*'
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	344 \ .. ' PUSHS "no".*'
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	345 \, instr)
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	346 assert_notmatch('PUSHS "yes"', instr)
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	347 assert_notmatch('JUMP', instr)
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	348
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	349 assert_equal("\neval", execute('call HasSomething()'))
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	350 instr = execute('disassemble HasSomething')
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	351 assert_match('HasSomething.*'
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	352 \ .. 'if has("nothing").*'
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	353 \ .. 'elseif has("something").*'
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	354 \ .. 'elseif has("eval").*'
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	355 \ .. ' PUSHS "eval".*'
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	356 \ .. 'elseif has("less").*'
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	357 \, instr)
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	358 assert_notmatch('PUSHS "nothing"', instr)
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	359 assert_notmatch('PUSHS "something"', instr)
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	360 assert_notmatch('PUSHS "less"', instr)
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	361 assert_notmatch('JUMP', instr)
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	362 enddef
d6e8a9e80be4 patch 8.2.0224: compiling :elseif not tested yet Bram Moolenaar <Bram@vim.org> parents: 19330 diff changeset	363
19572 6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	364 def WithFunc()
19912 d4fa9db88d16 patch 8.2.0512: Vim9: no optional arguments in func type Bram Moolenaar <Bram@vim.org> parents: 19904 diff changeset	365 let Funky1: func
d4fa9db88d16 patch 8.2.0512: Vim9: no optional arguments in func type Bram Moolenaar <Bram@vim.org> parents: 19904 diff changeset	366 let Funky2: func = function("len")
d4fa9db88d16 patch 8.2.0512: Vim9: no optional arguments in func type Bram Moolenaar <Bram@vim.org> parents: 19904 diff changeset	367 let Party2: func = funcref("UserFunc")
19572 6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	368 enddef
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	369
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	370 def Test_disassemble_function()
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	371 let instr = execute('disassemble WithFunc')
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	372 assert_match('WithFunc.*'
19912 d4fa9db88d16 patch 8.2.0512: Vim9: no optional arguments in func type Bram Moolenaar <Bram@vim.org> parents: 19904 diff changeset	373 \ .. 'let Funky1: func.*'
19572 6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	374 \ .. '0 PUSHFUNC "\[none]".*'
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	375 \ .. '1 STORE $0.*'
19912 d4fa9db88d16 patch 8.2.0512: Vim9: no optional arguments in func type Bram Moolenaar <Bram@vim.org> parents: 19904 diff changeset	376 \ .. 'let Funky2: func = function("len").*'
19572 6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	377 \ .. '2 PUSHS "len".*'
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	378 \ .. '3 BCALL function(argc 1).*'
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	379 \ .. '4 STORE $1.*'
19912 d4fa9db88d16 patch 8.2.0512: Vim9: no optional arguments in func type Bram Moolenaar <Bram@vim.org> parents: 19904 diff changeset	380 \ .. 'let Party2: func = funcref("UserFunc").*'
19904 bd4f91762d0f patch 8.2.0508: Vim9: func and partial types not done yet Bram Moolenaar <Bram@vim.org> parents: 19892 diff changeset	381 \ .. '\d PUSHS "UserFunc".*'
bd4f91762d0f patch 8.2.0508: Vim9: func and partial types not done yet Bram Moolenaar <Bram@vim.org> parents: 19892 diff changeset	382 \ .. '\d BCALL funcref(argc 1).*'
bd4f91762d0f patch 8.2.0508: Vim9: func and partial types not done yet Bram Moolenaar <Bram@vim.org> parents: 19892 diff changeset	383 \ .. '\d STORE $2.*'
bd4f91762d0f patch 8.2.0508: Vim9: func and partial types not done yet Bram Moolenaar <Bram@vim.org> parents: 19892 diff changeset	384 \ .. '\d PUSHNR 0.*'
bd4f91762d0f patch 8.2.0508: Vim9: func and partial types not done yet Bram Moolenaar <Bram@vim.org> parents: 19892 diff changeset	385 \ .. '\d RETURN.*'
19572 6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	386 \, instr)
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	387 enddef
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	388
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	389 if has('channel')
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	390 def WithChannel()
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	391 let job1: job
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	392 let job2: job = job_start("donothing")
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	393 let chan1: channel
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	394 enddef
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	395 endif
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	396
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	397 def Test_disassemble_channel()
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	398 CheckFeature channel
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	399
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	400 let instr = execute('disassemble WithChannel')
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	401 assert_match('WithChannel.*'
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	402 \ .. 'let job1: job.*'
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	403 \ .. '\d PUSHJOB "no process".*'
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	404 \ .. '\d STORE $0.*'
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	405 \ .. 'let job2: job = job_start("donothing").*'
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	406 \ .. '\d PUSHS "donothing".*'
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	407 \ .. '\d BCALL job_start(argc 1).*'
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	408 \ .. '\d STORE $1.*'
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	409 \ .. 'let chan1: channel.*'
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	410 \ .. '\d PUSHCHANNEL 0.*'
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	411 \ .. '\d STORE $2.*'
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	412 \ .. '\d PUSHNR 0.*'
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	413 \ .. '\d RETURN.*'
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	414 \, instr)
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	415 enddef
6b6e97d0185e patch 8.2.0343: Vim9: using wrong instruction, limited test coverage Bram Moolenaar <Bram@vim.org> parents: 19532 diff changeset	416
19334 61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	417 def WithLambda(): string
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	418 let F = {a -> "X" .. a .. "X"}
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	419 return F("x")
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	420 enddef
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	421
19342 8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	422 def Test_disassemble_lambda()
19334 61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	423 assert_equal("XxX", WithLambda())
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	424 let instr = execute('disassemble WithLambda')
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	425 assert_match('WithLambda.*'
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	426 \ .. 'let F = {a -> "X" .. a .. "X"}.*'
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	427 \ .. ' FUNCREF <lambda>\d\+.*'
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	428 \ .. 'PUSHS "x".*'
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	429 \ .. ' LOAD $0.*'
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	430 \ .. ' PCALL (argc 1).*'
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	431 \ .. ' CHECKTYPE string stack\[-1].*'
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	432 \, instr)
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	433 enddef
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	434
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	435 def AndOr(arg): string
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	436 if arg == 1 && arg != 2 \|\| arg == 4
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	437 return 'yes'
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	438 endif
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	439 return 'no'
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	440 enddef
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	441
19342 8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	442 def Test_disassemble_and_or()
19334 61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	443 assert_equal("yes", AndOr(1))
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	444 assert_equal("no", AndOr(2))
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	445 assert_equal("yes", AndOr(4))
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	446 let instr = execute('disassemble AndOr')
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	447 assert_match('AndOr.*'
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	448 \ .. 'if arg == 1 && arg != 2 \|\| arg == 4.*'
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	449 \ .. '\d LOAD arg\[-1].*'
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	450 \ .. '\d PUSHNR 1.*'
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	451 \ .. '\d COMPAREANY ==.*'
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	452 \ .. '\d JUMP_AND_KEEP_IF_FALSE -> \d\+.*'
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	453 \ .. '\d LOAD arg\[-1].*'
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	454 \ .. '\d PUSHNR 2.*'
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	455 \ .. '\d COMPAREANY !=.*'
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	456 \ .. '\d JUMP_AND_KEEP_IF_TRUE -> \d\+.*'
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	457 \ .. '\d LOAD arg\[-1].*'
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	458 \ .. '\d PUSHNR 4.*'
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	459 \ .. '\d COMPAREANY ==.*'
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	460 \ .. '\d JUMP_IF_FALSE -> \d\+.*'
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	461 \, instr)
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	462 enddef
61646c189622 patch 8.2.0225: compiling lambda not tested yet Bram Moolenaar <Bram@vim.org> parents: 19332 diff changeset	463
19336 1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	464 def ForLoop(): list<number>
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	465 let res: list<number>
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	466 for i in range(3)
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	467 res->add(i)
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	468 endfor
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	469 return res
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	470 enddef
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	471
19342 8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	472 def Test_disassemble_for_loop()
19336 1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	473 assert_equal([0, 1, 2], ForLoop())
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	474 let instr = execute('disassemble ForLoop')
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	475 assert_match('ForLoop.*'
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	476 \ .. 'let res: list<number>.*'
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	477 \ .. ' NEWLIST size 0.*'
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	478 \ .. '\d STORE $0.*'
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	479 \ .. 'for i in range(3).*'
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	480 \ .. '\d STORE -1 in $1.*'
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	481 \ .. '\d PUSHNR 3.*'
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	482 \ .. '\d BCALL range(argc 1).*'
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	483 \ .. '\d FOR $1 -> \d\+.*'
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	484 \ .. '\d STORE $2.*'
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	485 \ .. 'res->add(i).*'
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	486 \ .. '\d LOAD $0.*'
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	487 \ .. '\d LOAD $2.*'
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	488 \ .. '\d BCALL add(argc 2).*'
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	489 \ .. '\d DROP.*'
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	490 \ .. 'endfor.*'
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	491 \ .. '\d JUMP -> \d\+.*'
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	492 \ .. '\d DROP.*'
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	493 \, instr)
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	494 enddef
1cd6eab65ce0 patch 8.2.0226: compiling for loop not tested Bram Moolenaar <Bram@vim.org> parents: 19334 diff changeset	495
19338 ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	496 let g:number = 42
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	497
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	498 def Computing()
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	499 let nr = 3
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	500 let nrres = nr + 7
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	501 nrres = nr - 7
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	502 nrres = nr * 7
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	503 nrres = nr / 7
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	504 nrres = nr % 7
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	505
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	506 let anyres = g:number + 7
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	507 anyres = g:number - 7
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	508 anyres = g:number * 7
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	509 anyres = g:number / 7
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	510 anyres = g:number % 7
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	511
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	512 if has('float')
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	513 let fl = 3.0
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	514 let flres = fl + 7.0
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	515 flres = fl - 7.0
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	516 flres = fl * 7.0
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	517 flres = fl / 7.0
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	518 endif
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	519 enddef
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	520
19342 8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	521 def Test_disassemble_computing()
19338 ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	522 let instr = execute('disassemble Computing')
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	523 assert_match('Computing.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	524 \ .. 'let nr = 3.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	525 \ .. '\d STORE 3 in $0.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	526 \ .. 'let nrres = nr + 7.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	527 \ .. '\d LOAD $0.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	528 \ .. '\d PUSHNR 7.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	529 \ .. '\d OPNR +.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	530 \ .. '\d STORE $1.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	531 \ .. 'nrres = nr - 7.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	532 \ .. '\d OPNR -.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	533 \ .. 'nrres = nr \* 7.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	534 \ .. '\d OPNR \.'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	535 \ .. 'nrres = nr / 7.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	536 \ .. '\d OPNR /.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	537 \ .. 'nrres = nr % 7.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	538 \ .. '\d OPNR %.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	539 \ .. 'let anyres = g:number + 7.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	540 \ .. '\d LOADG g:number.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	541 \ .. '\d PUSHNR 7.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	542 \ .. '\d OPANY +.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	543 \ .. '\d STORE $2.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	544 \ .. 'anyres = g:number - 7.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	545 \ .. '\d OPANY -.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	546 \ .. 'anyres = g:number \* 7.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	547 \ .. '\d OPANY \.'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	548 \ .. 'anyres = g:number / 7.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	549 \ .. '\d OPANY /.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	550 \ .. 'anyres = g:number % 7.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	551 \ .. '\d OPANY %.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	552 \, instr)
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	553 if has('float')
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	554 assert_match('Computing.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	555 \ .. 'let fl = 3.0.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	556 \ .. '\d PUSHF 3.0.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	557 \ .. '\d STORE $3.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	558 \ .. 'let flres = fl + 7.0.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	559 \ .. '\d LOAD $3.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	560 \ .. '\d PUSHF 7.0.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	561 \ .. '\d OPFLOAT +.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	562 \ .. '\d STORE $4.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	563 \ .. 'flres = fl - 7.0.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	564 \ .. '\d OPFLOAT -.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	565 \ .. 'flres = fl \* 7.0.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	566 \ .. '\d OPFLOAT \.'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	567 \ .. 'flres = fl / 7.0.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	568 \ .. '\d OPFLOAT /.*'
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	569 \, instr)
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	570 endif
ef432264b88a patch 8.2.0227: compiling a few instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19336 diff changeset	571 enddef
19330 9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	572
19439 b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	573 def AddListBlob()
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	574 let reslist = [1, 2] + [3, 4]
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	575 let resblob = 0z1122 + 0z3344
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	576 enddef
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	577
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	578 def Test_disassemble_add_list_blob()
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	579 let instr = execute('disassemble AddListBlob')
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	580 assert_match('AddListBlob.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	581 \ .. 'let reslist = \[1, 2] + \[3, 4].*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	582 \ .. '\d PUSHNR 1.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	583 \ .. '\d PUSHNR 2.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	584 \ .. '\d NEWLIST size 2.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	585 \ .. '\d PUSHNR 3.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	586 \ .. '\d PUSHNR 4.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	587 \ .. '\d NEWLIST size 2.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	588 \ .. '\d ADDLIST.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	589 \ .. '\d STORE $..'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	590 \ .. 'let resblob = 0z1122 + 0z3344.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	591 \ .. '\d PUSHBLOB 0z1122.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	592 \ .. '\d PUSHBLOB 0z3344.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	593 \ .. '\d ADDBLOB.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	594 \ .. '\d STORE $.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	595 \, instr)
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	596 enddef
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	597
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	598 let g:aa = 'aa'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	599 def ConcatString(): string
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	600 let res = g:aa .. "bb"
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	601 return res
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	602 enddef
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	603
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	604 def Test_disassemble_concat()
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	605 let instr = execute('disassemble ConcatString')
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	606 assert_match('ConcatString.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	607 \ .. 'let res = g:aa .. "bb".*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	608 \ .. '\d LOADG g:aa.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	609 \ .. '\d PUSHS "bb".*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	610 \ .. '\d 2STRING stack\[-2].*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	611 \ .. '\d CONCAT.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	612 \ .. '\d STORE $.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	613 \, instr)
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	614 assert_equal('aabb', ConcatString())
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	615 enddef
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	616
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	617 def ListIndex(): number
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	618 let l = [1, 2, 3]
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	619 let res = l[1]
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	620 return res
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	621 enddef
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	622
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	623 def Test_disassemble_list_index()
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	624 let instr = execute('disassemble ListIndex')
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	625 assert_match('ListIndex.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	626 \ .. 'let l = \[1, 2, 3].*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	627 \ .. '\d PUSHNR 1.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	628 \ .. '\d PUSHNR 2.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	629 \ .. '\d PUSHNR 3.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	630 \ .. '\d NEWLIST size 3.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	631 \ .. '\d STORE $0.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	632 \ .. 'let res = l\[1].*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	633 \ .. '\d LOAD $0.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	634 \ .. '\d PUSHNR 1.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	635 \ .. '\d INDEX.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	636 \ .. '\d STORE $1.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	637 \, instr)
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	638 assert_equal(2, ListIndex())
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	639 enddef
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	640
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	641 def DictMember(): number
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	642 let d = #{item: 1}
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	643 let res = d.item
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	644 return res
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	645 enddef
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	646
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	647 def Test_disassemble_dict_member()
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	648 let instr = execute('disassemble DictMember')
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	649 assert_match('DictMember.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	650 \ .. 'let d = #{item: 1}.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	651 \ .. '\d PUSHS "item".*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	652 \ .. '\d PUSHNR 1.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	653 \ .. '\d NEWDICT size 1.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	654 \ .. '\d STORE $0.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	655 \ .. 'let res = d.item.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	656 \ .. '\d LOAD $0.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	657 \ .. '\d MEMBER item.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	658 \ .. '\d STORE $1.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	659 \, instr)
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	660 call assert_equal(1, DictMember())
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	661 enddef
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	662
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	663 def NegateNumber(): number
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	664 let nr = 9
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	665 let plus = +nr
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	666 let res = -nr
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	667 return res
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	668 enddef
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	669
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	670 def Test_disassemble_negate_number()
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	671 let instr = execute('disassemble NegateNumber')
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	672 assert_match('NegateNumber.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	673 \ .. 'let nr = 9.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	674 \ .. '\d STORE 9 in $0.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	675 \ .. 'let plus = +nr.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	676 \ .. '\d LOAD $0.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	677 \ .. '\d CHECKNR.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	678 \ .. '\d STORE $1.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	679 \ .. 'let res = -nr.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	680 \ .. '\d LOAD $0.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	681 \ .. '\d NEGATENR.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	682 \ .. '\d STORE $2.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	683 \, instr)
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	684 call assert_equal(-9, NegateNumber())
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	685 enddef
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	686
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	687 def InvertBool(): bool
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	688 let flag = true
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	689 let invert = !flag
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	690 let res = !!flag
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	691 return res
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	692 enddef
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	693
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	694 def Test_disassemble_invert_bool()
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	695 let instr = execute('disassemble InvertBool')
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	696 assert_match('InvertBool.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	697 \ .. 'let flag = true.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	698 \ .. '\d PUSH v:true.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	699 \ .. '\d STORE $0.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	700 \ .. 'let invert = !flag.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	701 \ .. '\d LOAD $0.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	702 \ .. '\d INVERT (!val).*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	703 \ .. '\d STORE $1.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	704 \ .. 'let res = !!flag.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	705 \ .. '\d LOAD $0.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	706 \ .. '\d 2BOOL (!!val).*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	707 \ .. '\d STORE $2.*'
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	708 \, instr)
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	709 call assert_equal(true, InvertBool())
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	710 enddef
b347a6c61090 patch 8.2.0277: Vim9: not all instructions covered by tests Bram Moolenaar <Bram@vim.org> parents: 19390 diff changeset	711
19342 8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	712 def Test_disassemble_compare()
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	713 " TODO: COMPAREFUNC
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	714 let cases = [
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	715 \ ['true == false', 'COMPAREBOOL =='],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	716 \ ['true != false', 'COMPAREBOOL !='],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	717 \ ['v:none == v:null', 'COMPARESPECIAL =='],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	718 \ ['v:none != v:null', 'COMPARESPECIAL !='],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	719 \
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	720 \ ['111 == 222', 'COMPARENR =='],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	721 \ ['111 != 222', 'COMPARENR !='],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	722 \ ['111 > 222', 'COMPARENR >'],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	723 \ ['111 < 222', 'COMPARENR <'],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	724 \ ['111 >= 222', 'COMPARENR >='],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	725 \ ['111 <= 222', 'COMPARENR <='],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	726 \ ['111 =~ 222', 'COMPARENR =\~'],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	727 \ ['111 !~ 222', 'COMPARENR !\~'],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	728 \
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	729 \ ['"xx" != "yy"', 'COMPARESTRING !='],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	730 \ ['"xx" > "yy"', 'COMPARESTRING >'],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	731 \ ['"xx" < "yy"', 'COMPARESTRING <'],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	732 \ ['"xx" >= "yy"', 'COMPARESTRING >='],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	733 \ ['"xx" <= "yy"', 'COMPARESTRING <='],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	734 \ ['"xx" =~ "yy"', 'COMPARESTRING =\~'],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	735 \ ['"xx" !~ "yy"', 'COMPARESTRING !\~'],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	736 \ ['"xx" is "yy"', 'COMPARESTRING is'],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	737 \ ['"xx" isnot "yy"', 'COMPARESTRING isnot'],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	738 \
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	739 \ ['0z11 == 0z22', 'COMPAREBLOB =='],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	740 \ ['0z11 != 0z22', 'COMPAREBLOB !='],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	741 \ ['0z11 is 0z22', 'COMPAREBLOB is'],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	742 \ ['0z11 isnot 0z22', 'COMPAREBLOB isnot'],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	743 \
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	744 \ ['[1,2] == [3,4]', 'COMPARELIST =='],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	745 \ ['[1,2] != [3,4]', 'COMPARELIST !='],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	746 \ ['[1,2] is [3,4]', 'COMPARELIST is'],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	747 \ ['[1,2] isnot [3,4]', 'COMPARELIST isnot'],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	748 \
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	749 \ ['#{a:1} == #{x:2}', 'COMPAREDICT =='],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	750 \ ['#{a:1} != #{x:2}', 'COMPAREDICT !='],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	751 \ ['#{a:1} is #{x:2}', 'COMPAREDICT is'],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	752 \ ['#{a:1} isnot #{x:2}', 'COMPAREDICT isnot'],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	753 \
19904 bd4f91762d0f patch 8.2.0508: Vim9: func and partial types not done yet Bram Moolenaar <Bram@vim.org> parents: 19892 diff changeset	754 \ ['{->33} == {->44}', 'COMPAREFUNC =='],
bd4f91762d0f patch 8.2.0508: Vim9: func and partial types not done yet Bram Moolenaar <Bram@vim.org> parents: 19892 diff changeset	755 \ ['{->33} != {->44}', 'COMPAREFUNC !='],
bd4f91762d0f patch 8.2.0508: Vim9: func and partial types not done yet Bram Moolenaar <Bram@vim.org> parents: 19892 diff changeset	756 \ ['{->33} is {->44}', 'COMPAREFUNC is'],
bd4f91762d0f patch 8.2.0508: Vim9: func and partial types not done yet Bram Moolenaar <Bram@vim.org> parents: 19892 diff changeset	757 \ ['{->33} isnot {->44}', 'COMPAREFUNC isnot'],
19342 8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	758 \
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	759 \ ['77 == g:xx', 'COMPAREANY =='],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	760 \ ['77 != g:xx', 'COMPAREANY !='],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	761 \ ['77 > g:xx', 'COMPAREANY >'],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	762 \ ['77 < g:xx', 'COMPAREANY <'],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	763 \ ['77 >= g:xx', 'COMPAREANY >='],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	764 \ ['77 <= g:xx', 'COMPAREANY <='],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	765 \ ['77 =~ g:xx', 'COMPAREANY =\~'],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	766 \ ['77 !~ g:xx', 'COMPAREANY !\~'],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	767 \ ['77 is g:xx', 'COMPAREANY is'],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	768 \ ['77 isnot g:xx', 'COMPAREANY isnot'],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	769 \ ]
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	770 if has('float')
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	771 cases->extend([
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	772 \ ['1.1 == 2.2', 'COMPAREFLOAT =='],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	773 \ ['1.1 != 2.2', 'COMPAREFLOAT !='],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	774 \ ['1.1 > 2.2', 'COMPAREFLOAT >'],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	775 \ ['1.1 < 2.2', 'COMPAREFLOAT <'],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	776 \ ['1.1 >= 2.2', 'COMPAREFLOAT >='],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	777 \ ['1.1 <= 2.2', 'COMPAREFLOAT <='],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	778 \ ['1.1 =~ 2.2', 'COMPAREFLOAT =\~'],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	779 \ ['1.1 !~ 2.2', 'COMPAREFLOAT !\~'],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	780 \ ])
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	781 endif
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	782
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	783 let nr = 1
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	784 for case in cases
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	785 writefile(['def TestCase' .. nr .. '()',
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	786 \ ' if ' .. case[0],
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	787 \ ' echo 42'
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	788 \ ' endif',
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	789 \ 'enddef'], 'Xdisassemble')
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	790 source Xdisassemble
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	791 let instr = execute('disassemble TestCase' .. nr)
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	792 assert_match('TestCase' .. nr .. '.*'
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	793 \ .. 'if ' .. substitute(case[0], '[[~]', '\\\0', 'g') .. '.*'
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	794 \ .. '\d $PUSH\\|FUNCREF$.*'
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	795 \ .. '\d $PUSH\\|FUNCREF\\|LOADG$.*'
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	796 \ .. '\d ' .. case[1] .. '.*'
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	797 \ .. '\d JUMP_IF_FALSE -> \d\+.*'
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	798 \, instr)
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	799
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	800 nr += 1
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	801 endfor
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	802
19703 f03357f16ffc patch 8.2.0408: delete() commented out for testing Bram Moolenaar <Bram@vim.org> parents: 19579 diff changeset	803 delete('Xdisassemble')
19342 8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	804 enddef
8ff84bc1c89b patch 8.2.0229: compare instructions not tested Bram Moolenaar <Bram@vim.org> parents: 19338 diff changeset	805
19880 50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	806 def Test_disassemble_compare_const()
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	807 let cases = [
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	808 \ ['"xx" == "yy"', false],
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	809 \ ['"aa" == "aa"', true],
19892 5feb426d2ea1 patch 8.2.0502: Vim9: some code is not tested Bram Moolenaar <Bram@vim.org> parents: 19880 diff changeset	810 \ ['has("eval") ? true : false', true],
5feb426d2ea1 patch 8.2.0502: Vim9: some code is not tested Bram Moolenaar <Bram@vim.org> parents: 19880 diff changeset	811 \ ['has("asdf") ? true : false', false],
19880 50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	812 \ ]
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	813
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	814 let nr = 1
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	815 for case in cases
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	816 writefile(['def TestCase' .. nr .. '()',
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	817 \ ' if ' .. case[0],
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	818 \ ' echo 42'
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	819 \ ' endif',
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	820 \ 'enddef'], 'Xdisassemble')
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	821 source Xdisassemble
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	822 let instr = execute('disassemble TestCase' .. nr)
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	823 if case[1]
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	824 " condition true, "echo 42" executed
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	825 assert_match('TestCase' .. nr .. '.*'
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	826 \ .. 'if ' .. substitute(case[0], '[[~]', '\\\0', 'g') .. '.*'
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	827 \ .. '\d PUSHNR 42.*'
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	828 \ .. '\d ECHO 1.*'
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	829 \ .. '\d PUSHNR 0.*'
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	830 \ .. '\d RETURN.*'
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	831 \, instr)
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	832 else
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	833 " condition false, function just returns
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	834 assert_match('TestCase' .. nr .. '.*'
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	835 \ .. 'if ' .. substitute(case[0], '[[~]', '\\\0', 'g') .. '[ \n]*'
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	836 \ .. 'echo 42[ \n]*'
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	837 \ .. 'endif[ \n]*'
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	838 \ .. '\s\d PUSHNR 0.'
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	839 \ .. '\d RETURN.*'
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	840 \, instr)
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	841 endif
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	842
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	843 nr += 1
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	844 endfor
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	845
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	846 delete('Xdisassemble')
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	847 enddef
50fa63ca3828 patch 8.2.0496: Vim9: disassemble test fails Bram Moolenaar <Bram@vim.org> parents: 19862 diff changeset	848
19528 3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	849 def s:Execute()
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	850 execute 'help vim9.txt'
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	851 let cmd = 'help vim9.txt'
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	852 execute cmd
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	853 let tag = 'vim9.txt'
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	854 execute 'help ' .. tag
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	855 enddef
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	856
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	857 def Test_disassemble_execute()
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	858 let res = execute('disass s:Execute')
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	859 assert_match('\<SNR>\d_Execute.'
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	860 \ .. "execute 'help vim9.txt'.*"
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	861 \ .. '\d PUSHS "help vim9.txt".*'
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	862 \ .. '\d EXECUTE 1.*'
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	863 \ .. "let cmd = 'help vim9.txt'.*"
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	864 \ .. '\d PUSHS "help vim9.txt".*'
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	865 \ .. '\d STORE $0.*'
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	866 \ .. 'execute cmd.*'
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	867 \ .. '\d LOAD $0.*'
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	868 \ .. '\d EXECUTE 1.*'
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	869 \ .. "let tag = 'vim9.txt'.*"
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	870 \ .. '\d PUSHS "vim9.txt".*'
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	871 \ .. '\d STORE $1.*'
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	872 \ .. "execute 'help ' .. tag.*"
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	873 \ .. '\d PUSHS "help ".*'
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	874 \ .. '\d LOAD $1.*'
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	875 \ .. '\d CONCAT.*'
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	876 \ .. '\d EXECUTE 1.*'
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	877 \ .. '\d PUSHNR 0.*'
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	878 \ .. '\d RETURN'
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	879 \, res)
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	880 enddef
3b026343f398 patch 8.2.0321: Vim9: ":execute" does not work yet Bram Moolenaar <Bram@vim.org> parents: 19483 diff changeset	881
19579 aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	882 def SomeStringArg(arg: string)
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	883 echo arg
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	884 enddef
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	885
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	886 def SomeAnyArg(arg: any)
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	887 echo arg
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	888 enddef
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	889
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	890 def SomeStringArgAndReturn(arg: string): string
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	891 return arg
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	892 enddef
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	893
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	894 def Test_display_func()
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	895 let res1 = execute('function SomeStringArg')
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	896 assert_match('.* def SomeStringArg(arg: string).*'
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	897 \ .. ' echo arg.*'
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	898 \ .. ' enddef'
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	899 \, res1)
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	900
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	901 let res2 = execute('function SomeAnyArg')
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	902 assert_match('.* def SomeAnyArg(arg: any).*'
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	903 \ .. ' echo arg.*'
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	904 \ .. ' enddef'
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	905 \, res2)
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	906
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	907 let res3 = execute('function SomeStringArgAndReturn')
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	908 assert_match('.* def SomeStringArgAndReturn(arg: string): string.*'
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	909 \ .. ' return arg.*'
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	910 \ .. ' enddef'
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	911 \, res3)
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	912 enddef
aae19dd172c0 patch 8.2.0346: Vim9: finding common list type not tested Bram Moolenaar <Bram@vim.org> parents: 19572 diff changeset	913
19330 9c8b803fe598 patch 8.2.0223: some instructions not yet tested Bram Moolenaar <Bram@vim.org> parents: diff changeset	914 " vim: ts=8 sw=2 sts=2 expandtab tw=80 fdm=marker

Mercurial > vim

annotate src/testdir/test_vim9_disassemble.vim @ 19912:d4fa9db88d16 v8.2.0512