Xcos tests: fix computational_functions, cumsum, error_reporting_nw, model2blk, bug_1...
[scilab.git] / scilab / modules / xcos / tests / unit_tests / computational_functions.tst
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) DIGITEO - 2010-2010 - ClĂ©ment DAVID <clement.david@scilab.org>
3 //
4 // This file is distributed under the same license as the Scilab package.
5
6 // <-- XCOS TEST -->
7 //
8 // <-- Short Description -->
9 // Check that all computational function are available.
10
11 //
12 // load the source file list for languages
13 //
14
15 ilib_verbose(0);
16
17 BLOCKS_C = [
18 "absblk",
19 "absolute_value",
20 "acos_blk",
21 "acosh_blk",
22 "affich2",
23 "andlog",
24 "asin_blk",
25 "asinh_blk",
26 "assignment",
27 "atan_blk",
28 "atanh_blk",
29 "automat",
30 "backlash",
31 "bidon",
32 "bit_clear_16",
33 "bit_clear_32",
34 "bit_clear_8",
35 "bit_set_16",
36 "bit_set_32",
37 "bit_set_8",
38 "bounce_ball",
39 "bouncexy",
40 "canimxy",
41 "canimxy3d",
42 "cdummy",
43 "cevscpe",
44 "cfscope",
45 "cmat3d",
46 "cmatview",
47 "cmscope",
48 "constraint_c",
49 "convert",
50 "cosblk",
51 "cos_blk",
52 "cosh_blk",
53 "counter",
54 "cscope",
55 "cscopxy",
56 "cscopxy3d",
57 "csslti4",
58 "cstblk4",
59 "cstblk4_m",
60 "cumsum_c",
61 "cumsum_m",
62 "cumsum_r",
63 "cumsumz_c",
64 "cumsumz_m",
65 "cumsumz_r",
66 "curve_c",
67 "dband",
68 "deadband",
69 "delay4",
70 "delay4_i16",
71 "delay4_i32",
72 "delay4_i8",
73 "delay4_ui16",
74 "delay4_ui32",
75 "delay4_ui8",
76 "deriv",
77 "diffblk_c",
78 "dmmul",
79 "dmmul1",
80 "dollar4",
81 "dollar4_m",
82 "dsslti4",
83 "edgetrig",
84 "evaluate_expr",
85 "evtdly4",
86 "evtvardly",
87 "expblk_m",
88 "extdiag",
89 "extdiagz",
90 "extract",
91 "extract_bit_16_LH",
92 "extract_bit_16_LSB",
93 "extract_bit_16_MSB0",
94 "extract_bit_16_MSB1",
95 "extract_bit_16_RB0",
96 "extract_bit_16_RB1",
97 "extract_bit_16_UH0",
98 "extract_bit_16_UH1",
99 "extract_bit_32_LH",
100 "extract_bit_32_LSB",
101 "extract_bit_32_MSB0",
102 "extract_bit_32_MSB1",
103 "extract_bit_32_RB0",
104 "extract_bit_32_RB1",
105 "extract_bit_32_UH0",
106 "extract_bit_32_UH1",
107 "extract_bit_8_LH",
108 "extract_bit_8_LSB",
109 "extract_bit_8_MSB0",
110 "extract_bit_8_MSB1",
111 "extract_bit_8_RB0",
112 "extract_bit_8_RB1",
113 "extract_bit_8_UH0",
114 "extract_bit_8_UH1",
115 "extract_bit_u16_MSB1",
116 "extract_bit_u16_RB1",
117 "extract_bit_u16_UH1",
118 "extract_bit_u32_MSB1",
119 "extract_bit_u32_RB1",
120 "extract_bit_u32_UH1",
121 "extract_bit_u8_MSB1",
122 "extract_bit_u8_RB1",
123 "extract_bit_u8_UH1",
124 "extractor",
125 "extractz",
126 "exttril",
127 "exttrilz",
128 "exttriu",
129 "exttriuz",
130 "foriterator",
131 "fromws_c",
132 "gain",
133 "gainblk",
134 "gainblk_i16e",
135 "gainblk_i16n",
136 "gainblk_i16s",
137 "gainblk_i32e",
138 "gainblk_i32n",
139 "gainblk_i32s",
140 "gainblk_i8e",
141 "gainblk_i8n",
142 "gainblk_i8s",
143 "gainblk_ui16e",
144 "gainblk_ui16n",
145 "gainblk_ui16s",
146 "gainblk_ui32e",
147 "gainblk_ui32n",
148 "gainblk_ui32s",
149 "gainblk_ui8e",
150 "gainblk_ui8n",
151 "gainblk_ui8s",
152 "hystheresis",
153 "integral_func",
154 "integralz_func",
155 "invblk4",
156 "logic",
157 "logicalop",
158 "logicalop_i16",
159 "logicalop_i32",
160 "logicalop_i8",
161 "logicalop_m",
162 "logicalop_ui16",
163 "logicalop_ui32",
164 "logicalop_ui8",
165 "lookup2d",
166 "lookup_c",
167 "mat_bksl",
168 "matbyscal",
169 "matbyscal_e",
170 "matbyscal_s",
171 "mat_cath",
172 "mat_catv",
173 "mat_det",
174 "mat_diag",
175 "mat_div",
176 "mat_expm",
177 "mathermit_m",
178 "mat_inv",
179 "mat_lu",
180 "matmul2_e",
181 "matmul2_m",
182 "matmul2_s",
183 "matmul_i16e",
184 "matmul_i16n",
185 "matmul_i16s",
186 "matmul_i32e",
187 "matmul_i32n",
188 "matmul_i32s",
189 "matmul_i8e",
190 "matmul_i8n",
191 "matmul_i8s",
192 "matmul_m",
193 "matmul_ui16e",
194 "matmul_ui16n",
195 "matmul_ui16s",
196 "matmul_ui32e",
197 "matmul_ui32n",
198 "matmul_ui32s",
199 "matmul_ui8e",
200 "matmul_ui8n",
201 "matmul_ui8s",
202 "mat_pinv",
203 "mat_reshape",
204 "mat_sing",
205 "mat_sqrt",
206 "mat_sum",
207 "mat_sumc",
208 "mat_suml",
209 "mat_svd",
210 "mattran_m",
211 "mat_vps",
212 "mat_vpv",
213 "matz_abs",
214 "matz_absc",
215 "matz_bksl",
216 "matz_cath",
217 "matz_catv",
218 "matz_conj",
219 "matz_det",
220 "matz_diag",
221 "matz_div",
222 "matz_expm",
223 "matz_inv",
224 "matz_lu",
225 "matzmul2_m",
226 "matzmul_m",
227 "matz_pinv",
228 "matz_reim",
229 "matz_reimc",
230 "matz_reshape",
231 "matz_sing",
232 "matz_sqrt",
233 "matz_sum",
234 "matz_sumc",
235 "matz_suml",
236 "matz_svd",
237 "matztran_m",
238 "matz_vps",
239 "matz_vpv",
240 "m_frequ",
241 "minmax",
242 "modulo_count",
243 "mswitch",
244 "multiplex",
245 "plusblk",
246 "prod",
247 "product",
248 "ramp",
249 "ratelimiter",
250 "readau",
251 "readc",
252 "relationalop",
253 "relational_op",
254 "relational_op_i16",
255 "relational_op_i32",
256 "relational_op_i8",
257 "relational_op_ui16",
258 "relational_op_ui32",
259 "relational_op_ui8",
260 "relay",
261 "ricc_m",
262 "rndblk_m",
263 "rndblkz_m",
264 "root_coef",
265 "rootz_coef",
266 "samphold4",
267 "samphold4_m",
268 "satur",
269 "scalar2vector",
270 "scicosexit",
271 "selector",
272 "selector_m",
273 "shift_16_LA",
274 "shift_16_LC",
275 "shift_16_RA",
276 "shift_16_RC",
277 "shift_32_LA",
278 "shift_32_LC",
279 "shift_32_RA",
280 "shift_32_RC",
281 "shift_8_LA",
282 "shift_8_LC",
283 "shift_8_RA",
284 "shift_8_RC",
285 "shift_u16_RA",
286 "shift_u32_RA",
287 "shift_u8_RA",
288 "signum",
289 "sin_blk",
290 "sinh_blk",
291 "step_func",
292 "submat",
293 "submatz",
294 "sum",
295 "summation",
296 "summation_i16e",
297 "summation_i16n",
298 "summation_i16s",
299 "summation_i32e",
300 "summation_i32n",
301 "summation_i32s",
302 "summation_i8e",
303 "summation_i8n",
304 "summation_i8s",
305 "summation_ui16e",
306 "summation_ui16n",
307 "summation_ui16s",
308 "summation_ui32e",
309 "summation_ui32n",
310 "summation_ui32s",
311 "summation_ui8e",
312 "summation_ui8n",
313 "summation_ui8s",
314 "summation_z",
315 "switch2",
316 "switch2_m",
317 "switchn",
318 "tablex2d_c",
319 "tan_blk",
320 "tanh_blk",
321 "tcslti4",
322 "tcsltj4",
323 "time_delay",
324 "tows_c",
325 "variable_delay",
326 "whileiterator",
327 "writeau",
328 "writec",
329 "zcross2",
330 ];
331
332 BLOCKS_FORTRAN = [
333 "csslti",
334 "cstblk",
335 "delay",
336 "delayv",
337 "demux",
338 "diffblk",
339 "dlradp",
340 "dollar",
341 "dsslti",
342 "eselect",
343 "evtdly",
344 "expblk",
345 "forblk",
346 "fsv",
347 "gensin",
348 "gensqr",
349 "hltblk",
350 "ifthel",
351 "integr",
352 "intplt",
353 "intpol",
354 "intrp2",
355 "intrpl",
356 "invblk",
357 "iocopy",
358 "logblk",
359 "lookup",
360 "lsplit",
361 "lusat",
362 "maxblk",
363 "memo",
364 "mfclck",
365 "minblk",
366 "mux",
367 "pload",
368 "powblk",
369 "qzcel",
370 "qzflr",
371 "qzrnd",
372 "qztrn",
373 "readf",
374 "rndblk",
375 "samphold",
376 "sawtth",
377 "sciblk",
378 "selblk",
379 "sinblk",
380 "sqrblk",
381 "sum2",
382 "sum3",
383 "tanblk",
384 "tcslti",
385 "tcsltj",
386 "timblk",
387 "trash",
388 "writef",
389 "zcross",
390 ];
391
392 BLOCKS_CPP = [
393 "affich2",
394 ];
395
396 //
397 // load the scicos libs
398 //
399
400 //
401 // Link them
402 //
403
404 // binary case or source case
405 if getos() <> "Windows" then
406     LIB = SCI + "/../../lib/scilab/libsciscicos_blocks" + getdynlibext();
407     if ~isfile(LIB) then
408         LIB = SCI + "/modules/scicos_blocks/.libs/libsciscicos_blocks" + getdynlibext();
409         if ~isfile(LIB) then pause, end
410     end
411     if execstr("link(LIB, BLOCKS_C, ""c"");", "errcatch") <> 0 then pause, end
412     if execstr("link(LIB, BLOCKS_FORTRAN, ""f"");", "errcatch") <> 0 then pause, end
413     if execstr("link(LIB, BLOCKS_CPP, ""c"");", "errcatch") <> 0 then pause, end
414
415 else
416     LIBCCPP = SCI + "/bin/scicos_blocks" + getdynlibext();
417     LIBFOR = SCI + "/bin/scicos_blocks_f" + getdynlibext();
418     if ~isfile(LIBCCPP) then pause, end
419     if ~isfile(LIBFOR) then pause, end
420
421     if execstr("link(LIBCCPP, BLOCKS_C, ""c"");", "errcatch") <> 0 then pause, end
422     if execstr("link(LIBCCPP, BLOCKS_CPP, ""c"");", "errcatch") <> 0 then pause, end
423     if execstr("link(LIBFOR, BLOCKS_FORTRAN, ""f"");", "errcatch") <> 0 then pause, end
424 end
425
426 ulink();