bug 6547 non regression test
[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 f = [
16 "function titi()"
17 "  disp(''titi'');"
18 "endfunction"
19 ""
20 "function tata()"
21 "  disp(''tata'');"
22 "endfunction"
23 ""
24 "function toto()"
25 "  disp(''toto'');"
26 "endfunction"
27 ""
28 ];
29 cd TMPDIR;
30 mkdir('bug_6549');
31 cd('bug_6549'); 
32 mputl(f,'toto.sci');
33 if genlib('bug_6549lib',TMPDIR + '/bug_6549') <> %t then bugmes();quit;end;
34 // =============================================================================
35 ierr = execstr('toto','errcatch');
36  
37  toto   
38 if ierr <> 0 then bugmes();quit;end
39 ierr = execstr('titi','errcatch');
40  
41  titi   
42 if ierr <> 0 then bugmes();quit;end
43 ierr = execstr('tata','errcatch');
44  
45  tata   
46 if ierr <> 0 then bugmes();quit;end
47 clear bug_6549lib titi toto tata ierr;
48 // =============================================================================
49 load(TMPDIR + '/bug_6549/lib');
50 ierr = execstr('toto','errcatch');
51  
52  toto   
53 if ierr <> 0 then bugmes();quit;end
54 ierr = execstr('titi','errcatch');
55  
56  titi   
57 if ierr <> 0 then bugmes();quit;end
58 ierr = execstr('tata','errcatch');
59  
60  tata   
61 if ierr <> 0 then bugmes();quit;end
62 clear bug_6549lib titi toto tata ierr;
63 // =============================================================================
64 bug_6549lib = lib(TMPDIR + '/bug_6549');
65 ierr = execstr('toto','errcatch');
66  
67  toto   
68 if ierr <> 0 then bugmes();quit;end
69 ierr = execstr('titi','errcatch');
70  
71  titi   
72 if ierr <> 0 then bugmes();quit;end
73 ierr = execstr('tata','errcatch');
74  
75  tata   
76 if ierr <> 0 then bugmes();quit;end
77 clear bug_6549lib titi toto tata ierr;
78 // =============================================================================