Scicos tests: fix getfield to mind Annotations and Links
[scilab.git] / scilab / modules / scicos / tests / unit_tests / getfield.dia.ref
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 loadXcosLibs();
11 // Diagram
12 scs_m = scicos_diagram();
13 fields = getfield(1, scs_m);
14 fieldsRef = ["diagram" "props" "objs" "version" "contrib"];
15 assert_checkequal(fields, fieldsRef);
16 props = getfield(2, scs_m);
17 assert_checkequal(props, scs_m.props);
18 objs = getfield(3, scs_m);
19 assert_checkequal(objs, scs_m.objs);
20 version = getfield(4, scs_m);
21 assert_checkequal(version, scs_m.version);
22 contrib = getfield(5, scs_m);
23 assert_checkequal(contrib, scs_m.contrib);
24 refMsg = msprintf(_("%s: Wrong value for input argument #%d: At most %d expected.\n"), "getfield", 1, 5);
25 assert_checkerror("getfield(6, scs_m)", refMsg);
26 // Block
27 b = scicos_block();
28 fields = getfield(1, b);
29 fieldsRef = ["Block" "graphics" "model" "gui" "doc"];
30 assert_checkequal(fields, fieldsRef);
31 graphics = getfield(2, b);
32 assert_checkequal(graphics, b.graphics);
33 model = getfield(3, b);
34 assert_checkequal(model, b.model);
35 gui = getfield(4, b);
36 assert_checkequal(gui, b.gui);
37 doc = getfield(5, b);
38 assert_checkequal(doc, b.doc);
39 refMsg = msprintf(_("%s: Wrong value for input argument #%d: At most %d expected.\n"), "getfield", 1, 5);
40 assert_checkerror("getfield(6, b)", refMsg);
41 // Annotation
42 t = TEXT_f("define");
43 fields = getfield(1, t);
44 fieldsRef = ["Text" "graphics" "model" "void" "gui"];
45 assert_checkequal(fields, fieldsRef);
46 graphics = getfield(2, t);
47 assert_checkequal(graphics, t.graphics);
48 model = getfield(3, t);
49 assert_checkequal(model, t.model);
50 void = getfield(4, t);
51 assert_checkequal(void, t.void);
52 gui = getfield(5, t);
53 assert_checkequal(gui, t.gui);
54 refMsg = msprintf(_("%s: Wrong value for input argument #%d: At most %d expected.\n"), "getfield", 1, 5);
55 assert_checkerror("getfield(6, t)", refMsg);
56 // Link
57 l = scicos_link();
58 fields = getfield(1, l);
59 fieldsRef = ["Link" "xx" "yy" "id" "thick" "ct" "from" "to"];
60 assert_checkequal(fields, fieldsRef);
61 xx = getfield(2, l);
62 assert_checkequal(xx, l.xx);
63 yy = getfield(3, l);
64 assert_checkequal(yy, l.yy);
65 id = getfield(4, l);
66 assert_checkequal(id, l.id);
67 thick = getfield(5, l);
68 assert_checkequal(thick, l.thick);
69 ct = getfield(6, l);
70 assert_checkequal(ct, l.ct);
71 from = getfield(7, l);
72 assert_checkequal(from, l.from);
73 to = getfield(8, l);
74 assert_checkequal(to, l.to);
75 refMsg = msprintf(_("%s: Wrong value for input argument #%d: At most %d expected.\n"), "getfield", 1, 8);
76 assert_checkerror("getfield(9, l)", refMsg);