ilib_for_link, ilib_build do not accept files with ".o" or ".obj" extensions for...
[scilab.git] / scilab / modules / dynamic_link / tests / nonreg_tests / bug_7907.dia.ref
index b7fee27..f508525 100644 (file)
 // ilib_build, ilib_for_link, ... did not check 'files' input argument.
 // 
 //
-ilib_verbose(0);
-cd(TMPDIR);
-mputl("void sci_fun1(){}", TMPDIR + "/fun1.c");
-files = "fun1.o";
-ilib_build("build_c", ["fun1", "sci_fun1"],files,[]);
-WARNING: Function ilib_build is obsolete.
-WARNING: Please use a managed file extension for input argument #3 instead.
-WARNING: This function will be permanently removed in Scilab 5.3.1
-
-WARNING: Function ilib_compile is obsolete.
-WARNING: Please use a managed file extension for input argument #3 instead.
-WARNING: This function will be permanently removed in Scilab 5.3.1
-
-mdelete(TMPDIR + "/fun1.c");
 if getos() <> "Windows" then
   fnameref = "ilib_gen_Make_unix";
   idargref = 2;
@@ -37,13 +23,20 @@ else
   fnameref = "ilib_gen_Make";
   idargref = 3;
 end
-files = ['fun1.c','fun2.c','sci_fun1.c'];
+ilib_verbose(0);
+cd(TMPDIR);
+// check with old extension (file fun1.c exists) (no more managed)
+mputl("void sci_fun1(){}", TMPDIR + "/fun1.c");
+files = "fun1.o";
 if execstr("ilib_build(""build_c"", [""fun1"", ""sci_fun1""],files,[]);", "errcatch") <> 999 then bugmes();quit;end
-if lasterror() <> msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), fnameref, idargref) then bugmes();quit;end
-if execstr("ilib_for_link(""ext1c"", ""fun1.c"", [], ""c"");", "errcatch") <> 999 then bugmes();quit;end
-if lasterror() <> msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), fnameref, idargref) then bugmes();quit;end
+if lasterror() <> msprintf(gettext("%s: A managed file extension for input argument #%d expected."), "ilib_build", 3) then bugmes();quit;end
+mdelete(TMPDIR + "/fun1.c");
+// check with old extension (file fun2.c does not exist)
+files = "fun2.o";
+if execstr("ilib_build(""build_c"", [""fun2"", ""sci_fun2""],files,[]);", "errcatch") <> 999 then bugmes();quit;end
+if lasterror() <> msprintf(gettext("%s: A managed file extension for input argument #%d expected."), "ilib_build", 3) then bugmes();quit;end
 if execstr("ilib_for_link(""ext1c"", ""fun1.c"", [], ""c"");", "errcatch") <> 999 then bugmes();quit;end
-if lasterror() <> msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), fnameref, idargref) then bugmes();quit;end
+if lasterror() <> msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), "ilib_for_link", 2) then bugmes();quit;end
 if execstr("ilib_mex_build(""libmex"", [""mexf16"", ""mexfunction16"", ""cmex""],[""fun1.c""],[],[],"""","""","""");", "errcatch") <> 999 then bugmes();quit;end
-if lasterror() <> msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), fnameref, idargref) then bugmes();quit;end
+if lasterror() <> msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), "ilib_mex_build", 3) then bugmes();quit;end
 // =============================================================================