Xcos MVC: Fixed default datatype
[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
53
54 // Try with another block containing event inputs
55 o = CSCOPE("define")
56 o.graphics
57 o.model
58 o.gui
59 o.doc
60
61 // Set the block to itself without making any modification
62 // (scicos_getvalue returns CSCOPE_f default parameters)
63 p = funcprot();
64 funcprot(0);
65 function [ok,clrs,win,wpos,wdim,ymin,ymax,per,N,heritance,nom,exprs] = scicos_getvalue(title, fields, Type, exprs)
66     ok = %t;
67     clrs = model.ipar(4:11)
68     win = model.ipar(1)
69     wpos = model.ipar(12:13)
70     wdim = model.ipar(14:15)
71     ymin = model.rpar(2)
72     ymax = model.rpar(3)
73     per = model.rpar(4)
74     N = model.ipar(3)
75     heritance = 0
76     nom = model.label
77     exprs = graphics.exprs;
78 endfunction
79 o = CSCOPE("set", o)