Xcos MVC: slight improvements in Adapters
[scilab.git] / scilab / modules / scicos / tests / unit_tests / model / Cpr_State.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 // Allocate a State and check its default values
14 state = scicos_state();
15
16 header = ["xcs" "x" "z" "oz" "iz" "tevts" "evtspt" "pointi" "outtb"];
17
18 assert_checkequal(state(1), header);
19 for i=2:7
20     assert_checkequal(state(i), []);
21 end
22 assert_checkequal(state(8), 1);
23 assert_checkequal(state(9), list());
24
25
26 // Allocate a Cpr and check its default values
27 cpr = scicos_cpr();
28
29 header = ["cpr" "state" "sim" "cor" "corinv"];
30
31 assert_checkequal(cpr(1), header);
32 assert_checkequal(cpr(2), state);
33 assert_checkequal(cpr(3), scicos_sim());
34 assert_checkequal(cpr(4), list());
35 assert_checkequal(cpr(5), list());