Xcos MVC: fix cloning of superblock in a diagram
[scilab.git] / scilab / modules / scicos / tests / unit_tests / model / Clone_SuperBlock_in_Diagram.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2016 - 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 o = CLOCK_c("define");
14 d = scicos_diagram();
15 d.objs(1) = o;
16 dClone = d;
17 dClone.props.tol(6) = 2; // COW: effectively cloning d into d2
18 assert_checkequal(dClone.objs(1).model.rpar.objs(3).from, [2 1 0]);
19 assert_checkequal(dClone.objs(1).model.rpar.objs(3).to,   [4 1 1]);
20
21 // Check that all the model items are freed
22 clear