# HG changeset patch
# User Carlo de Falco <cdf@users.sourceforge.net>
# Date 1364637375 -3600
# Node ID 48b3d172042de33b3ca0e2beb578ec7653ea6767
# Parent  649d0b75ec0613278894a619d3fc3b40259243ff
simplify test for bug #38236

test/bug-38236/u_vr.m: simplify test case.

diff --git a/test/bug-38236/u_vr.m b/test/bug-38236/u_vr.m
--- a/test/bug-38236/u_vr.m
+++ b/test/bug-38236/u_vr.m
@@ -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__;