Xcos tests: use the documented XCOS TEST flag
[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 // <-- XCOS TEST -->
9 // <-- TEST WITH GRAPHIC -->
10
11 // test scope values 
12
13
14 assert_checktrue(importXcosDiagram(SCI + "/modules/xcos/tests/unit_tests/cscope.xcos"));
15 xcos_simulate(scs_m, 4);
16
17 function assert_checkcscope()
18     f=gcf();
19     assert_checkequal(size(f.children), [1 1])
20
21     a=gca();
22     assert_checkequal(size(a.children), [4 1])
23
24     p1=a.children(1);
25     p2=a.children(2);
26     p3=a.children(3);
27     p4=a.children(4);
28
29     assert_checkequal(f.figure_id, 20006);
30     assert_checkequal(a.data_bounds, [30 -2 ; 60 3]);
31     assert_checkequal(a.x_label.text, "t");
32     assert_checkequal(a.y_label.text, "y");
33
34     // check removed due to junk data at the end
35     // assert_checkequal(size(p1.data), [315 2]);
36     // assert_checkequal(size(p2.data), [315 2]);
37     // assert_checkequal(size(p3.data), [315 2]);
38     // assert_checkequal(size(p4.data), [315 2]);
39
40     assert_checkequal(p1.polyline_style, 1);
41     assert_checkequal(p2.polyline_style, 1);
42     assert_checkequal(p3.polyline_style, 1);
43     assert_checkequal(p4.polyline_style, 1);
44
45     assert_checkequal(p1.line_mode, "on");
46     assert_checkequal(p2.line_mode, "on");
47     assert_checkequal(p3.line_mode, "off");
48     assert_checkequal(p4.line_mode, "on");
49
50     assert_checkequal(p1.mark_mode, "off");
51     assert_checkequal(p2.mark_mode, "off");
52     assert_checkequal(p3.mark_mode, "on");
53     assert_checkequal(p4.mark_mode, "off");
54 endfunction
55 assert_checkcscope();
56
57 // Simulate again to check multi-simulations cases
58 xcos_simulate(scs_m, 4);
59 assert_checkcscope();
60