Xcos MVC: slight improvements in Adapters
[scilab.git] / scilab / modules / scicos / tests / unit_tests / model / Consecutive_init.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2014 - 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 scicos_log("TRACE");
12
13 // Check consecutive initialization of a diagram in a SuperBlock
14 super = scicos_block();
15
16 d         = scicos_diagram();
17 sub       = scicos_block();
18 d.objs(1) = sub;
19
20 super.model.rpar = d;
21 // 'b' is a SuperBlock containing a Block
22 sizeBeforeInsert = size(super.model.rpar.objs);
23 super.model.rpar = d;
24 sizeAfterInsert  = size(super.model.rpar.objs);
25
26 assert_checkequal(sizeBeforeInsert, 1);
27 assert_checkequal(sizeAfterInsert,  1);
28
29 // Check consecutive initialization of a SuperBlock in a diagram
30 superD = scicos_diagram();
31
32 superD.objs(1) = super;
33 // 'superD' is a diagram containing a SuperBlock
34 sBeforeInsert = size(superD.objs(1).model.rpar.objs);
35 superD.objs(1) = super;
36 sAfterInsert  = size(superD.objs(1).model.rpar.objs);
37
38 assert_checkequal(sizeBeforeInsert, 1);
39 assert_checkequal(sizeAfterInsert,  1);
40
41
42 // Check that all the model items are freed
43 clear