loadlib fixed about path file
[scilab.git] / scilab / modules / functions / tests / nonreg_tests / bug_6549.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 // <-- 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 bugmes();quit;end;
35 // =============================================================================
36 ierr = execstr("toto","errcatch");
37  toto
38 if ierr <> 0 then bugmes();quit;end
39 ierr = execstr("titi","errcatch");
40 if ierr == 0 then bugmes();quit;end
41 ierr = execstr("tata","errcatch");
42 if ierr == 0 then bugmes();quit;end
43 clear bug_6549lib titi toto tata ierr;
44 // =============================================================================
45 load(TMPDIR + "/bug_6549/lib");
46 ierr = execstr("toto","errcatch");
47  toto
48 if ierr <> 0 then bugmes();quit;end
49 ierr = execstr("titi","errcatch");
50 if ierr == 0 then bugmes();quit;end
51 ierr = execstr("tata","errcatch");
52 if ierr == 0 then bugmes();quit;end
53 clear bug_6549lib titi toto tata ierr;
54 // =============================================================================
55 bug_6549lib = lib(TMPDIR + "/bug_6549");
56 ierr = execstr("toto","errcatch");
57  toto
58 if ierr <> 0 then bugmes();quit;end
59 ierr = execstr("titi","errcatch");
60 if ierr == 0 then bugmes();quit;end
61 ierr = execstr("tata","errcatch");
62 if ierr == 0 then bugmes();quit;end
63 clear bug_6549lib titi toto tata ierr;
64 // =============================================================================