CLI SHELL MODE missing
[scilab.git] / scilab / modules / ast / tests / unit_tests / comparisonequal.dia.ref
1 // ============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2014 - Scilab Enterprises - Sylvain GENIN
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // ============================================================================
7 // <-- CLI SHELL MODE -->
8 s = %s;
9 empty = [];
10 r = 2;
11 R = [1,2;3,4];
12 R3(:,:,1) = R;
13 R3(:,:,2) = R';
14 c = 1 + 2*%i;
15 C = [1+2*%i,2+4*%i;3+6*%i,4+8*%i];
16 C3(:,:,1) = C;
17 C3(:,:,2) = C';
18 e = eye();
19 ec = (5+%i) * eye();
20 p = 1 + %s - %s**2;
21 pc = 1 + %s - %s**2 + ( 2 - 3 * %s + 4 * %s**2 ) * %i;
22 P = [2*p, 2;4*p,-5*p];
23 PC = [2*pc, 2;4*pc,-5*pc];
24 SP = sparse([1,2;4,5;3,10],[1,2,3]);
25 SPC = sparse([1,2;4,5;3,10],[1,2,3]) * ( 1 + 4*%i);
26 SPB = sparse([1,2;2,1],[%t;%t],[2,2]);
27 SP1 = sparse([1,1],[10]);
28 SPC1 = sparse([1,1],[1]) * ( 2 + 6*%i);
29 i8 = int8(-8);
30 ui8 = uint8(8);
31 I8 = int8([-8 2 ; -24 -32]);
32 UI8 = uint8([8 2 ; 24 32]);
33 I16 = int16([-16 2 ; -48 -64]);
34 UI16 = uint16([16 2 ; 48 64]);
35 i16 = int16(-16);
36 ui16 = uint16(16);
37 i32 = int32(-32);
38 ui32 = uint32(32);
39 I32 = int32([-32 2 ; -96 -128]);
40 UI32 = uint32([32 2 ; 96 128]);
41 str = "string";
42 STR = ["string1" "string2";"string3" "string4"];
43 b = %f;
44 B = [%t %f;%f %t];
45 assert_checkequal(empty == empty, %t);
46 assert_checkequal(empty == r, %f);
47 assert_checkequal(empty == c, %f);
48 assert_checkequal(empty == R, %f);
49 assert_checkequal(empty == C, %f);
50 assert_checkequal(empty == e, %f);
51 assert_checkequal(empty == ec, %f);
52 assert_checkequal(empty == p, %f);
53 assert_checkequal(empty == pc, %f);
54 assert_checkequal(empty == P, %f);
55 assert_checkequal(empty == PC, %f);
56 assert_checkequal(empty == SP, %f);
57 assert_checkequal(empty == SPC, %f);
58 assert_checkequal(empty == SP1, %f);
59 assert_checkequal(empty == SPC1, %f);
60 assert_checkequal(empty == i8, %f);
61 assert_checkequal(empty == I8, %f);
62 assert_checkequal(empty == ui8, %f);
63 assert_checkequal(empty == UI8, %f);
64 assert_checkequal(empty == i16, %f);
65 assert_checkequal(empty == I16, %f);
66 assert_checkequal(empty == ui16, %f);
67 assert_checkequal(empty == UI16, %f);
68 assert_checkequal(empty == i32, %f);
69 assert_checkequal(empty == I32, %f);
70 assert_checkequal(empty == ui32, %f);
71 assert_checkequal(empty == UI32, %f);
72 assert_checkequal(empty == str, %f);
73 assert_checkequal(empty == STR, %f);
74 assert_checkequal(empty == b, %f);
75 assert_checkequal(empty == B, %f);
76 assert_checkequal(empty == SPB, %f);
77 assert_checkequal(r == empty, %f);
78 assert_checkequal(r == r, %t);
79 assert_checkequal(r == c, %f);
80 assert_checkequal(r == R, [%f,%t;%f,%f]);
81 assert_checkequal(r == C, [%f,%f;%f,%f]);
82 assert_checkequal(r == e, %f);
83 assert_checkequal(r == ec, %f);
84 assert_checkequal(r == p, %f);
85 assert_checkequal(r == pc, %f);
86 assert_checkequal(r == P, [%f,%t;%f,%f]);
87 assert_checkequal(r == PC, [%f,%t;%f,%f]);
88 assert_checkequal(r == SP, sparse([4,5],%t,[4,10]));
89 assert_checkequal(r == SPC, sparse([1,1],[%f],[4,10]));
90 assert_checkequal(r == SP1, sparse([1,1],[%f],[1,1]));
91 assert_checkequal(r == SPC1, sparse([1,1],[%f],[1,1]));
92 assert_checkequal(r == i8, %f);
93 assert_checkequal(r == I8, [%f,%t;%f,%f]);
94 assert_checkequal(r == ui8, %f);
95 assert_checkequal(r == UI8, [%f,%t;%f,%f]);
96 assert_checkequal(r == i16, %f);
97 assert_checkequal(r == I16, [%f,%t;%f,%f]);
98 assert_checkequal(r == ui16, %f);
99 assert_checkequal(r == UI16, [%f,%t;%f,%f]);
100 assert_checkequal(r == i32, %f);
101 assert_checkequal(r == I32, [%f,%t;%f,%f]);
102 assert_checkequal(r == ui32, %f);
103 assert_checkequal(r == UI32, [%f,%t;%f,%f]);
104 assert_checkequal(r == str, %f);
105 assert_checkequal(r == STR, %f);
106 assert_checkequal(r == b, %f);
107 assert_checkequal(r == B, %f);
108 assert_checkequal(r == SPB, %f);
109 assert_checkequal(c == empty, %f);
110 assert_checkequal(c == r, %f);
111 assert_checkequal(c == c, %t);
112 assert_checkequal(c == R, [%f,%f;%f,%f]);
113 assert_checkequal(c == C, [%t,%f;%f,%f]);
114 assert_checkequal(c == e, %f);
115 assert_checkequal(c == ec, %f);
116 assert_checkequal(c == p, %f);
117 assert_checkequal(c == pc, %f);
118 assert_checkequal(c == P, [%f,%f;%f,%f]);
119 assert_checkequal(c == PC, [%f,%f;%f,%f]);
120 assert_checkequal(c == SP, sparse([1,1],[%f],[4,10]));
121 assert_checkequal(c == SPC, sparse([1,1],[%f],[4,10]));
122 assert_checkequal(c == SP1, sparse([1,1],[%f],[1,1]));
123 assert_checkequal(c == SPC1, sparse([1,1],[%f],[1,1]));
124 assert_checkequal(c == i8, %f);
125 assert_checkequal(c == I8, [%f,%f;%f,%f]);
126 assert_checkequal(c == ui8, %f);
127 assert_checkequal(c == UI8, [%f,%f;%f,%f]);
128 assert_checkequal(c == i16, %f);
129 assert_checkequal(c == I16, [%f,%f;%f,%f]);
130 assert_checkequal(c == ui16, %f);
131 assert_checkequal(c == UI16, [%f,%f;%f,%f]);
132 assert_checkequal(c == i32, %f);
133 assert_checkequal(c == I32, [%f,%f;%f,%f]);
134 assert_checkequal(c == ui32, %f);
135 assert_checkequal(c == UI32, [%f,%f;%f,%f]);
136 assert_checkequal(c == str, %f);
137 assert_checkequal(c == STR, %f);
138 assert_checkequal(c == b, %f);
139 assert_checkequal(c == B, %f);
140 assert_checkequal(c == SPB, %f);
141 assert_checkequal(R == empty, %f);
142 assert_checkequal(R == r, [%f,%t;%f,%f]);
143 assert_checkequal(R == c, [%f,%f;%f,%f]);
144 assert_checkequal(R == R, [%t,%t;%t,%t]);
145 assert_checkequal(R == C, [%f,%f;%f,%f]);
146 assert_checkequal(R == e, [%t,%f;%f,%f]);
147 assert_checkequal(R == ec, [%f,%f;%f,%f]);
148 assert_checkequal(R == p, [%f,%f;%f,%f]);
149 assert_checkequal(R == pc, [%f,%f;%f,%f]);
150 assert_checkequal(R == P, [%f,%t;%f,%f]);
151 assert_checkequal(R == PC, [%f,%t;%f,%f]);
152 assert_checkequal(R == SP, %f);
153 assert_checkequal(R == SPC, %f);
154 assert_checkequal(R == SP1, %f);
155 assert_checkequal(R == SPC1, %f);
156 assert_checkequal(R == i8, [%f,%f;%f,%f]);
157 assert_checkequal(R == I8, [%f,%t;%f,%f]);
158 assert_checkequal(R == ui8, [%f,%f;%f,%f]);
159 assert_checkequal(R == UI8, [%f,%t;%f,%f]);
160 assert_checkequal(R == i16, [%f,%f;%f,%f]);
161 assert_checkequal(R == I16, [%f,%t;%f,%f]);
162 assert_checkequal(R == ui16, [%f,%f;%f,%f]);
163 assert_checkequal(R == UI16, [%f,%t;%f,%f]);
164 assert_checkequal(R == i32, [%f,%f;%f,%f]);
165 assert_checkequal(R == I32, [%f,%t;%f,%f]);
166 assert_checkequal(R == ui32, [%f,%f;%f,%f]);
167 assert_checkequal(R == UI32, [%f,%t;%f,%f]);
168 assert_checkequal(R == str, %f);
169 assert_checkequal(R == STR, %f);
170 assert_checkequal(R == b, %f);
171 assert_checkequal(R == B, %f);
172 assert_checkequal(R == SPB, %f);
173 assert_checkequal(C == empty, %f);
174 assert_checkequal(C == r, [%f,%f;%f,%f]);
175 assert_checkequal(C == c, [%t,%f;%f,%f]);
176 assert_checkequal(C == R, [%f,%f;%f,%f]);
177 assert_checkequal(C == C, [%t,%t;%t,%t]);
178 assert_checkequal(C == e, [%f,%f;%f,%f]);
179 assert_checkequal(C == ec, [%f,%f;%f,%f]);
180 assert_checkequal(C == p, [%f,%f;%f,%f]);
181 assert_checkequal(C == pc, [%f,%f;%f,%f]);
182 assert_checkequal(C == P, [%f,%f;%f,%f]);
183 assert_checkequal(C == PC, [%f,%f;%f,%f]);
184 assert_checkequal(C == SP, %f);
185 assert_checkequal(C == SPC, %f);
186 assert_checkequal(C == SP1, %f);
187 assert_checkequal(C == SPC1, %f);
188 assert_checkequal(C == i8, [%f,%f;%f,%f]);
189 assert_checkequal(C == I8, [%f,%f;%f,%f]);
190 assert_checkequal(C == ui8, [%f,%f;%f,%f]);
191 assert_checkequal(C == UI8, [%f,%f;%f,%f]);
192 assert_checkequal(C == i16, [%f,%f;%f,%f]);
193 assert_checkequal(C == I16, [%f,%f;%f,%f]);
194 assert_checkequal(C == ui16, [%f,%f;%f,%f]);
195 assert_checkequal(C == UI16, [%f,%f;%f,%f]);
196 assert_checkequal(C == i32, [%f,%f;%f,%f]);
197 assert_checkequal(C == I32, [%f,%f;%f,%f]);
198 assert_checkequal(C == ui32, [%f,%f;%f,%f]);
199 assert_checkequal(C == UI32, [%f,%f;%f,%f]);
200 assert_checkequal(C == str, %f);
201 assert_checkequal(C == STR, %f);
202 assert_checkequal(C == b, %f);
203 assert_checkequal(C == B, %f);
204 assert_checkequal(C == SPB, %f);
205 assert_checkequal(e == empty, %f);
206 assert_checkequal(e == r, %f);
207 assert_checkequal(e == c, %f);
208 assert_checkequal(e == R, [%t,%f;%f,%f]);
209 assert_checkequal(e == C, [%f,%f;%f,%f]);
210 assert_checkequal(e == e, %t);
211 assert_checkequal(e == ec, %f);
212 assert_checkequal(e == p, %f);
213 assert_checkequal(e == pc, %f);
214 assert_checkequal(e == P, [%f,%f;%f,%f]);
215 assert_checkequal(e == PC, [%f,%f;%f,%f]);
216 assert_checkequal(e == SP, %f);
217 assert_checkequal(e == SPC, %f);
218 assert_checkequal(e == SP1, %f);
219 assert_checkequal(e == SPC1, %f);
220 assert_checkequal(e == i8, %f);
221 assert_checkequal(e == I8, [%f,%f;%f,%f]);
222 assert_checkequal(e == ui8, %f);
223 assert_checkequal(e == UI8, [%f,%f;%f,%f]);
224 assert_checkequal(e == i16, %f);
225 assert_checkequal(e == I16, [%f,%f;%f,%f]);
226 assert_checkequal(e == ui16, %f);
227 assert_checkequal(e == UI16, [%f,%f;%f,%f]);
228 assert_checkequal(e == i32, %f);
229 assert_checkequal(e == I32, [%f,%f;%f,%f]);
230 assert_checkequal(e == ui32, %f);
231 assert_checkequal(e == UI32, [%f,%f;%f,%f]);
232 assert_checkequal(e == str, %f);
233 assert_checkequal(e == STR, %f);
234 assert_checkequal(e == b, %f);
235 assert_checkequal(e == B, %f);
236 assert_checkequal(e == SPB, %f);
237 assert_checkequal(ec == empty, %f);
238 assert_checkequal(ec == r, %f);
239 assert_checkequal(ec == c, %f);
240 assert_checkequal(ec == R, [%f,%f;%f,%f]);
241 assert_checkequal(ec == C, [%f,%f;%f,%f]);
242 assert_checkequal(ec == e, %f);
243 assert_checkequal(ec == ec, %t);
244 assert_checkequal(ec == p, %f);
245 assert_checkequal(ec == pc, %f);
246 assert_checkequal(ec == P, [%f,%f;%f,%f]);
247 assert_checkequal(ec == PC, [%f,%f;%f,%f]);
248 assert_checkequal(ec == SP, %f);
249 assert_checkequal(ec == SPC, %f);
250 assert_checkequal(ec == SP1, %f);
251 assert_checkequal(ec == SPC1, %f);
252 assert_checkequal(ec == i8, %f);
253 assert_checkequal(ec == I8, [%f,%f;%f,%f]);
254 assert_checkequal(ec == ui8, %f);
255 assert_checkequal(ec == UI8, [%f,%f;%f,%f]);
256 assert_checkequal(ec == i16, %f);
257 assert_checkequal(ec == I16, [%f,%f;%f,%f]);
258 assert_checkequal(ec == ui16, %f);
259 assert_checkequal(ec == UI16, [%f,%f;%f,%f]);
260 assert_checkequal(ec == i32, %f);
261 assert_checkequal(ec == I32, [%f,%f;%f,%f]);
262 assert_checkequal(ec == ui32, %f);
263 assert_checkequal(ec == UI32, [%f,%f;%f,%f]);
264 assert_checkequal(ec == str, %f);
265 assert_checkequal(ec == STR, %f);
266 assert_checkequal(ec == b, %f);
267 assert_checkequal(ec == B, %f);
268 assert_checkequal(ec == SPB, %f);
269 assert_checkequal(p == empty, %f);
270 assert_checkequal(p == r, %f);
271 assert_checkequal(p == c, %f);
272 assert_checkequal(p == R, [%f,%f;%f,%f]);
273 assert_checkequal(p == C, [%f,%f;%f,%f]);
274 assert_checkequal(p == e, %f);
275 assert_checkequal(p == ec, %f);
276 assert_checkequal(p == p, %t);
277 assert_checkequal(p == pc, %f);
278 assert_checkequal(p == P, [%f,%f;%f,%f]);
279 assert_checkequal(p == PC, [%f,%f;%f,%f]);
280 assert_checkequal(p == i8, %f);
281 assert_checkequal(p == I8, [%f,%f;%f,%f]);
282 assert_checkequal(p == ui8, %f);
283 assert_checkequal(p == UI8, [%f,%f;%f,%f]);
284 assert_checkequal(p == i16, %f);
285 assert_checkequal(p == I16, [%f,%f;%f,%f]);
286 assert_checkequal(p == ui16, %f);
287 assert_checkequal(p == UI16, [%f,%f;%f,%f]);
288 assert_checkequal(p == i32, %f);
289 assert_checkequal(p == I32, [%f,%f;%f,%f]);
290 assert_checkequal(p == ui32, %f);
291 assert_checkequal(p == UI32, [%f,%f;%f,%f]);
292 assert_checkequal(p == str, %f);
293 assert_checkequal(p == STR, %f);
294 assert_checkequal(p == b, %f);
295 assert_checkequal(p == B, %f);
296 assert_checkequal(pc == empty, %f);
297 assert_checkequal(pc == r, %f);
298 assert_checkequal(pc == c, %f);
299 assert_checkequal(pc == R, [%f,%f;%f,%f]);
300 assert_checkequal(pc == C, [%f,%f;%f,%f]);
301 assert_checkequal(pc == e, %f);
302 assert_checkequal(pc == ec, %f);
303 assert_checkequal(pc == p, %f);
304 assert_checkequal(pc == pc, %t);
305 assert_checkequal(pc == P, [%f,%f;%f,%f]);
306 assert_checkequal(pc == PC, [%f,%f;%f,%f]);
307 assert_checkequal(pc == i8, %f);
308 assert_checkequal(pc == I8, [%f,%f;%f,%f]);
309 assert_checkequal(pc == ui8, %f);
310 assert_checkequal(pc == UI8, [%f,%f;%f,%f]);
311 assert_checkequal(pc == i16, %f);
312 assert_checkequal(pc == I16, [%f,%f;%f,%f]);
313 assert_checkequal(pc == ui16, %f);
314 assert_checkequal(pc == UI16, [%f,%f;%f,%f]);
315 assert_checkequal(pc == i32, %f);
316 assert_checkequal(pc == I32, [%f,%f;%f,%f]);
317 assert_checkequal(pc == ui32, %f);
318 assert_checkequal(pc == UI32, [%f,%f;%f,%f]);
319 assert_checkequal(pc == str, %f);
320 assert_checkequal(pc == STR, %f);
321 assert_checkequal(pc == b, %f);
322 assert_checkequal(pc == B, %f);
323 assert_checkequal(P == empty, %f);
324 assert_checkequal(P == r, [%f,%t;%f,%f]);
325 assert_checkequal(P == c, [%f,%f;%f,%f]);
326 assert_checkequal(P == R, [%f,%t;%f,%f]);
327 assert_checkequal(P == C, [%f,%f;%f,%f]);
328 assert_checkequal(P == e, [%f,%f;%f,%f]);
329 assert_checkequal(P == ec, [%f,%f;%f,%f]);
330 assert_checkequal(P == p, [%f,%f;%f,%f]);
331 assert_checkequal(P == pc, [%f,%f;%f,%f]);
332 assert_checkequal(P == P, [%t,%t;%t,%t]);
333 assert_checkequal(P == PC, [%f,%t;%f,%f]);
334 assert_checkequal(P == i8, [%f,%f;%f,%f]);
335 assert_checkequal(P == I8, [%f,%t;%f,%f]);
336 assert_checkequal(P == ui8, [%f,%f;%f,%f]);
337 assert_checkequal(P == UI8, [%f,%t;%f,%f]);
338 assert_checkequal(P == i16, [%f,%f;%f,%f]);
339 assert_checkequal(P == I16, [%f,%t;%f,%f]);
340 assert_checkequal(P == ui16, [%f,%f;%f,%f]);
341 assert_checkequal(P == UI16, [%f,%t;%f,%f]);
342 assert_checkequal(P == i32, [%f,%f;%f,%f]);
343 assert_checkequal(P == I32, [%f,%t;%f,%f]);
344 assert_checkequal(P == ui32, [%f,%f;%f,%f]);
345 assert_checkequal(P == UI32, [%f,%t;%f,%f]);
346 assert_checkequal(P == str, %f);
347 assert_checkequal(P == STR, %f);
348 assert_checkequal(P == b, %f);
349 assert_checkequal(P == B, %f);
350 assert_checkequal(PC == empty, %f);
351 assert_checkequal(PC == r, [%f,%t;%f,%f]);
352 assert_checkequal(PC == c, [%f,%f;%f,%f]);
353 assert_checkequal(PC == R, [%f,%t;%f,%f]);
354 assert_checkequal(PC == C, [%f,%f;%f,%f]);
355 assert_checkequal(PC == e, [%f,%f;%f,%f]);
356 assert_checkequal(PC == ec, [%f,%f;%f,%f]);
357 assert_checkequal(PC == p, [%f,%f;%f,%f]);
358 assert_checkequal(PC == pc, [%f,%f;%f,%f]);
359 assert_checkequal(PC == P, [%f,%t;%f,%f]);
360 assert_checkequal(PC == PC, [%t,%t;%t,%t]);
361 assert_checkequal(PC == i8, [%f,%f;%f,%f]);
362 assert_checkequal(PC == I8, [%f,%t;%f,%f]);
363 assert_checkequal(PC == ui8, [%f,%f;%f,%f]);
364 assert_checkequal(PC == UI8, [%f,%t;%f,%f]);
365 assert_checkequal(PC == i16, [%f,%f;%f,%f]);
366 assert_checkequal(PC == I16, [%f,%t;%f,%f]);
367 assert_checkequal(PC == ui16, [%f,%f;%f,%f]);
368 assert_checkequal(PC == UI16, [%f,%t;%f,%f]);
369 assert_checkequal(PC == i32, [%f,%f;%f,%f]);
370 assert_checkequal(PC == I32, [%f,%t;%f,%f]);
371 assert_checkequal(PC == ui32, [%f,%f;%f,%f]);
372 assert_checkequal(PC == UI32, [%f,%t;%f,%f]);
373 assert_checkequal(PC == str, %f);
374 assert_checkequal(PC == STR, %f);
375 assert_checkequal(PC == b, %f);
376 assert_checkequal(PC == B, %f);
377 assert_checkequal(SP == empty, %f);
378 assert_checkequal(SP == r, sparse([4,5],%t,[4,10]));
379 assert_checkequal(SP == c, sparse([1,1],[%f],[4,10]));
380 assert_checkequal(SP == R, %f);
381 assert_checkequal(SP == C, %f);
382 assert_checkequal(SP == e, %f);
383 assert_checkequal(SP == ec, %f);
384 assert_checkequal(SP == SP, sparse([1,1;1,2;1,3;1,4;1,5;1,6;1,7;1,8;1,9;1,10;2,1;2,2;2,3;2,4;2,5;2,6;2,7;2,8;2,9;2,10;3,1;3,2;3,3;3,4;3,5;3,6;3,7;3,8;3,9;3,10;4,1;4,2;4,3;4,4;4,5;4,6;4,7;4,8;4,9;4,10],[%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t],[4,10]));
385 assert_checkequal(SP == SPC, sparse([1,1;1,3;1,4;1,5;1,6;1,7;1,8;1,9;1,10;2,1;2,2;2,3;2,4;2,5;2,6;2,7;2,8;2,9;2,10;3,1;3,2;3,3;3,4;3,5;3,6;3,7;3,8;3,9;4,1;4,2;4,3;4,4;4,6;4,7;4,8;4,9;4,10],[%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t],[4,10]));
386 assert_checkequal(SP == SP1, sparse([1,1],[%f],[4,10]));
387 assert_checkequal(SP == SPC1, sparse([1,1],[%f],[4,10]));
388 assert_checkequal(SP == i8, sparse([1,1],[%f],[4,10]));
389 assert_checkequal(SP == I8, %f);
390 assert_checkequal(SP == ui8, sparse([1,1],[%f],[4,10]));
391 assert_checkequal(SP == UI8, %f);
392 assert_checkequal(SP == i16, sparse([1,1],[%f],[4,10]));
393 assert_checkequal(SP == I16, %f);
394 assert_checkequal(SP == ui16, sparse([1,1],[%f],[4,10]));
395 assert_checkequal(SP == UI16, %f);
396 assert_checkequal(SP == i32, sparse([1,1],[%f],[4,10]));
397 assert_checkequal(SP == I32, %f);
398 assert_checkequal(SP == ui32, sparse([1,1],[%f],[4,10]));
399 assert_checkequal(SP == UI32, %f);
400 assert_checkequal(SP == str, %f);
401 assert_checkequal(SP == STR, %f);
402 assert_checkequal(SP == b, %f);
403 assert_checkequal(SP == B, %f);
404 assert_checkequal(SP == SPB, %f);
405 assert_checkequal(SPC == empty, %f);
406 assert_checkequal(SPC == r, sparse([1,1],[%f],[4,10]));
407 assert_checkequal(SPC == c, sparse([1,1],[%f],[4,10]));
408 assert_checkequal(SPC == R, %f);
409 assert_checkequal(SPC == C, %f);
410 assert_checkequal(SPC == e, %f);
411 assert_checkequal(SPC == ec, %f);
412 assert_checkequal(SPC == SP, sparse([1,1;1,3;1,4;1,5;1,6;1,7;1,8;1,9;1,10;2,1;2,2;2,3;2,4;2,5;2,6;2,7;2,8;2,9;2,10;3,1;3,2;3,3;3,4;3,5;3,6;3,7;3,8;3,9;4,1;4,2;4,3;4,4;4,6;4,7;4,8;4,9;4,10],[%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t],[4,10]));
413 assert_checkequal(SPC == SPC, sparse([1,1;1,2;1,3;1,4;1,5;1,6;1,7;1,8;1,9;1,10;2,1;2,2;2,3;2,4;2,5;2,6;2,7;2,8;2,9;2,10;3,1;3,2;3,3;3,4;3,5;3,6;3,7;3,8;3,9;3,10;4,1;4,2;4,3;4,4;4,5;4,6;4,7;4,8;4,9;4,10],[%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t;%t],[4,10]));
414 assert_checkequal(SPC == SP1, sparse([1,1],[%f],[4,10]));
415 assert_checkequal(SPC == SPC1, sparse([1,1],[%f],[4,10]));
416 assert_checkequal(SPC == i8, sparse([1,1],[%f],[4,10]));
417 assert_checkequal(SPC == I8, %f);
418 assert_checkequal(SPC == ui8, sparse([1,1],[%f],[4,10]));
419 assert_checkequal(SPC == UI8, %f);
420 assert_checkequal(SPC == i16, sparse([1,1],[%f],[4,10]));
421 assert_checkequal(SPC == I16, %f);
422 assert_checkequal(SPC == ui16, sparse([1,1],[%f],[4,10]));
423 assert_checkequal(SPC == UI16, %f);
424 assert_checkequal(SPC == i32, sparse([1,1],[%f],[4,10]));
425 assert_checkequal(SPC == I32, %f);
426 assert_checkequal(SPC == ui32, sparse([1,1],[%f],[4,10]));
427 assert_checkequal(SPC == UI32, %f);
428 assert_checkequal(SPC == str, %f);
429 assert_checkequal(SPC == STR, %f);
430 assert_checkequal(SPC == b, %f);
431 assert_checkequal(SPC == B, %f);
432 assert_checkequal(SPC == SPB, %f);
433 assert_checkequal(SP1 == empty, %f);
434 assert_checkequal(SP1 == r, sparse([1,1],[%f],[1,1]));
435 assert_checkequal(SP1 == c, sparse([1,1],[%f],[1,1]));
436 assert_checkequal(SP1 == R, %f);
437 assert_checkequal(SP1 == C, %f);
438 assert_checkequal(SP1 == e, %f);
439 assert_checkequal(SP1 == ec, %f);
440 assert_checkequal(SP1 == SP, sparse([1,1],[%f],[4,10]));
441 assert_checkequal(SP1 == SPC, sparse([1,1],[%f],[4,10]));
442 assert_checkequal(SP1 == SP1, sparse([1,1],%t,[1,1]));
443 assert_checkequal(SP1 == SPC1, sparse([1,1],[%f],[1,1]));
444 assert_checkequal(SP1 == i8, sparse([1,1],[%f],[1,1]));
445 assert_checkequal(SP1 == I8, %f);
446 assert_checkequal(SP1 == ui8, sparse([1,1],[%f],[1,1]));
447 assert_checkequal(SP1 == UI8, %f);
448 assert_checkequal(SP1 == i16, sparse([1,1],[%f],[1,1]));
449 assert_checkequal(SP1 == I16, %f);
450 assert_checkequal(SP1 == ui16, sparse([1,1],[%f],[1,1]));
451 assert_checkequal(SP1 == UI16, %f);
452 assert_checkequal(SP1 == i32, sparse([1,1],[%f],[1,1]));
453 assert_checkequal(SP1 == I32, %f);
454 assert_checkequal(SP1 == ui32, sparse([1,1],[%f],[1,1]));
455 assert_checkequal(SP1 == UI32, %f);
456 assert_checkequal(SP1 == str, %f);
457 assert_checkequal(SP1 == STR, %f);
458 assert_checkequal(SP1 == b, %f);
459 assert_checkequal(SP1 == B, %f);
460 assert_checkequal(SP1 == SPB, %f);
461 assert_checkequal(SPC1 == empty, %f);
462 assert_checkequal(SPC1 == r, sparse([1,1],[%f],[1,1]));
463 assert_checkequal(SPC1 == c, sparse([1,1],[%f],[1,1]));
464 assert_checkequal(SPC1 == R, %f);
465 assert_checkequal(SPC1 == C, %f);
466 assert_checkequal(SPC1 == e, %f);
467 assert_checkequal(SPC1 == ec, %f);
468 assert_checkequal(SPC1 == SP, sparse([1,1],[%f],[4,10]));
469 assert_checkequal(SPC1 == SPC, sparse([1,1],[%f],[4,10]));
470 assert_checkequal(SPC1 == SP1, sparse([1,1],[%f],[1,1]));
471 assert_checkequal(SPC1 == SPC1, sparse([1,1],%t,[1,1]));
472 assert_checkequal(SPC1 == i8, sparse([1,1],[%f],[1,1]));
473 assert_checkequal(SPC1 == I8, %f);
474 assert_checkequal(SPC1 == ui8, sparse([1,1],[%f],[1,1]));
475 assert_checkequal(SPC1 == UI8, %f);
476 assert_checkequal(SPC1 == i16, sparse([1,1],[%f],[1,1]));
477 assert_checkequal(SPC1 == I16, %f);
478 assert_checkequal(SPC1 == ui16, sparse([1,1],[%f],[1,1]));
479 assert_checkequal(SPC1 == UI16, %f);
480 assert_checkequal(SPC1 == i32, sparse([1,1],[%f],[1,1]));
481 assert_checkequal(SPC1 == I32, %f);
482 assert_checkequal(SPC1 == ui32, sparse([1,1],[%f],[1,1]));
483 assert_checkequal(SPC1 == UI32, %f);
484 assert_checkequal(SPC1 == str, %f);
485 assert_checkequal(SPC1 == STR, %f);
486 assert_checkequal(SPC1 == b, %f);
487 assert_checkequal(SPC1 == B, %f);
488 assert_checkequal(SPC1 == SPB, %f);
489 assert_checkequal(i8 == empty, %f);
490 assert_checkequal(i8 == r, %f);
491 assert_checkequal(i8 == c, %f);
492 assert_checkequal(i8 == R, [%f,%f;%f,%f]);
493 assert_checkequal(i8 == C, [%f,%f;%f,%f]);
494 assert_checkequal(i8 == e, %f);
495 assert_checkequal(i8 == ec, %f);
496 assert_checkequal(i8 == p, %f);
497 assert_checkequal(i8 == pc, %f);
498 assert_checkequal(i8 == P, [%f,%f;%f,%f]);
499 assert_checkequal(i8 == PC, [%f,%f;%f,%f]);
500 assert_checkequal(i8 == SP, sparse([1,1],[%f],[4,10]));
501 assert_checkequal(i8 == SPC, sparse([1,1],[%f],[4,10]));
502 assert_checkequal(i8 == SP1, sparse([1,1],[%f],[1,1]));
503 assert_checkequal(i8 == SPC1, sparse([1,1],[%f],[1,1]));
504 assert_checkequal(i8 == i8, %t);
505 assert_checkequal(i8 == I8, [%t,%f;%f,%f]);
506 assert_checkequal(i8 == ui8, %f);
507 assert_checkequal(i8 == UI8, [%f,%f;%f,%f]);
508 assert_checkequal(i8 == i16, %f);
509 assert_checkequal(i8 == I16, [%f,%f;%f,%f]);
510 assert_checkequal(i8 == ui16, %f);
511 assert_checkequal(i8 == UI16, [%f,%f;%f,%f]);
512 assert_checkequal(i8 == i32, %f);
513 assert_checkequal(i8 == I32, [%f,%f;%f,%f]);
514 assert_checkequal(i8 == ui32, %f);
515 assert_checkequal(i8 == UI32, [%f,%f;%f,%f]);
516 assert_checkequal(i8 == str, %f);
517 assert_checkequal(i8 == STR, %f);
518 assert_checkequal(i8 == b, %f);
519 assert_checkequal(i8 == B, [%f,%f;%f,%f]);
520 assert_checkequal(i8 == SPB, %f);
521 assert_checkequal(I8 == empty, %f);
522 assert_checkequal(I8 == r, [%f,%t;%f,%f]);
523 assert_checkequal(I8 == c, [%f,%f;%f,%f]);
524 assert_checkequal(I8 == R, [%f,%t;%f,%f]);
525 assert_checkequal(I8 == C, [%f,%f;%f,%f]);
526 assert_checkequal(I8 == e, [%f,%f;%f,%f]);
527 assert_checkequal(I8 == ec, [%f,%f;%f,%f]);
528 assert_checkequal(I8 == p, [%f,%f;%f,%f]);
529 assert_checkequal(I8 == pc, [%f,%f;%f,%f]);
530 assert_checkequal(I8 == P, [%f,%t;%f,%f]);
531 assert_checkequal(I8 == PC, [%f,%t;%f,%f]);
532 assert_checkequal(I8 == SP, %f);
533 assert_checkequal(I8 == SPC, %f);
534 assert_checkequal(I8 == SP1, %f);
535 assert_checkequal(I8 == SPC1, %f);
536 assert_checkequal(I8 == i8, [%t,%f;%f,%f]);
537 assert_checkequal(I8 == I8, [%t,%t;%t,%t]);
538 assert_checkequal(I8 == ui8, [%f,%f;%f,%f]);
539 assert_checkequal(I8 == UI8, [%f,%t;%f,%f]);
540 assert_checkequal(I8 == i16, [%f,%f;%f,%f]);
541 assert_checkequal(I8 == I16, [%f,%t;%f,%f]);
542 assert_checkequal(I8 == ui16, [%f,%f;%f,%f]);
543 assert_checkequal(I8 == UI16, [%f,%t;%f,%f]);
544 assert_checkequal(I8 == i32, [%f,%f;%f,%t]);
545 assert_checkequal(I8 == I32, [%f,%t;%f,%f]);
546 assert_checkequal(I8 == ui32, [%f,%f;%f,%f]);
547 assert_checkequal(I8 == UI32, [%f,%t;%f,%f]);
548 assert_checkequal(I8 == str, %f);
549 assert_checkequal(I8 == STR, %f);
550 assert_checkequal(I8 == b, [%f,%f;%f,%f]);
551 assert_checkequal(I8 == B, [%f,%f;%f,%f]);
552 assert_checkequal(I8 == SPB, %f);
553 assert_checkequal(ui8 == empty, %f);
554 assert_checkequal(ui8 == r, %f);
555 assert_checkequal(ui8 == c, %f);
556 assert_checkequal(ui8 == R, [%f,%f;%f,%f]);
557 assert_checkequal(ui8 == C, [%f,%f;%f,%f]);
558 assert_checkequal(ui8 == e, %f);
559 assert_checkequal(ui8 == ec, %f);
560 assert_checkequal(ui8 == p, %f);
561 assert_checkequal(ui8 == pc, %f);
562 assert_checkequal(ui8 == P, [%f,%f;%f,%f]);
563 assert_checkequal(ui8 == PC, [%f,%f;%f,%f]);
564 assert_checkequal(ui8 == SP, sparse([1,1],[%f],[4,10]));
565 assert_checkequal(ui8 == SPC, sparse([1,1],[%f],[4,10]));
566 assert_checkequal(ui8 == SP1, sparse([1,1],[%f],[1,1]));
567 assert_checkequal(ui8 == SPC1, sparse([1,1],[%f],[1,1]));
568 assert_checkequal(ui8 == i8, %f);
569 assert_checkequal(ui8 == I8, [%f,%f;%f,%f]);
570 assert_checkequal(ui8 == ui8, %t);
571 assert_checkequal(ui8 == UI8, [%t,%f;%f,%f]);
572 assert_checkequal(ui8 == i16, %f);
573 assert_checkequal(ui8 == I16, [%f,%f;%f,%f]);
574 assert_checkequal(ui8 == ui16, %f);
575 assert_checkequal(ui8 == UI16, [%f,%f;%f,%f]);
576 assert_checkequal(ui8 == i32, %f);
577 assert_checkequal(ui8 == I32, [%f,%f;%f,%f]);
578 assert_checkequal(ui8 == ui32, %f);
579 assert_checkequal(ui8 == UI32, [%f,%f;%f,%f]);
580 assert_checkequal(ui8 == str, %f);
581 assert_checkequal(ui8 == STR, %f);
582 assert_checkequal(ui8 == b, %f);
583 assert_checkequal(ui8 == B, [%f,%f;%f,%f]);
584 assert_checkequal(ui8 == SPB, %f);
585 assert_checkequal(UI8 == empty, %f);
586 assert_checkequal(UI8 == r, [%f,%t;%f,%f]);
587 assert_checkequal(UI8 == c, [%f,%f;%f,%f]);
588 assert_checkequal(UI8 == R, [%f,%t;%f,%f]);
589 assert_checkequal(UI8 == C, [%f,%f;%f,%f]);
590 assert_checkequal(UI8 == e, [%f,%f;%f,%f]);
591 assert_checkequal(UI8 == ec, [%f,%f;%f,%f]);
592 assert_checkequal(UI8 == p, [%f,%f;%f,%f]);
593 assert_checkequal(UI8 == pc, [%f,%f;%f,%f]);
594 assert_checkequal(UI8 == P, [%f,%t;%f,%f]);
595 assert_checkequal(UI8 == PC, [%f,%t;%f,%f]);
596 assert_checkequal(UI8 == SP, %f);
597 assert_checkequal(UI8 == SPC, %f);
598 assert_checkequal(UI8 == SP1, %f);
599 assert_checkequal(UI8 == SPC1, %f);
600 assert_checkequal(UI8 == i8, [%f,%f;%f,%f]);
601 assert_checkequal(UI8 == I8, [%f,%t;%f,%f]);
602 assert_checkequal(UI8 == ui8, [%t,%f;%f,%f]);
603 assert_checkequal(UI8 == UI8, [%t,%t;%t,%t]);
604 assert_checkequal(UI8 == i16, [%f,%f;%f,%f]);
605 assert_checkequal(UI8 == I16, [%f,%t;%f,%f]);
606 assert_checkequal(UI8 == ui16, [%f,%f;%f,%f]);
607 assert_checkequal(UI8 == UI16, [%f,%t;%f,%f]);
608 assert_checkequal(UI8 == i32, [%f,%f;%f,%f]);
609 assert_checkequal(UI8 == I32, [%f,%t;%f,%f]);
610 assert_checkequal(UI8 == ui32, [%f,%f;%f,%t]);
611 assert_checkequal(UI8 == UI32, [%f,%t;%f,%f]);
612 assert_checkequal(UI8 == str, %f);
613 assert_checkequal(UI8 == STR, %f);
614 assert_checkequal(UI8 == b, [%f,%f;%f,%f]);
615 assert_checkequal(UI8 == B, [%f,%f;%f,%f]);
616 assert_checkequal(UI8 == SPB, %f);
617 assert_checkequal(i16 == empty, %f);
618 assert_checkequal(i16 == r, %f);
619 assert_checkequal(i16 == c, %f);
620 assert_checkequal(i16 == R, [%f,%f;%f,%f]);
621 assert_checkequal(i16 == C, [%f,%f;%f,%f]);
622 assert_checkequal(i16 == e, %f);
623 assert_checkequal(i16 == ec, %f);
624 assert_checkequal(i16 == p, %f);
625 assert_checkequal(i16 == pc, %f);
626 assert_checkequal(i16 == P, [%f,%f;%f,%f]);
627 assert_checkequal(i16 == PC, [%f,%f;%f,%f]);
628 assert_checkequal(i16 == SP, sparse([1,1],[%f],[4,10]));
629 assert_checkequal(i16 == SPC, sparse([1,1],[%f],[4,10]));
630 assert_checkequal(i16 == SP1, sparse([1,1],[%f],[1,1]));
631 assert_checkequal(i16 == SPC1, sparse([1,1],[%f],[1,1]));
632 assert_checkequal(i16 == i8, %f);
633 assert_checkequal(i16 == I8, [%f,%f;%f,%f]);
634 assert_checkequal(i16 == ui8, %f);
635 assert_checkequal(i16 == UI8, [%f,%f;%f,%f]);
636 assert_checkequal(i16 == i16, %t);
637 assert_checkequal(i16 == I16, [%t,%f;%f,%f]);
638 assert_checkequal(i16 == ui16, %f);
639 assert_checkequal(i16 == UI16, [%f,%f;%f,%f]);
640 assert_checkequal(i16 == i32, %f);
641 assert_checkequal(i16 == I32, [%f,%f;%f,%f]);
642 assert_checkequal(i16 == ui32, %f);
643 assert_checkequal(i16 == UI32, [%f,%f;%f,%f]);
644 assert_checkequal(i16 == str, %f);
645 assert_checkequal(i16 == STR, %f);
646 assert_checkequal(i16 == b, %f);
647 assert_checkequal(i16 == B, [%f,%f;%f,%f]);
648 assert_checkequal(i16 == SPB, %f);
649 assert_checkequal(I16 == empty, %f);
650 assert_checkequal(I16 == r, [%f,%t;%f,%f]);
651 assert_checkequal(I16 == c, [%f,%f;%f,%f]);
652 assert_checkequal(I16 == R, [%f,%t;%f,%f]);
653 assert_checkequal(I16 == C, [%f,%f;%f,%f]);
654 assert_checkequal(I16 == e, [%f,%f;%f,%f]);
655 assert_checkequal(I16 == ec, [%f,%f;%f,%f]);
656 assert_checkequal(I16 == p, [%f,%f;%f,%f]);
657 assert_checkequal(I16 == pc, [%f,%f;%f,%f]);
658 assert_checkequal(I16 == P, [%f,%t;%f,%f]);
659 assert_checkequal(I16 == PC, [%f,%t;%f,%f]);
660 assert_checkequal(I16 == SP, %f);
661 assert_checkequal(I16 == SPC, %f);
662 assert_checkequal(I16 == SP1, %f);
663 assert_checkequal(I16 == SPC1, %f);
664 assert_checkequal(I16 == i8, [%f,%f;%f,%f]);
665 assert_checkequal(I16 == I8, [%f,%t;%f,%f]);
666 assert_checkequal(I16 == ui8, [%f,%f;%f,%f]);
667 assert_checkequal(I16 == UI8, [%f,%t;%f,%f]);
668 assert_checkequal(I16 == i16, [%t,%f;%f,%f]);
669 assert_checkequal(I16 == I16, [%t,%t;%t,%t]);
670 assert_checkequal(I16 == ui16, [%f,%f;%f,%f]);
671 assert_checkequal(I16 == UI16, [%f,%t;%f,%f]);
672 assert_checkequal(I16 == i32, [%f,%f;%f,%f]);
673 assert_checkequal(I16 == I32, [%f,%t;%f,%f]);
674 assert_checkequal(I16 == ui32, [%f,%f;%f,%f]);
675 assert_checkequal(I16 == UI32, [%f,%t;%f,%f]);
676 assert_checkequal(I16 == str, %f);
677 assert_checkequal(I16 == STR, %f);
678 assert_checkequal(I16 == b, [%f,%f;%f,%f]);
679 assert_checkequal(I16 == B, [%f,%f;%f,%f]);
680 assert_checkequal(I16 == SPB, %f);
681 assert_checkequal(ui16 == empty, %f);
682 assert_checkequal(ui16 == r, %f);
683 assert_checkequal(ui16 == c, %f);
684 assert_checkequal(ui16 == R, [%f,%f;%f,%f]);
685 assert_checkequal(ui16 == C, [%f,%f;%f,%f]);
686 assert_checkequal(ui16 == e, %f);
687 assert_checkequal(ui16 == ec, %f);
688 assert_checkequal(ui16 == p, %f);
689 assert_checkequal(ui16 == pc, %f);
690 assert_checkequal(ui16 == P, [%f,%f;%f,%f]);
691 assert_checkequal(ui16 == PC, [%f,%f;%f,%f]);
692 assert_checkequal(ui16 == SP, sparse([1,1],[%f],[4,10]));
693 assert_checkequal(ui16 == SPC, sparse([1,1],[%f],[4,10]));
694 assert_checkequal(ui16 == SP1, sparse([1,1],[%f],[1,1]));
695 assert_checkequal(ui16 == SPC1, sparse([1,1],[%f],[1,1]));
696 assert_checkequal(ui16 == i8, %f);
697 assert_checkequal(ui16 == I8, [%f,%f;%f,%f]);
698 assert_checkequal(ui16 == ui8, %f);
699 assert_checkequal(ui16 == UI8, [%f,%f;%f,%f]);
700 assert_checkequal(ui16 == i16, %f);
701 assert_checkequal(ui16 == I16, [%f,%f;%f,%f]);
702 assert_checkequal(ui16 == ui16, %t);
703 assert_checkequal(ui16 == UI16, [%t,%f;%f,%f]);
704 assert_checkequal(ui16 == i32, %f);
705 assert_checkequal(ui16 == I32, [%f,%f;%f,%f]);
706 assert_checkequal(ui16 == ui32, %f);
707 assert_checkequal(ui16 == UI32, [%f,%f;%f,%f]);
708 assert_checkequal(ui16 == str, %f);
709 assert_checkequal(ui16 == STR, %f);
710 assert_checkequal(ui16 == b, %f);
711 assert_checkequal(ui16 == B, [%f,%f;%f,%f]);
712 assert_checkequal(ui16 == SPB, %f);
713 assert_checkequal(UI16 == empty, %f);
714 assert_checkequal(UI16 == r, [%f,%t;%f,%f]);
715 assert_checkequal(UI16 == c, [%f,%f;%f,%f]);
716 assert_checkequal(UI16 == R, [%f,%t;%f,%f]);
717 assert_checkequal(UI16 == C, [%f,%f;%f,%f]);
718 assert_checkequal(UI16 == e, [%f,%f;%f,%f]);
719 assert_checkequal(UI16 == ec, [%f,%f;%f,%f]);
720 assert_checkequal(UI16 == p, [%f,%f;%f,%f]);
721 assert_checkequal(UI16 == pc, [%f,%f;%f,%f]);
722 assert_checkequal(UI16 == P, [%f,%t;%f,%f]);
723 assert_checkequal(UI16 == PC, [%f,%t;%f,%f]);
724 assert_checkequal(UI16 == SP, %f);
725 assert_checkequal(UI16 == SPC, %f);
726 assert_checkequal(UI16 == SP1, %f);
727 assert_checkequal(UI16 == SPC1, %f);
728 assert_checkequal(UI16 == i8, [%f,%f;%f,%f]);
729 assert_checkequal(UI16 == I8, [%f,%t;%f,%f]);
730 assert_checkequal(UI16 == ui8, [%f,%f;%f,%f]);
731 assert_checkequal(UI16 == UI8, [%f,%t;%f,%f]);
732 assert_checkequal(UI16 == i16, [%f,%f;%f,%f]);
733 assert_checkequal(UI16 == I16, [%f,%t;%f,%f]);
734 assert_checkequal(UI16 == ui16, [%t,%f;%f,%f]);
735 assert_checkequal(UI16 == UI16, [%t,%t;%t,%t]);
736 assert_checkequal(UI16 == i32, [%f,%f;%f,%f]);
737 assert_checkequal(UI16 == I32, [%f,%t;%f,%f]);
738 assert_checkequal(UI16 == ui32, [%f,%f;%f,%f]);
739 assert_checkequal(UI16 == UI32, [%f,%t;%f,%f]);
740 assert_checkequal(UI16 == str, %f);
741 assert_checkequal(UI16 == STR, %f);
742 assert_checkequal(UI16 == b, [%f,%f;%f,%f]);
743 assert_checkequal(UI16 == B, [%f,%f;%f,%f]);
744 assert_checkequal(UI16 == SPB, %f);
745 assert_checkequal(i32 == empty, %f);
746 assert_checkequal(i32 == r, %f);
747 assert_checkequal(i32 == c, %f);
748 assert_checkequal(i32 == R, [%f,%f;%f,%f]);
749 assert_checkequal(i32 == C, [%f,%f;%f,%f]);
750 assert_checkequal(i32 == e, %f);
751 assert_checkequal(i32 == ec, %f);
752 assert_checkequal(i32 == p, %f);
753 assert_checkequal(i32 == pc, %f);
754 assert_checkequal(i32 == P, [%f,%f;%f,%f]);
755 assert_checkequal(i32 == PC, [%f,%f;%f,%f]);
756 assert_checkequal(i32 == SP, sparse([1,1],[%f],[4,10]));
757 assert_checkequal(i32 == SPC, sparse([1,1],[%f],[4,10]));
758 assert_checkequal(i32 == SP1, sparse([1,1],[%f],[1,1]));
759 assert_checkequal(i32 == SPC1, sparse([1,1],[%f],[1,1]));
760 assert_checkequal(i32 == i8, %f);
761 assert_checkequal(i32 == I8, [%f,%f;%f,%t]);
762 assert_checkequal(i32 == ui8, %f);
763 assert_checkequal(i32 == UI8, [%f,%f;%f,%f]);
764 assert_checkequal(i32 == i16, %f);
765 assert_checkequal(i32 == I16, [%f,%f;%f,%f]);
766 assert_checkequal(i32 == ui16, %f);
767 assert_checkequal(i32 == UI16, [%f,%f;%f,%f]);
768 assert_checkequal(i32 == i32, %t);
769 assert_checkequal(i32 == I32, [%t,%f;%f,%f]);
770 assert_checkequal(i32 == ui32, %f);
771 assert_checkequal(i32 == UI32, [%f,%f;%f,%f]);
772 assert_checkequal(i32 == str, %f);
773 assert_checkequal(i32 == STR, %f);
774 assert_checkequal(i32 == b, %f);
775 assert_checkequal(i32 == B, [%f,%f;%f,%f]);
776 assert_checkequal(i32 == SPB, %f);
777 assert_checkequal(I32 == empty, %f);
778 assert_checkequal(I32 == r, [%f,%t;%f,%f]);
779 assert_checkequal(I32 == c, [%f,%f;%f,%f]);
780 assert_checkequal(I32 == R, [%f,%t;%f,%f]);
781 assert_checkequal(I32 == C, [%f,%f;%f,%f]);
782 assert_checkequal(I32 == e, [%f,%f;%f,%f]);
783 assert_checkequal(I32 == ec, [%f,%f;%f,%f]);
784 assert_checkequal(I32 == p, [%f,%f;%f,%f]);
785 assert_checkequal(I32 == pc, [%f,%f;%f,%f]);
786 assert_checkequal(I32 == P, [%f,%t;%f,%f]);
787 assert_checkequal(I32 == PC, [%f,%t;%f,%f]);
788 assert_checkequal(I32 == SP, %f);
789 assert_checkequal(I32 == SPC, %f);
790 assert_checkequal(I32 == SP1, %f);
791 assert_checkequal(I32 == SPC1, %f);
792 assert_checkequal(I32 == i8, [%f,%f;%f,%f]);
793 assert_checkequal(I32 == I8, [%f,%t;%f,%f]);
794 assert_checkequal(I32 == ui8, [%f,%f;%f,%f]);
795 assert_checkequal(I32 == UI8, [%f,%t;%f,%f]);
796 assert_checkequal(I32 == i16, [%f,%f;%f,%f]);
797 assert_checkequal(I32 == I16, [%f,%t;%f,%f]);
798 assert_checkequal(I32 == ui16, [%f,%f;%f,%f]);
799 assert_checkequal(I32 == UI16, [%f,%t;%f,%f]);
800 assert_checkequal(I32 == i32, [%t,%f;%f,%f]);
801 assert_checkequal(I32 == I32, [%t,%t;%t,%t]);
802 assert_checkequal(I32 == ui32, [%f,%f;%f,%f]);
803 assert_checkequal(I32 == UI32, [%f,%t;%f,%f]);
804 assert_checkequal(I32 == str, %f);
805 assert_checkequal(I32 == STR, %f);
806 assert_checkequal(I32 == b, [%f,%f;%f,%f]);
807 assert_checkequal(I32 == B, [%f,%f;%f,%f]);
808 assert_checkequal(I32 == SPB, %f);
809 assert_checkequal(ui32 == empty, %f);
810 assert_checkequal(ui32 == r, %f);
811 assert_checkequal(ui32 == c, %f);
812 assert_checkequal(ui32 == R, [%f,%f;%f,%f]);
813 assert_checkequal(ui32 == C, [%f,%f;%f,%f]);
814 assert_checkequal(ui32 == e, %f);
815 assert_checkequal(ui32 == ec, %f);
816 assert_checkequal(ui32 == p, %f);
817 assert_checkequal(ui32 == pc, %f);
818 assert_checkequal(ui32 == P, [%f,%f;%f,%f]);
819 assert_checkequal(ui32 == PC, [%f,%f;%f,%f]);
820 assert_checkequal(ui32 == SP, sparse([1,1],[%f],[4,10]));
821 assert_checkequal(ui32 == SPC, sparse([1,1],[%f],[4,10]));
822 assert_checkequal(ui32 == SP1, sparse([1,1],[%f],[1,1]));
823 assert_checkequal(ui32 == SPC1, sparse([1,1],[%f],[1,1]));
824 assert_checkequal(ui32 == i8, %f);
825 assert_checkequal(ui32 == I8, [%f,%f;%f,%f]);
826 assert_checkequal(ui32 == ui8, %f);
827 assert_checkequal(ui32 == UI8, [%f,%f;%f,%t]);
828 assert_checkequal(ui32 == i16, %f);
829 assert_checkequal(ui32 == I16, [%f,%f;%f,%f]);
830 assert_checkequal(ui32 == ui16, %f);
831 assert_checkequal(ui32 == UI16, [%f,%f;%f,%f]);
832 assert_checkequal(ui32 == i32, %f);
833 assert_checkequal(ui32 == I32, [%f,%f;%f,%f]);
834 assert_checkequal(ui32 == ui32, %t);
835 assert_checkequal(ui32 == UI32, [%t,%f;%f,%f]);
836 assert_checkequal(ui32 == str, %f);
837 assert_checkequal(ui32 == STR, %f);
838 assert_checkequal(ui32 == b, %f);
839 assert_checkequal(ui32 == B, [%f,%f;%f,%f]);
840 assert_checkequal(ui32 == SPB, %f);
841 assert_checkequal(UI32 == empty, %f);
842 assert_checkequal(UI32 == r, [%f,%t;%f,%f]);
843 assert_checkequal(UI32 == c, [%f,%f;%f,%f]);
844 assert_checkequal(UI32 == R, [%f,%t;%f,%f]);
845 assert_checkequal(UI32 == C, [%f,%f;%f,%f]);
846 assert_checkequal(UI32 == e, [%f,%f;%f,%f]);
847 assert_checkequal(UI32 == ec, [%f,%f;%f,%f]);
848 assert_checkequal(UI32 == p, [%f,%f;%f,%f]);
849 assert_checkequal(UI32 == pc, [%f,%f;%f,%f]);
850 assert_checkequal(UI32 == P, [%f,%t;%f,%f]);
851 assert_checkequal(UI32 == PC, [%f,%t;%f,%f]);
852 assert_checkequal(UI32 == SP, %f);
853 assert_checkequal(UI32 == SPC, %f);
854 assert_checkequal(UI32 == SP1, %f);
855 assert_checkequal(UI32 == SPC1, %f);
856 assert_checkequal(UI32 == i8, [%f,%f;%f,%f]);
857 assert_checkequal(UI32 == I8, [%f,%t;%f,%f]);
858 assert_checkequal(UI32 == ui8, [%f,%f;%f,%f]);
859 assert_checkequal(UI32 == UI8, [%f,%t;%f,%f]);
860 assert_checkequal(UI32 == i16, [%f,%f;%f,%f]);
861 assert_checkequal(UI32 == I16, [%f,%t;%f,%f]);
862 assert_checkequal(UI32 == ui16, [%f,%f;%f,%f]);
863 assert_checkequal(UI32 == UI16, [%f,%t;%f,%f]);
864 assert_checkequal(UI32 == i32, [%f,%f;%f,%f]);
865 assert_checkequal(UI32 == I32, [%f,%t;%f,%f]);
866 assert_checkequal(UI32 == ui32, [%t,%f;%f,%f]);
867 assert_checkequal(UI32 == UI32, [%t,%t;%t,%t]);
868 assert_checkequal(UI32 == str, %f);
869 assert_checkequal(UI32 == STR, %f);
870 assert_checkequal(UI32 == b, [%f,%f;%f,%f]);
871 assert_checkequal(UI32 == B, [%f,%f;%f,%f]);
872 assert_checkequal(UI32 == SPB, %f);
873 assert_checkequal(str == empty, %f);
874 assert_checkequal(str == r, %f);
875 assert_checkequal(str == c, %f);
876 assert_checkequal(str == R, %f);
877 assert_checkequal(str == C, %f);
878 assert_checkequal(str == e, %f);
879 assert_checkequal(str == ec, %f);
880 assert_checkequal(str == p, %f);
881 assert_checkequal(str == pc, %f);
882 assert_checkequal(str == P, %f);
883 assert_checkequal(str == PC, %f);
884 assert_checkequal(str == SP, %f);
885 assert_checkequal(str == SPC, %f);
886 assert_checkequal(str == SP1, %f);
887 assert_checkequal(str == SPC1, %f);
888 assert_checkequal(str == i8, %f);
889 assert_checkequal(str == I8, %f);
890 assert_checkequal(str == ui8, %f);
891 assert_checkequal(str == UI8, %f);
892 assert_checkequal(str == i16, %f);
893 assert_checkequal(str == I16, %f);
894 assert_checkequal(str == ui16, %f);
895 assert_checkequal(str == UI16, %f);
896 assert_checkequal(str == i32, %f);
897 assert_checkequal(str == I32, %f);
898 assert_checkequal(str == ui32, %f);
899 assert_checkequal(str == UI32, %f);
900 assert_checkequal(str == str, %t);
901 assert_checkequal(str == STR, [%f,%f;%f,%f]);
902 assert_checkequal(str == b, %f);
903 assert_checkequal(str == B, %f);
904 assert_checkequal(str == SPB, %f);
905 assert_checkequal(STR == empty, %f);
906 assert_checkequal(STR == r, %f);
907 assert_checkequal(STR == c, %f);
908 assert_checkequal(STR == R, %f);
909 assert_checkequal(STR == C, %f);
910 assert_checkequal(STR == e, %f);
911 assert_checkequal(STR == ec, %f);
912 assert_checkequal(STR == p, %f);
913 assert_checkequal(STR == pc, %f);
914 assert_checkequal(STR == P, %f);
915 assert_checkequal(STR == PC, %f);
916 assert_checkequal(STR == SP, %f);
917 assert_checkequal(STR == SPC, %f);
918 assert_checkequal(STR == SP1, %f);
919 assert_checkequal(STR == SPC1, %f);
920 assert_checkequal(STR == i8, %f);
921 assert_checkequal(STR == I8, %f);
922 assert_checkequal(STR == ui8, %f);
923 assert_checkequal(STR == UI8, %f);
924 assert_checkequal(STR == i16, %f);
925 assert_checkequal(STR == I16, %f);
926 assert_checkequal(STR == ui16, %f);
927 assert_checkequal(STR == UI16, %f);
928 assert_checkequal(STR == i32, %f);
929 assert_checkequal(STR == I32, %f);
930 assert_checkequal(STR == ui32, %f);
931 assert_checkequal(STR == UI32, %f);
932 assert_checkequal(STR == str, [%f,%f;%f,%f]);
933 assert_checkequal(STR == STR, [%t,%t;%t,%t]);
934 assert_checkequal(STR == b, %f);
935 assert_checkequal(STR == B, %f);
936 assert_checkequal(STR == SPB, %f);
937 assert_checkequal(b == empty, %f);
938 assert_checkequal(b == r, %f);
939 assert_checkequal(b == c, %f);
940 assert_checkequal(b == R, %f);
941 assert_checkequal(b == C, %f);
942 assert_checkequal(b == e, %f);
943 assert_checkequal(b == ec, %f);
944 assert_checkequal(b == p, %f);
945 assert_checkequal(b == pc, %f);
946 assert_checkequal(b == P, %f);
947 assert_checkequal(b == PC, %f);
948 assert_checkequal(b == SP, %f);
949 assert_checkequal(b == SPC, %f);
950 assert_checkequal(b == SP1, %f);
951 assert_checkequal(b == SPC1, %f);
952 assert_checkequal(b == i8, %f);
953 assert_checkequal(b == I8, [%f,%f;%f,%f]);
954 assert_checkequal(b == ui8, %f);
955 assert_checkequal(b == UI8, [%f,%f;%f,%f]);
956 assert_checkequal(b == i16, %f);
957 assert_checkequal(b == I16, [%f,%f;%f,%f]);
958 assert_checkequal(b == ui16, %f);
959 assert_checkequal(b == UI16, [%f,%f;%f,%f]);
960 assert_checkequal(b == i32, %f);
961 assert_checkequal(b == I32, [%f,%f;%f,%f]);
962 assert_checkequal(b == ui32, %f);
963 assert_checkequal(b == UI32, [%f,%f;%f,%f]);
964 assert_checkequal(b == str, %f);
965 assert_checkequal(b == STR, %f);
966 assert_checkequal(b == b, %t);
967 assert_checkequal(b == B, [%f,%t;%t,%f]);
968 assert_checkequal(b == SPB, sparse([1,1;2,2],[%t;%t],[2,2]));
969 assert_checkequal(B == empty, %f);
970 assert_checkequal(B == r, %f);
971 assert_checkequal(B == c, %f);
972 assert_checkequal(B == R, %f);
973 assert_checkequal(B == C, %f);
974 assert_checkequal(B == e, %f);
975 assert_checkequal(B == ec, %f);
976 assert_checkequal(B == p, %f);
977 assert_checkequal(B == pc, %f);
978 assert_checkequal(B == P, %f);
979 assert_checkequal(B == PC, %f);
980 assert_checkequal(B == SP, %f);
981 assert_checkequal(B == SPC, %f);
982 assert_checkequal(B == SP1, %f);
983 assert_checkequal(B == SPC1, %f);
984 assert_checkequal(B == i8, [%f,%f;%f,%f]);
985 assert_checkequal(B == I8, [%f,%f;%f,%f]);
986 assert_checkequal(B == ui8, [%f,%f;%f,%f]);
987 assert_checkequal(B == UI8, [%f,%f;%f,%f]);
988 assert_checkequal(B == i16, [%f,%f;%f,%f]);
989 assert_checkequal(B == I16, [%f,%f;%f,%f]);
990 assert_checkequal(B == ui16, [%f,%f;%f,%f]);
991 assert_checkequal(B == UI16, [%f,%f;%f,%f]);
992 assert_checkequal(B == i32, [%f,%f;%f,%f]);
993 assert_checkequal(B == I32, [%f,%f;%f,%f]);
994 assert_checkequal(B == ui32, [%f,%f;%f,%f]);
995 assert_checkequal(B == UI32, [%f,%f;%f,%f]);
996 assert_checkequal(B == str, %f);
997 assert_checkequal(B == STR, %f);
998 assert_checkequal(B == b, [%f,%t;%t,%f]);
999 assert_checkequal(B == B, [%t,%t;%t,%t]);
1000 assert_checkequal(B == SPB, sparse([1,1],[%f],[2,2]));
1001 assert_checkequal(SPB == empty, %f);
1002 assert_checkequal(SPB == r, %f);
1003 assert_checkequal(SPB == c, %f);
1004 assert_checkequal(SPB == R, %f);
1005 assert_checkequal(SPB == C, %f);
1006 assert_checkequal(SPB == e, %f);
1007 assert_checkequal(SPB == ec, %f);
1008 assert_checkequal(SPB == SP, %f);
1009 assert_checkequal(SPB == SPC, %f);
1010 assert_checkequal(SPB == SP1, %f);
1011 assert_checkequal(SPB == SPC1, %f);
1012 assert_checkequal(SPB == i8, %f);
1013 assert_checkequal(SPB == I8, %f);
1014 assert_checkequal(SPB == ui8, %f);
1015 assert_checkequal(SPB == UI8, %f);
1016 assert_checkequal(SPB == i16, %f);
1017 assert_checkequal(SPB == I16, %f);
1018 assert_checkequal(SPB == ui16, %f);
1019 assert_checkequal(SPB == UI16, %f);
1020 assert_checkequal(SPB == i32, %f);
1021 assert_checkequal(SPB == I32, %f);
1022 assert_checkequal(SPB == ui32, %f);
1023 assert_checkequal(SPB == UI32, %f);
1024 assert_checkequal(SPB == str, %f);
1025 assert_checkequal(SPB == STR, %f);
1026 assert_checkequal(SPB == b, sparse([1,1;2,2],[%t;%t],[2,2]));
1027 assert_checkequal(SPB == B, sparse([1,1],[%f],[2,2]));
1028 assert_checkequal(SPB == SPB, sparse([1,1;1,2;2,1;2,2],[%t;%t;%t;%t],[2,2]));
1029 assert_checkequal(["a" "b"] == ["a" "b" "c"],%f);
1030 assert_checkequal(["a" "b"] == ["a" ; "b"],%f);
1031 assert_checkequal(["a" "b" "c"] == ["a" "b"],%f);
1032 assert_checkequal(["a" "b"; "a" "b"] == ["a" "b"],%f);
1033 //macro
1034 deff("[x]=myplus(y,z)","x=y+z");
1035 deff("[x]=mymacro(y,z)",["a=3*y+1"; "x=a*z+y"]);
1036 assert_checkequal(myplus == myplus,%t);
1037 assert_checkequal(myplus == mymacro,%f);
1038 assert_checkequal(myplus == [],%f);
1039 assert_checkequal(myplus == 2,%f);
1040 //struct
1041 test_st=struct("double",1,"string","test","int8",int8(2),"struct",struct("valeur",0));
1042 test_st2=struct("double",1,"string","test","int16",int8(2),"struct",1);
1043 test_st4=struct("double",1,"string","test","int8",int8(4),"struct",struct("valeur",0));
1044 test_st8=struct("double",8,"string","test","int8",int8(8),"struct",struct("valeur",0));
1045 assert_checkequal(test_st == test_st, %t);
1046 assert_checkequal(test_st == test_st2, %f);
1047 assert_checkequal([test_st4 test_st8] == [test_st test_st], [%f %f]);
1048 assert_checkequal([test_st, test_st4;test_st4,test_st8] == [test_st, test_st; test_st,test_st], [%t, %f; %f , %f]);
1049 assert_checkequal(test_st == [], %f);
1050 //function
1051 assert_checkequal(acosd == acosd, %t);
1052 assert_checkequal(acosd == [], %f);
1053 assert_checkequal(acosd == 2, %f);
1054 //polynom
1055 res = horner(1/(1-%s),1/(1-%s));
1056 assert_checkequal(res == (1-%s)/-%s, %t);
1057 assert_checkequal(res == (1-%s)/1, %f);
1058 assert_checkequal(res == 1/-%s, %f);