Xcos scopes: fix existing object check
[scilab.git] / scilab / modules / xcos / tests / unit_tests / cscope.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2011 - DIGITEO - ClĂ©ment DAVID
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 // <-- TEST WITH XCOS -->
9 // <-- TEST WITH GRAPHIC -->
10
11 // test scope values 
12
13 loadXcosLibs();
14
15 assert_checktrue(importXcosDiagram(SCI + "/modules/xcos/tests/unit_tests/cscope.xcos"));
16 xcos_simulate(scs_m, 4);
17
18 function assert_checkcscope()
19     f=gcf();
20     assert_checkequal(size(f.children), [1 1])
21
22     a=gca();
23     assert_checkequal(size(a.children), [4 1])
24
25     p1=a.children(1);
26     p2=a.children(2);
27     p3=a.children(3);
28     p4=a.children(4);
29
30     assert_checkequal(f.figure_id, 20006);
31     assert_checkequal(a.data_bounds, [30 -2 ; 60 3]);
32     assert_checkequal(a.x_label.text, "t");
33     assert_checkequal(a.y_label.text, "y");
34
35     // check removed due to junk data at the end
36     // assert_checkequal(size(p1.data), [315 2]);
37     // assert_checkequal(size(p2.data), [315 2]);
38     // assert_checkequal(size(p3.data), [315 2]);
39     // assert_checkequal(size(p4.data), [315 2]);
40
41     assert_checkequal(p1.polyline_style, 1);
42     assert_checkequal(p2.polyline_style, 1);
43     assert_checkequal(p3.polyline_style, 1);
44     assert_checkequal(p4.polyline_style, 1);
45
46     assert_checkequal(p1.line_mode, "on");
47     assert_checkequal(p2.line_mode, "on");
48     assert_checkequal(p3.line_mode, "off");
49     assert_checkequal(p4.line_mode, "on");
50
51     assert_checkequal(p1.mark_mode, "off");
52     assert_checkequal(p2.mark_mode, "off");
53     assert_checkequal(p3.mark_mode, "on");
54     assert_checkequal(p4.mark_mode, "off");
55 endfunction
56 assert_checkcscope();
57
58 // Simulate again to check multi-simulations cases
59 xcos_simulate(scs_m, 4);
60 assert_checkcscope();
61