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