Xcos tests: fix bug_8397 because of new funptr() and replaced disp(mprintf) by disp...
[scilab.git] / scilab / modules / xcos / tests / nonreg_tests / bug_8397.tst
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
8 // <-- XCOS TEST -->
9 //
10 // <-- Non-regression test for bug 8397 -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/show_bug.cgi?id=8397
14 //
15 // <-- Short Description -->
16 // After detection of variable/equation difference, the error message should be
17 // printed on the scilab console but must not deactivate xcos simulation.
18 //
19
20
21 src_file = TMPDIR + "/sample_imf.mo";
22 function_file = TMPDIR + "/sample_imf_functions.mo";
23 xml_file = TMPDIR + "/sample_imSim.xml";
24 c_file = TMPDIR + "/sample_im.c";
25
26 // unsolvable system of equation
27 mo_content = [..
28 "class sample_imf";..
29 "    Real `a` """";";..
30 "    Real `b` """";";..
31 "    Real `c` """";";..
32 "equation";..
33 "    a = b + 3 * c;";..
34 "    c = a + 3 * b;";..
35 "end sample_imf;";..
36 ""];
37
38 // Creating source content
39 fd = mopen(src_file, "wt");
40 mputl(mo_content, fd);
41 mclose(fd);
42
43 // override messagebox method
44 save_messagebox = messagebox;
45 p = funcprot();
46 funcprot(0);
47 function messagebox(msg, Title, icon, isModal), endfunction
48 funcprot(p);
49
50 // modelicac call
51 ok = modelicac(src_file, function_file, xml_file, %t, c_file, %f);
52 assert_checkequal(ok, %f);
53
54 messagebox = save_messagebox;