call delete('Xdef')
endfunc
+" Check that "line" inside ":def" results in an "error" message when executed.
+func CheckDefExecFailure(line, error)
+ call writefile(['def! Func()', a:line, 'enddef'], 'Xdef')
+ so Xdef
+ call assert_fails('call Func()', a:error, a:line)
+ call delete('Xdef')
+endfunc
+
func CheckDefFailureList(lines, error)
call writefile(['def! Func()'] + a:lines + ['enddef'], 'Xdef')
call assert_fails('so Xdef', a:error, string(a:lines))
return a:arg
endfunc
+func CallMe2(one, two)
+ return a:one .. a:two
+endfunc
+
def Test_expr7_trailing()
" user function call
assert_equal(123, CallMe(123))
+ assert_equal(123, CallMe( 123))
+ assert_equal(123, CallMe(123 ))
+ assert_equal('yesno', CallMe2('yes', 'no'))
+ assert_equal('yesno', CallMe2( 'yes', 'no' ))
assert_equal('nothing', CallMe('nothing'))
" partial call
func Test_expr_fails()
call CheckDefFailure("let x = '1'is2", 'E488:')
call CheckDefFailure("let x = '1'isnot2", 'E488:')
+
+ call CheckDefExecFailure("CallMe ('yes')", 'E492:')
+ call CheckDefFailure("CallMe2('yes','no')", 'E1069:')
+ call CheckDefFailure("CallMe2('yes' , 'no')", 'E1068:')
endfunc
if (compile_expr1(&p, cctx) == FAIL)
return FAIL;
++*argcount;
+
+ if (*p != ',' && *skipwhite(p) == ',')
+ {
+ emsg(_("E1068: No white space allowed before ,"));
+ p = skipwhite(p);
+ }
if (*p == ',')
- p = skipwhite(p + 1);
+ {
+ ++p;
+ if (!VIM_ISWHITE(*p))
+ emsg(_("E1069: white space required after ,"));
+ }
+ p = skipwhite(p);
}
+ p = skipwhite(p);
if (*p != ')')
{
emsg(_(e_missing_close));