fix core tests
[scilab.git] / scilab / modules / core / tests / nonreg_tests / bug_6730.dia.ref
1 //<-- CLI SHELL MODE -->
2 // =============================================================================
3 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
4 // Copyright (C) 2005-2010 - INRIA - Serge.Steer@inria.fr
5 //
6 //  This file is distributed under the same license as the Scilab package.
7 // =============================================================================
8 // <-- Non-regression test for bug6730 -->
9 //
10 // <-- Bugzilla URL -->
11 // http://bugzilla.scilab.org/show_bug.cgi?id=6730
12 //
13 // <-- Short Description -->
14 //problem with function calls when seen has member of an mlist
15 function [x,y,z]=myfun(varargin), x=varargin,y=2;z=3;,endfunction
16 function fun=%foo_e(name,M);  fun=myfun;endfunction
17 a=mlist('foo');
18 b=mlist(['foo','hello'],myfun);
19 c=mlist(['foo','hello'],list('xxxx','yyyyy','zzzzz'));
20 [x,y,z]=b.hello()
21  x  = 
22      ()
23  y  = 
24    2.
25  z  = 
26    3.
27 if x<>list()|y<>2|z<>3 then bugmes();quit;end
28 [x,y,z]=a.hello()
29  x  = 
30      ()
31  y  = 
32    2.
33  z  = 
34    3.
35 if x<>list()|y<>2|z<>3 then bugmes();quit;end
36 [x,y,z]=c.hello(1:3)
37  x  = 
38   "xxxx"
39  y  = 
40   "yyyyy"
41  z  = 
42   "zzzzz"
43 if x<>'xxxx'|y<>'yyyyy'|z<>'zzzzz' then bugmes();quit;end
44 function [x,y,z]=myfun(varargin), x=varargin,y=2;z=3;,endfunction
45 function fun=%foo_e(name,M);  fun=myfun;endfunction
46 a=mlist('foo');
47 b=mlist(['foo','hello'],myfun);
48 c=mlist(['foo','hello'],list('xxxx','yyyyy','zzzzz'));
49 if b.hello()<>list()  then bugmes();quit;end
50 if a.hello()<>list()  then bugmes();quit;end
51 if or(c.hello()<>list('xxxx','yyyyy','zzzzz')) then bugmes();quit;end
52 if or(b.hello(1:2)<>list(1:2))  then bugmes();quit;end
53 if or(a.hello(1:2)<>list(1:2))  then bugmes();quit;end
54 if c.hello(2)<>'yyyyy' then bugmes();quit;end