Mercurial > hg > octave-lyh

comparison scripts/plot/line.m @ 13115:cd808de114c1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Allow surface and patch to be called w/o arguments. Adding and fixing tests. plot/line.m: Style fixes and test added. plot/patch.m: Tests added. plot/surface.m: Allow surface to be called w/o arguments. Tests added. plot/private/__patch__.m: Allow patch to be called w/o arguments.
author Kai Habel <kai.habel@gmx.de>
date Thu, 08 Sep 2011 15:43:40 +0200
parents ebb42fb2da04
children 2ea1658ad049
comparison
equal deleted inserted replaced
13114:7600200a54c8 13115:cd808de114c1
45 45
46 %!test 46 %!test
47 %! hf = figure (1232, "visible", "off"); 47 %! hf = figure (1232, "visible", "off");
48 %! unwind_protect 48 %! unwind_protect
49 %! h = line; 49 %! h = line;
50 %! assert (findobj (hf, "type", "line"), h);
50 %! assert (get (h, "xdata"), [0 1], eps); 51 %! assert (get (h, "xdata"), [0 1], eps);
51 %! assert (get (h, "ydata"), [0 1], eps); 52 %! assert (get (h, "ydata"), [0 1], eps);
52 %! assert (get (h, "type"), "line"); 53 %! assert (get (h, "type"), "line");
53 %! assert (get (h, "color"), get(0,'defaultlinecolor')); 54 %! assert (get (h, "color"), get (0, "defaultlinecolor"));
54 %! assert (get (h, "linestyle"), get(0,'defaultlinelinestyle')); 55 %! assert (get (h, "linestyle"), get (0, "defaultlinelinestyle"));
55 %! assert (get (h, "linewidth"), get(0,'defaultlinelinewidth'), eps); 56 %! assert (get (h, "linewidth"), get (0, "defaultlinelinewidth"), eps);
56 %! unwind_protect_cleanup 57 %! unwind_protect_cleanup
57 %! close (hf); 58 %! close (hf);
58 %! end_unwind_protect 59 %! end_unwind_protect