* Bug 16365 fixed: median(m,'r'|'c') was wrong after 5dc990
[scilab.git] / scilab / modules / xcos / tests / nonreg_tests / bug_13396.unix.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2014 - Scilab Enterprises - Vladislav TRUBKIN
4 //
5 // This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 // <-- XCOS TEST -->
8 //
9 //<-- ENGLISH IMPOSED -->
10 //
11 // <-- Non-regression test for bug 13396 -->
12 //
13 // <-- Bugzilla URL -->
14 // http://bugzilla.scilab.org/show_bug.cgi?id=13396
15 //
16 // <-- Short Description -->
17 // MBLOCK did not work with an external file containing the modelica class
18 //
19 global toggle;
20 toggle = %T;
21 assert_checktrue(importXcosDiagram(SCI + "/modules/xcos/tests/nonreg_tests/bug_13396.zcos"));
22 prot = funcprot();
23 funcprot(0);
24 level = ilib_verbose();
25 ilib_verbose(0);
26 // create external file
27 fd = mopen(TMPDIR+"/bug_13396.mo", "wt");
28 txt = ["class bug_13396"; ..
29 "    parameter Real R = 1.000000e-01;"; ..
30 "    Pin p,n;"; ..
31 "    Real i,v;"; ..
32 "equation"; ..
33 "    i = p.i;"; ..
34 "    n.i = -i;"; ..
35 "    v = p.v - n.v;"; ..
36 "    R * i = v;"; ..
37 "end bug_13396;"];
38 mputl(txt, fd);
39 mclose(fd);
40 // overload of scicos_getvalue and msg box
41 function str = x_mdialog(desc, labels, ini)
42     global toggle;
43     if toggle then
44         ini($) = TMPDIR + "/bug_13396.mo";
45         str = ini;
46         toggle = ~toggle;
47     else
48         str = []; // cancelling
49     end
50 endfunction
51 // set the path for external file
52 for i = 1:size(scs_m.objs)
53     if typeof(scs_m.objs(i)) == "Block" & scs_m.objs(i).gui == "MBLOCK" then
54         scs_m.objs(i).graphics.exprs(9) = TMPDIR + "/bug_13396.mo";
55         scs_m.objs(i).model.sim(1) = TMPDIR + "/bug_13396.mo";
56         MBLOCK("set", scs_m.objs(i));
57         break
58     end
59 end
60 // compile the diagram
61 [cpr, ok] = xcos_compile(scs_m);
62 --------------------------------------------\
63  Main Modelica : TMPDIR/bug_13396_im.mo
64  Flat Modelica : TMPDIR/bug_13396_imf.mo
65  Simulation C code :TMPDIR/bug_13396_im.c
66   "messagebox: Modelica blocks are reduced to a block with:"           
67   "messagebox: Number of differential states: 0"                       
68   "messagebox: Number of algebraic states: 1"                          
69   "messagebox: Number of discrete time states  : 0"                    
70   "messagebox: Number of zero-crossing surfaces: 1"                    
71   "messagebox: Number of modes  : 1"                                   
72   "messagebox: Number of inputs : 0"                                   
73   "messagebox: Number of outputs: 1"                                   
74   "messagebox: Input/output dependency:[T]"                            
75   "messagebox: Analytical Jacobian: enabled  (%Jacobian=%t)"           
76   "messagebox: Parameter embedding mode: enabled (%Modelica_ParEmb=%t)"
77   "messagebox: "                                                       
78   "messagebox: Generated files path: TMPDIR/"     
79   "messagebox: "                                                       
80 WARNING: Diagram contains implicit blocks, compiling for implicit Solver.
81 assert_checktrue(ok);
82 // simulate the diagram
83 xcos_simulate(scs_m, 4);
84 --------------------------------------------\
85  Main Modelica : TMPDIR/bug_13396_im.mo
86  Flat Modelica : TMPDIR/bug_13396_imf.mo
87  Simulation C code :TMPDIR/bug_13396_im.c
88   "messagebox: Modelica blocks are reduced to a block with:"           
89   "messagebox: Number of differential states: 0"                       
90   "messagebox: Number of algebraic states: 1"                          
91   "messagebox: Number of discrete time states  : 0"                    
92   "messagebox: Number of zero-crossing surfaces: 1"                    
93   "messagebox: Number of modes  : 1"                                   
94   "messagebox: Number of inputs : 0"                                   
95   "messagebox: Number of outputs: 1"                                   
96   "messagebox: Input/output dependency:[T]"                            
97   "messagebox: Analytical Jacobian: enabled  (%Jacobian=%t)"           
98   "messagebox: Parameter embedding mode: enabled (%Modelica_ParEmb=%t)"
99   "messagebox: "                                                       
100   "messagebox: Generated files path: TMPDIR/"     
101   "messagebox: "                                                       
102 WARNING: Diagram contains implicit blocks, compiling for implicit Solver.
103 WARNING: Diagram has been compiled for implicit solver
104 WARNING: switching to implicit Solver
105 funcprot(prot);
106 ilib_verbose(level);
107 mdelete(TMPDIR+"/bug_13396.mo");