Scicos tests: fix getfield to mind Annotations and Links
[scilab.git] / scilab / modules / scicos / tests / unit_tests / getfield.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2015 - Scilab Enterprises - Paul Bignier
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 //
8 // <-- CLI SHELL MODE -->
9 //
10
11 loadXcosLibs();
12
13 // Diagram
14 scs_m = scicos_diagram();
15
16 fields = getfield(1, scs_m);
17 fieldsRef = ["diagram" "props" "objs" "version" "contrib"];
18 assert_checkequal(fields, fieldsRef);
19
20 props = getfield(2, scs_m);
21 assert_checkequal(props, scs_m.props);
22
23 objs = getfield(3, scs_m);
24 assert_checkequal(objs, scs_m.objs);
25
26 version = getfield(4, scs_m);
27 assert_checkequal(version, scs_m.version);
28
29 contrib = getfield(5, scs_m);
30 assert_checkequal(contrib, scs_m.contrib);
31
32 refMsg = msprintf(_("%s: Wrong value for input argument #%d: At most %d expected.\n"), "getfield", 1, 5);
33 assert_checkerror("getfield(6, scs_m)", refMsg);
34
35
36 // Block
37 b = scicos_block();
38
39 fields = getfield(1, b);
40 fieldsRef = ["Block" "graphics" "model" "gui" "doc"];
41 assert_checkequal(fields, fieldsRef);
42
43 graphics = getfield(2, b);
44 assert_checkequal(graphics, b.graphics);
45
46 model = getfield(3, b);
47 assert_checkequal(model, b.model);
48
49 gui = getfield(4, b);
50 assert_checkequal(gui, b.gui);
51
52 doc = getfield(5, b);
53 assert_checkequal(doc, b.doc);
54
55 refMsg = msprintf(_("%s: Wrong value for input argument #%d: At most %d expected.\n"), "getfield", 1, 5);
56 assert_checkerror("getfield(6, b)", refMsg);
57
58
59 // Annotation
60 t = TEXT_f("define");
61
62 fields = getfield(1, t);
63 fieldsRef = ["Text" "graphics" "model" "void" "gui"];
64 assert_checkequal(fields, fieldsRef);
65
66 graphics = getfield(2, t);
67 assert_checkequal(graphics, t.graphics);
68
69 model = getfield(3, t);
70 assert_checkequal(model, t.model);
71
72 void = getfield(4, t);
73 assert_checkequal(void, t.void);
74
75 gui = getfield(5, t);
76 assert_checkequal(gui, t.gui);
77
78 refMsg = msprintf(_("%s: Wrong value for input argument #%d: At most %d expected.\n"), "getfield", 1, 5);
79 assert_checkerror("getfield(6, t)", refMsg);
80
81
82 // Link
83 l = scicos_link();
84
85 fields = getfield(1, l);
86 fieldsRef = ["Link" "xx" "yy" "id" "thick" "ct" "from" "to"];
87 assert_checkequal(fields, fieldsRef);
88
89 xx = getfield(2, l);
90 assert_checkequal(xx, l.xx);
91
92 yy = getfield(3, l);
93 assert_checkequal(yy, l.yy);
94
95 id = getfield(4, l);
96 assert_checkequal(id, l.id);
97
98 thick = getfield(5, l);
99 assert_checkequal(thick, l.thick);
100
101 ct = getfield(6, l);
102 assert_checkequal(ct, l.ct);
103
104 from = getfield(7, l);
105 assert_checkequal(from, l.from);
106
107 to = getfield(8, l);
108 assert_checkequal(to, l.to);
109
110 refMsg = msprintf(_("%s: Wrong value for input argument #%d: At most %d expected.\n"), "getfield", 1, 8);
111 assert_checkerror("getfield(9, l)", refMsg);