Mercurial > octave-nkf

diff scripts/plot/isfigure.m @ 13123:6efa1a691713

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add further tests for scripts/plot. plot/close.m: Tests added. plot/gca.m, plot/gcbf.m, plot/gcbo.m, plot/hggroup.m, plot/isfigure.m: Ditto. plot/gtext.m, plot/ginput.m: Dummy test added.
author Kai Habel <kai.habel@gmx.de>
date Sun, 11 Sep 2011 18:24:58 +0200
parents fd0a3ac60b0e
children 2ea1658ad049
line wrap: on
line diff
--- a/scripts/plot/isfigure.m	Sun Sep 11 11:40:22 2011 +0200
+++ b/scripts/plot/isfigure.m	Sun Sep 11 18:24:58 2011 +0200
@@ -34,3 +34,12 @@
   endif
 
 endfunction
+
+%!test
+%! hf = figure (1232, "visible", "off");
+%! unwind_protect  
+%!   assert (isfigure (1232));
+%!   assert (!isfigure (-1232));
+%! unwind_protect_cleanup
+%!   close (hf);
+%! end_unwind_protect