Scicos: reimplement scicos_block() depth comparison
[scilab.git] / scilab / modules / scicos / tests / unit_tests / comparison.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2015 - Scilab Enterprises - Paul Bignier
4 // Copyright (C) 2017 - Scilab Enterprises - Clement DAVID
5 //
6 //  This file is distributed under the same license as the Scilab package.
7 // =============================================================================
8 //
9 // <-- XCOS TEST -->
10 // <-- CLI SHELL MODE -->
11 //
12 b = scicos_block();
13 assert_checktrue(and(b==b));
14 d = scicos_diagram();
15 assert_checktrue(and(d==d));
16 l = scicos_link();
17 assert_checktrue(and(l==l));
18 assert_checkfalse(b==l);
19 assert_checkfalse(b==d);
20 assert_checkfalse(d==l);
21 // Just modifying 'graphics'
22 b2 = b;
23 b2.graphics.sz = [50 50];
24 resRef = [%t %f %t %t %t];
25 assert_checkequal(b==b2, resRef);
26 // 'graphics', 'model' and 'gui' differ
27 Sum = BIGSOM_f("define");
28 resRef = [%t %f %f %f %t];
29 assert_checkequal(b==Sum, resRef);
30 // 'props' and 'objs' differ
31 d2 = d;
32 d2.props.tf = 50;
33 d2.objs = list(Sum);
34 resRef = [%t %f %f %t %t];
35 assert_checkequal(d==d2, resRef);
36 // Now test '~='
37 assert_checkfalse(or(b~=b));
38 assert_checkfalse(or(d~=d));
39 assert_checkfalse(or(l~=l));
40 assert_checktrue(b~=l);
41 assert_checktrue(b~=d);
42 assert_checktrue(d~=l);
43 resRef = [%f %t %f %f %f];
44 assert_checkequal(b~=b2, resRef);
45 resRef = [%f %t %t %t %f];
46 assert_checkequal(b~=Sum, resRef);
47 resRef = [%f %t %t %f %f];
48 assert_checkequal(d~=d2, resRef);
49 // check with an object hierarchy
50 o1 = CLOCK_f("define");
51 o2 = CLOCK_f("define");
52 assert_checktrue(o1 == o2);
53 o1.model.rpar.objs(2).graphics.exprs = ["30" ; "0"];
54 assert_checkequal(o1 == o2, [%t %t %f %t %t]);