Xcos MVC: fix for implicit links
[scilab.git] / scilab / modules / scicos / tests / unit_tests / model / Implicit_link.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 = Ground("define");
14 l = scicos_link(ct=[1 2]);
15 d = scicos_diagram(objs=list(o,l));
16 d.objs(2).to = [1 1 0];
17
18 assert_checkequal(d.objs(1).graphics.pin,  2);
19 assert_checkequal(d.objs(1).graphics.pout, []);
20
21 o = Ground("define");
22 l = scicos_link(ct=[1 2]);
23 d = scicos_diagram(objs=list(o,l));
24 d.objs(2).from = [1 1 0];
25
26 assert_checkequal(d.objs(1).graphics.pin,  2);
27 assert_checkequal(d.objs(1).graphics.pout, []);
28
29
30 // Check that all the model items are freed
31 clear