Some graphic test: glue/unglue 38/4638/3
Bruno JOFRET [Fri, 29 Jul 2011 11:42:38 +0000 (13:42 +0200)]
Change-Id: I1bc909f4d48907b2d6e694fa4766b2910427986e

scilab/modules/graphics/tests/unit_tests/glue_unglue.dia.ref [new file with mode: 0644]
scilab/modules/graphics/tests/unit_tests/glue_unglue.tst [new file with mode: 0644]

diff --git a/scilab/modules/graphics/tests/unit_tests/glue_unglue.dia.ref b/scilab/modules/graphics/tests/unit_tests/glue_unglue.dia.ref
new file mode 100644 (file)
index 0000000..6becea3
--- /dev/null
@@ -0,0 +1,59 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2011 - DIGITEO - Bruno JOFRET
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- TEST WITH GRAPHIC -->
+// test glue/unglue capabilities
+f = gcf();
+a = gca();
+xrect(-1,1,2,2);
+xarc(-0.5,0.5,2,2,0,360*64);
+assert_checkequal(a.children(1).type, "Arc")
+ ans  =
+  T  
+assert_checkequal(a.children(2).type, "Rectangle")
+ ans  =
+  T  
+e = gce();
+assert_checkequal(e.type, "Arc")
+ ans  =
+  T  
+arc_child=a.children(1);
+rect_child=a.children(2);
+glue([arc_child, rect_child]);
+assert_checkequal(a.children(1).type, "Compound")
+ ans  =
+  T  
+e = gce();
+assert_checkequal(e.type, "Compound")
+ ans  =
+  T  
+assert_checkequal(e.children(1).type, "Rectangle")
+ ans  =
+  T  
+assert_checkequal(e.children(2).type, "Arc")
+ ans  =
+  T  
+unglue(e);
+assert_checkequal(a.children(1).type, "Rectangle")
+ ans  =
+  T  
+assert_checkequal(a.children(2).type, "Arc")
+ ans  =
+  T  
+e = gce();
+assert_checkequal(e.type, "Axes")
+ ans  =
+  T  
diff --git a/scilab/modules/graphics/tests/unit_tests/glue_unglue.tst b/scilab/modules/graphics/tests/unit_tests/glue_unglue.tst
new file mode 100644 (file)
index 0000000..fbc7c0f
--- /dev/null
@@ -0,0 +1,38 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2011 - DIGITEO - Bruno JOFRET
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+// <-- TEST WITH GRAPHIC -->
+
+// test glue/unglue capabilities
+
+f = gcf();
+a = gca();
+xrect(-1,1,2,2);
+xarc(-0.5,0.5,2,2,0,360*64);
+
+assert_checkequal(a.children(1).type, "Arc")
+assert_checkequal(a.children(2).type, "Rectangle")
+e = gce();
+assert_checkequal(e.type, "Arc")
+
+arc_child=a.children(1);
+rect_child=a.children(2);
+
+glue([arc_child, rect_child]);
+
+assert_checkequal(a.children(1).type, "Compound")
+e = gce();
+assert_checkequal(e.type, "Compound")
+assert_checkequal(e.children(1).type, "Rectangle")
+assert_checkequal(e.children(2).type, "Arc")
+
+
+unglue(e);
+assert_checkequal(a.children(1).type, "Rectangle")
+assert_checkequal(a.children(2).type, "Arc")
+e = gce();
+assert_checkequal(e.type, "Axes")