typo
[scilab.git] / tests / nonRegression / bug2263.sci
1 // Non-regression test file for bug 2263
2 // Serge Steer - Scilab Project
3 // Copyright INRIA
4 // 2 janv 2007
5
6 mode(-1);
7 clear;
8 function [a,b,c,d,e]=test()
9   a=1;b=2;c=3;d=4;e=5;
10 endfunction
11 [out.a.t1,out.a.t2,out.a.t3,out.a.t4]=test();
12 T=%t;
13 T=T&and(out==mlist(["st","dims","a"],int32([1,1]),..
14                    mlist(["st","dims","t4","t3","t2","t1"],int32([1,1]),4,3,2,1))) ;
15
16 clear out
17 [out.a.t1,t2,out.a.t3,t4]=test();
18 T=T&and(out==mlist(["st","dims","a"],int32([1,1]),..
19                    mlist(["st","dims","t3","t1"],int32([1,1]),3,1)))&t2==2&t4==4;
20
21 clear a
22 [a.t1,a.t2,a.t3,a.t4]=test();
23 T=T& and(a==mlist(["st","dims","t4","t3","t2","t1"],int32([1,1]),4,3,2,1));
24
25 clear a
26 [t1,a.t2,t3,a.t4]=test();
27 T=T& and(a==mlist(["st","dims","t4","t2"],int32([1,1]),4,2))&t1==1&t3==3;
28
29 [t1,t2,t3,t4]=test();
30 T=T&and([t1 t2 t3 t4]==[1 2 3 4]);
31
32 affich_result(T,2263);