add ref and modify order if or(c.links <> [e1,e2]) then pause,end (Serge)
Allan Cornet [Thu, 10 Jul 2008 11:37:28 +0000 (11:37 +0000)]
scilab/modules/graphics/tests/unit_tests/captions.dia.ref [new file with mode: 0644]
scilab/modules/graphics/tests/unit_tests/captions.tst

diff --git a/scilab/modules/graphics/tests/unit_tests/captions.dia.ref b/scilab/modules/graphics/tests/unit_tests/captions.dia.ref
new file mode 100644 (file)
index 0000000..5ddc829
--- /dev/null
@@ -0,0 +1,77 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA - Serge Steer
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- TEST WITH GRAPHIC -->
+clf();a=gca();a.axes_visible='on';
+xpoly([0 1],[1 1]/2);
+e1=gce();
+c=captions(e1,'test');
+if or(c.text <> 'test') then bugmes();quit;end
+if or(c.links <> e1) then bugmes();quit;end
+c2=captions(e1,'XXXX');
+if or(c2.text <> 'XXXX') then bugmes();quit;end
+if size(a.children,'*') <>2 then bugmes();quit;end
+e1.foreground=5;e1.thickness=3;
+xpoly([0 1],0.2+[1 1]/2);
+e2=gce();e2.mark_mode='on';e2.line_mode='off';e2.mark_style=3;
+c=captions([e1,e2],['XXXX';'YYY']);
+if or(c.text <> ["XXXX";"YYY"]) then bugmes();quit;end
+if or(c.links <> [e2,e1]) then bugmes();quit;end
+c=captions([],[]);
+if c<>[]  then bugmes();quit;end
+if execstr("captions([e1],[''XXXX'';''YYY''])",'errcatch')==0 then bugmes();quit;end
+if execstr("captions([e1,e2],[''XXXX''])",'errcatch')==0 then bugmes();quit;end
+if execstr("captions(e1,[])",'errcatch')==0 then bugmes();quit;end
+//following tests should be visual
+clf();a=gca();a.axes_visible='on';a.box='on';a.margins(4)=0.35;
+E=[];
+for y= 0:0.1:1
+  xpoly([0 1],[1 1]*y);
+  e=gce();e.foreground=10*y;
+  E=[E e];
+end
+c=captions(E,string( 0:0.1:1));
+xpause(2d6)
+clf();a=gca();a.axes_visible='on';a.box='on';
+xpoly([0 1],[1 1]/2);
+c=captions(gce(),'test');
+//test of different possible locations
+clf();f=gcf();
+x=[0:0.1:2*%pi]';
+plot2d(x,[sin(x) sin(2*x) sin(3*x)],[1 -2 3])
+E=get(gce(),'children');
+E(1).thickness=3;
+E(2).mark_size_unit='point';E(2).mark_size=2;
+a=gca();a.box='on';a.margins(2)=0.3;a.margins(1)=0.25;
+c=captions(E,['sin(x)' 'sin(2*x)' 'sin(3*x)']);
+c.fill_mode='on';c.background=2;
+locations=['upper_left','upper_right','lower_right','lower_left'];
+locations=['in_'+locations 'out_'+locations 'lower_caption' 'upper_caption'];
+for l=locations;
+  c.legend_location=l;
+  xpause(2d6)
+end
+c.legend_location='by_coordinates';c.position=[0.5 1/8];
+xpause(2d6)
+// captions with paches
+clf();a=gca();
+a.data_bounds=[-1 -1;2 2];a.axes_visible='on';
+x=[0:0.1:2*%pi]';
+xpoly(cos(x),sin(x))
+E=gce();
+xpoly(1+0.3*cos(x),1+0.3*sin(x))
+E=[E, gce()];
+xpoly(1.5+0.1*cos(x),1.5+0.1*sin(x))
+E=[E, gce()];
+for k=1:3
+  E(k).foreground=k;
+  E(k).background=k+1;
+  E(k).fill_mode='on';
+  E(k).closed='on';
+end
+E(1).thickness=3;
+c=captions(E,['A' 'B' 'C']);
+c.legend_location='in_upper_right';
index 002eed2..5da4ce6 100644 (file)
@@ -24,7 +24,7 @@ c=captions([e1,e2],['XXXX';'YYY']);
 
 
 if or(c.text <> ["XXXX";"YYY"]) then pause,end
-if or(c.links <> [e1,e2]) then pause,end
+if or(c.links <> [e2,e1]) then pause,end
 
 c=captions([],[]);
 if c<>[]  then pause,end