# HG changeset patch
# User Rik <rik@octave.org>
# Date 1343141442 25200
# Node ID d8acad691f26756b2b9050843543626ae47b7d48
# Parent  74c7265c057afcc2975d40753fa114c539de5823
Clear %!functions at the end of testing, not for each shared block.

* test.m: Stop clearing of test functions at the beginning of
each %!shared block.

diff --git a/scripts/testfun/test.m b/scripts/testfun/test.m
--- a/scripts/testfun/test.m
+++ b/scripts/testfun/test.m
@@ -334,10 +334,6 @@
                          __signal_fail);
       end_try_catch
 
-      ## Clear shared function definitions.
-      eval (__clear, "");
-      __clear = "";
-
       ## Initialization code will be evaluated below.
 
 ### FUNCTION
@@ -555,6 +551,7 @@
     __tests += __istest;
     __successes += __success * __istest;
   endfor
+  ## Clear any test functions created
   eval (__clear, "");
 
   if (nargout == 0)