Xcos MVC: fix the adaptor-local parameters getters
[scilab.git] / scilab / modules / scicos / tests / unit_tests / model / Block.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 loadXcosLibs();
9
10 // Allocate a summation block
11 o = BIGSOM_f("define")
12 o.graphics
13 o.model
14 o.gui
15 o.doc
16
17 // Set the block to itself without making any modification
18 // (scicos_getvalue returns BIGSOM_f default parameters)
19 p = funcprot();
20 funcprot(0);
21 function [ok,sgn,exprs] = scicos_getvalue(title, field, Type, exprs)
22     ok = %t;
23     sgn = [1;1];
24     exprs = sci2exp(sgn);
25 endfunction
26
27 o = BIGSOM_f("set", o)
28 o.graphics
29 o.model
30
31 // Now use scicos_getvalue to modify the 'exprs' and 'rpar' fields to "[-1;-1]" and '[-1;-1]'
32 function [ok,sgn,exprs] = scicos_getvalue(title, field, Type, exprs)
33     ok = %t;
34     sgn = [-1;-1];
35     exprs = sci2exp(sgn);
36 endfunction
37
38 o = BIGSOM_f("set", o)
39 o.graphics
40 o.model
41
42 // Now modify the block's entry port #2 to '1' and add a new one with value '1'
43 function [ok,sgn,exprs] = scicos_getvalue(title, field, Type, exprs)
44     ok = %t;
45     sgn = [-1;1;1];
46     exprs = sci2exp(sgn);
47 endfunction
48 funcprot(p);
49
50 o = BIGSOM_f("set", o)
51 o.graphics
52 o.model