Mercurial > octave-nkf
diff scripts/plot/gcf.m @ 13096:5553412c6614
Tests for scripts/plot
* (allchild.m, ancestor.m, clf.m, findall.m, findobj.m, gcf.m,
line.m, view.m, whitebg.m, xlim.m, ylim.m, zlim.m): Add tests
author | Kai Habel <kai.habel@gmx.de> |
---|---|
date | Sun, 04 Sep 2011 21:58:42 +0200 |
parents | fd0a3ac60b0e |
children | ebb42fb2da04 |
line wrap: on
line diff
--- a/scripts/plot/gcf.m Sun Sep 04 01:43:30 2011 -0400 +++ b/scripts/plot/gcf.m Sun Sep 04 21:58:42 2011 +0200 @@ -53,3 +53,13 @@ endif endfunction + +%!test +%! hf = figure (1232, "visible", "off"); +%! unwind_protect +%! line; +%! clf; +%! assert (isempty (get (gcf, "children"))); +%! unwind_protect_cleanup +%! close (hf); +%! end_unwind_protect