| Test for user functions | |
| STARTTEST | |
| :so small.vim | |
| :function Table(title, ...) | |
| : let ret = a:title | |
| : let idx = 1 | |
| : while idx <= a:0 | |
| : exe "let ret = ret . a:" . idx | |
| : let idx = idx + 1 | |
| : endwhile | |
| : return ret | |
| :endfunction | |
| :function Compute(n1, n2, divname) | |
| : if a:n2 == 0 | |
| : return "fail" | |
| : endif | |
| : exe "let g:" . a:divname . " = ". a:n1 / a:n2 | |
| : return "ok" | |
| :endfunction | |
| :let retval = "nop" | |
| /^here | |
| C=Table("xxx", 4, "asdf") | |
| =Compute(45, 0, "retval") | |
| =retval | |
| =Compute(45, 5, "retval") | |
| =retval | |
| :.wq! test.out | |
| ENDTEST | |
| here |