Scicos tests: scicos.tst PASS
[scilab.git] / scilab / modules / scicos / tests / unit_tests / scicos.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) ????-2008 - INRIA
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 load('SCI/modules/scicos/macros/scicos_scicos/lib');
8 load('SCI/modules/scicos/macros/scicos_utils/lib');
9 if ( ~isdef("modelica_libs") | ..
10      ~isdef("scicos_pal_libs") ) then
11      [modelica_libs, scicos_pal_libs, %scicos_with_grid, %scs_wgrid]=initial_scicos_tables()
12  %scs_wgrid  =
13  
14     10.  
15     10.  
16     12.  
17  %scicos_with_grid  =
18  
19   F  
20  scicos_pal_libs  =
21  
22  
23          column 1 to 7
24  
25 !Branching  Events  Misc  Sinks  Threshold  Linear  MatrixOp  !
26  
27          column  8 to 13
28  
29 !NonLinear  Sources  Electrical  Hydraulics  PDE  IntegerOp  !
30  modelica_libs  =
31  
32  
33          column 1
34  
35 !SCI/modules/scicos_blocks/macros/Electrical  !
36  
37          column 2
38  
39 !SCI/modules/scicos_blocks/macros/Hydraulics  !
40 end
41 exec(loadpallibs,-1) 
42 exec('SCI/modules/scicos/tests/unit_tests/scicos_tests.sci');
43 options=default_options();
44 //build the block set
45 blockslib='scs'+['Branching','Events','Misc','Sinks','Threshold','Linear', ...
46           'NonLinear','Sources','Electrical','Hydraulics']+'lib';
47 Blocs=[]
48  Blocs  =
49  
50      []
51 for blocklib=blockslib
52   B=string(blocklib);Blocs=[Blocs;B(2:$)];
53 end
54 Blocs(Blocs=="m_sin")=[];
55 nb=size(Blocs,1);
56 if checkdefine() then bugmes();quit;end
57 if checkinputs() then bugmes();quit;end
58 if checkoutputs() then bugmes();quit;end
59 if checkorigin() then bugmes();quit;end
60 if checkdeput() then bugmes();quit;end
61 if checkfiring() then bugmes();quit;end
62 if check_define_ports() then bugmes();quit;end
63 if check_set_ports() then bugmes();quit;end