056420e61ace879c453bfd62d81a597a01396abb
[scilab.git] / scilab / modules / xcos / tests / nonreg_tests / bug_8397.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2010 - DIGITEO - ClĂ©ment DAVID
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 // <-- XCOS TEST -->
8 //
9 // <-- Non-regression test for bug 8397 -->
10 //
11 // <-- Bugzilla URL -->
12 // http://bugzilla.scilab.org/show_bug.cgi?id=8397
13 //
14 // <-- Short Description -->
15 // After detection of variable/equation difference, the error message should be
16 // printed on the scilab console but must not deactivate xcos simulation.
17 //
18 src_file = TMPDIR + "/sample_imf.mo";
19 function_file = TMPDIR + "/sample_imf_functions.mo";
20 xml_file = TMPDIR + "/sample_imSim.xml";
21 c_file = TMPDIR + "/sample_im.c";
22 // unsolvable system of equation
23 mo_content = [..
24 "class sample_imf";..
25 "    Real `a` """";";..
26 "    Real `b` """";";..
27 "    Real `c` """";";..
28 "equation";..
29 "    a = b + 3 * c;";..
30 "    c = a + 3 * b;";..
31 "end sample_imf;";..
32 ""];
33 // Creating source content
34 fd = mopen(src_file, "wt");
35 mputl(mo_content, fd);
36 mclose(fd);
37 // override messagebox method
38 previous_ptr = funptr("messagebox");
39 clearfun("messagebox");
40 function messagebox(msg, Title, icon, isModal), endfunction
41 // modelicac call
42 ok = modelicac(src_file, function_file, xml_file, %t, c_file, %f);
43 assert_checkequal(ok, %f);
44 clear("messagebox");
45 newfun("messagebox", previous_ptr);
46 clear("previous_ptr");