" Test the :disassemble command, and compilation as a side effect
+source check.vim
+
func NotCompiled()
echo "not"
endfunc
assert_notmatch('JUMP', instr)
enddef
+def WithFunc()
+ let funky1: func
+ let funky2: func = function("len")
+ let party1: partial
+ let party2: partial = funcref("UserFunc")
+enddef
+
+def Test_disassemble_function()
+ let instr = execute('disassemble WithFunc')
+ assert_match('WithFunc.*'
+ \ .. 'let funky1: func.*'
+ \ .. '0 PUSHFUNC "\[none]".*'
+ \ .. '1 STORE $0.*'
+ \ .. 'let funky2: func = function("len").*'
+ \ .. '2 PUSHS "len".*'
+ \ .. '3 BCALL function(argc 1).*'
+ \ .. '4 STORE $1.*'
+ \ .. 'let party1: partial.*'
+ \ .. '5 PUSHPARTIAL "\[none]".*'
+ \ .. '6 STORE $2.*'
+ \ .. 'let party2: partial = funcref("UserFunc").*'
+ \ .. '7 PUSHS "UserFunc".*'
+ \ .. '8 BCALL funcref(argc 1).*'
+ \ .. '9 STORE $3.*'
+ \ .. '10 PUSHNR 0.*'
+ \ .. '11 RETURN.*'
+ \, instr)
+enddef
+
+if has('channel')
+ def WithChannel()
+ let job1: job
+ let job2: job = job_start("donothing")
+ let chan1: channel
+ enddef
+endif
+
+def Test_disassemble_channel()
+ CheckFeature channel
+
+ let instr = execute('disassemble WithChannel')
+ assert_match('WithChannel.*'
+ \ .. 'let job1: job.*'
+ \ .. '\d PUSHJOB "no process".*'
+ \ .. '\d STORE $0.*'
+ \ .. 'let job2: job = job_start("donothing").*'
+ \ .. '\d PUSHS "donothing".*'
+ \ .. '\d BCALL job_start(argc 1).*'
+ \ .. '\d STORE $1.*'
+ \ .. 'let chan1: channel.*'
+ \ .. '\d PUSHCHANNEL 0.*'
+ \ .. '\d STORE $2.*'
+ \ .. '\d PUSHNR 0.*'
+ \ .. '\d RETURN.*'
+ \, instr)
+enddef
+
def WithLambda(): string
let F = {a -> "X" .. a .. "X"}
return F("x")
tv.v_type = VAR_JOB;
tv.vval.v_job = iptr->isn_arg.job;
name = tv_get_string(&tv);
- smsg("%4d PUSHJOB %s", current, name);
+ smsg("%4d PUSHJOB \"%s\"", current, name);
}
#endif
break;