c1bca6fdefff1451abdcb2f936c7430bace27c8b
[scilab.git] / scilab / modules / scicos / tests / unit_tests / comparison.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 // <-- XCOS TEST -->
9 //
10 // <-- CLI SHELL MODE -->
11
12 b = scicos_block();
13 assert_checktrue(and(b==b));
14
15 d = scicos_diagram();
16 assert_checktrue(and(d==d));
17
18 l = scicos_link();
19 assert_checktrue(and(l==l));
20
21 assert_checkfalse(b==l);
22 assert_checkfalse(b==d);
23 assert_checkfalse(d==l);
24
25 // Just modifying 'graphics'
26 b2 = b;
27 b2.graphics.sz = [50 50];
28 resRef = [%t %f %t %t %t];
29 assert_checkequal(b==b2, resRef);
30
31 // 'graphics', 'model' and 'gui' differ
32 Sum = BIGSOM_f("define");
33 resRef = [%t %f %f %f %t];
34 assert_checkequal(b==Sum, resRef);
35
36 // 'props' and 'objs' differ
37 d2 = d;
38 d2.props.tf = 50;
39 d2.objs = list(Sum);
40 resRef = [%t %f %f %t %t];
41 assert_checkequal(d==d2, resRef);
42
43
44 // Now test '~='
45 assert_checkfalse(or(b~=b));
46 assert_checkfalse(or(d~=d));
47 assert_checkfalse(or(l~=l));
48
49 assert_checktrue(b~=l);
50 assert_checktrue(b~=d);
51 assert_checktrue(d~=l);
52
53 resRef = [%f %t %f %f %f];
54 assert_checkequal(b~=b2, resRef);
55
56 resRef = [%f %t %t %t %f];
57 assert_checkequal(b~=Sum, resRef);
58
59 resRef = [%f %t %t %f %f];
60 assert_checkequal(d~=d2, resRef);