english imposed for these tests - create new refs
[scilab.git] / scilab / modules / core / tests / unit_tests / fptr.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) ????-2008 - INRIA
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 // <!-- ENGLISH IMPOSED -->
9
10 //tests on functions pointer usage
11
12 f=exp
13 if type(f)<>130 then pause,end
14 if f(1)<>exp(1) then pause,end
15 l=list(exp,f,3);
16 f=l(1);
17 if type(f)<>130 then pause,end
18 if f(1)<>exp(1) then pause,end
19
20 f=l(2);
21 if type(f)<>130 then pause,end
22 if f(1)<>exp(1) then pause,end
23
24 l=tlist(['foo','fun'],exp);
25 f=l.fun;
26 if type(f)<>130 then pause,end
27 if f(1)<>exp(1) then pause,end
28
29 if l.fun(1)<>exp(1) then pause,end
30
31 function y=myf(x),y=exp(x),endfunction
32 l=tlist(['foo','fun'],myf);
33 if l.fun(1)<> exp(1) then pause,end
34
35
36 function y=foo(fun,x),y=fun(x),endfunction
37 if foo(exp,1)<>exp(1) then pause,end
38
39
40 function y=foo(fun,x,y),y=fun(x,y),endfunction
41 if foo(atan,1,0)<>atan(1,0) then pause,end
42
43 function y=foo(fun),y=[],for x=1:3,y=[y,fun(x)],end,endfunction
44 if foo(exp)<>exp(1:3) then pause,end
45
46 l=tlist(['foo','funs'],list(exp,sin,cos));
47 function y=foo(l),y=[],for k=1:3,y=[y,l.funs(k)(1)],end,endfunction
48 if or(foo(l)<>[exp(1),sin(1),cos(1)]) then pause,end