Mercurial > hg > octave-nkf

diff scripts/plot/clf.m @ 13111:ebb42fb2da04

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Various fixes for tests in scripts/plot plot/cla.m: Use figure number 1232. plot/clf.m: Split test into two. plot/findall.m: Check only for graphic objects in figure 1232. plot/findall.m: Ditto. plot/gcf.m: Simplify test. plot/line.m: Check against default values now. plot/whitebg.m: Restore default values after tests.
author Kai Habel <kai.habel@gmx.de>
date Wed, 07 Sep 2011 20:13:18 +0200
parents 5553412c6614
children 2ea1658ad049
line wrap: on
line diff
--- a/scripts/plot/clf.m
+++ b/scripts/plot/clf.m
@@ -81,6 +81,13 @@
 %! unwind_protect  
 %!   l = line;
 %!   assert (!isempty (get (gcf, "children")));
+%! unwind_protect_cleanup
+%!   close (hf);
+%! end_unwind_protect
+
+%!test
+%! hf = figure (1232, "visible", "off");
+%! unwind_protect  
 %!   clf;
 %!   assert (isempty (get (gcf, "children")));
 %! unwind_protect_cleanup