51f9967f6d33b5b9c30e5deaec99e5cedf7a647d
[scilab.git] / scilab / modules / functions / tests / nonreg_tests / bug_6549.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 // <-- Non-regression test for bug 6549 -->
8 //
9 // <-- Bugzilla URL -->
10 // http://bugzilla.scilab.org/show_bug.cgi?id=6549
11 //
12 // <-- Short Description -->
13 // genlib function had a behavior which was not consistent with the load function.
14 // =============================================================================
15 // <-- CLI SHELL MODE -->
16 f = [
17 "function titi()"
18 "  disp(''titi'');"
19 "endfunction"
20 ""
21 "function tata()"
22 "  disp(''tata'');"
23 "endfunction"
24 ""
25 "function toto()"
26 "  disp(''toto'');"
27 "endfunction"
28 ""
29 ];
30 cd TMPDIR;
31 mkdir("bug_6549");
32 cd("bug_6549");
33 mputl(f,"toto.sci");
34 if genlib("bug_6549lib",TMPDIR + "/bug_6549") <> %t then pause,end;
35 // =============================================================================
36 ierr = execstr("toto","errcatch");
37 if ierr <> 0 then pause,end
38 ierr = execstr("titi","errcatch");
39 if ierr <> 0 then pause,end
40 ierr = execstr("tata","errcatch");
41 if ierr <> 0 then pause,end
42 clear bug_6549lib titi toto tata ierr;
43 // =============================================================================
44 load(TMPDIR + "/bug_6549/lib");
45 ierr = execstr("toto","errcatch");
46 if ierr <> 0 then pause,end
47 ierr = execstr("titi","errcatch");
48 if ierr <> 0 then pause,end
49 ierr = execstr("tata","errcatch");
50 if ierr <> 0 then pause,end
51 clear bug_6549lib titi toto tata ierr;
52 // =============================================================================
53 bug_6549lib = lib(TMPDIR + "/bug_6549");
54 ierr = execstr("toto","errcatch");
55 if ierr <> 0 then pause,end
56 ierr = execstr("titi","errcatch");
57 if ierr <> 0 then pause,end
58 ierr = execstr("tata","errcatch");
59 if ierr <> 0 then pause,end
60 clear bug_6549lib titi toto tata ierr;
61 // =============================================================================