Xcos tests: Minor fix 70/14070/2
Paul Bignier [Wed, 19 Mar 2014 08:57:11 +0000 (09:57 +0100)]
Re-redefine messagebox after https://codereview.scilab.org/#/c/14027/.

Change-Id: If3ad3a09a2fdfe647fa9d1356ccc2b13e5c09301

scilab/modules/xcos/tests/nonreg_tests/bug_8397.dia.ref
scilab/modules/xcos/tests/nonreg_tests/bug_8397.tst

index d3bc38a..056420e 100644 (file)
@@ -21,27 +21,26 @@ xml_file = TMPDIR + "/sample_imSim.xml";
 c_file = TMPDIR + "/sample_im.c";
 // unsolvable system of equation
 mo_content = [..
-       "class sample_imf";..
-       "    Real `a` """";";..
-       "    Real `b` """";";..
-       "    Real `c` """";";..
-       "equation";..
-       "    a = b + 3 * c;";..
-       "    c = a + 3 * b;";..
-       "end sample_imf;";..
+"class sample_imf";..
+"    Real `a` """";";..
+"    Real `b` """";";..
+"    Real `c` """";";..
+"equation";..
+"    a = b + 3 * c;";..
+"    c = a + 3 * b;";..
+"end sample_imf;";..
 ""];
 // Creating source content
-fd = mopen(src_file, 'wt');
+fd = mopen(src_file, "wt");
 mputl(mo_content, fd);
 mclose(fd);
 // override messagebox method
 previous_ptr = funptr("messagebox");
 clearfun("messagebox");
-function messagebox(msg, strType, isModal), endfunction
+function messagebox(msg, Title, icon, isModal), endfunction
 // modelicac call
 ok = modelicac(src_file, function_file, xml_file, %t, c_file, %f);
-   Fatal error: exception Failure("The number of equations doesn't match the number of variables: 2 equations and 3 variables.")
-if ok then bugmes();quit;end
+assert_checkequal(ok, %f);
 clear("messagebox");
 newfun("messagebox", previous_ptr);
 clear("previous_ptr");
index 7405134..cf56a7a 100644 (file)
@@ -25,29 +25,29 @@ c_file = TMPDIR + "/sample_im.c";
 
 // unsolvable system of equation
 mo_content = [..
-       "class sample_imf";..
-       "    Real `a` """";";..
-       "    Real `b` """";";..
-       "    Real `c` """";";..
-       "equation";..
-       "    a = b + 3 * c;";..
-       "    c = a + 3 * b;";..
-       "end sample_imf;";..
+"class sample_imf";..
+"    Real `a` """";";..
+"    Real `b` """";";..
+"    Real `c` """";";..
+"equation";..
+"    a = b + 3 * c;";..
+"    c = a + 3 * b;";..
+"end sample_imf;";..
 ""];
 
 // Creating source content
-fd = mopen(src_file, 'wt');
+fd = mopen(src_file, "wt");
 mputl(mo_content, fd);
 mclose(fd);
 
 // override messagebox method
 previous_ptr = funptr("messagebox");
 clearfun("messagebox");
-function messagebox(msg, strType, isModal), endfunction
+function messagebox(msg, Title, icon, isModal), endfunction
 
 // modelicac call
 ok = modelicac(src_file, function_file, xml_file, %t, c_file, %f);
-if ok then pause, end
+assert_checkequal(ok, %f);
 
 clear("messagebox");
 newfun("messagebox", previous_ptr);