bug 7907 - check 'files' input argument
[scilab.git] / scilab / modules / dynamic_link / tests / nonreg_tests / bug_7907.tst
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
20 if getos() <> "Windows" then
21   fnameref = "ilib_gen_Make_unix";
22   idargref = 2;
23 else
24   fnameref = "ilib_gen_Make";
25   idargref = 3;
26 end
27
28 ilib_verbose(0);
29 cd(TMPDIR);
30
31 // check with old extension (file fun1.c exists)
32 mputl("void sci_fun1(){}", TMPDIR + "/fun1.c");
33 files = "fun1.o";
34 if execstr("ilib_build(""build_c"", [""fun1"", ""sci_fun1""],files,[]);", "errcatch") <> 0 then pause,end
35 mdelete(TMPDIR + "/fun1.c");
36
37 // check with old extension (file fun2.c does not exist)
38 files = "fun2.o";
39 if execstr("ilib_build(""build_c"", [""fun2"", ""sci_fun2""],files,[]);", "errcatch") <> 999 then pause,end
40 if lasterror() <> msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), fnameref, idargref) then pause, end
41
42 files = ['fun1.c','fun2.c','sci_fun1.c'];
43 if execstr("ilib_build(""build_c"", [""fun1"", ""sci_fun1""],files,[]);", "errcatch") <> 999 then pause,end
44 if lasterror() <> msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), fnameref, idargref) then pause, end
45
46 if execstr("ilib_for_link(""ext1c"", ""fun1.c"", [], ""c"");", "errcatch") <> 999 then pause, end
47 if lasterror() <> msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), fnameref, idargref) then pause, end
48
49 if execstr("ilib_for_link(""ext1c"", ""fun1.c"", [], ""c"");", "errcatch") <> 999 then pause, end
50 if lasterror() <> msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), fnameref, idargref) then pause, end
51
52 if execstr("ilib_mex_build(""libmex"", [""mexf16"", ""mexfunction16"", ""cmex""],[""fun1.c""],[],[],"""","""","""");", "errcatch") <> 999 then pause, end
53 if lasterror() <> msprintf(_("%s: Wrong value for input argument #%d: existing file(s) expected.\n"), fnameref, idargref) then pause, end
54
55 // =============================================================================