Mercurial > octave-nkf
changeset 16398:48b3d172042d
simplify test for bug #38236
test/bug-38236/u_vr.m: simplify test case.
| author | Carlo de Falco <cdf@users.sourceforge.net> |
|---|---|
| date | Sat, 30 Mar 2013 10:56:15 +0100 |
| parents | 649d0b75ec06 |
| children | f9a737fd8829 |
| files | test/bug-38236/u_vr.m |
| diffstat | 1 files changed, 9 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- a/test/bug-38236/u_vr.m Fri Mar 29 22:52:41 2013 -0400 +++ b/test/bug-38236/u_vr.m Sat Mar 30 10:56:15 2013 +0100 @@ -1,17 +1,12 @@ # u_vr.m -cmd = "\ -function __demo__ () \ - df_vr; \ - v = vr * 2; \ -endfunction \ -"; +## define and exectute "__demo__" once +eval ("function __demo__ (); df_vr; v = vr * 2; endfunction"); +__demo__; -for ii = 1:2 - unwind_protect - eval (cmd); - __demo__; - unwind_protect_cleanup - clear __demo__ - end_unwind_protect -endfor \ No newline at end of file +## clear definition of "__demo__" +clear __demo__ + +## define and exectute "__demo__" once more +eval ("function __demo__ (); df_vr; v = vr * 2; endfunction"); +__demo__;