b7fee2722a5f06b748166146378b784ba1e4fac3
[scilab.git] / scilab / modules / dynamic_link / tests / nonreg_tests / bug_7907.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2010 - DIGITEO - Allan CORNET
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 //
8 // <-- JVM NOT MANDATORY -->
9 // <-- ENGLISH IMPOSED -->
10 //
11 // <-- Non-regression test for bug 7907 -->
12 //
13 // <-- Bugzilla URL -->
14 // http://bugzilla.scilab.org/show_bug.cgi?id=7907
15 // <-- Short Description -->
16 // ilib_build, ilib_for_link, ... did not check 'files' input argument.
17 // 
18 //
19 ilib_verbose(0);
20 cd(TMPDIR);
21 mputl("void sci_fun1(){}", TMPDIR + "/fun1.c");
22 files = "fun1.o";
23 ilib_build("build_c", ["fun1", "sci_fun1"],files,[]);
24 WARNING: Function ilib_build is obsolete.
25 WARNING: Please use a managed file extension for input argument #3 instead.
26 WARNING: This function will be permanently removed in Scilab 5.3.1
27
28 WARNING: Function ilib_compile is obsolete.
29 WARNING: Please use a managed file extension for input argument #3 instead.
30 WARNING: This function will be permanently removed in Scilab 5.3.1
31
32 mdelete(TMPDIR + "/fun1.c");
33 if getos() <> "Windows" then
34   fnameref = "ilib_gen_Make_unix";
35   idargref = 2;
36 else
37   fnameref = "ilib_gen_Make";
38   idargref = 3;
39 end
40 files = ['fun1.c','fun2.c','sci_fun1.c'];
41 if execstr("ilib_build(""build_c"", [""fun1"", ""sci_fun1""],files,[]);", "errcatch") <> 999 then bugmes();quit;end
42 if lasterror() <> msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), fnameref, idargref) then bugmes();quit;end
43 if execstr("ilib_for_link(""ext1c"", ""fun1.c"", [], ""c"");", "errcatch") <> 999 then bugmes();quit;end
44 if lasterror() <> msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), fnameref, idargref) then bugmes();quit;end
45 if execstr("ilib_for_link(""ext1c"", ""fun1.c"", [], ""c"");", "errcatch") <> 999 then bugmes();quit;end
46 if lasterror() <> msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), fnameref, idargref) then bugmes();quit;end
47 if execstr("ilib_mex_build(""libmex"", [""mexf16"", ""mexfunction16"", ""cmex""],[""fun1.c""],[],[],"""","""","""");", "errcatch") <> 999 then bugmes();quit;end
48 if lasterror() <> msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), fnameref, idargref) then bugmes();quit;end
49 // =============================================================================