Mercurial > vim
view src/testdir/test34.in @ 572:2244be18d9e9 v7.0162
updated for version 7.0162
author | vimboss |
---|---|
date | Fri, 02 Dec 2005 00:50:49 +0000 |
parents | 3fc0f57ecb91 |
children | 8cd729851562 |
line wrap: on
line source
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