cf56a7a03f7b9c9de5d92c417cffbd85e02cacc6
[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 previous_ptr = funptr("messagebox");
45 clearfun("messagebox");
46 function messagebox(msg, Title, icon, isModal), endfunction
47
48 // modelicac call
49 ok = modelicac(src_file, function_file, xml_file, %t, c_file, %f);
50 assert_checkequal(ok, %f);
51
52 clear("messagebox");
53 newfun("messagebox", previous_ptr);
54 clear("previous_ptr");
55