error(num): remaining occurrences removed from tests
[scilab.git] / scilab / modules / data_structures / tests / unit_tests / lstops.dia.ref
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 // <-- CLI SHELL MODE -->
8 funcprot(0);
9 //-----------------------
10 //-- extractions tests --
11 //-----------------------
12 l=list(1,2,-4);
13 if l(1)<>1 then bugmes();quit;end
14 if l(3)<>-4 then bugmes();quit;end
15 [x1,x2]=l([1 3]);
16 if x1<>l(1)|x2<>l(3) then bugmes();quit;end
17 [x2,x1]=l([3 1]);
18 if x1<>l(1)|x2<>l(3) then bugmes();quit;end
19 [x1,x2]=l([1;3]);
20 if x1<>l(1)|x2<>l(3) then bugmes();quit;end
21 [x2,x1]=l([3;1]);
22 if x1<>l(1)|x2<>l(3) then bugmes();quit;end
23 [x1,x2,x3]=l(:);
24 if x1<>l(1)|x2<>l(2)|x3<>l(3) then bugmes();quit;end
25 //with full tlists
26 l=tlist(["t","a","b","c"],1,-2,5);
27 if l(2)<>1 then bugmes();quit;end
28 if l(4)<>5 then bugmes();quit;end
29 [x1,x2]=l([2 4]);
30 if x1<>l(2)|x2<>l(4) then bugmes();quit;end
31 [x2,x1]=l([4 2]);
32 if x1<>l(2)|x2<>l(4) then bugmes();quit;end
33 if l("a")<>1 then bugmes();quit;end
34 if l("c")<>5 then bugmes();quit;end
35 [x1,x2]=l(["a" "c"]);
36 if x1<>l("a")|x2<>l("c") then bugmes();quit;end
37 [x2,x1]=l(["c" "a"]);
38 if x1<>l("a")|x2<>l("c") then bugmes();quit;end
39 [x1,x2]=l(["a";"c"]);
40 if x1<>l("a")|x2<>l("c") then bugmes();quit;end
41 [x2,x1]=l(["c";"a"]);
42 if x1<>l("a")|x2<>l("c") then bugmes();quit;end
43 //with partial tlists (no elements formal names)
44 l=tlist("t",1,-2,5);
45 deff("[f1,f2,f3,f4,f5,f6,f7]=%t_e(i,j,f)",[
46 "nams=[''a'',''b'',''c''];"
47 "for k=1:prod(size(i))";
48 "   kf=find(i(k)==nams);";
49 "   if kf==[] then error(""%s: Invalid index.\n""),end;"
50 "   execstr(''f''+string(k)+''=j(kf+1)'');"
51 "   end;"])
52 if l(2)<>1 then bugmes();quit;end
53 if l(4)<>5 then bugmes();quit;end
54 [x1,x2]=l([2 4]);
55 if x1<>l(2)|x2<>l(4) then bugmes();quit;end
56 [x2,x1]=l([4 2]);
57 if x1<>l(2)|x2<>l(4) then bugmes();quit;end
58 if l("a")<>1 then bugmes();quit;end
59 if l("c")<>5 then bugmes();quit;end
60 [x1,x2]=l(["a" "c"]);
61 if x1<>l("a")|x2<>l("c") then bugmes();quit;end
62 [x2,x1]=l(["c" "a"]);
63 if x1<>l("a")|x2<>l("c") then bugmes();quit;end
64 [x1,x2]=l(["a";"c"]);
65 if x1<>l("a")|x2<>l("c") then bugmes();quit;end
66 [x2,x1]=l(["c";"a"]);
67 if x1<>l("a")|x2<>l("c") then bugmes();quit;end
68 // extraction inside a input argument list
69 a=list(1,2,3,4);
70 if or(list(a(1:2))<>list(1,2)) then bugmes();quit;end
71 if type(list(a(1:2)))<>15 then bugmes();quit;end
72 deff("[a,b]=foo(x,y)","a=x;b=y")
73 [u,v]=foo(a(1:2));if u<>a(1)|v<>a(2) then bugmes();quit;end
74 deff("[a]=foo(x,y)","a=x+y")
75 if abs(foo(a(1:2)))<>3 then bugmes();quit;end
76 //---------------------
77 //-- insertion tests --
78 //---------------------
79 l=list(2,"a",-1);
80 l(1)=[1 2];
81 if l<>list([1 2],"a",-1) then bugmes();quit;end
82 l(1)=33;
83 if l<>list(33,"a",-1) then bugmes();quit;end
84 l(1)=33;
85 if l<>list(33,"a",-1) then bugmes();quit;end
86 l(0)=1.25;
87 if l<>list(1.25,33,"a",-1) then bugmes();quit;end
88 l(5)=[1 2 3];
89 if l<>list(1.25,33,"a",-1,[1 2 3]) then bugmes();quit;end
90 l(3)=null();
91 if l<>list(1.25,33,-1,[1 2 3]) then bugmes();quit;end
92 l(3)=null();
93 if l<>list(1.25,33,[1 2 3]) then bugmes();quit;end
94 l(4)=null();
95 if l<>list(1.25,33,[1 2 3]) then bugmes();quit;end
96 l(0)=null();
97 if l<>list(1.25,33,[1 2 3]) then bugmes();quit;end
98 l=tlist("t",2,"a",-1);
99 l(2)=[1 2 3];
100 if %l_n_l(l,tlist("t",[1 2 3],"a",-1)) then bugmes();quit;end
101 l(2)=33;
102 if %l_n_l(l,tlist("t",33,"a",-1)) then bugmes();quit;end
103 l(2)=33;
104 if %l_n_l(l,tlist("t",33,"a",-1)) then bugmes();quit;end
105 l(4)=[1 2];
106 if %l_n_l(l,tlist("t",33,"a",[1,2])) then bugmes();quit;end
107 l(2)=null();
108 if %l_n_l(l,tlist("t","a",[1,2])) then bugmes();quit;end
109 l(1)=null();
110 if %l_n_l(l,list("a",[1,2])) then bugmes();quit;end
111 funcprot(1);