Mercurial > hg > octave-nkf

diff scripts/plot/newplot.m @ 13204:be7bfd59300a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add tests for scripts/plot (plot/figure.m, plot/ishold.m, plot/ishold.m, plot/newplot.m): Add tests.
author Kai Habel <kai.habel@gmx.de>
date Fri, 23 Sep 2011 22:18:05 +0200
parents b0084095098e
children 72c96de7a403
line wrap: on
line diff
--- a/scripts/plot/newplot.m
+++ b/scripts/plot/newplot.m
@@ -64,3 +64,13 @@
   endif
 
 endfunction
+
+%!test
+%! hf = figure ("visible", "off");
+%! unwind_protect
+%!   p = plot ([0, 1]);
+%!   newplot;
+%!   assert (isempty (get (gca, "children")));
+%! unwind_protect_cleanup
+%!   close (hf);
+%! end_unwind_protect