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