diff options
author | Pierre Marechal <pierre.marechal@scilab.org> | 2007-11-29 09:17:14 +0000 |
---|---|---|
committer | Pierre Marechal <pierre.marechal@scilab.org> | 2007-11-29 09:17:14 +0000 |
commit | b859b7635da09e3b41704969177f143a7528eb5d (patch) | |
tree | e57d2992922e168e1fa6b5d2d49502ab5e9a46e6 /tests | |
parent | 72b4b55d2b3b4109d64567c5aa1acf3d57c31339 (diff) | |
download | scilab-b859b7635da09e3b41704969177f143a7528eb5d.zip scilab-b859b7635da09e3b41704969177f143a7528eb5d.tar.gz |
Remove old directories
Diffstat (limited to 'tests')
160 files changed, 0 insertions, 7452 deletions
diff --git a/tests/nonRegression/Qualif/Benchmark/ad_bench.txt b/tests/nonRegression/Qualif/Benchmark/ad_bench.txt deleted file mode 100755 index 033edad..0000000 --- a/tests/nonRegression/Qualif/Benchmark/ad_bench.txt +++ /dev/null | |||
@@ -1 +0,0 @@ | |||
1 | http://www.sciviews.org/other/benchmark.htm \ No newline at end of file | ||
diff --git a/tests/nonRegression/Qualif/Benchmark/bench_scilab.sce b/tests/nonRegression/Qualif/Benchmark/bench_scilab.sce deleted file mode 100755 index 9b71661..0000000 --- a/tests/nonRegression/Qualif/Benchmark/bench_scilab.sce +++ /dev/null | |||
@@ -1,313 +0,0 @@ | |||
1 | // Scilab Benchmark 2 (8 March 2003) | ||
2 | // version 2, scaled to get 1 +/- 0.1 sec with R 1.6.2 | ||
3 | // using the standard ATLAS library (Rblas.dll) | ||
4 | // on a Pentium IV 1.6 Ghz with 1 Gb Ram on Win XP pro | ||
5 | // Author : Philippe Grosjean | ||
6 | // eMail : phgrosjean@sciviews.org | ||
7 | // Web : http://www.sciviews.org | ||
8 | // License: GPL 2 or above at your convenience (see: http://www.gnu.org) | ||
9 | // | ||
10 | // Several tests are adapted from: | ||
11 | //*************************************************************************** | ||
12 | //* Matlab Benchmark program version 2.0 * | ||
13 | //* Author : Stefan Steinhaus * | ||
14 | //* EMAIL : stst@informatik.uni-frankfurt.de * | ||
15 | //* This program is public domain. Feel free to copy it freely. * | ||
16 | //*************************************************************************** | ||
17 | // Escoufier's equivalents vectors (III.5) is adapted from Planque & Fromentin, 1996 | ||
18 | // Ref: Escoufier Y., 1970. Echantillonnage dans une population de variables | ||
19 | // aleatoires réelles. Publ. Inst. Statis. Univ. Paris 19 Fasc 4, 1-47. | ||
20 | // | ||
21 | // type exec('c:\<dir>\Scilab2.sce', 0); to start the test | ||
22 | |||
23 | stacksize(30000000) | ||
24 | runs = 3; // Number of times the tests are executed | ||
25 | times = zeros(5, 3); | ||
26 | |||
27 | disp(' Scilab Benchmark 2') | ||
28 | disp(' ==================') | ||
29 | disp('Number of times each test is run__________________________: ' + string(runs)) | ||
30 | disp(' ') | ||
31 | |||
32 | |||
33 | disp(' I. Matrix calculation') | ||
34 | disp(' ---------------------') | ||
35 | |||
36 | |||
37 | // (1) | ||
38 | cumulate = 0; a = 0; b = 0; | ||
39 | for i = 1:runs | ||
40 | timer(); | ||
41 | a = abs(rand(1500, 1500, 'n')/10); | ||
42 | b = a'; | ||
43 | a = matrix(b, 750, 3000); | ||
44 | b = a'; | ||
45 | timing = timer(); | ||
46 | cumulate = cumulate + timing; | ||
47 | end; | ||
48 | timing = cumulate/runs; | ||
49 | times(1, 1) = timing; | ||
50 | disp('Creation, transp., deformation of a 1500x1500 matrix (sec): ' + string(timing)); | ||
51 | clear('a'); clear('b'); | ||
52 | |||
53 | // (2) | ||
54 | cumulate = 0; b = 0; | ||
55 | for i = 1:runs | ||
56 | a = abs(rand(800, 800, 'n')/2); | ||
57 | timer(); | ||
58 | b = a.^1000; | ||
59 | timing = timer(); | ||
60 | cumulate = cumulate + timing; | ||
61 | end | ||
62 | timing = cumulate/runs; | ||
63 | times(2, 1) = timing; | ||
64 | disp('800x800 normal distributed random matrix ^1000______ (sec): ' + string(timing)) | ||
65 | clear('a'); clear('b'); | ||
66 | |||
67 | // (3) | ||
68 | cumulate = 0; b = 0; | ||
69 | for i = 1:runs | ||
70 | a = rand(2000000, 1, 'n'); | ||
71 | timer(); | ||
72 | b = -sort(-a); | ||
73 | timing = timer(); | ||
74 | cumulate = cumulate + timing; | ||
75 | end | ||
76 | timing = cumulate/runs; | ||
77 | times(3, 1) = timing; | ||
78 | disp('Sorting of 2,000,000 random values__________________ (sec): ' + string(timing)) | ||
79 | clear('a'); clear('b'); | ||
80 | |||
81 | // (4) | ||
82 | cumulate = 0; b = 0; | ||
83 | for i = 1:runs | ||
84 | a = rand(700, 700, 'n'); | ||
85 | timer(); | ||
86 | b = a'*a; | ||
87 | timing = timer(); | ||
88 | cumulate = cumulate + timing; | ||
89 | end | ||
90 | timing = cumulate/runs; | ||
91 | times(4, 1) = timing; | ||
92 | disp('700x700 cross-product matrix (b = a'' * a)___________ (sec): ' + string(timing)) | ||
93 | clear('a'); clear('b'); | ||
94 | |||
95 | // (5) | ||
96 | cumulate = 0; c = 0; | ||
97 | for i = 1:runs | ||
98 | a = rand(600, 600, 'n'); | ||
99 | b = 1:600; | ||
100 | timer(); | ||
101 | c = a\b'; | ||
102 | timing = timer(); | ||
103 | cumulate = cumulate + timing; | ||
104 | end | ||
105 | timing = cumulate/runs; | ||
106 | times(5, 1) = timing; | ||
107 | disp('Linear regression over a 600x600 matrix (c = a \ b'') (sec): ' + string(timing)) | ||
108 | clear('a'); clear('b'); clear('c'); | ||
109 | |||
110 | times = sort(times, 'r'); | ||
111 | disp(' --------------------------------------------------') | ||
112 | disp(' Trimmed geom. mean (2 extremes eliminated): ' + string(exp(mean(log(times(2:4,1)))))) | ||
113 | disp(' ') | ||
114 | |||
115 | disp(' II. Matrix functions') | ||
116 | disp(' --------------------') | ||
117 | |||
118 | |||
119 | // (1) | ||
120 | cumulate = 0; b = 0; | ||
121 | for i = 1:runs | ||
122 | a = rand(800000, 1, 'n'); | ||
123 | timer(); | ||
124 | b = fft(a, -1); | ||
125 | timing = timer(); | ||
126 | cumulate = cumulate + timing; | ||
127 | end | ||
128 | timing = cumulate/runs; | ||
129 | times(1, 2) = timing; | ||
130 | disp('FFT over 800,000 random values______________________ (sec): ' + string(timing)) | ||
131 | clear('a'); clear('b'); | ||
132 | |||
133 | // (2) | ||
134 | cumulate = 0; b = 0; | ||
135 | for i = 1:runs | ||
136 | a = rand(320, 320, 'n'); | ||
137 | timer(); | ||
138 | b = spec(a); | ||
139 | timing = timer(); | ||
140 | cumulate = cumulate + timing; | ||
141 | end | ||
142 | timing = cumulate/runs; | ||
143 | times(2, 2) = timing; | ||
144 | disp('Eigenvalues of a 320x320 random matrix______________ (sec): ' + string(timing)) | ||
145 | clear('a'); clear('b'); | ||
146 | |||
147 | // (3) | ||
148 | cumulate = 0; b = 0; | ||
149 | for i = 1:runs | ||
150 | a = rand(650, 650, 'n'); | ||
151 | timer(); | ||
152 | b = det(a); | ||
153 | timing = timer(); | ||
154 | cumulate = cumulate + timing; | ||
155 | end | ||
156 | timing = cumulate/runs; | ||
157 | times(3, 2) = timing; | ||
158 | disp('Determinant of a 650x650 random matrix______________ (sec): ' + string(timing)) | ||
159 | clear('a'); clear('b'); | ||
160 | |||
161 | // (4) | ||
162 | cumulate = 0; b = 0; | ||
163 | for i = 1:runs | ||
164 | a = rand(900, 900, 'n'); | ||
165 | a = a'*a; | ||
166 | timer(); | ||
167 | b = chol(a); | ||
168 | timing = timer(); | ||
169 | cumulate = cumulate + timing; | ||
170 | end | ||
171 | timing = cumulate/runs; | ||
172 | times(4, 2) = timing; | ||
173 | disp('Cholesky decomposition of a 900x900 matrix__________ (sec): ' + string(timing)) | ||
174 | clear('a'); clear('b'); | ||
175 | |||
176 | // (5) | ||
177 | cumulate = 0; b = 0; | ||
178 | for i = 1:runs | ||
179 | a = rand(400, 400, 'n'); | ||
180 | timer(); | ||
181 | b = inv(a); | ||
182 | timing = timer(); | ||
183 | cumulate = cumulate + timing; | ||
184 | end | ||
185 | timing = cumulate/runs; | ||
186 | times(5, 2) = timing; | ||
187 | disp('Inverse of a 400x400 random matrix__________________ (sec): ' + string(timing)) | ||
188 | clear('a'); clear('b'); | ||
189 | |||
190 | times = sort(times, 'r'); | ||
191 | disp(' --------------------------------------------------') | ||
192 | disp(' Trimmed geom. mean (2 extremes eliminated): ' + string(exp(mean(log(times(2:4,2)))))) | ||
193 | disp(' ') | ||
194 | |||
195 | disp(' III. Programmation') | ||
196 | disp(' ------------------') | ||
197 | |||
198 | // (1) | ||
199 | cumulate = 0; a = 0; b = 0; phi = 1.6180339887498949; | ||
200 | for i = 1:runs | ||
201 | a = floor(1000 * rand(750000, 1, 'u')); | ||
202 | timer(); | ||
203 | b = (phi.^a - (-phi).^(-a)) / sqrt(5); | ||
204 | timing = timer(); | ||
205 | cumulate = cumulate + timing; | ||
206 | end | ||
207 | timing = cumulate/runs; | ||
208 | times(1, 3) = timing; | ||
209 | disp('750,000 Fibonacci numbers calculation (vector calc)_ (sec): ' + string(timing)) | ||
210 | clear('a'); clear('b'); clear('phi'); | ||
211 | |||
212 | // (2) | ||
213 | cumulate = 0; a = 2250; b = 0; | ||
214 | for i = 1:runs | ||
215 | timer(); | ||
216 | b = ones(a, a)./((1:a)' * ones(1, a) + ones(a, 1) * (0:(a-1))); | ||
217 | timing = timer(); | ||
218 | cumulate = cumulate + timing; | ||
219 | end | ||
220 | timing = cumulate/runs; | ||
221 | times(2, 3) = timing; | ||
222 | disp('Creation of a 2250x2250 Hilbert matrix (matrix calc) (sec): ' + string(timing)) | ||
223 | clear('a'); clear('b'); | ||
224 | |||
225 | // (3) | ||
226 | cumulate = 0; c = 0; | ||
227 | deff('[c]=gcd2(a, b)',['if b <= 1.0E-4'; 'c = a;'; 'else'; 'b(b == 0) = a(b == 0);'; 'c = gcd2(b, modulo(a, b));'; 'end']) | ||
228 | for i = 1:runs | ||
229 | a = ceil(1000 * rand(70000, 1, 'u')); | ||
230 | b = ceil(1000 * rand(70000, 1, 'u')); | ||
231 | timer(); | ||
232 | c = gcd2(a, b); // gcd2 is a recursive function | ||
233 | timing = timer(); | ||
234 | cumulate = cumulate + timing; | ||
235 | end | ||
236 | timing = cumulate/runs; | ||
237 | times(3, 3) = timing; | ||
238 | disp('Grand common divisors of 70,000 pairs (recursion)___ (sec): ' + string(timing)) | ||
239 | clear('a'); clear('b'); clear('c'); | ||
240 | |||
241 | // (4) | ||
242 | cumulate = 0; b = 0; | ||
243 | for i = 1:runs | ||
244 | b = zeros(220, 220); | ||
245 | timer(); | ||
246 | for j = 1:220 | ||
247 | for k = 1:220 | ||
248 | b(k,j) = abs(j - k) + 1; | ||
249 | end | ||
250 | end | ||
251 | timing = timer(); | ||
252 | cumulate = cumulate + timing; | ||
253 | end | ||
254 | timing = cumulate/runs; | ||
255 | times(4, 3) = timing; | ||
256 | disp('Creation of a 220x220 Toeplitz matrix (loops)_______ (sec): ' + string(timing)) | ||
257 | clear('b'); clear('j'); clear('k'); | ||
258 | |||
259 | // (5) | ||
260 | cumulate = 0; p = 0; q = 0; vt = 0; vr = 0; vrt = 0; rvt = 0; RV = 0; j = 0; k = 0; | ||
261 | x2 = 0; R = 0; Rxx = 0; Ryy = 0; Rxy = 0; Ryx = 0; Rvmax = 0; f = 0;, c= 0; d = 0; | ||
262 | for i = 1:runs | ||
263 | x = abs(rand(37, 37, 'n')); | ||
264 | timer(); | ||
265 | // Calculation of Escoufier's equivalent vectors | ||
266 | p = size(x, 2); | ||
267 | vt = [1:p]; // Variables to test | ||
268 | vr = []; // Result: ordered variables | ||
269 | RV = [1:p]; // Result: correlations | ||
270 | for j = 1:p // loop on the variable number | ||
271 | Rvmax = 0; | ||
272 | for k = 1:(p-j+1) // loop on the variables | ||
273 | x2 = [x, x(:, vr), x(:, vt(k))]; // New table to test | ||
274 | // R = corrcoef(x2); // Correlations table | ||
275 | // Not in scilab, so the 5 following lines do it | ||
276 | q = size(x2, 1); | ||
277 | x2 = x2 - ones (q, 1) * sum (x2, 'r') / q; | ||
278 | c = conj(x2' * x2 / (q - 1)); | ||
279 | d=diag(c); | ||
280 | R = c ./ sqrt(d * d'); | ||
281 | Ryy = R(1:p, 1:p); | ||
282 | Rxx = R(p+1:p+j, p+1:p+j); | ||
283 | Rxy = R(p+1:p+j, 1:p); | ||
284 | Ryx = Rxy'; | ||
285 | rvt = trace(Ryx*Rxy)/((trace(Ryy^2)*trace(Rxx^2))^0.5); // RV calculation | ||
286 | if rvt > Rvmax | ||
287 | Rvmax = rvt; // test of RV | ||
288 | vrt(j) = vt(k); // temporary held variable | ||
289 | end | ||
290 | end | ||
291 | vr(j) = vrt(j); // Result: variable | ||
292 | RV(j) = Rvmax; // Result: correlation | ||
293 | f = find(vt~=vr(j)); // identify the held variable | ||
294 | vt = vt(f); // reidentify variables to test | ||
295 | end | ||
296 | timing = timer(); | ||
297 | cumulate = cumulate + timing; | ||
298 | end | ||
299 | times(5, 3) = timing; | ||
300 | disp('Escoufier''s method on a 37x37 matrix (mixed)________ (sec): ' + string(timing)) | ||
301 | clear('x'); clear('p'); clear('q'); clear('vt'); clear('vr'); clear('vrt'); clear('rvt'); clear('RV'); clear('j'); clear('k'); | ||
302 | clear('x2'); clear('R'); clear('Rxx'); clear('Ryy'); clear('Rxy'); clear('Ryx'); clear('Rvmax'); clear('f'); clear('c'); clear('d'); | ||
303 | |||
304 | times = sort(times, 'r'); | ||
305 | disp(' --------------------------------------------------') | ||
306 | disp(' Trimmed geom. mean (2 extremes eliminated): ' + string(exp(mean(log(times(2:4,3)))))) | ||
307 | disp(' ') | ||
308 | |||
309 | disp(' ') | ||
310 | disp('Total time for all 15 tests_________________________ (sec): ' + string(sum(times))) | ||
311 | disp('Overall mean (sum of I, II and III trimmed means/3)_ (sec): ' + string(exp(mean(log(times(2:4,:)))))) | ||
312 | clear('cumulate'); clear('timing'); clear('times'); clear('runs'); clear('i'); | ||
313 | disp(' --- End of test ---') | ||
diff --git a/tests/nonRegression/Qualif/Invite DOS pour Env. Qualif.lnk b/tests/nonRegression/Qualif/Invite DOS pour Env. Qualif.lnk deleted file mode 100755 index 09d93d5..0000000 --- a/tests/nonRegression/Qualif/Invite DOS pour Env. Qualif.lnk +++ /dev/null | |||
Binary files differ | |||
diff --git a/tests/nonRegression/Qualif/Invite standard de commandes DOS.lnk b/tests/nonRegression/Qualif/Invite standard de commandes DOS.lnk deleted file mode 100755 index 0a92bd1..0000000 --- a/tests/nonRegression/Qualif/Invite standard de commandes DOS.lnk +++ /dev/null | |||
Binary files differ | |||
diff --git a/tests/nonRegression/Qualif/Log/copyftp.log b/tests/nonRegression/Qualif/Log/copyftp.log deleted file mode 100755 index ac02707..0000000 --- a/tests/nonRegression/Qualif/Log/copyftp.log +++ /dev/null | |||
@@ -1,92 +0,0 @@ | |||
1 | LibNcFTP 3.1.5 (October 13, 2002) compiled for Windows | ||
2 | 220: frioul.inria.fr FTP server (Version 5.60) ready. | ||
3 | Connected to frioul.inria.fr. | ||
4 | Cmd: USER qualif | ||
5 | 331: Password required for qualif. | ||
6 | Cmd: PASS xxxxxxxx | ||
7 | 230: User qualif logged in. | ||
8 | Cmd: PWD | ||
9 | 257: "/home/qualif" is current directory. | ||
10 | Logged in to frioul.inria.fr as qualif. | ||
11 | Cmd: FEAT | ||
12 | 500: 'FEAT': command not understood. | ||
13 | Cmd: HELP SITE | ||
14 | 214: The following SITE commands are recognized (* =>'s unimplemented). | ||
15 | UMASK IDLE CHMOD HELP | ||
16 | Direct comments to ftp-bugs@frioul.inria.fr. | ||
17 | Cmd: CLNT NcFTPGet 3.1.5 Windows | ||
18 | 500: 'CLNT NcFTPGet 3.1.5 Windows': command not understood. | ||
19 | Cmd: PWD | ||
20 | 257: "/home/qualif" is current directory. | ||
21 | Cmd: CWD tests_suite/autrerep | ||
22 | 250: CWD command successful. | ||
23 | Cmd: CWD /home/qualif | ||
24 | 250: CWD command successful. | ||
25 | Cmd: PWD | ||
26 | 257: "/home/qualif" is current directory. | ||
27 | Cmd: CWD tests_suite/autrerep | ||
28 | 250: CWD command successful. | ||
29 | Cmd: PASV | ||
30 | 227: Entering Passive Mode (128,93,12,139,170,45) | ||
31 | Cmd: LIST -Ra | ||
32 | 150: Opening ASCII mode data connection for /bin/ls. | ||
33 | 226: Transfer complete. | ||
34 | Cmd: CWD /home/qualif | ||
35 | 250: CWD command successful. | ||
36 | Cmd: MDTM tests_suite/autrerep/autrerep.sce | ||
37 | 213: 20030702130623 | ||
38 | Cmd: TYPE I | ||
39 | 200: Type set to I. | ||
40 | Cmd: REST 1 | ||
41 | 350: Restarting at 1. (null) | ||
42 | Cmd: REST 0 | ||
43 | 350: Restarting at 0. (null) | ||
44 | Cmd: PASV | ||
45 | 227: Entering Passive Mode (128,93,12,139,170,46) | ||
46 | Cmd: RETR tests_suite/autrerep/autrerep.sce | ||
47 | 150: Opening BINARY mode data connection for tests_suite/autrerep/autrerep.sce (438 bytes). | ||
48 | 226: Transfer complete. | ||
49 | Cmd: MDTM tests_suite/autrerep/bug1.sci | ||
50 | 213: 20030702130623 | ||
51 | Cmd: PASV | ||
52 | 227: Entering Passive Mode (128,93,12,139,170,47) | ||
53 | Cmd: RETR tests_suite/autrerep/bug1.sci | ||
54 | 150: Opening BINARY mode data connection for tests_suite/autrerep/bug1.sci (426 bytes). | ||
55 | 226: Transfer complete. | ||
56 | Cmd: MDTM tests_suite/autrerep/bug21.sci | ||
57 | 213: 20030702130623 | ||
58 | Cmd: PASV | ||
59 | 227: Entering Passive Mode (128,93,12,139,170,48) | ||
60 | Cmd: RETR tests_suite/autrerep/bug21.sci | ||
61 | 150: Opening BINARY mode data connection for tests_suite/autrerep/bug21.sci (562 bytes). | ||
62 | 226: Transfer complete. | ||
63 | Cmd: MDTM tests_suite/autrerep/bug22.sci | ||
64 | 213: 20030702130623 | ||
65 | Cmd: PASV | ||
66 | 227: Entering Passive Mode (128,93,12,139,170,49) | ||
67 | Cmd: RETR tests_suite/autrerep/bug22.sci | ||
68 | 150: Opening BINARY mode data connection for tests_suite/autrerep/bug22.sci (583 bytes). | ||
69 | 226: Transfer complete. | ||
70 | Cmd: MDTM tests_suite/autrerep/bug24.sci | ||
71 | 213: 20030702130624 | ||
72 | Cmd: PASV | ||
73 | 227: Entering Passive Mode (128,93,12,139,170,50) | ||
74 | Cmd: RETR tests_suite/autrerep/bug24.sci | ||
75 | 150: Opening BINARY mode data connection for tests_suite/autrerep/bug24.sci (388 bytes). | ||
76 | 226: Transfer complete. | ||
77 | Cmd: MDTM tests_suite/autrerep/bug25.sci | ||
78 | 213: 20030702130624 | ||
79 | Cmd: PASV | ||
80 | 227: Entering Passive Mode (128,93,12,139,170,51) | ||
81 | Cmd: RETR tests_suite/autrerep/bug25.sci | ||
82 | 150: Opening BINARY mode data connection for tests_suite/autrerep/bug25.sci (571 bytes). | ||
83 | 226: Transfer complete. | ||
84 | Cmd: MDTM tests_suite/autrerep/bug6.sci | ||
85 | 213: 20030702130624 | ||
86 | Cmd: PASV | ||
87 | 227: Entering Passive Mode (128,93,12,139,170,52) | ||
88 | Cmd: RETR tests_suite/autrerep/bug6.sci | ||
89 | 150: Opening BINARY mode data connection for tests_suite/autrerep/bug6.sci (237 bytes). | ||
90 | 226: Transfer complete. | ||
91 | Cmd: QUIT | ||
92 | 221: Goodbye. | ||
diff --git a/tests/nonRegression/Qualif/Log/save_log/autrerep.log b/tests/nonRegression/Qualif/Log/save_log/autrerep.log deleted file mode 100755 index 5fd1d39..0000000 --- a/tests/nonRegression/Qualif/Log/save_log/autrerep.log +++ /dev/null | |||
@@ -1,91 +0,0 @@ | |||
1 | ========== | ||
2 | scilab-2.7.2 | ||
3 | Copyright (C) 1989-2003 INRIA/ENPC | ||
4 | ========== | ||
5 | |||
6 | |||
7 | |||
8 | Startup execution: | ||
9 | loading initial environment | ||
10 | |||
11 | |||
12 | |||
13 | |||
14 | |||
15 | ------------------------------{ DEBUT TEST SUITE AUTREREP DEBUT } | ||
16 | |||
17 | |||
18 | |||
19 | |||
20 | |||
21 | -->// bug1 | ||
22 | |||
23 | |||
24 | -->mode (-1) | ||
25 | cmplxt : code erronne : 20 | ||
26 | |||
27 | ***************************************** Test bug1 : FAILED ! | ||
28 | cmplxt : code erronne : 20 | ||
29 | |||
30 | Error n° 37 | ||
31 | |||
32 | incorrect function at line ****** | ||
33 | |||
34 | -->// bug6 | ||
35 | |||
36 | |||
37 | -->mode (-1) | ||
38 | |||
39 | Test bug6 : PASSED | ||
40 | |||
41 | -->// bug21 | ||
42 | |||
43 | |||
44 | -->mode (-1) | ||
45 | |||
46 | ***************************************** Test bug21 : FAILED ! | ||
47 | |||
48 | -->// bug22 | ||
49 | |||
50 | |||
51 | -->mode (-1) | ||
52 | |||
53 | ***************************************** Test bug22 : FAILED ! | ||
54 | |||
55 | -->// bug24 | ||
56 | |||
57 | |||
58 | -->mode (-1) | ||
59 | Warning :redefining function: bug | ||
60 | |||
61 | |||
62 | ***************************************** Test bug24 : FAILED ! | ||
63 | |||
64 | Error n° 204 | ||
65 | |||
66 | Argument 2, wrong type argument: expecting a scalar | ||
67 | |||
68 | -->// bug25 | ||
69 | |||
70 | |||
71 | -->clear all | ||
72 | |||
73 | -->mode (-1) | ||
74 | Dans le while principal I=0 | ||
75 | Dans le while principal I=1 | ||
76 | Dans le while principal I=2 | ||
77 | Dans le while principal I=3 | ||
78 | Dans le while principal I=4 | ||
79 | |||
80 | Test bug25 : PASSED | ||
81 | |||
82 | |||
83 | |||
84 | |||
85 | |||
86 | ------------------------------{ FIN TEST SUITE AUTREREP FIN } | ||
87 | |||
88 | |||
89 | |||
90 | |||
91 | autrerep TEST SUITE --------------- FAILED | ||
diff --git a/tests/nonRegression/Qualif/Log/save_log/nonreg_2-7-1.log b/tests/nonRegression/Qualif/Log/save_log/nonreg_2-7-1.log deleted file mode 100755 index f553d85..0000000 --- a/tests/nonRegression/Qualif/Log/save_log/nonreg_2-7-1.log +++ /dev/null | |||
@@ -1,97 +0,0 @@ | |||
1 | ========== | ||
2 | scilab-2.7.2 | ||
3 | Copyright (C) 1989-2003 INRIA/ENPC | ||
4 | ========== | ||
5 | |||
6 | |||
7 | |||
8 | Startup execution: | ||
9 | loading initial environment | ||
10 | |||
11 | 22-Sep-2003 11 h. 9 mn. 14 s. | ||
12 | |||
13 | |||
14 | |||
15 | |||
16 | |||
17 | ------------------------------{ DEBUT TEST SUITE NON REGRESSION Versio | ||
18 | n 2.7.1 DEBUT } | ||
19 | |||
20 | |||
21 | |||
22 | |||
23 | |||
24 | -->// bug1 | ||
25 | |||
26 | |||
27 | -->mode (-1) | ||
28 | cmplxt : code erronne : 20 | ||
29 | |||
30 | ***************************************** Test bug1 : FAILED ! | ||
31 | cmplxt : code erronne : 20 | ||
32 | |||
33 | Error n° 37 | ||
34 | |||
35 | incorrect function at line ****** | ||
36 | |||
37 | -->// bug6 | ||
38 | |||
39 | |||
40 | -->mode (-1) | ||
41 | |||
42 | Test bug6 : PASSED | ||
43 | |||
44 | -->// bug21 | ||
45 | |||
46 | |||
47 | -->mode (-1) | ||
48 | |||
49 | ***************************************** Test bug21 : FAILED ! | ||
50 | |||
51 | -->// bug22 | ||
52 | |||
53 | |||
54 | -->mode (-1) | ||
55 | |||
56 | ***************************************** Test bug22 : FAILED ! | ||
57 | |||
58 | -->// bug24 | ||
59 | |||
60 | |||
61 | -->mode (-1) | ||
62 | Warning :redefining function: bug | ||
63 | |||
64 | |||
65 | ***************************************** Test bug24 : FAILED ! | ||
66 | |||
67 | Error n° 204 | ||
68 | |||
69 | Argument 2, wrong type argument: expecting a scalar | ||
70 | |||
71 | -->// bug25 | ||
72 | |||
73 | |||
74 | -->clear all | ||
75 | |||
76 | -->mode (-1) | ||
77 | Dans le while principal I=0 | ||
78 | Dans le while principal I=1 | ||
79 | Dans le while principal I=2 | ||
80 | Dans le while principal I=3 | ||
81 | Dans le while principal I=4 | ||
82 | |||
83 | Test bug25 : PASSED | ||
84 | |||
85 | |||
86 | |||
87 | |||
88 | |||
89 | ------------------------------{ FIN TEST SUITE NON REGRESSION Version | ||
90 | 2.7.1 FIN } | ||
91 | |||
92 | |||
93 | |||
94 | |||
95 | |||
96 | 22-Sep-2003 11 h. 9 mn. 14 s. | ||
97 | nonreg_2-7-1 TEST SUITE --------------- FAILED | ||
diff --git a/tests/nonRegression/Qualif/Log/scilab-2.7.2/autrerep.log b/tests/nonRegression/Qualif/Log/scilab-2.7.2/autrerep.log deleted file mode 100755 index 45487c0..0000000 --- a/tests/nonRegression/Qualif/Log/scilab-2.7.2/autrerep.log +++ /dev/null | |||
@@ -1,26 +0,0 @@ | |||
1 | ========== | ||
2 | scilab-2.7.2 | ||
3 | Copyright (C) 1989-2003 INRIA/ENPC | ||
4 | ========== | ||
5 | |||
6 | |||
7 | |||
8 | Startup execution: | ||
9 | loading initial environment | ||
10 | |||
11 | |||
12 | |||
13 | |||
14 | |||
15 | ------------------------------{ DEBUT TEST SUITE AUTREREP DEBUT } | ||
16 | |||
17 | |||
18 | |||
19 | |||
20 | exec('bug' + string(k) + '.sci') | ||
21 | !--error 241 | ||
22 | File bug1.sci does not exist or read access denied | ||
23 | at line 16 of exec file called by : | ||
24 | ch(-1,"stop");exec("autrerep.sce");quit; | ||
25 | |||
26 | autrerep TEST SUITE --------------- NOT COMPLETED | ||
diff --git a/tests/nonRegression/Qualif/Log/scilab-2.7.2/bug0.log b/tests/nonRegression/Qualif/Log/scilab-2.7.2/bug0.log deleted file mode 100755 index ec750e1..0000000 --- a/tests/nonRegression/Qualif/Log/scilab-2.7.2/bug0.log +++ /dev/null | |||
@@ -1,26 +0,0 @@ | |||
1 | ========== | ||
2 | scilab-2.7.2 | ||
3 | Copyright (C) 1989-2003 INRIA/ENPC | ||
4 | ========== | ||
5 | |||
6 | |||
7 | |||
8 | Startup execution: | ||
9 | loading initial environment | ||
10 | |||
11 | |||
12 | |||
13 | |||
14 | |||
15 | ------------------------------{ DEBUT TEST SUITE AUTREREP DEBUT } | ||
16 | |||
17 | |||
18 | |||
19 | |||
20 | toto=[1 2 3]-[1;2;3]; | ||
21 | !--error 9 | ||
22 | inconsistent subtraction | ||
23 | at line 19 of exec file called by : | ||
24 | rcatch(-1,"stop");exec("bug0.sce");quit; | ||
25 | |||
26 | bug0 TEST SUITE --------------- NOT COMPLETED | ||
diff --git a/tests/nonRegression/Qualif/Log/scilab-2.7.2/existepas.log b/tests/nonRegression/Qualif/Log/scilab-2.7.2/existepas.log deleted file mode 100755 index 9cb85ac..0000000 --- a/tests/nonRegression/Qualif/Log/scilab-2.7.2/existepas.log +++ /dev/null | |||
@@ -1,26 +0,0 @@ | |||
1 | ========== | ||
2 | scilab-2.7.2 | ||
3 | Copyright (C) 1989-2003 INRIA/ENPC | ||
4 | ========== | ||
5 | |||
6 | |||
7 | |||
8 | Startup execution: | ||
9 | loading initial environment | ||
10 | |||
11 | |||
12 | |||
13 | |||
14 | |||
15 | ------------------------------{ DEBUT TEST SUITE AUTREREP DEBUT } | ||
16 | |||
17 | |||
18 | |||
19 | |||
20 | exec("oubaouba_marsupilami.sce"); | ||
21 | !--error 241 | ||
22 | File oubaouba_marsupilami.sce does not exist or read access denied | ||
23 | at line 20 of exec file called by : | ||
24 | h(-1,"stop");exec("existepas.sce");quit; | ||
25 | |||
26 | existepas TEST SUITE --------------- NOT COMPLETED | ||
diff --git a/tests/nonRegression/Qualif/Log/scilab-2.7.2/nonreg_2-7-1.log b/tests/nonRegression/Qualif/Log/scilab-2.7.2/nonreg_2-7-1.log deleted file mode 100755 index 318ff22..0000000 --- a/tests/nonRegression/Qualif/Log/scilab-2.7.2/nonreg_2-7-1.log +++ /dev/null | |||
@@ -1,97 +0,0 @@ | |||
1 | ========== | ||
2 | scilab-2.7.2 | ||
3 | Copyright (C) 1989-2003 INRIA/ENPC | ||
4 | ========== | ||
5 | |||
6 | |||
7 | |||
8 | Startup execution: | ||
9 | loading initial environment | ||
10 | |||
11 | 6-Nov-2003 10 h. 39 mn. 58 s. | ||
12 | |||
13 | |||
14 | |||
15 | |||
16 | |||
17 | ------------------------------{ DEBUT TEST SUITE NON REGRESSION Versio | ||
18 | n 2.7.1 DEBUT } | ||
19 | |||
20 | |||
21 | |||
22 | |||
23 | |||
24 | -->// bug1 | ||
25 | |||
26 | |||
27 | -->mode (-1) | ||
28 | cmplxt : code erronne : 20 | ||
29 | |||
30 | ***************************************** Test bug1 : FAILED ! | ||
31 | cmplxt : code erronne : 20 | ||
32 | |||
33 | Error n° 37 | ||
34 | |||
35 | incorrect function at line ****** | ||
36 | |||
37 | -->// bug6 | ||
38 | |||
39 | |||
40 | -->mode (-1) | ||
41 | |||
42 | Test bug6 : PASSED | ||
43 | |||
44 | -->// bug21 | ||
45 | |||
46 | |||
47 | -->mode (-1) | ||
48 | |||
49 | ***************************************** Test bug21 : FAILED ! | ||
50 | |||
51 | -->// bug22 | ||
52 | |||
53 | |||
54 | -->mode (-1) | ||
55 | |||
56 | ***************************************** Test bug22 : FAILED ! | ||
57 | |||
58 | -->// bug24 | ||
59 | |||
60 | |||
61 | -->mode (-1) | ||
62 | Warning :redefining function: bug | ||
63 | |||
64 | |||
65 | ***************************************** Test bug24 : FAILED ! | ||
66 | |||
67 | Error n° 204 | ||
68 | |||
69 | Argument 2, wrong type argument: expecting a scalar | ||
70 | |||
71 | -->// bug25 | ||
72 | |||
73 | |||
74 | -->clear all | ||
75 | |||
76 | -->mode (-1) | ||
77 | Dans le while principal I=0 | ||
78 | Dans le while principal I=1 | ||
79 | Dans le while principal I=2 | ||
80 | Dans le while principal I=3 | ||
81 | Dans le while principal I=4 | ||
82 | |||
83 | Test bug25 : PASSED | ||
84 | |||
85 | |||
86 | |||
87 | |||
88 | |||
89 | ------------------------------{ FIN TEST SUITE NON REGRESSION Version | ||
90 | 2.7.1 FIN } | ||
91 | |||
92 | |||
93 | |||
94 | |||
95 | |||
96 | 6-Nov-2003 10 h. 39 mn. 58 s. | ||
97 | nonreg_2-7-1 TEST SUITE --------------- FAILED | ||
diff --git a/tests/nonRegression/Qualif/Proc/aide.bat b/tests/nonRegression/Qualif/Proc/aide.bat deleted file mode 100755 index 82126e5..0000000 --- a/tests/nonRegression/Qualif/Proc/aide.bat +++ /dev/null | |||
@@ -1,23 +0,0 @@ | |||
1 | @echo off | ||
2 | |||
3 | cls | ||
4 | echo // | ||
5 | echo // commandes disponibles : COPYFTP - RUNTEST - COPYRUN - CLEARWORK - CLEARLOG | ||
6 | echo // | ||
7 | echo // pour une aide faire : AIDE [all] ou lancer une commande sans parametre | ||
8 | echo // | ||
9 | echo // | ||
10 | |||
11 | if "%1"=="all" goto suite | ||
12 | if "%1"=="ALL" goto suite | ||
13 | goto the_end | ||
14 | |||
15 | :suite | ||
16 | cls | ||
17 | call copyftp | ||
18 | call runtest | ||
19 | call copyrun | ||
20 | call clearwork | ||
21 | call clearlog | ||
22 | |||
23 | :the_end \ No newline at end of file | ||
diff --git a/tests/nonRegression/Qualif/Proc/bg.bat b/tests/nonRegression/Qualif/Proc/bg.bat deleted file mode 100755 index 7fa5454..0000000 --- a/tests/nonRegression/Qualif/Proc/bg.bat +++ /dev/null | |||
@@ -1 +0,0 @@ | |||
1 | @echo offstart /m %1 %2 %3 %4 %5 %6 %7 %8 %9:end \ No newline at end of file | ||
diff --git a/tests/nonRegression/Qualif/Proc/checklog.bat b/tests/nonRegression/Qualif/Proc/checklog.bat deleted file mode 100755 index 71f6e20..0000000 --- a/tests/nonRegression/Qualif/Proc/checklog.bat +++ /dev/null | |||
@@ -1,35 +0,0 @@ | |||
1 | @echo off | ||
2 | |||
3 | REM --- Echo Analyse des log tests_suites resultats | ||
4 | |||
5 | find "{ FIN TEST SUITE " %envq_qualif%\log\%envq_ver%\%1.log | ||
6 | if %errorlevel% == 0 ( | ||
7 | |||
8 | REM ---la chaine FIN TEST est trouvee , la tests suite est achevee , chercher si la chaine FAILED existe | ||
9 | call :suite %1 | ||
10 | |||
11 | ) else ( | ||
12 | |||
13 | if %errorlevel% == 1 ( | ||
14 | REM ---chaine FIN TEST pas trouvee , la test suite pas terminee | ||
15 | echo %1 TEST SUITE --------------- NOT COMPLETED >> %envq_qualif%\log\%envq_ver%\%1.log | ||
16 | ) | ||
17 | |||
18 | ) | ||
19 | |||
20 | goto fin | ||
21 | |||
22 | :suite | ||
23 | |||
24 | find /i "FAILED" %envq_qualif%\log\%envq_ver%\%1.log | ||
25 | if %errorlevel% == 0 ( | ||
26 | REM ---la chaine FAILED est trouvee , la test suite est incorrecte | ||
27 | echo %1 TEST SUITE --------------- FAILED >> %envq_qualif%\log\%envq_ver%\%1.log | ||
28 | |||
29 | ) else ( | ||
30 | REM la chaine FAILED n est pas trouvee , la test suite est correcte | ||
31 | echo %1 TEST SUITE *** PASSED *** >> %envq_qualif%\log\%envq_ver%\%1.log | ||
32 | ) | ||
33 | |||
34 | |||
35 | :fin \ No newline at end of file | ||
diff --git a/tests/nonRegression/Qualif/Proc/clearlog.bat b/tests/nonRegression/Qualif/Proc/clearlog.bat deleted file mode 100755 index 1ccade2..0000000 --- a/tests/nonRegression/Qualif/Proc/clearlog.bat +++ /dev/null | |||
@@ -1,41 +0,0 @@ | |||
1 | @echo off | ||
2 | |||
3 | REM --- supprime tous les fichiers log des batteries de tests sous le répertoire log\version scilab | ||
4 | |||
5 | if "%1"=="--help" goto aide | ||
6 | if "%1"=="" goto saisie | ||
7 | |||
8 | :encore | ||
9 | if "%1"=="" goto the_end | ||
10 | erase /s /q %envq_qualif%\log\%envq_ver%\%1.log | ||
11 | REM if %errorlevel% leq 1 echo delete %1.log ... | ||
12 | shift | ||
13 | goto encore | ||
14 | |||
15 | goto the_end | ||
16 | |||
17 | :saisie | ||
18 | |||
19 | goto the_end | ||
20 | |||
21 | :aide | ||
22 | echo - | ||
23 | echo // CLEARLOG | ||
24 | echo // Supprime un, plusieurs ou tous les fichiers log des batteries de tests du repertoire log\version scilab : | ||
25 | echo // | ||
26 | echo // - toutes les tests_suites faire : clearlog * | ||
27 | echo // - certaines tests_suites faire : clearlog nonreg* tests_20?? scicos | ||
28 | echo // - une tests-suite particuliere : clearlog nonreg_2-7-1 | ||
29 | echo // | ||
30 | echo // | ||
31 | |||
32 | :the_end | ||
33 | |||
34 | |||
35 | |||
36 | |||
37 | |||
38 | |||
39 | |||
40 | |||
41 | |||
diff --git a/tests/nonRegression/Qualif/Proc/clearwork.bat b/tests/nonRegression/Qualif/Proc/clearwork.bat deleted file mode 100755 index bcbf3b0..0000000 --- a/tests/nonRegression/Qualif/Proc/clearwork.bat +++ /dev/null | |||
@@ -1,42 +0,0 @@ | |||
1 | @echo off | ||
2 | |||
3 | REM --- supprime une, plusieurs ou toutesles batteries de tests du reperoire work local | ||
4 | |||
5 | if "%1"=="--help" goto aide | ||
6 | |||
7 | |||
8 | REM --- LIST : paramètre constitué de la liste de tests-suites demandées | ||
9 | set LIST= | ||
10 | |||
11 | :continue | ||
12 | if "%1"=="" goto lancer_une | ||
13 | |||
14 | for /D %%j in (%envq_qualif%\work\%1) do set LIST=!LIST! %%~nj | ||
15 | shift | ||
16 | goto continue | ||
17 | |||
18 | REM --- lancer chaque tests-suite une par une | ||
19 | :lancer_une | ||
20 | echo liste des tests-suites :%LIST% | ||
21 | echo ------------------------ | ||
22 | |||
23 | for %%i in (%LIST%) do echo delete %%i ... & rmdir /s /q %envq_qualif%\work\%%i | ||
24 | |||
25 | goto the_end | ||
26 | |||
27 | :aide | ||
28 | echo // | ||
29 | echo // CLEARWORK | ||
30 | echo // Supprime une, plusieurs ou toutesles batteries de tests sous le repertoire work : | ||
31 | echo // | ||
32 | echo // - toutes les tests_suites faire : clearwork * | ||
33 | echo // - certaines tests_suites faire : clearwork nonreg* tests_20?? scicos | ||
34 | echo // - une tests-suite particuliere : clearwork nonreg_2-7-1 | ||
35 | echo // | ||
36 | echo // | ||
37 | |||
38 | :the_end | ||
39 | |||
40 | |||
41 | |||
42 | |||
diff --git a/tests/nonRegression/Qualif/Proc/copyftp.bat b/tests/nonRegression/Qualif/Proc/copyftp.bat deleted file mode 100755 index 1eb9c84..0000000 --- a/tests/nonRegression/Qualif/Proc/copyftp.bat +++ /dev/null | |||
@@ -1,33 +0,0 @@ | |||
1 | @echo off | ||
2 | |||
3 | rem if not "%os%"=="Windows_NT" goto NextStep | ||
4 | REM --- Section spécifique à Windows NT --- | ||
5 | rem color 0F | ||
6 | rem :NextStep | ||
7 | if "%1"=="--help" goto aide | ||
8 | |||
9 | if exist %envq_qualif%\log\copyftp.log erase %envq_qualif%\log\copyftp.log | ||
10 | |||
11 | :encore | ||
12 | if "%1"=="" goto the_end | ||
13 | echo copy de %1 ... | ||
14 | ncftpget -R -d %envq_qualif%\log\copyftp.log -u qualif -p qualifpwd frioul.inria.fr %envq_qualif%\work tests_suite/%1 | ||
15 | shift | ||
16 | goto encore | ||
17 | |||
18 | rem for /F %%i in ('dir /A:A /O:S /B') do call :action1 %%i | ||
19 | |||
20 | goto the_end | ||
21 | |||
22 | :aide | ||
23 | echo // | ||
24 | echo // COPYFTP | ||
25 | echo // Copie a partir du serveur via ftp (ncftpget) dans le repertoire Work local de l'environnement de qualification Scilab (les meta-caracteres sont acceptes) : | ||
26 | echo // | ||
27 | echo // - toutes les tests_suites faire : copyftp * | ||
28 | echo // - certaines tests_suites faire : copyftp nonreg* tests_20?? scicos | ||
29 | echo // - une tests-suite particuliere : copyftp nonreg_2-7-1 | ||
30 | echo // | ||
31 | echo // | ||
32 | |||
33 | :the_end \ No newline at end of file | ||
diff --git a/tests/nonRegression/Qualif/Proc/copyrun.bat b/tests/nonRegression/Qualif/Proc/copyrun.bat deleted file mode 100755 index 90ad664..0000000 --- a/tests/nonRegression/Qualif/Proc/copyrun.bat +++ /dev/null | |||
@@ -1,29 +0,0 @@ | |||
1 | @echo off | ||
2 | if "%1"=="" goto aide | ||
3 | |||
4 | set MYLIST= | ||
5 | |||
6 | :continue | ||
7 | if "%1"=="" goto suite | ||
8 | set MYLIST=%MYLIST% %1 | ||
9 | shift | ||
10 | goto continue | ||
11 | |||
12 | :suite | ||
13 | call copyftp %MYLIST% | ||
14 | call runtest %MYLIST% | ||
15 | |||
16 | goto the_end | ||
17 | |||
18 | :aide | ||
19 | echo // | ||
20 | echo // COPYRUN | ||
21 | echo // Copie puis execute une ou plusieurs batteries de tests dans l'environnement de qualification Scilab (les meta-caracteres sont acceptes) : | ||
22 | echo // | ||
23 | echo // copyrun tests_suite [tests_suite] | ||
24 | echo // copyrun * | ||
25 | echo // copyrun n* sc?cos autre | ||
26 | echo // | ||
27 | echo // | ||
28 | |||
29 | :the_end \ No newline at end of file | ||
diff --git a/tests/nonRegression/Qualif/Proc/demarrage_qualif.bat b/tests/nonRegression/Qualif/Proc/demarrage_qualif.bat deleted file mode 100755 index 4f8d3e7..0000000 --- a/tests/nonRegression/Qualif/Proc/demarrage_qualif.bat +++ /dev/null | |||
@@ -1,23 +0,0 @@ | |||
1 | @echo off | ||
2 | |||
3 | REM --- création de la variable d'environnement version de scilab et du repertoire log | ||
4 | set envq_ver=scilab-2.7.2 | ||
5 | |||
6 | set envq_qualif=e:\qualif | ||
7 | REM set envq_proc=e:\qualif\proc | ||
8 | REM set envq_work=e:\qualif\work | ||
9 | REM set envq_log=e:\qualif\log | ||
10 | |||
11 | REM --- ajout dans le path du chemin d'installation de la version de scilab a qualifier et du repertoire ou sont installees les procedures necessaires | ||
12 | PATH=%PATH%;%ProgramFiles%\%envq_ver%\bin;%envq_qualif%\proc | ||
13 | |||
14 | |||
15 | REM --- création du repertoire version sous le repertoire log | ||
16 | if not exist %envq_qualif%\log\%envq_ver% mkdir %envq_qualif%\log\%envq_ver% | ||
17 | |||
18 | |||
19 | |||
20 | |||
21 | |||
22 | |||
23 | |||
diff --git a/tests/nonRegression/Qualif/Proc/diff.exe b/tests/nonRegression/Qualif/Proc/diff.exe deleted file mode 100755 index 2797ffd..0000000 --- a/tests/nonRegression/Qualif/Proc/diff.exe +++ /dev/null | |||
Binary files differ | |||
diff --git a/tests/nonRegression/Qualif/Proc/diff3.exe b/tests/nonRegression/Qualif/Proc/diff3.exe deleted file mode 100755 index f9d8d15..0000000 --- a/tests/nonRegression/Qualif/Proc/diff3.exe +++ /dev/null | |||
Binary files differ | |||
diff --git a/tests/nonRegression/Qualif/Proc/fonct_qualif.sci b/tests/nonRegression/Qualif/Proc/fonct_qualif.sci deleted file mode 100755 index fd74c1a..0000000 --- a/tests/nonRegression/Qualif/Proc/fonct_qualif.sci +++ /dev/null | |||
@@ -1,573 +0,0 @@ | |||
1 | function tests_suite_up_to_date=find_tests_suite_up_to_date(directory) | ||
2 | //recuperer les batteries de tests en cours sous directory dans une matrice | ||
3 | // verifier que tests_suite sont des repertoires quand directory=envq_work | ||
4 | // et fichier quand log ??? | ||
5 | //tests_suite="" | ||
6 | tests_suite = [] | ||
7 | select directory | ||
8 | case envq_work then | ||
9 | tests_suite=strsubst(only_directory(listfiles(directory+'*'),''),directory,'') | ||
10 | //tests_suite=basename(listfiles(directory)); | ||
11 | //the_list="" | ||
12 | //j=1 | ||
13 | //for i=1:size(tests_suite,"*") | ||
14 | // if isdir (envq_work+tests_suite(i)) then | ||
15 | // // tests_suite(i) est un répertoire | ||
16 | // the_list(j) = tests_suite(i) | ||
17 | // j=j+1 | ||
18 | // // disp "boubou" | ||
19 | //// pause | ||
20 | // end | ||
21 | //end // du for | ||
22 | //tests_suite=the_list | ||
23 | case (envq_log+envq_ver+"\") then | ||
24 | tests_suite=basename(listfiles(directory+"*.log")) | ||
25 | // attention : si existe un log qui n'est pas un nom de batterie sera dans la liste... *************************** | ||
26 | // si basename ne trouve rien tests_suite est empty | ||
27 | // ierr=execstr(tests_suite=basename(listfiles(envq_log+envq_ver+"\*.log")),'errcatch') | ||
28 | |||
29 | case "" then | ||
30 | //************************************************************* | ||
31 | // chercher la liste de frioul | ||
32 | //************************************************************* | ||
33 | // lancer la copie via ftp sur frioul du fichier frioul_tests_suite_list.txt | ||
34 | if MSDOS then | ||
35 | if ~isempty(fileinfo(envq_work+"frioul_tests_suite_list.txt")) then | ||
36 | unix_g("erase /s /q "+envq_work+"frioul_tests_suite_list.txt") | ||
37 | unix_g("erase /s /q "+envq_log+"copyftp.log") | ||
38 | end | ||
39 | unix_g(envq_proc+"frioul_tests_suite_list.bat") | ||
40 | else | ||
41 | if ~isempty(fileinfo(envq_work+"frioul_tests_suite_list.txt")) then | ||
42 | unix_g("rm "+envq_work+"frioul_tests_suite_list.txt") | ||
43 | unix_g("rm "+envq_log+"copyftp.log") | ||
44 | end | ||
45 | unix_g(envq_proc+"frioul_tests_suite_list") | ||
46 | end // du if | ||
47 | tests_suite=read(envq_work+"frioul_tests_suite_list.txt",-1,1,'(a)') | ||
48 | else | ||
49 | disp ("PROBLEME") | ||
50 | abort | ||
51 | end // du case | ||
52 | //disp("tests_suite de find tests suute up to date") | ||
53 | //pause | ||
54 | tests_suite_up_to_date=sort(tests_suite) | ||
55 | //disp ("tests_suite_up_to_date via find_tests_suite_up_to_date : " + tests_suite_up_to_date) | ||
56 | //pause | ||
57 | endfunction | ||
58 | |||
59 | |||
60 | //====================================================================================================================== | ||
61 | |||
62 | |||
63 | function affich_message (graph_affich, texte) | ||
64 | if graph_affich then | ||
65 | //afficher message windows pour indiquer pas de batterie dans la liste de selection | ||
66 | x_message(texte) | ||
67 | else | ||
68 | //afficher message prompt pour indiquer pas de batterie dans la liste de selection | ||
69 | disp(texte) | ||
70 | end // du if | ||
71 | endfunction | ||
72 | |||
73 | |||
74 | //====================================================================================================================== | ||
75 | |||
76 | |||
77 | function tests_suite_selected=graph_select_tests_suite(command, tests_suite) | ||
78 | //parcourir la matrice ainsi créée et charger la liste pour le menu de selection des batteries | ||
79 | the_list=list() | ||
80 | for i=1:size(tests_suite,"*") | ||
81 | the_list($+1)=list(tests_suite(i),1,['Non','Oui']) | ||
82 | end // du for | ||
83 | rep=x_choices("Tests Suite Selection Menu for "+convstr(command,'u')+" command.",the_list); | ||
84 | |||
85 | //prendre dans rep les reponses à oui (valeur 2);retrouver la batterie de tests correspondante ; et lancer son execution | ||
86 | tests_suite_selected="" | ||
87 | for i=1:size(tests_suite,"*") | ||
88 | if rep(i)==2 then | ||
89 | // disp ("je sui sla") | ||
90 | // pause | ||
91 | tests_suite_selected = tests_suite_selected + " " + tests_suite(i) | ||
92 | // disp ("je sui encore la") | ||
93 | // pause | ||
94 | end // du if | ||
95 | end // du for | ||
96 | // disp ( "tests_suite_selected via graph_select : " + tests_suite_selected) | ||
97 | // pause | ||
98 | endfunction | ||
99 | |||
100 | |||
101 | //====================================================================================================================== | ||
102 | |||
103 | |||
104 | function tests_suite_selected=input_select_tests_suite(tests_suite) | ||
105 | disp (" "); | ||
106 | disp(tests_suite); | ||
107 | disp (" "); | ||
108 | //tests_suite_selected=input("Type tests_suite : ","string") -- input ne prend que le premier string avant le blanc | ||
109 | disp("Type tests_suite : ") | ||
110 | the_list=list() | ||
111 | the_list=read(%io(1),1,1,'(a)') | ||
112 | tests_suite_selected=tokens(the_list," ") | ||
113 | // disp ( "tests_suite_selected via input_select : " + tests_suite_selected) | ||
114 | // pause | ||
115 | endfunction | ||
116 | |||
117 | |||
118 | //====================================================================================================================== | ||
119 | |||
120 | |||
121 | function graph_cmd(command,directory) | ||
122 | available_tests_suite=find_tests_suite_up_to_date(directory) | ||
123 | //disp (" toto") | ||
124 | //pause | ||
125 | if isempty(available_tests_suite) then | ||
126 | affich_message (%t, "***** No tests_suite available *****") | ||
127 | else | ||
128 | tests_suite_selected=graph_select_tests_suite(command,available_tests_suite) | ||
129 | // disp (" choosen") | ||
130 | //pause | ||
131 | if ~isempty(tests_suite_selected) then | ||
132 | // disp ("tests_suite_selected via graph_cmd : " + tests_suite_selected) | ||
133 | // pause | ||
134 | if directory=='' then directory=envq_work; end //positionner le repertoire à work après recupr de frioul | ||
135 | exec_cmd(command, directory, tests_suite_selected) | ||
136 | //else | ||
137 | // return | ||
138 | end // du if | ||
139 | end // du if | ||
140 | endfunction | ||
141 | |||
142 | |||
143 | //====================================================================================================================== | ||
144 | |||
145 | |||
146 | function prompt_cmd(command,param_command,directory) | ||
147 | if isempty(param_command) | ||
148 | // pas de parametres, saisie au prompt scilab | ||
149 | available_tests_suite=find_tests_suite_up_to_date(directory) | ||
150 | if isempty(available_tests_suite) then | ||
151 | affich_message (%f, "***** No tests_suite available *****") | ||
152 | // sortir de la fonction | ||
153 | return | ||
154 | else | ||
155 | // disp (" titi") | ||
156 | // pause //affich_message (graph_interf, available_tests_suite) | ||
157 | tests_suite_selected=input_select_tests_suite(available_tests_suite) | ||
158 | // disp ("bababababa") | ||
159 | // pause | ||
160 | // pour l'instant ne rien faire si erreur dans saisie laisser faire l OS | ||
161 | end // du if | ||
162 | else | ||
163 | // il existe des arguments pour l'instant ne rien faire si erreur dans saisie laisser faire l OS | ||
164 | tests_suite_selected = param_command | ||
165 | //no_wildcard (tests_suite, directory) | ||
166 | end // du if | ||
167 | //disp ("tests_suite_selected via promp_cmd : " + tests_suite_selected) | ||
168 | //pause | ||
169 | if ~isempty(tests_suite_selected) then | ||
170 | exec_cmd(command, directory, tests_suite_selected); | ||
171 | // µµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµµ | ||
172 | //else | ||
173 | // return | ||
174 | end // du if | ||
175 | endfunction | ||
176 | |||
177 | |||
178 | |||
179 | //====================================================================================================================== | ||
180 | |||
181 | |||
182 | function tests_suite_without_wildcard = no_wildcard (tests_suite, directory) | ||
183 | if ~isempty(grep(tests_suite,'*')) then | ||
184 | indice=grep(tests_suite,'*') | ||
185 | the_list=[] | ||
186 | for i=indice | ||
187 | if ~isempty(basename(listfiles(directory+tests_suite(i)))) then | ||
188 | //////////////////////////////////////////////////////////////////////////// | ||
189 | the_list=[the_list;basename(listfiles(directory+tests_suite(i)))] | ||
190 | end //if | ||
191 | end // du for | ||
192 | for i=sort(indice) | ||
193 | tests_suite(i)=[] | ||
194 | end // du for | ||
195 | tests_suite = [tests_suite ; the_list] | ||
196 | end // du if | ||
197 | tests_suite_without_wildcard=sort(tests_suite) | ||
198 | //disp ( "tests_suite_without_wildcard via no_wildcard : " + tests_suite_without_wildcard) | ||
199 | //pause | ||
200 | endfunction | ||
201 | |||
202 | |||
203 | //====================================================================================================================== | ||
204 | |||
205 | |||
206 | function tests_suite_is_directory = only_directory (tests_suite, directory) | ||
207 | //attention : la tests_suite en parametre doit être construite avec listfiles et sans basename pb scilab-2.7.2 | ||
208 | the_list=[] | ||
209 | for i=1:size(tests_suite,"*") | ||
210 | //disp("i = " + directory+tests_suite(i)) | ||
211 | if isdir(directory+tests_suite(i)) then | ||
212 | // tests_suite(i) est un répertoire | ||
213 | the_list =[the_list;tests_suite(i)] | ||
214 | end | ||
215 | end // du for | ||
216 | tests_suite_is_directory=the_list | ||
217 | //disp ( "tests_suite_is_directory via only_directory : " + tests_suite_is_directory) | ||
218 | //pause | ||
219 | endfunction | ||
220 | |||
221 | |||
222 | //====================================================================================================================== | ||
223 | |||
224 | |||
225 | function exec_cmd(command, directory, tests_suite_selected) | ||
226 | |||
227 | //******************************** | ||
228 | // liste des fichier du repertoire directory, on ne garde que les repertoires, puis on ne garde que le nom de fichier et on en fait une liste | ||
229 | // pour clearwork et runtest strcat(strsubst(only_directory(listfiles(envq_work+'*')),envq_work,''),' ') | ||
230 | // pour clearlog strcat(strsubst(listfiles(envq_log+envq_ver+"\"+'*.log'),envq_log+envq_ver+"\",''),' ') | ||
231 | // pour copyftp | ||
232 | //********************************** | ||
233 | |||
234 | rep=strcat(tests_suite_selected," ") | ||
235 | //disp ("rep via EXEC_CMD : " + rep) | ||
236 | //pause | ||
237 | //for i=1:size(tests_suite_selected,"*") | ||
238 | //for i=1:size(rep,"*") | ||
239 | // case "copyftp" then | ||
240 | // tests_suite=basename(listfiles(directory)); | ||
241 | // the_list="" | ||
242 | // j=1 | ||
243 | //**************************** | ||
244 | // dos_command=tlist(['commande dos';'copyftp';'clearlog'],"copy toto","supprime toto") | ||
245 | //dos_command=tlist(['dos command';'copyftp';'runtest';'copyrun';'clearlog';'clearwork'],"copyftp dos","runtest dos","copyrun dos","erase /s /q ","rmdir /s /q ") | ||
246 | //not_dos_command=tlist(['not dos command';'copyftp';'runtest';'copyrun';'clearlog';'clearwork'],"copyftp unix","runtest unix","copyrun unix","clearlog unix","clearwork unix") | ||
247 | //system_cmd=tlist(['operating system';'%t';'%f'],dos_command,not_dos_command) | ||
248 | //os_cmd(sci2exp(MSDOS))(command)+directory+choosen_tests_suite | ||
249 | |||
250 | //strsubst(only_directory(listfiles(envq_work+'*')),envq_work,'') | ||
251 | //unix_g(os_cmd(sci2exp(MSDOS))("clearwork")+envq_work+toto(2)) | ||
252 | |||
253 | // supprimer run_qualif_cmd.bat si il existe | ||
254 | //if ~isempty(fileinfo(envq_work+"run_qualif_cmd.bat")) then | ||
255 | unix_g("erase /s /q "+envq_proc+"run_qualif_cmd.bat") | ||
256 | //end | ||
257 | //ecrire dans le fichier run_qualif_cmd.bat la commande ainsi creee via scilab | ||
258 | temp=read(envq_proc+"template_run_qualif_cmd.bat",-1,1,'(a)') | ||
259 | temp(3)="call " + os_cmd(sci2exp(MSDOS))(command)+rep | ||
260 | write(envq_proc+"run_qualif_cmd.bat",temp) | ||
261 | // lancer le fichier bat dans une session dos qualif | ||
262 | unix_g("start %SystemRoot%\system32\cmd.exe /e:on /v:on /K %envq_qualif%\proc\run_qualif_cmd.bat") | ||
263 | |||
264 | |||
265 | //if x_message(['Continue ...'],['No','Yes'])== 2 then exec_cmd("clearwork", envq_work,find_tests_suite_up_to_date(envq_work)); end | ||
266 | |||
267 | //unix_g(os_cmd(sci2exp(MSDOS))(command)+directory+strcat(strsubst(only_directory(listfiles(envq_work+'*'),''),envq_work,'')),' ') | ||
268 | |||
269 | //unix_g(os_cmd(sci2exp(MSDOS))("clearwork")+envq_work+strcat(strsubst(only_directory(listfiles(envq_work+'*'),''),envq_work,''),' ')) | ||
270 | //************* | ||
271 | |||
272 | //end // du for | ||
273 | endfunction | ||
274 | |||
275 | |||
276 | //====================================================================================================================== | ||
277 | |||
278 | |||
279 | function affich_date | ||
280 | w=getdate() | ||
281 | disp(date() + " "+string(w(7))+" h. "+string(w(8))+" mn. "+string(w(9))+" s. ") | ||
282 | endfunction | ||
283 | |||
284 | |||
285 | //====================================================================================================================== | ||
286 | |||
287 | |||
288 | function affich_result(correct, num) | ||
289 | // affiche FAILED ou PASSED, fonction utiliser dans les tests-suites de non regression | ||
290 | // This part display result | ||
291 | if ~correct then | ||
292 | disp("***************************************** Test bug" + string(num) +" : FAILED ! "); | ||
293 | else | ||
294 | disp("Test bug" + string(num) +" : PASSED"); | ||
295 | end | ||
296 | endfunction | ||
297 | |||
298 | function my_mat = list2mat (my_list) | ||
299 | my_mat = [''] | ||
300 | //for k=1:size(my_list,"*") | ||
301 | for k=1:size(my_list) | ||
302 | my_mat (k) = my_list(k) | ||
303 | end | ||
304 | endfunction | ||
305 | |||
306 | |||
307 | //====================================================================================================================== | ||
308 | |||
309 | |||
310 | function mat_rep = sel_rep(my_mat) | ||
311 | mat_rep = [''] | ||
312 | // cas d'une liste | ||
313 | mat_rep = '' | ||
314 | n=1 | ||
315 | for k=1:size(my_mat,"*") | ||
316 | // for k=1:size(my_mat) | ||
317 | if isdir(my_mat(k)) then | ||
318 | mat_rep (n) = my_mat(k) | ||
319 | n = n+1 | ||
320 | end | ||
321 | end | ||
322 | endfunction | ||
323 | |||
324 | |||
325 | //====================================================================================================================== | ||
326 | |||
327 | |||
328 | function copyftp(param) | ||
329 | if argn(2)==0 then | ||
330 | param = [] | ||
331 | end // du if | ||
332 | prompt_cmd("copyftp",param,envq_log) | ||
333 | endfunction | ||
334 | |||
335 | |||
336 | //====================================================================================================================== | ||
337 | |||
338 | |||
339 | function test (str) | ||
340 | a=[] | ||
341 | interv=strindex(str," ") | ||
342 | debut=1 | ||
343 | for i=1:length(interv) | ||
344 | a=[a;part(str,[debut:(interv(i))-1])] | ||
345 | debut=interv(i)+1 | ||
346 | end | ||
347 | a=[a;part(str,[debut:length(str)])] | ||
348 | disp (a) | ||
349 | endfunction | ||
350 | |||
351 | |||
352 | //====================================================================================================================== | ||
353 | |||
354 | |||
355 | function clearwork (param) | ||
356 | if argn(2)==0 then | ||
357 | param = [] | ||
358 | end // du if | ||
359 | prompt_cmd("clearwork",param,envq_work) | ||
360 | endfunction | ||
361 | |||
362 | |||
363 | //====================================================================================================================== | ||
364 | |||
365 | |||
366 | function clearlog (param) | ||
367 | if argn(2)==0 then | ||
368 | param = [] | ||
369 | end // du if | ||
370 | prompt_cmd("clearlog",param,envq_log+envq_ver+"\") | ||
371 | endfunction | ||
372 | |||
373 | |||
374 | //====================================================================================================================== | ||
375 | |||
376 | |||
377 | function runtest(param) | ||
378 | if argn(2)==0 then | ||
379 | param = [] | ||
380 | end // du if | ||
381 | prompt_cmd("runtest",param,envq_work) | ||
382 | endfunction | ||
383 | |||
384 | |||
385 | //====================================================================================================================== | ||
386 | |||
387 | |||
388 | function showlog (my_cmd) | ||
389 | if argn(2)==0 then | ||
390 | //disp " " | ||
391 | write(%io(2),"SHOWLOG : ") | ||
392 | write(%io(2),"Pour visualiser la derniere ligne de un, plusieurs ou tous fichiers log : ") | ||
393 | write(%io(2),"- toutes les tests_suites faire : showlog *") | ||
394 | write(%io(2),"- certaines tests_suites faire : showlog ""nonreg* tests_20?? scicos""") | ||
395 | write(%io(2),"- une tests_suite faire : showlog ""scicos""") | ||
396 | disp " " | ||
397 | else | ||
398 | if MSDOS then | ||
399 | unix_w (envq_proc+"init_qualif.bat&showlog.bat "+my_cmd) | ||
400 | else | ||
401 | unix_w ("showlog" +my_cmd) | ||
402 | end | ||
403 | end | ||
404 | endfunction | ||
405 | |||
406 | |||
407 | //====================================================================================================================== | ||
408 | |||
409 | |||
410 | function dirlog (my_cmd) | ||
411 | if argn(2)==0 then | ||
412 | param = [] | ||
413 | end // du if | ||
414 | prompt_cmd("clearlog",param,envq_log+envq_ver) | ||
415 | endfunction | ||
416 | |||
417 | |||
418 | //====================================================================================================================== | ||
419 | |||
420 | |||
421 | function dirwork (my_cmd) | ||
422 | if argn(2)==0 then | ||
423 | //disp " " | ||
424 | write(%io(2),"DIRWORK : ") | ||
425 | write(%io(2),"Pour visualiser la derniere ligne de un, plusieurs ou tous fichiers log : ") | ||
426 | write(%io(2),"- toutes les tests_suites faire : showlog *") | ||
427 | write(%io(2),"- certaines tests_suites faire : showlog ""nonreg* tests_20?? scicos""") | ||
428 | write(%io(2),"- une tests_suite faire : showlog ""scicos""") | ||
429 | disp " " | ||
430 | else | ||
431 | disp(sort(basename(listfiles(envq_work+my_cmd)))) | ||
432 | |||
433 | //if MSDOS then | ||
434 | // unix_w (envq_proc+"init_qualif.bat&showlog.bat "+my_cmd) | ||
435 | // else | ||
436 | // unix_w ("showlog" +my_cmd) | ||
437 | // end | ||
438 | end | ||
439 | endfunction | ||
440 | |||
441 | |||
442 | //====================================================================================================================== | ||
443 | |||
444 | |||
445 | function copyrun(param) | ||
446 | if argn(2)==0 then | ||
447 | copyftp() | ||
448 | runtest() | ||
449 | else | ||
450 | copyftp (param) | ||
451 | runtest (""""+param+"""") | ||
452 | end | ||
453 | endfunction | ||
454 | |||
455 | |||
456 | //====================================================================================================================== | ||
457 | |||
458 | |||
459 | function runtestXXXXXXXXXXX(tout) | ||
460 | |||
461 | if argn(2)==0 then | ||
462 | //disp " " | ||
463 | write(%io(2),"RUNTEST : ") | ||
464 | write(%io(2),"Pour executer en local : ") | ||
465 | write(%io(2),"- toutes les tests_suites faire : runtest (""*"")") | ||
466 | write(%io(2),"- certaines tests_suites faire : runtest (""nonreg* tests_20?? scicos"")") | ||
467 | write(%io(2),"- une tests_suite faire : runtest (""scicos"")") | ||
468 | disp " " | ||
469 | else | ||
470 | |||
471 | //disp (length(varargin)) | ||
472 | |||
473 | //for i=1:length(varargin) | ||
474 | //disp (varargin(i)) | ||
475 | //end // du for | ||
476 | |||
477 | my_list=tokens(tout," ") | ||
478 | |||
479 | //pause | ||
480 | |||
481 | // exemple : displist(["autre?ep";"n*"]) | ||
482 | ierr=0 | ||
483 | //my_list = ["autrerep","hif","n*"] | ||
484 | //my_list = listfiles(envq_work+my_list | ||
485 | the_list=[] | ||
486 | //for i=1:size(my_list) | ||
487 | for i=1:size(my_list,"*") | ||
488 | if isdir (envq_work+my_list(i)) then | ||
489 | // my_list(i) est un répertoire | ||
490 | the_list = [the_list;my_list(i)] | ||
491 | else | ||
492 | the_list = [the_list;basename(listfiles(envq_work+my_list(i)))] | ||
493 | end | ||
494 | end // du for | ||
495 | |||
496 | //disp("ici") | ||
497 | //pause | ||
498 | |||
499 | |||
500 | the_list2=[] | ||
501 | for i=1:size(the_list,"*") | ||
502 | if isdir (envq_work+the_list(i)) then | ||
503 | the_list2 = [the_list2;the_list(i)] | ||
504 | end | ||
505 | end // du for | ||
506 | |||
507 | //disp("là") | ||
508 | //pause | ||
509 | |||
510 | for k=1:size(the_list2,"*") | ||
511 | bibi = the_list2(k) | ||
512 | chdir (envq_work + basename(the_list2(k))) | ||
513 | unix_w ("erase "+envq_log+envq_ver+"\test_en_cours.txt") | ||
514 | diary (envq_log+envq_ver+"\test_en_cours.txt") | ||
515 | ierr=0 | ||
516 | // diary (envq_log+envq_ver+"\"+the_list2(k)+".txt") | ||
517 | ierr = exec (the_list2(k) + ".sce", 'errcatch') | ||
518 | if ierr<>0 then | ||
519 | disp("") | ||
520 | disp " LA TESTS-SUITE " + the_list2(k) + " S ''EST INCORRECTEMENT TERMINEE.----------------------------" | ||
521 | disp("Error n° "+string(ierr)); | ||
522 | disp(lasterror()); | ||
523 | disp("") | ||
524 | end | ||
525 | diary(0) | ||
526 | if MSDOS then | ||
527 | //disp ("msdos") | ||
528 | //pause | ||
529 | // disp ("bibi = " + bibi) | ||
530 | //pause | ||
531 | //unix_w ("type "+envq_log+envq_ver+"\test_en_cours.txt >> "+envq_log+envq_ver+"\"+the_list2(k)+".txt") | ||
532 | unix_w ("type "+envq_log+envq_ver+"\test_en_cours.txt >> "+envq_log+envq_ver+"\"+bibi+".txt") | ||
533 | // unix_w ("erase "+envq_log+envq_ver+"\test_en_cours.txt") | ||
534 | else | ||
535 | // monde linux utiliser commande cat | ||
536 | end | ||
537 | // disp (basename(the_list2(k))) | ||
538 | end // du for | ||
539 | |||
540 | end | ||
541 | endfunction | ||
542 | |||
543 | |||
544 | //====================================================================================================================== | ||
545 | |||
546 | |||
547 | function aide(varargin) | ||
548 | // fonction executer au lancement de l'environnement de qualification scilab sous window | ||
549 | if argn(2)==1 then | ||
550 | if (varargin(1)=="all") | (varargin(1)=="ALL" )then | ||
551 | disp (" ") | ||
552 | copyftp() | ||
553 | runtest() | ||
554 | // copyrun() | ||
555 | clearwork() | ||
556 | clearlog() | ||
557 | disp (" ") | ||
558 | end | ||
559 | else | ||
560 | disp (" ") | ||
561 | write(%io(2)," ENVIRONNEMENT DE QUALIFICATION SCILAB") | ||
562 | disp (" ") | ||
563 | write(%io(2)," commandes disponibles : COPYFTP() - RUNTEST() - COPYRUN() - CLEARWORK() - CLEARLOG()") | ||
564 | //write(%io(2)," ") | ||
565 | //write(%io(2)," pour une aide faire : AIDE (""all"") ou lancer une commande sans parametres ") | ||
566 | disp (" ") | ||
567 | end | ||
568 | endfunction | ||
569 | |||
570 | |||
571 | |||
572 | |||
573 | |||
diff --git a/tests/nonRegression/Qualif/Proc/fonct_qualif.sci.sav.txt b/tests/nonRegression/Qualif/Proc/fonct_qualif.sci.sav.txt deleted file mode 100755 index 967da1e..0000000 --- a/tests/nonRegression/Qualif/Proc/fonct_qualif.sci.sav.txt +++ /dev/null | |||
@@ -1,542 +0,0 @@ | |||
1 | function tests_suite_selected=select_tests_suite(directory) | ||
2 | |||
3 | // selection des batteries de tests par menu via le menu Qualif | ||
4 | //recuperer les batteries de tests sous directory dans une matrice | ||
5 | |||
6 | // verifier que tests_suite sont des repertoires quand directory=envq_work | ||
7 | select directory | ||
8 | case envq_work then | ||
9 | tests_suite=basename(listfiles(directory)); | ||
10 | the_list=[] | ||
11 | for i=1:size(tests_suite,"*") | ||
12 | if isdir (envq_work+tests_suite(i)) then | ||
13 | // tests_suite(i) est un répertoire | ||
14 | the_list = [the_list;tests_suite(i)] | ||
15 | end | ||
16 | end // du for | ||
17 | tests_suite=the_list | ||
18 | case envq_log+envq_ver then | ||
19 | tests_suite=basename(listfiles(envq_log+envq_ver+"\*.log")) | ||
20 | case "" then | ||
21 | // chercher la liste sur frioul | ||
22 | else | ||
23 | disp ("PROBLEME") | ||
24 | break | ||
25 | end | ||
26 | tests_suite=sort(tests_suite) | ||
27 | |||
28 | |||
29 | //parcourir la matrice ainsi créée et charger la liste pour le menu de selection des batteries | ||
30 | the_list=list() | ||
31 | for i=1:size(tests_suite,"*") | ||
32 | the_list($+1)=list(tests_suite(i),1,['Non','Oui']) | ||
33 | end // du for | ||
34 | rep=x_choices('Tests Suite Selection Menu',the_list); | ||
35 | |||
36 | //prendre dans rep les reponses à oui (valeur 2);retrouver la batterie de tests correspondante ; et lancer son execution | ||
37 | tests_suite_selected="" | ||
38 | for i=1:size(tests_suite,"*") | ||
39 | if rep(i)==2 then | ||
40 | tests_suite_selected=tests_suite_selected + " " + tests_suite(i) | ||
41 | end // du if | ||
42 | end // du for | ||
43 | |||
44 | endfunction | ||
45 | |||
46 | |||
47 | function affich_date | ||
48 | w=getdate() | ||
49 | disp(date() + " "+string(w(7))+" h. "+string(w(8))+" mn. "+string(w(9))+" s. ") | ||
50 | endfunction | ||
51 | |||
52 | |||
53 | function affich_result(pasOK, num) | ||
54 | // affiche FAILED ou PASSED, fonction utiliser dans les tests-suites de non regression | ||
55 | // This part display result | ||
56 | // le booleen pasOK est à faux | ||
57 | if ~pasOK then | ||
58 | disp("***************************************** Test bug" + string(num) +" : FAILED ! "); | ||
59 | else | ||
60 | disp("Test bug" + string(num) +" : PASSED"); | ||
61 | end | ||
62 | endfunction | ||
63 | |||
64 | function my_mat = list2mat (my_list) | ||
65 | my_mat = [''] | ||
66 | //for k=1:size(my_list,"*") | ||
67 | for k=1:size(my_list) | ||
68 | my_mat (k) = my_list(k) | ||
69 | end | ||
70 | endfunction | ||
71 | |||
72 | |||
73 | function mat_rep = sel_rep(my_mat) | ||
74 | mat_rep = [''] | ||
75 | // cas d'une liste | ||
76 | mat_rep = '' | ||
77 | n=1 | ||
78 | for k=1:size(my_mat,"*") | ||
79 | // for k=1:size(my_mat) | ||
80 | if isdir(my_mat(k)) then | ||
81 | mat_rep (n) = my_mat(k) | ||
82 | n = n+1 | ||
83 | end | ||
84 | end | ||
85 | endfunction | ||
86 | |||
87 | function copyftp(my_cmd) | ||
88 | if argn(2)==0 then | ||
89 | //disp " " | ||
90 | write(%io(2),"COPYFTP : ") | ||
91 | write(%io(2),"Pour copier en local via ftp : ") | ||
92 | write(%io(2),"- toutes les tests_suites faire : copyftp *") | ||
93 | write(%io(2),"- certaines tests_suites faire : copyftp ""nonreg* tests_20?? scicos""") | ||
94 | write(%io(2),"- une tests_suite faire : copyftp ""scicos""") | ||
95 | disp " " | ||
96 | else | ||
97 | if MSDOS then | ||
98 | unix_w (envq_proc+"init_qualif.bat©ftp.bat "+my_cmd) | ||
99 | end | ||
100 | end | ||
101 | endfunction | ||
102 | |||
103 | function ierr=runtest22(varargin) | ||
104 | // se positionne dans le repertoire de la tests_suite et lance son execution | ||
105 | ierr=0 | ||
106 | chdir (envq_work) | ||
107 | disp(varargin) | ||
108 | // ts_work = list2mat (varargin) | ||
109 | ts_work = varargin | ||
110 | disp (typeof(ts_work)) | ||
111 | disp (ts_work) | ||
112 | pause | ||
113 | |||
114 | //disp(varargin(argn(1))) | ||
115 | //disp(varargin(argn(2))) | ||
116 | //disp(varargin(argn(3))) | ||
117 | //pause | ||
118 | |||
119 | //ts_work = [''] | ||
120 | //ts_work = [my_cmd] | ||
121 | |||
122 | //disp (ts_work) | ||
123 | //pause | ||
124 | |||
125 | //recuperation des parametres, voir si exite un booleen pour copie via ftp | ||
126 | //if argn(2) < 1 then | ||
127 | // disp ("erreur pas d''argument") | ||
128 | //elseif argn(2) == 1 then | ||
129 | //disp ( varargin) | ||
130 | //disp (type (varargin)) | ||
131 | // ts_work = list2mat (varargin) | ||
132 | // via_ftp = %f | ||
133 | //else | ||
134 | // argn(2) est plus grand que 1 | ||
135 | //disp ("varargin : "+varargin) | ||
136 | //disp ("varargin : "+typeof (varargin)) | ||
137 | //disp (type(varargin(argn(2)))) | ||
138 | // if type(varargin(argn(2)))==4 then | ||
139 | // le dernier parametre est un booleen, le mettre dans la variable via_ftp | ||
140 | // via_ftp = varargin(argn(2)) | ||
141 | // disp (via_ftp) | ||
142 | |||
143 | // varargin(argn(2)) = null() | ||
144 | // ts_work = list2mat (varargin) | ||
145 | // disp (ts_work) | ||
146 | // else | ||
147 | // ts_work = list2mat (varargin) | ||
148 | // via_ftp = %f | ||
149 | // end | ||
150 | //end | ||
151 | disp (" je suis là") | ||
152 | pause | ||
153 | // copie via ftp du serveur vers env qualif de la machine cible | ||
154 | //if via_ftp then | ||
155 | // copier via ftp la (les) tests_suite(s) demandées | ||
156 | // if ts_work == all then | ||
157 | |||
158 | //copy_ftp (ts_work) | ||
159 | //end | ||
160 | |||
161 | //disp ("toto") | ||
162 | |||
163 | // conserve uniquement les repertoires | ||
164 | disp("----") | ||
165 | |||
166 | ts_work = sel_rep(ts_work) | ||
167 | disp ("ts_work : "+ts_work) | ||
168 | disp("type : "+typeof(ts_work)) | ||
169 | pause | ||
170 | |||
171 | //if ts_work == [''] then | ||
172 | if ts_work == '' then | ||
173 | disp ("") | ||
174 | disp (" CE N''EST PAS UN NOM (repertoire) DE TESTS-SUITE.----------------------------") | ||
175 | // disp("Error n° "+string(ierr)); | ||
176 | // disp(lasterror()); | ||
177 | disp ("coucou") | ||
178 | else | ||
179 | disp ("pas ici") | ||
180 | // corps de la fonction runtest proprement dite, boucle sur les tests_suite(s) | ||
181 | for k=1:size(ts_work,"*") | ||
182 | // for k=1:size(ts_work) | ||
183 | chdir (envq_work + ts_work(k)) | ||
184 | ierr = exec (ts_work(k) + ".sce", 'errcatch') | ||
185 | if ierr<>0 then | ||
186 | disp("") | ||
187 | disp " LA TESTS-SUITE " + ts_work(k) + " S ''EST INCORRECTEMENT TERMINEE.----------------------------" | ||
188 | disp("Error n° "+string(ierr)); | ||
189 | disp(lasterror()); | ||
190 | disp("") | ||
191 | end | ||
192 | |||
193 | end | ||
194 | end | ||
195 | endfunction | ||
196 | |||
197 | |||
198 | function displist (tout) | ||
199 | |||
200 | // exemple : displist(["autre?ep";"n*"]) | ||
201 | ierr=0 | ||
202 | //tout = ["autrerep","hif","n*"] | ||
203 | the_list=[] | ||
204 | for i=1:size(tout,"*") | ||
205 | if isdir (envq_work+tout(i)) then | ||
206 | // tout(i) est un répertoire | ||
207 | the_list = [the_list;tout(i)] | ||
208 | else | ||
209 | the_list = [the_list;basename(listfiles(envq_work+tout(i)))] | ||
210 | end | ||
211 | end // du for | ||
212 | |||
213 | //pause | ||
214 | |||
215 | the_list2=[] | ||
216 | for i=1:size(the_list,"*") | ||
217 | if isdir (envq_work+the_list(i)) then | ||
218 | the_list2 = [the_list2;the_list(i)] | ||
219 | end | ||
220 | end // du for | ||
221 | |||
222 | // pause | ||
223 | |||
224 | for k=1:size(the_list2,"*") | ||
225 | chdir (envq_work + basename(the_list2(k))) | ||
226 | diary (envq_log+envq_ver+"\"+the_list2(k)+".txt") | ||
227 | ierr = exec (the_list2(k) + ".sce", 'errcatch') | ||
228 | if ierr<>0 then | ||
229 | disp("") | ||
230 | disp " LA TESTS-SUITE " + the_list2(k) + " S ''EST INCORRECTEMENT TERMINEE.----------------------------" | ||
231 | disp("Error n° "+string(ierr)); | ||
232 | disp(lasterror()); | ||
233 | disp("") | ||
234 | end | ||
235 | diary(0) | ||
236 | // disp (basename(the_list2(k))) | ||
237 | end // du for | ||
238 | |||
239 | |||
240 | endfunction | ||
241 | |||
242 | |||
243 | function rruntest(varargin) | ||
244 | |||
245 | if argn(2)==0 then | ||
246 | //disp " " | ||
247 | write(%io(2),"RUNTEST : ") | ||
248 | write(%io(2),"- toutes les tests_suites faire : runtest (""*"")") | ||
249 | write(%io(2),"- certaines tests_suites faire : runtest ""nonreg*" , "tests_20??" , "scicos""") | ||
250 | write(%io(2),"- une tests_suite faire : runtest ""scicos""") | ||
251 | disp " " | ||
252 | else | ||
253 | |||
254 | disp (length(varargin)) | ||
255 | |||
256 | for i=1:length(varargin) | ||
257 | disp (varargin(i)) | ||
258 | end // du for | ||
259 | |||
260 | my_list=varargin | ||
261 | |||
262 | pause | ||
263 | |||
264 | // exemple : displist(["autre?ep";"n*"]) | ||
265 | ierr=0 | ||
266 | //my_list = ["autrerep","hif","n*"] | ||
267 | //my_list = listfiles(envq_work+my_list | ||
268 | the_list=[] | ||
269 | for i=1:size(my_list) | ||
270 | //for i=1:size(my_list,"*") | ||
271 | if isdir (envq_work+my_list(i)) then | ||
272 | // my_list(i) est un répertoire | ||
273 | the_list = [the_list;my_list(i)] | ||
274 | else | ||
275 | the_list = [the_list;basename(listfiles(envq_work+my_list(i)))] | ||
276 | end | ||
277 | end // du for | ||
278 | |||
279 | disp("ici") | ||
280 | pause | ||
281 | |||
282 | |||
283 | the_list2=[] | ||
284 | for i=1:size(the_list,"*") | ||
285 | if isdir (envq_work+the_list(i)) then | ||
286 | the_list2 = [the_list2;the_list(i)] | ||
287 | end | ||
288 | end // du for | ||
289 | |||
290 | disp("là") | ||
291 | pause | ||
292 | |||
293 | for k=1:size(the_list2,"*") | ||
294 | chdir (envq_work + basename(the_list2(k))) | ||
295 | diary (envq_log+envq_ver+"\"+the_list2(k)+".txt") | ||
296 | ierr = exec (the_list2(k) + ".sce", 'errcatch') | ||
297 | if ierr<>0 then | ||
298 | disp("") | ||
299 | disp " LA TESTS-SUITE " + the_list2(k) + " S ''EST INCORRECTEMENT TERMINEE.----------------------------" | ||
300 | disp("Error n° "+string(ierr)); | ||
301 | disp(lasterror()); | ||
302 | disp("") | ||
303 | end | ||
304 | diary(0) | ||
305 | // disp (basename(the_list2(k))) | ||
306 | end // du for | ||
307 | |||
308 | end | ||
309 | endfunction | ||
310 | |||
311 | function test (str) | ||
312 | a=[] | ||
313 | interv=strindex(str," ") | ||
314 | debut=1 | ||
315 | for i=1:length(interv) | ||
316 | a=[a;part(str,[debut:(interv(i))-1])] | ||
317 | debut=interv(i)+1 | ||
318 | end | ||
319 | a=[a;part(str,[debut:length(str)])] | ||
320 | disp (a) | ||
321 | |||
322 | pause | ||
323 | |||
324 | endfunction | ||
325 | |||
326 | function clearwork (my_cmd) | ||
327 | if argn(2)==0 then | ||
328 | //disp " " | ||
329 | write(%io(2),"CLEARWORK : ") | ||
330 | write(%io(2),"Pour supprimer un, plusieurs ou toutes les test-suites du répertoire Work local : ") | ||
331 | write(%io(2),"- toutes les tests_suites faire : clearwork *") | ||
332 | write(%io(2),"- certaines tests_suites faire : clearwork ""nonreg* tests_20?? scicos""") | ||
333 | write(%io(2),"- une tests_suite faire : clearwork ""scicos""") | ||
334 | disp " " | ||
335 | else | ||
336 | if MSDOS then | ||
337 | unix_w (envq_proc+"init_qualif.bat&clearwork.bat "+my_cmd) | ||
338 | disp (my_cmd) | ||
339 | else | ||
340 | unix_w ("clearwork" +my_cmd) | ||
341 | end | ||
342 | end | ||
343 | endfunction | ||
344 | |||
345 | function clearlog (my_cmd) | ||
346 | if argn(2)==0 then | ||
347 | //disp " " | ||
348 | write(%io(2),"CLEARLOG : ") | ||
349 | write(%io(2),"Pour supprimer un, plusieurs ou tous les fichiers log : ") | ||
350 | write(%io(2),"- toutes les tests_suites faire : clearlog *") | ||
351 | write(%io(2),"- certaines tests_suites faire : clearlog ""nonreg* tests_20?? scicos""") | ||
352 | write(%io(2),"- une tests_suite faire : clearlog ""scicos""") | ||
353 | disp " " | ||
354 | else | ||
355 | if MSDOS then | ||
356 | unix_w (envq_proc+"init_qualif.bat&clearlog.bat "+my_cmd) | ||
357 | else | ||
358 | unix_w ("clearlog" +my_cmd) | ||
359 | end | ||
360 | end | ||
361 | endfunction | ||
362 | |||
363 | function showlog (my_cmd) | ||
364 | if argn(2)==0 then | ||
365 | //disp " " | ||
366 | write(%io(2),"SHOWLOG : ") | ||
367 | write(%io(2),"Pour visualiser la derniere ligne de un, plusieurs ou tous fichiers log : ") | ||
368 | write(%io(2),"- toutes les tests_suites faire : showlog *") | ||
369 | write(%io(2),"- certaines tests_suites faire : showlog ""nonreg* tests_20?? scicos""") | ||
370 | write(%io(2),"- une tests_suite faire : showlog ""scicos""") | ||
371 | disp " " | ||
372 | else | ||
373 | if MSDOS then | ||
374 | unix_w (envq_proc+"init_qualif.bat&showlog.bat "+my_cmd) | ||
375 | else | ||
376 | unix_w ("showlog" +my_cmd) | ||
377 | end | ||
378 | end | ||
379 | endfunction | ||
380 | |||
381 | |||
382 | function dirlog (my_cmd) | ||
383 | if argn(2)==0 then | ||
384 | //disp " " | ||
385 | write(%io(2),"DIRLOG : ") | ||
386 | write(%io(2),"Pour visualiser la derniere ligne de un, plusieurs ou tous fichiers log : ") | ||
387 | write(%io(2),"- toutes les tests_suites faire : showlog *") | ||
388 | write(%io(2),"- certaines tests_suites faire : showlog ""nonreg* tests_20?? scicos""") | ||
389 | write(%io(2),"- une tests_suite faire : showlog ""scicos""") | ||
390 | disp " " | ||
391 | else | ||
392 | disp(sort(basename(listfiles(envq_log+envq_ver)))) | ||
393 | |||
394 | //if MSDOS then | ||
395 | // unix_w (envq_proc+"init_qualif.bat&showlog.bat "+my_cmd) | ||
396 | // else | ||
397 | // unix_w ("showlog" +my_cmd) | ||
398 | // end | ||
399 | end | ||
400 | endfunction | ||
401 | |||
402 | function dirwork (my_cmd) | ||
403 | if argn(2)==0 then | ||
404 | //disp " " | ||
405 | write(%io(2),"DIRWORK : ") | ||
406 | write(%io(2),"Pour visualiser la derniere ligne de un, plusieurs ou tous fichiers log : ") | ||
407 | write(%io(2),"- toutes les tests_suites faire : showlog *") | ||
408 | write(%io(2),"- certaines tests_suites faire : showlog ""nonreg* tests_20?? scicos""") | ||
409 | write(%io(2),"- une tests_suite faire : showlog ""scicos""") | ||
410 | disp " " | ||
411 | else | ||
412 | disp(sort(basename(listfiles(envq_work+my_cmd)))) | ||
413 | |||
414 | //if MSDOS then | ||
415 | // unix_w (envq_proc+"init_qualif.bat&showlog.bat "+my_cmd) | ||
416 | // else | ||
417 | // unix_w ("showlog" +my_cmd) | ||
418 | // end | ||
419 | end | ||
420 | endfunction | ||
421 | |||
422 | |||
423 | function aide(varargin) | ||
424 | // fonction executer au lancement de l'environnement de qualification scilab sous window | ||
425 | if argn(2)==1 then | ||
426 | if (varargin(1)=="all") | (varargin(1)=="ALL" )then | ||
427 | disp (" ") | ||
428 | copyftp() | ||
429 | runtest() | ||
430 | // copyrun() | ||
431 | clearwork() | ||
432 | clearlog() | ||
433 | disp (" ") | ||
434 | end | ||
435 | else | ||
436 | disp (" ") | ||
437 | write(%io(2)," ENVIRONNEMENT DE QUALIFICATION SCILAB") | ||
438 | disp (" ") | ||
439 | write(%io(2)," commandes disponibles : COPYFTP() - RUNTEST() - COPYRUN() - CLEARWORK() - CLEARLOG()") | ||
440 | write(%io(2)," ") | ||
441 | write(%io(2)," pour une aide faire : AIDE (""all"") ou lancer une commande sans parametres ") | ||
442 | disp (" ") | ||
443 | end | ||
444 | endfunction | ||
445 | |||
446 | |||
447 | function copyrun(param) | ||
448 | if argn(2)==0 then | ||
449 | copyftp() | ||
450 | runtest() | ||
451 | else | ||
452 | copyftp (param) | ||
453 | runtest (""""+param+"""") | ||
454 | end | ||
455 | endfunction | ||
456 | |||
457 | |||
458 | |||
459 | |||
460 | function runtest(tout) | ||
461 | |||
462 | if argn(2)==0 then | ||
463 | //disp " " | ||
464 | write(%io(2),"RUNTEST : ") | ||
465 | write(%io(2),"Pour executer en local : ") | ||
466 | write(%io(2),"- toutes les tests_suites faire : runtest (""*"")") | ||
467 | write(%io(2),"- certaines tests_suites faire : runtest (""nonreg* tests_20?? scicos"")") | ||
468 | write(%io(2),"- une tests_suite faire : runtest (""scicos"")") | ||
469 | disp " " | ||
470 | else | ||
471 | |||
472 | //disp (length(varargin)) | ||
473 | |||
474 | //for i=1:length(varargin) | ||
475 | //disp (varargin(i)) | ||
476 | //end // du for | ||
477 | |||
478 | my_list=tokens(tout," ") | ||
479 | |||
480 | //pause | ||
481 | |||
482 | // exemple : displist(["autre?ep";"n*"]) | ||
483 | ierr=0 | ||
484 | //my_list = ["autrerep","hif","n*"] | ||
485 | //my_list = listfiles(envq_work+my_list | ||
486 | the_list=[] | ||
487 | //for i=1:size(my_list) | ||
488 | for i=1:size(my_list,"*") | ||
489 | if isdir (envq_work+my_list(i)) then | ||
490 | // my_list(i) est un répertoire | ||
491 | the_list = [the_list;my_list(i)] | ||
492 | else | ||
493 | the_list = [the_list;basename(listfiles(envq_work+my_list(i)))] | ||
494 | end | ||
495 | end // du for | ||
496 | |||
497 | //disp("ici") | ||
498 | //pause | ||
499 | |||
500 | |||
501 | the_list2=[] | ||
502 | for i=1:size(the_list,"*") | ||
503 | if isdir (envq_work+the_list(i)) then | ||
504 | the_list2 = [the_list2;the_list(i)] | ||
505 | end | ||
506 | end // du for | ||
507 | |||
508 | //disp("là") | ||
509 | //pause | ||
510 | |||
511 | for k=1:size(the_list2,"*") | ||
512 | bibi = the_list2(k) | ||
513 | chdir (envq_work + basename(the_list2(k))) | ||
514 | unix_w ("erase "+envq_log+envq_ver+"\test_en_cours.txt") | ||
515 | diary (envq_log+envq_ver+"\test_en_cours.txt") | ||
516 | ierr=0 | ||
517 | // diary (envq_log+envq_ver+"\"+the_list2(k)+".txt") | ||
518 | ierr = exec (the_list2(k) + ".sce", 'errcatch') | ||
519 | if ierr<>0 then | ||
520 | disp("") | ||
521 | disp " LA TESTS-SUITE " + the_list2(k) + " S ''EST INCORRECTEMENT TERMINEE.----------------------------" | ||
522 | disp("Error n° "+string(ierr)); | ||
523 | disp(lasterror()); | ||
524 | disp("") | ||
525 | end | ||
526 | diary(0) | ||
527 | if MSDOS then | ||
528 | //disp ("msdos") | ||
529 | //pause | ||
530 | // disp ("bibi = " + bibi) | ||
531 | //pause | ||
532 | //unix_w ("type "+envq_log+envq_ver+"\test_en_cours.txt >> "+envq_log+envq_ver+"\"+the_list2(k)+".txt") | ||
533 | unix_w ("type "+envq_log+envq_ver+"\test_en_cours.txt >> "+envq_log+envq_ver+"\"+bibi+".txt") | ||
534 | // unix_w ("erase "+envq_log+envq_ver+"\test_en_cours.txt") | ||
535 | else | ||
536 | // monde linux utiliser commande cat | ||
537 | end | ||
538 | // disp (basename(the_list2(k))) | ||
539 | end // du for | ||
540 | |||
541 | end | ||
542 | endfunction | ||
diff --git a/tests/nonRegression/Qualif/Proc/fonct_qualif_autre.sci b/tests/nonRegression/Qualif/Proc/fonct_qualif_autre.sci deleted file mode 100755 index 6408d49..0000000 --- a/tests/nonRegression/Qualif/Proc/fonct_qualif_autre.sci +++ /dev/null | |||
@@ -1,742 +0,0 @@ | |||
1 | function tests_suite_up_to_date=find_tests_suite_up_to_date(directory) | ||
2 | //recuperer les batteries de tests en cours sous directory dans une matrice | ||
3 | // verifier que tests_suite sont des repertoires quand directory=envq_work | ||
4 | // et fichier quand log ??? | ||
5 | tests_suite="" | ||
6 | select directory | ||
7 | case envq_work then | ||
8 | tests_suite=basename(listfiles(directory)); | ||
9 | the_list="" | ||
10 | j=1 | ||
11 | for i=1:size(tests_suite,"*") | ||
12 | if isdir (envq_work+tests_suite(i)) then | ||
13 | // tests_suite(i) est un répertoire | ||
14 | the_list(j) = tests_suite(i) | ||
15 | j=j+1 | ||
16 | // disp "boubou" | ||
17 | // pause | ||
18 | end | ||
19 | end // du for | ||
20 | tests_suite=the_list | ||
21 | case envq_log+envq_ver then | ||
22 | tests_suite=basename(listfiles(envq_log+envq_ver+"\*.log")) | ||
23 | // ierr=execstr(tests_suite=basename(listfiles(envq_log+envq_ver+"\*.log")),'errcatch') | ||
24 | // disp ("111") | ||
25 | // pause | ||
26 | case envq_log then | ||
27 | //************************************************************* | ||
28 | // chercher la liste sur frioul | ||
29 | //************************************************************* | ||
30 | tests_suite=read(envq_log+"frioul_tests_suite_list.txt",-1,1,'(a)') | ||
31 | else | ||
32 | disp ("PROBLEME") | ||
33 | abort | ||
34 | end // du case | ||
35 | //disp("tests_suite de find tests suute up to date") | ||
36 | //pause | ||
37 | tests_suite_up_to_date=sort(tests_suite) | ||
38 | //disp (tests_suite_up_to_date) | ||
39 | //disp (typeof(tests_suite_up_to_date)) | ||
40 | //pause | ||
41 | endfunction | ||
42 | |||
43 | function affich_message (graph_affich, texte) | ||
44 | // texte = 'No tests_suite to select' | ||
45 | if graph_affich then | ||
46 | //afficher message windows pour indiquer pas de batterie dans la liste de selection | ||
47 | x_message(texte) | ||
48 | else | ||
49 | //afficher message prompt pour indiquer pas de batterie dans la liste de selection | ||
50 | disp(texte) | ||
51 | end // du if | ||
52 | endfunction | ||
53 | |||
54 | function tests_suite_selected=graph_select_tests_suite(command, tests_suite) | ||
55 | //parcourir la matrice ainsi créée et charger la liste pour le menu de selection des batteries | ||
56 | the_list=list() | ||
57 | for i=1:size(tests_suite,"*") | ||
58 | the_list($+1)=list(tests_suite(i),1,['Non','Oui']) | ||
59 | end // du for | ||
60 | rep=x_choices("Tests Suite Selection Menu for "+convstr(command,'u')+" command.",the_list); | ||
61 | |||
62 | //prendre dans rep les reponses à oui (valeur 2);retrouver la batterie de tests correspondante ; et lancer son execution | ||
63 | tests_suite_selected="" | ||
64 | for i=1:size(tests_suite,"*") | ||
65 | if rep(i)==2 then | ||
66 | // disp ("je sui sla") | ||
67 | // pause | ||
68 | tests_suite_selected = tests_suite_selected + " " + tests_suite(i) | ||
69 | // disp ("je sui encore la") | ||
70 | // pause | ||
71 | end // du if | ||
72 | end // du for | ||
73 | endfunction | ||
74 | |||
75 | function tests_suite_selected=input_select_tests_suite(tests_suite) | ||
76 | disp (" "); | ||
77 | disp(tests_suite); | ||
78 | disp (" "); | ||
79 | //tests_suite_selected=input("Type tests_suite : ","string") -- input ne prend que le premier string avant le blanc | ||
80 | disp("Type tests_suite : ") | ||
81 | the_list=list() | ||
82 | the_list=read(%io(1),1,1,'(a)') | ||
83 | tests_suite_selected=the_list | ||
84 | endfunction | ||
85 | |||
86 | function graph_cmd(command,directory) | ||
87 | //virer graph interf des param pas besoin verifier | ||
88 | available_tests_suite=find_tests_suite_up_to_date(directory) | ||
89 | //disp (" toto") | ||
90 | //pause | ||
91 | if isempty(available_tests_suite) then | ||
92 | affich_message (%t, "***** No tests_suite available *****") | ||
93 | else | ||
94 | choosen_tests_suite=graph_select_tests_suite(command,available_tests_suite) | ||
95 | // disp (" choosen") | ||
96 | //pause | ||
97 | if ~isempty(choosen_tests_suite) then | ||
98 | // disp ("la la la") | ||
99 | //pause | ||
100 | exec_cmd(command, choosen_tests_suite) | ||
101 | //else | ||
102 | // return | ||
103 | end // du if | ||
104 | end // du if | ||
105 | endfunction | ||
106 | |||
107 | function prompt_cmd(command,param_command,directory) | ||
108 | if isempty(param_command) | ||
109 | // pas de parametres, saisie au prompt scilab | ||
110 | available_tests_suite=find_tests_suite_up_to_date(directory) | ||
111 | if isempty(available_tests_suite) then | ||
112 | affich_message (%f, "***** No tests_suite available *****") | ||
113 | // sortir de la fonction | ||
114 | return | ||
115 | else | ||
116 | // disp (" titi") | ||
117 | // pause //affich_message (graph_interf, available_tests_suite) | ||
118 | choosen_tests_suite=input_select_tests_suite(available_tests_suite) | ||
119 | // disp ("bababababa") | ||
120 | // pause | ||
121 | // pour l'instant ne rien faire si erreur dans saisie laisser faire l OS | ||
122 | end // du if | ||
123 | else | ||
124 | // il existe des arguments pour l'instant ne rien faire si erreur dans saisie laisser faire l OS | ||
125 | choosen_tests_suite = param_command | ||
126 | end // du if | ||
127 | disp ("choosen_tests_suite : " + choosen_tests_suite) | ||
128 | pause | ||
129 | if ~isempty(choosen_tests_suite) then | ||
130 | exec_cmd(command, choosen_tests_suite); | ||
131 | //else | ||
132 | // return | ||
133 | end // du if | ||
134 | endfunction | ||
135 | |||
136 | function exec_cmd(command, choosen_tests_suite) | ||
137 | if MSDOS then | ||
138 | //cmd="cmd.exe /e:on /v:on /c init_qualif.bat&"+command+".bat "+choosen_tests_suite | ||
139 | cmd="cmd.exe /e:on /v:on /C init_qualif.bat&test.bat "+choosen_tests_suite | ||
140 | |||
141 | disp (cmd) | ||
142 | pause | ||
143 | // %SystemRoot%\system32\cmd.exe /e:on /v:on /K e:\qualif\proc\init_qualif.bat | ||
144 | chdir(envq_proc) | ||
145 | unix_w(cmd) | ||
146 | //unix_w ("cmd.exe /e:on /v:on /c init_qualif.bat&"+command+".bat "+choosen_tests_suite) | ||
147 | chdir(envq_qualif) | ||
148 | // unix_w (envq_proc+"init_qualif.bat&"+command+".bat "+choosen_tests_suite) | ||
149 | else | ||
150 | unix_w (command+ " " +choosen_tests_suite) | ||
151 | end | ||
152 | endfunction | ||
153 | |||
154 | |||
155 | function exec_cmdd(command, choosen_tests_suite) | ||
156 | rep=tokens(choosen_tests_suite," ") | ||
157 | for i=1:size(rep,"*") | ||
158 | case "copyftp" then | ||
159 | tests_suite=basename(listfiles(directory)); | ||
160 | the_list="" | ||
161 | j=1 | ||
162 | |||
163 | tests_suite=the_list | ||
164 | case "runtest" then | ||
165 | |||
166 | case "copyrun" then | ||
167 | |||
168 | case "clearlog" then | ||
169 | system_cmd="erase /s /q " | ||
170 | param_cmd=rep(i) | ||
171 | case "clearwork" then | ||
172 | system_cmd="erase /s /q " | ||
173 | param_cmd=rep(i) | ||
174 | end // du forselect command | ||
175 | |||
176 | if MSDOS then | ||
177 | //cmd="cmd.exe /e:on /v:on /c init_qualif.bat&"+command+".bat "+choosen_tests_suite | ||
178 | cmd="cmd.exe /e:on /v:on /C init_qualif.bat&test.bat "+choosen_tests_suite | ||
179 | |||
180 | disp (cmd) | ||
181 | pause | ||
182 | // %SystemRoot%\system32\cmd.exe /e:on /v:on /K e:\qualif\proc\init_qualif.bat | ||
183 | chdir(envq_proc) | ||
184 | unix_w(cmd) | ||
185 | //unix_w ("cmd.exe /e:on /v:on /c init_qualif.bat&"+command+".bat "+choosen_tests_suite) | ||
186 | chdir(envq_qualif) | ||
187 | // unix_w (envq_proc+"init_qualif.bat&"+command+".bat "+choosen_tests_suite) | ||
188 | else | ||
189 | unix_w (command+ " " +choosen_tests_suite) | ||
190 | end | ||
191 | endfunction | ||
192 | |||
193 | |||
194 | |||
195 | |||
196 | |||
197 | function affich_date | ||
198 | w=getdate() | ||
199 | disp(date() + " "+string(w(7))+" h. "+string(w(8))+" mn. "+string(w(9))+" s. ") | ||
200 | endfunction | ||
201 | |||
202 | |||
203 | function affich_result(pasOK, num) | ||
204 | // affiche FAILED ou PASSED, fonction utiliser dans les tests-suites de non regression | ||
205 | // This part display result | ||
206 | // le booleen pasOK est à faux | ||
207 | if ~pasOK then | ||
208 | disp("***************************************** Test bug" + string(num) +" : FAILED ! "); | ||
209 | else | ||
210 | disp("Test bug" + string(num) +" : PASSED"); | ||
211 | end | ||
212 | endfunction | ||
213 | |||
214 | function my_mat = list2mat (my_list) | ||
215 | my_mat = [''] | ||
216 | //for k=1:size(my_list,"*") | ||
217 | for k=1:size(my_list) | ||
218 | my_mat (k) = my_list(k) | ||
219 | end | ||
220 | endfunction | ||
221 | |||
222 | |||
223 | function mat_rep = sel_rep(my_mat) | ||
224 | mat_rep = [''] | ||
225 | // cas d'une liste | ||
226 | mat_rep = '' | ||
227 | n=1 | ||
228 | for k=1:size(my_mat,"*") | ||
229 | // for k=1:size(my_mat) | ||
230 | if isdir(my_mat(k)) then | ||
231 | mat_rep (n) = my_mat(k) | ||
232 | n = n+1 | ||
233 | end | ||
234 | end | ||
235 | endfunction | ||
236 | |||
237 | function copyftp(param) | ||
238 | if argn(2)==0 then | ||
239 | param = [] | ||
240 | end // du if | ||
241 | prompt_cmd("copyftp",param,envq_log) | ||
242 | endfunction | ||
243 | |||
244 | |||
245 | function ZZZZZZ | ||
246 | if argn(2)==0 then | ||
247 | //disp " " | ||
248 | write(%io(2),"COPYFTP : ") | ||
249 | write(%io(2),"Pour copier en local via ftp : ") | ||
250 | write(%io(2),"- toutes les tests_suites faire : copyftp *") | ||
251 | write(%io(2),"- certaines tests_suites faire : copyftp ""nonreg* tests_20?? scicos""") | ||
252 | write(%io(2),"- une tests_suite faire : copyftp ""scicos""") | ||
253 | disp " " | ||
254 | else | ||
255 | if MSDOS then | ||
256 | unix_w (envq_proc+"init_qualif.bat©ftp.bat "+my_cmd) | ||
257 | end | ||
258 | end | ||
259 | endfunction | ||
260 | |||
261 | function ierr=runtest22(varargin) | ||
262 | // se positionne dans le repertoire de la tests_suite et lance son execution | ||
263 | ierr=0 | ||
264 | chdir (envq_work) | ||
265 | disp(varargin) | ||
266 | // ts_work = list2mat (varargin) | ||
267 | ts_work = varargin | ||
268 | disp (typeof(ts_work)) | ||
269 | disp (ts_work) | ||
270 | pause | ||
271 | |||
272 | //disp(varargin(argn(1))) | ||
273 | //disp(varargin(argn(2))) | ||
274 | //disp(varargin(argn(3))) | ||
275 | //pause | ||
276 | |||
277 | //ts_work = [''] | ||
278 | //ts_work = [my_cmd] | ||
279 | |||
280 | //disp (ts_work) | ||
281 | //pause | ||
282 | |||
283 | //recuperation des parametres, voir si exite un booleen pour copie via ftp | ||
284 | //if argn(2) < 1 then | ||
285 | // disp ("erreur pas d''argument") | ||
286 | //elseif argn(2) == 1 then | ||
287 | //disp ( varargin) | ||
288 | //disp (type (varargin)) | ||
289 | // ts_work = list2mat (varargin) | ||
290 | // via_ftp = %f | ||
291 | //else | ||
292 | // argn(2) est plus grand que 1 | ||
293 | //disp ("varargin : "+varargin) | ||
294 | //disp ("varargin : "+typeof (varargin)) | ||
295 | //disp (type(varargin(argn(2)))) | ||
296 | // if type(varargin(argn(2)))==4 then | ||
297 | // le dernier parametre est un booleen, le mettre dans la variable via_ftp | ||
298 | // via_ftp = varargin(argn(2)) | ||
299 | // disp (via_ftp) | ||
300 | |||
301 | // varargin(argn(2)) = null() | ||
302 | // ts_work = list2mat (varargin) | ||
303 | // disp (ts_work) | ||
304 | // else | ||
305 | // ts_work = list2mat (varargin) | ||
306 | // via_ftp = %f | ||
307 | // end | ||
308 | //end | ||
309 | disp (" je suis là") | ||
310 | pause | ||
311 | // copie via ftp du serveur vers env qualif de la machine cible | ||
312 | //if via_ftp then | ||
313 | // copier via ftp la (les) tests_suite(s) demandées | ||
314 | // if ts_work == all then | ||
315 | |||
316 | //copy_ftp (ts_work) | ||
317 | //end | ||
318 | |||
319 | //disp ("toto") | ||
320 | |||
321 | // conserve uniquement les repertoires | ||
322 | disp("----") | ||
323 | |||
324 | ts_work = sel_rep(ts_work) | ||
325 | disp ("ts_work : "+ts_work) | ||
326 | disp("type : "+typeof(ts_work)) | ||
327 | pause | ||
328 | |||
329 | //if ts_work == [''] then | ||
330 | if ts_work == '' then | ||
331 | disp ("") | ||
332 | disp (" CE N''EST PAS UN NOM (repertoire) DE TESTS-SUITE.----------------------------") | ||
333 | // disp("Error n° "+string(ierr)); | ||
334 | // disp(lasterror()); | ||
335 | disp ("coucou") | ||
336 | else | ||
337 | disp ("pas ici") | ||
338 | // corps de la fonction runtest proprement dite, boucle sur les tests_suite(s) | ||
339 | for k=1:size(ts_work,"*") | ||
340 | // for k=1:size(ts_work) | ||
341 | chdir (envq_work + ts_work(k)) | ||
342 | ierr = exec (ts_work(k) + ".sce", 'errcatch') | ||
343 | if ierr<>0 then | ||
344 | disp("") | ||
345 | disp " LA TESTS-SUITE " + ts_work(k) + " S ''EST INCORRECTEMENT TERMINEE.----------------------------" | ||
346 | disp("Error n° "+string(ierr)); | ||
347 | disp(lasterror()); | ||
348 | disp("") | ||
349 | end | ||
350 | |||
351 | end | ||
352 | end | ||
353 | endfunction | ||
354 | |||
355 | |||
356 | function displist (tout) | ||
357 | |||
358 | // exemple : displist(["autre?ep";"n*"]) | ||
359 | ierr=0 | ||
360 | //tout = ["autrerep","hif","n*"] | ||
361 | the_list=[] | ||
362 | for i=1:size(tout,"*") | ||
363 | if isdir (envq_work+tout(i)) then | ||
364 | // tout(i) est un répertoire | ||
365 | the_list = [the_list;tout(i)] | ||
366 | else | ||
367 | the_list = [the_list;basename(listfiles(envq_work+tout(i)))] | ||
368 | end | ||
369 | end // du for | ||
370 | |||
371 | //pause | ||
372 | |||
373 | the_list2=[] | ||
374 | for i=1:size(the_list,"*") | ||
375 | if isdir (envq_work+the_list(i)) then | ||
376 | the_list2 = [the_list2;the_list(i)] | ||
377 | end | ||
378 | end // du for | ||
379 | |||
380 | // pause | ||
381 | |||
382 | for k=1:size(the_list2,"*") | ||
383 | chdir (envq_work + basename(the_list2(k))) | ||
384 | diary (envq_log+envq_ver+"\"+the_list2(k)+".txt") | ||
385 | ierr = exec (the_list2(k) + ".sce", 'errcatch') | ||
386 | if ierr<>0 then | ||
387 | disp("") | ||
388 | disp " LA TESTS-SUITE " + the_list2(k) + " S ''EST INCORRECTEMENT TERMINEE.----------------------------" | ||
389 | disp("Error n° "+string(ierr)); | ||
390 | disp(lasterror()); | ||
391 | disp("") | ||
392 | end | ||
393 | diary(0) | ||
394 | // disp (basename(the_list2(k))) | ||
395 | end // du for | ||
396 | |||
397 | |||
398 | endfunction | ||
399 | |||
400 | |||
401 | function rruntest(varargin) | ||
402 | |||
403 | if argn(2)==0 then | ||
404 | //disp " " | ||
405 | write(%io(2),"RUNTEST : ") | ||
406 | write(%io(2),"- toutes les tests_suites faire : runtest (""*"")") | ||
407 | write(%io(2),"- certaines tests_suites faire : runtest ""nonreg*" , "tests_20??" , "scicos""") | ||
408 | write(%io(2),"- une tests_suite faire : runtest ""scicos""") | ||
409 | disp " " | ||
410 | else | ||
411 | |||
412 | disp (length(varargin)) | ||
413 | |||
414 | for i=1:length(varargin) | ||
415 | disp (varargin(i)) | ||
416 | end // du for | ||
417 | |||
418 | my_list=varargin | ||
419 | |||
420 | pause | ||
421 | |||
422 | // exemple : displist(["autre?ep";"n*"]) | ||
423 | ierr=0 | ||
424 | //my_list = ["autrerep","hif","n*"] | ||
425 | //my_list = listfiles(envq_work+my_list | ||
426 | the_list=[] | ||
427 | for i=1:size(my_list) | ||
428 | //for i=1:size(my_list,"*") | ||
429 | if isdir (envq_work+my_list(i)) then | ||
430 | // my_list(i) est un répertoire | ||
431 | the_list = [the_list;my_list(i)] | ||
432 | else | ||
433 | the_list = [the_list;basename(listfiles(envq_work+my_list(i)))] | ||
434 | end | ||
435 | end // du for | ||
436 | |||
437 | disp("ici") | ||
438 | pause | ||
439 | |||
440 | |||
441 | the_list2=[] | ||
442 | for i=1:size(the_list,"*") | ||
443 | if isdir (envq_work+the_list(i)) then | ||
444 | the_list2 = [the_list2;the_list(i)] | ||
445 | end | ||
446 | end // du for | ||
447 | |||
448 | disp("là") | ||
449 | pause | ||
450 | |||
451 | for k=1:size(the_list2,"*") | ||
452 | chdir (envq_work + basename(the_list2(k))) | ||
453 | diary (envq_log+envq_ver+"\"+the_list2(k)+".txt") | ||
454 | ierr = exec (the_list2(k) + ".sce", 'errcatch') | ||
455 | if ierr<>0 then | ||
456 | disp("") | ||
457 | disp " LA TESTS-SUITE " + the_list2(k) + " S ''EST INCORRECTEMENT TERMINEE.----------------------------" | ||
458 | disp("Error n° "+string(ierr)); | ||
459 | disp(lasterror()); | ||
460 | disp("") | ||
461 | end | ||
462 | diary(0) | ||
463 | // disp (basename(the_list2(k))) | ||
464 | end // du for | ||
465 | |||
466 | end | ||
467 | endfunction | ||
468 | |||
469 | function test (str) | ||
470 | a=[] | ||
471 | interv=strindex(str," ") | ||
472 | debut=1 | ||
473 | for i=1:length(interv) | ||
474 | a=[a;part(str,[debut:(interv(i))-1])] | ||
475 | debut=interv(i)+1 | ||
476 | end | ||
477 | a=[a;part(str,[debut:length(str)])] | ||
478 | disp (a) | ||
479 | |||
480 | pause | ||
481 | |||
482 | endfunction | ||
483 | |||
484 | function clearwork (param) | ||
485 | if argn(2)==0 then | ||
486 | param = [] | ||
487 | end // du if | ||
488 | prompt_cmd("clearwork",param,envq_work) | ||
489 | endfunction | ||
490 | |||
491 | |||
492 | function YYYYYYYYY | ||
493 | if argn(2)==0 then | ||
494 | //disp " " | ||
495 | write(%io(2),"CLEARWORK : ") | ||
496 | write(%io(2),"Pour supprimer un, plusieurs ou toutes les test-suites du répertoire Work local : ") | ||
497 | write(%io(2),"- toutes les tests_suites faire : clearwork *") | ||
498 | write(%io(2),"- certaines tests_suites faire : clearwork ""nonreg* tests_20?? scicos""") | ||
499 | write(%io(2),"- une tests_suite faire : clearwork ""scicos""") | ||
500 | disp " " | ||
501 | else | ||
502 | if MSDOS then | ||
503 | unix_w (envq_proc+"init_qualif.bat&clearwork.bat "+my_cmd) | ||
504 | disp (my_cmd) | ||
505 | else | ||
506 | unix_w ("clearwork" +my_cmd) | ||
507 | end | ||
508 | end | ||
509 | endfunction | ||
510 | |||
511 | function clearlog (param) | ||
512 | if argn(2)==0 then | ||
513 | param = [] | ||
514 | end // du if | ||
515 | prompt_cmd("clearlog",param,envq_log+envq_ver) | ||
516 | endfunction | ||
517 | |||
518 | |||
519 | function XXXXX | ||
520 | disp ("ici clearlog") | ||
521 | pause | ||
522 | if graph_select_global_bool == %f then | ||
523 | if argn(2)==0 then | ||
524 | // pas de parametres, saisie au prompt scilab | ||
525 | my_cmd = input_select_tests_suite(find_tests_suite_up_to_date(envq_log+envq_ver)) | ||
526 | end // du if | ||
527 | // verifier que les donnees saisies au prompt ou directement tapee avec la commande sont valides (et existes) | ||
528 | |||
529 | end //if | ||
530 | //else | ||
531 | if MSDOS then | ||
532 | unix_w (envq_proc+"init_qualif.bat&clearlog.bat "+my_cmd) | ||
533 | else | ||
534 | unix_w ("clearlog" +my_cmd) | ||
535 | end | ||
536 | //end | ||
537 | graph_select_global_bool = %f | ||
538 | |||
539 | // if argn(2)==0 then | ||
540 | // //disp " " | ||
541 | // write(%io(2),"CLEARLOG : ") | ||
542 | // write(%io(2),"Pour supprimer un, plusieurs ou tous les fichiers log : ") | ||
543 | // write(%io(2),"- toutes les tests_suites faire : clearlog *") | ||
544 | // write(%io(2),"- certaines tests_suites faire : clearlog ""nonreg* tests_20?? scicos""") | ||
545 | // write(%io(2),"- une tests_suite faire : clearlog ""scicos""") | ||
546 | // disp " " | ||
547 | // else | ||
548 | // if MSDOS then | ||
549 | // unix_w (envq_proc+"init_qualif.bat&clearlog.bat "+my_cmd) | ||
550 | // else | ||
551 | // unix_w ("clearlog" +my_cmd) | ||
552 | // end | ||
553 | // end | ||
554 | endfunction | ||
555 | |||
556 | function showlog (my_cmd) | ||
557 | if argn(2)==0 then | ||
558 | //disp " " | ||
559 | write(%io(2),"SHOWLOG : ") | ||
560 | write(%io(2),"Pour visualiser la derniere ligne de un, plusieurs ou tous fichiers log : ") | ||
561 | write(%io(2),"- toutes les tests_suites faire : showlog *") | ||
562 | write(%io(2),"- certaines tests_suites faire : showlog ""nonreg* tests_20?? scicos""") | ||
563 | write(%io(2),"- une tests_suite faire : showlog ""scicos""") | ||
564 | disp " " | ||
565 | else | ||
566 | if MSDOS then | ||
567 | unix_w (envq_proc+"init_qualif.bat&showlog.bat "+my_cmd) | ||
568 | else | ||
569 | unix_w ("showlog" +my_cmd) | ||
570 | end | ||
571 | end | ||
572 | endfunction | ||
573 | |||
574 | |||
575 | function dirlog (my_cmd) | ||
576 | if argn(2)==0 then | ||
577 | param = [] | ||
578 | end // du if | ||
579 | prompt_cmd("clearlog",param,envq_log+envq_ver) | ||
580 | endfunction | ||
581 | |||
582 | function AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA | ||
583 | if argn(2)==0 then | ||
584 | //disp " " | ||
585 | write(%io(2),"DIRLOG : ") | ||
586 | write(%io(2),"Pour visualiser la derniere ligne de un, plusieurs ou tous fichiers log : ") | ||
587 | write(%io(2),"- toutes les tests_suites faire : showlog *") | ||
588 | write(%io(2),"- certaines tests_suites faire : showlog ""nonreg* tests_20?? scicos""") | ||
589 | write(%io(2),"- une tests_suite faire : showlog ""scicos""") | ||
590 | disp " " | ||
591 | else | ||
592 | disp(sort(basename(listfiles(envq_log+envq_ver)))) | ||
593 | |||
594 | //if MSDOS then | ||
595 | // unix_w (envq_proc+"init_qualif.bat&showlog.bat "+my_cmd) | ||
596 | // else | ||
597 | // unix_w ("showlog" +my_cmd) | ||
598 | // end | ||
599 | end | ||
600 | endfunction | ||
601 | |||
602 | function dirwork (my_cmd) | ||
603 | if argn(2)==0 then | ||
604 | //disp " " | ||
605 | write(%io(2),"DIRWORK : ") | ||
606 | write(%io(2),"Pour visualiser la derniere ligne de un, plusieurs ou tous fichiers log : ") | ||
607 | write(%io(2),"- toutes les tests_suites faire : showlog *") | ||
608 | write(%io(2),"- certaines tests_suites faire : showlog ""nonreg* tests_20?? scicos""") | ||
609 | write(%io(2),"- une tests_suite faire : showlog ""scicos""") | ||
610 | disp " " | ||
611 | else | ||
612 | disp(sort(basename(listfiles(envq_work+my_cmd)))) | ||
613 | |||
614 | //if MSDOS then | ||
615 | // unix_w (envq_proc+"init_qualif.bat&showlog.bat "+my_cmd) | ||
616 | // else | ||
617 | // unix_w ("showlog" +my_cmd) | ||
618 | // end | ||
619 | end | ||
620 | endfunction | ||
621 | |||
622 | |||
623 | function aide(varargin) | ||
624 | // fonction executer au lancement de l'environnement de qualification scilab sous window | ||
625 | if argn(2)==1 then | ||
626 | if (varargin(1)=="all") | (varargin(1)=="ALL" )then | ||
627 | disp (" ") | ||
628 | copyftp() | ||
629 | runtest() | ||
630 | // copyrun() | ||
631 | clearwork() | ||
632 | clearlog() | ||
633 | disp (" ") | ||
634 | end | ||
635 | else | ||
636 | disp (" ") | ||
637 | write(%io(2)," ENVIRONNEMENT DE QUALIFICATION SCILAB") | ||
638 | disp (" ") | ||
639 | write(%io(2)," commandes disponibles : COPYFTP() - RUNTEST() - COPYRUN() - CLEARWORK() - CLEARLOG()") | ||
640 | write(%io(2)," ") | ||
641 | write(%io(2)," pour une aide faire : AIDE (""all"") ou lancer une commande sans parametres ") | ||
642 | disp (" ") | ||
643 | end | ||
644 | endfunction | ||
645 | |||
646 | |||
647 | function copyrun(param) | ||
648 | if argn(2)==0 then | ||
649 | copyftp() | ||
650 | runtest() | ||
651 | else | ||
652 | copyftp (param) | ||
653 | runtest (""""+param+"""") | ||
654 | end | ||
655 | endfunction | ||
656 | |||
657 | |||
658 | |||
659 | |||
660 | function runtest(tout) | ||
661 | |||
662 | if argn(2)==0 then | ||
663 | //disp " " | ||
664 | write(%io(2),"RUNTEST : ") | ||
665 | write(%io(2),"Pour executer en local : ") | ||
666 | write(%io(2),"- toutes les tests_suites faire : runtest (""*"")") | ||
667 | write(%io(2),"- certaines tests_suites faire : runtest (""nonreg* tests_20?? scicos"")") | ||
668 | write(%io(2),"- une tests_suite faire : runtest (""scicos"")") | ||
669 | disp " " | ||
670 | else | ||
671 | |||
672 | //disp (length(varargin)) | ||
673 | |||
674 | //for i=1:length(varargin) | ||
675 | //disp (varargin(i)) | ||
676 | //end // du for | ||
677 | |||
678 | my_list=tokens(tout," ") | ||
679 | |||
680 | //pause | ||
681 | |||
682 | // exemple : displist(["autre?ep";"n*"]) | ||
683 | ierr=0 | ||
684 | //my_list = ["autrerep","hif","n*"] | ||
685 | //my_list = listfiles(envq_work+my_list | ||
686 | the_list=[] | ||
687 | //for i=1:size(my_list) | ||
688 | for i=1:size(my_list,"*") | ||
689 | if isdir (envq_work+my_list(i)) then | ||
690 | // my_list(i) est un répertoire | ||
691 | the_list = [the_list;my_list(i)] | ||
692 | else | ||
693 | the_list = [the_list;basename(listfiles(envq_work+my_list(i)))] | ||
694 | end | ||
695 | end // du for | ||
696 | |||
697 | //disp("ici") | ||
698 | //pause | ||
699 | |||
700 | |||
701 | the_list2=[] | ||
702 | for i=1:size(the_list,"*") | ||
703 | if isdir (envq_work+the_list(i)) then | ||
704 | the_list2 = [the_list2;the_list(i)] | ||
705 | end | ||
706 | end // du for | ||
707 | |||
708 | //disp("là") | ||
709 | //pause | ||
710 | |||
711 | for k=1:size(the_list2,"*") | ||
712 | bibi = the_list2(k) | ||
713 | chdir (envq_work + basename(the_list2(k))) | ||
714 | unix_w ("erase "+envq_log+envq_ver+"\test_en_cours.txt") | ||
715 | diary (envq_log+envq_ver+"\test_en_cours.txt") | ||
716 | ierr=0 | ||
717 | // diary (envq_log+envq_ver+"\"+the_list2(k)+".txt") | ||
718 | ierr = exec (the_list2(k) + ".sce", 'errcatch') | ||
719 | if ierr<>0 then | ||
720 | disp("") | ||
721 | disp " LA TESTS-SUITE " + the_list2(k) + " S ''EST INCORRECTEMENT TERMINEE.----------------------------" | ||
722 | disp("Error n° "+string(ierr)); | ||
723 | disp(lasterror()); | ||
724 | disp("") | ||
725 | end | ||
726 | diary(0) | ||
727 | if MSDOS then | ||
728 | //disp ("msdos") | ||
729 | //pause | ||
730 | // disp ("bibi = " + bibi) | ||
731 | //pause | ||
732 | //unix_w ("type "+envq_log+envq_ver+"\test_en_cours.txt >> "+envq_log+envq_ver+"\"+the_list2(k)+".txt") | ||
733 | unix_w ("type "+envq_log+envq_ver+"\test_en_cours.txt >> "+envq_log+envq_ver+"\"+bibi+".txt") | ||
734 | // unix_w ("erase "+envq_log+envq_ver+"\test_en_cours.txt") | ||
735 | else | ||
736 | // monde linux utiliser commande cat | ||
737 | end | ||
738 | // disp (basename(the_list2(k))) | ||
739 | end // du for | ||
740 | |||
741 | end | ||
742 | endfunction | ||
diff --git a/tests/nonRegression/Qualif/Proc/fonct_qualif_sav1.sci b/tests/nonRegression/Qualif/Proc/fonct_qualif_sav1.sci deleted file mode 100755 index 600d0d6..0000000 --- a/tests/nonRegression/Qualif/Proc/fonct_qualif_sav1.sci +++ /dev/null | |||
@@ -1,462 +0,0 @@ | |||
1 | function tests_suite_up_to_date=find_tests_suite_up_to_date(directory) | ||
2 | //recuperer les batteries de tests en cours sous directory dans une matrice | ||
3 | // verifier que tests_suite sont des repertoires quand directory=envq_work | ||
4 | // et fichier quand log ??? | ||
5 | tests_suite="" | ||
6 | select directory | ||
7 | case envq_work then | ||
8 | |||
9 | tests_suite=basename(listfiles(directory)); | ||
10 | the_list="" | ||
11 | j=1 | ||
12 | for i=1:size(tests_suite,"*") | ||
13 | if isdir (envq_work+tests_suite(i)) then | ||
14 | // tests_suite(i) est un répertoire | ||
15 | the_list(j) = tests_suite(i) | ||
16 | j=j+1 | ||
17 | // disp "boubou" | ||
18 | // pause | ||
19 | end | ||
20 | end // du for | ||
21 | tests_suite=the_list | ||
22 | case envq_log+envq_ver+"\" then | ||
23 | tests_suite=basename(listfiles(directory+"*.log")) | ||
24 | // ierr=execstr(tests_suite=basename(listfiles(envq_log+envq_ver+"\*.log")),'errcatch') | ||
25 | // disp ("111") | ||
26 | // pause | ||
27 | case envq_work then | ||
28 | //************************************************************* | ||
29 | // chercher la liste de frioul | ||
30 | //************************************************************* | ||
31 | tests_suite=read(envq_work+"frioul_tests_suite_list.txt",-1,1,'(a)') | ||
32 | else | ||
33 | disp ("PROBLEME") | ||
34 | abort | ||
35 | end // du case | ||
36 | //disp("tests_suite de find tests suute up to date") | ||
37 | //pause | ||
38 | tests_suite_up_to_date=sort(tests_suite) | ||
39 | //disp (tests_suite_up_to_date) | ||
40 | //disp (typeof(tests_suite_up_to_date)) | ||
41 | //pause | ||
42 | endfunction | ||
43 | |||
44 | function affich_message (graph_affich, texte) | ||
45 | if graph_affich then | ||
46 | //afficher message windows pour indiquer pas de batterie dans la liste de selection | ||
47 | x_message(texte) | ||
48 | else | ||
49 | //afficher message prompt pour indiquer pas de batterie dans la liste de selection | ||
50 | disp(texte) | ||
51 | end // du if | ||
52 | endfunction | ||
53 | |||
54 | function tests_suite_selected=graph_select_tests_suite(command, tests_suite) | ||
55 | //parcourir la matrice ainsi créée et charger la liste pour le menu de selection des batteries | ||
56 | the_list=list() | ||
57 | for i=1:size(tests_suite,"*") | ||
58 | the_list($+1)=list(tests_suite(i),1,['Non','Oui']) | ||
59 | end // du for | ||
60 | rep=x_choices("Tests Suite Selection Menu for "+convstr(command,'u')+" command.",the_list); | ||
61 | |||
62 | //prendre dans rep les reponses à oui (valeur 2);retrouver la batterie de tests correspondante ; et lancer son execution | ||
63 | tests_suite_selected="" | ||
64 | for i=1:size(tests_suite,"*") | ||
65 | if rep(i)==2 then | ||
66 | // disp ("je sui sla") | ||
67 | // pause | ||
68 | tests_suite_selected = tests_suite_selected + " " + tests_suite(i) | ||
69 | // disp ("je sui encore la") | ||
70 | // pause | ||
71 | end // du if | ||
72 | end // du for | ||
73 | endfunction | ||
74 | |||
75 | function tests_suite_selected=input_select_tests_suite(tests_suite) | ||
76 | disp (" "); | ||
77 | disp(tests_suite); | ||
78 | disp (" "); | ||
79 | //tests_suite_selected=input("Type tests_suite : ","string") -- input ne prend que le premier string avant le blanc | ||
80 | disp("Type tests_suite : ") | ||
81 | the_list=list() | ||
82 | the_list=read(%io(1),1,1,'(a)') | ||
83 | tests_suite_selected=the_list | ||
84 | endfunction | ||
85 | |||
86 | function graph_cmd(command,directory) | ||
87 | available_tests_suite=find_tests_suite_up_to_date(directory) | ||
88 | //disp (" toto") | ||
89 | //pause | ||
90 | if isempty(available_tests_suite) then | ||
91 | affich_message (%t, "***** No tests_suite available *****") | ||
92 | else | ||
93 | choosen_tests_suite=graph_select_tests_suite(command,available_tests_suite) | ||
94 | // disp (" choosen") | ||
95 | //pause | ||
96 | if ~isempty(choosen_tests_suite) then | ||
97 | disp ("choosen_tests_suite : " + choosen_tests_suite) | ||
98 | pause | ||
99 | exec_cmd(command, directory, choosen_tests_suite) | ||
100 | //else | ||
101 | // return | ||
102 | end // du if | ||
103 | end // du if | ||
104 | endfunction | ||
105 | |||
106 | function prompt_cmd(command,param_command,directory) | ||
107 | if isempty(param_command) | ||
108 | // pas de parametres, saisie au prompt scilab | ||
109 | available_tests_suite=find_tests_suite_up_to_date(directory) | ||
110 | if isempty(available_tests_suite) then | ||
111 | affich_message (%f, "***** No tests_suite available *****") | ||
112 | // sortir de la fonction | ||
113 | return | ||
114 | else | ||
115 | // disp (" titi") | ||
116 | // pause //affich_message (graph_interf, available_tests_suite) | ||
117 | choosen_tests_suite=input_select_tests_suite(available_tests_suite) | ||
118 | // disp ("bababababa") | ||
119 | // pause | ||
120 | // pour l'instant ne rien faire si erreur dans saisie laisser faire l OS | ||
121 | end // du if | ||
122 | else | ||
123 | // il existe des arguments pour l'instant ne rien faire si erreur dans saisie laisser faire l OS | ||
124 | choosen_tests_suite = param_command | ||
125 | end // du if | ||
126 | disp ("choosen_tests_suite : " + choosen_tests_suite) | ||
127 | pause | ||
128 | if ~isempty(choosen_tests_suite) then | ||
129 | exec_cmd(command, directory, choosen_tests_suite); | ||
130 | //else | ||
131 | // return | ||
132 | end // du if | ||
133 | endfunction | ||
134 | |||
135 | function exec_cmdd(command, choosen_tests_suite) | ||
136 | if MSDOS then | ||
137 | //cmd="cmd.exe /e:on /v:on /c init_qualif.bat&"+command+".bat "+choosen_tests_suite | ||
138 | cmd="cmd.exe /e:on /v:on /C init_qualif.bat&test.bat "+choosen_tests_suite | ||
139 | |||
140 | disp (cmd) | ||
141 | pause | ||
142 | // %SystemRoot%\system32\cmd.exe /e:on /v:on /K e:\qualif\proc\init_qualif.bat | ||
143 | chdir(envq_proc) | ||
144 | unix_w(cmd) | ||
145 | //unix_w ("cmd.exe /e:on /v:on /c init_qualif.bat&"+command+".bat "+choosen_tests_suite) | ||
146 | chdir(envq_qualif) | ||
147 | // unix_w (envq_proc+"init_qualif.bat&"+command+".bat "+choosen_tests_suite) | ||
148 | else | ||
149 | unix_w (command+ " " +choosen_tests_suite) | ||
150 | end | ||
151 | endfunction | ||
152 | |||
153 | function tests_suite_without_wildcard = no_wildcard (tests_suite, directory) | ||
154 | if ~isempty(grep(tests_suite,'*')) then | ||
155 | indice=grep(tests_suite,'*') | ||
156 | the_list=[] | ||
157 | for i=indice | ||
158 | if ~isempty(basename(listfiles(directory+tests_suite(i)))) then | ||
159 | the_list=[the_list;basename(listfiles(directory+tests_suite(i)))] | ||
160 | end //if | ||
161 | end // du for | ||
162 | for i=sort(indice) | ||
163 | tests_suite(i)=[] | ||
164 | end // du for | ||
165 | tests_suite = [tests_suite ; the_list] | ||
166 | end // du if | ||
167 | tests_suite_without_wildcard=sort(tests_suite) | ||
168 | endfunction | ||
169 | |||
170 | function tests_suite_is_directory = only_directory (tests_suite, directory) | ||
171 | //attention : la tests_suite en parametre doit être construite avec listfiles et sans basename pb scilab-2.7.2 | ||
172 | the_list=[] | ||
173 | for i=1:size(tests_suite,"*") | ||
174 | //disp("i = " + directory+tests_suite(i)) | ||
175 | if isdir(directory+tests_suite(i)) then | ||
176 | // tests_suite(i) est un répertoire | ||
177 | the_list =[the_list;tests_suite(i)] | ||
178 | end | ||
179 | end // du for | ||
180 | tests_suite_is_directory=the_list | ||
181 | endfunction | ||
182 | |||
183 | function exec_cmd(command, directory, choosen_tests_suite) | ||
184 | |||
185 | //******************************** | ||
186 | // liste des fichier du repertoire directory, on ne garde que les repertoires, puis on ne garde que le nom de fichier et on en fait une liste | ||
187 | // pour clearwork et runtest strcat(strsubst(only_directory(listfiles(envq_work+'*')),envq_work,''),' ') | ||
188 | // pour clearlog strcat(strsubst(listfiles(envq_log+envq_ver+"\"+'*.log'),envq_log+envq_ver+"\",''),' ') | ||
189 | // pour copyftp | ||
190 | //********************************** | ||
191 | |||
192 | //rep=tokens(choosen_tests_suite," ") | ||
193 | disp ("choosen_tests_suite de exec_cmd : "+ choosen_tests_suite) | ||
194 | //disp ("rep : "+ rep) | ||
195 | pause | ||
196 | for i=1:size(choosen_tests_suite,"*") | ||
197 | //for i=1:size(rep,"*") | ||
198 | // case "copyftp" then | ||
199 | // tests_suite=basename(listfiles(directory)); | ||
200 | // the_list="" | ||
201 | // j=1 | ||
202 | //**************************** | ||
203 | // dos_command=tlist(['commande dos';'copyftp';'clearlog'],"copy toto","supprime toto") | ||
204 | //dos_command=tlist(['dos command';'copyftp';'runtest';'copyrun';'clearlog';'clearwork'],"copyftp dos","runtest dos","copyrun dos","erase /s /q ","rmdir /s /q ") | ||
205 | //not_dos_command=tlist(['not dos command';'copyftp';'runtest';'copyrun';'clearlog';'clearwork'],"copyftp unix","runtest unix","copyrun unix","clearlog unix","clearwork unix") | ||
206 | //system_cmd=tlist(['operating system';'%t';'%f'],dos_command,not_dos_command) | ||
207 | //os_cmd(sci2exp(MSDOS))(command)+directory+choosen_tests_suite | ||
208 | |||
209 | //strsubst(only_directory(listfiles(envq_work+'*')),envq_work,'') | ||
210 | //unix_g(os_cmd(sci2exp(MSDOS))("clearwork")+envq_work+toto(2)) | ||
211 | |||
212 | |||
213 | unix_g(os_cmd(sci2exp(MSDOS))(command)+directory+choosen_tests_suite(i)) | ||
214 | |||
215 | //************* | ||
216 | |||
217 | end // du for | ||
218 | |||
219 | endfunction | ||
220 | |||
221 | |||
222 | function affich_date | ||
223 | w=getdate() | ||
224 | disp(date() + " "+string(w(7))+" h. "+string(w(8))+" mn. "+string(w(9))+" s. ") | ||
225 | endfunction | ||
226 | |||
227 | |||
228 | function affich_result(pasOK, num) | ||
229 | // affiche FAILED ou PASSED, fonction utiliser dans les tests-suites de non regression | ||
230 | // This part display result | ||
231 | // le booleen pasOK est à faux | ||
232 | if ~pasOK then | ||
233 | disp("***************************************** Test bug" + string(num) +" : FAILED ! "); | ||
234 | else | ||
235 | disp("Test bug" + string(num) +" : PASSED"); | ||
236 | end | ||
237 | endfunction | ||
238 | |||
239 | function my_mat = list2mat (my_list) | ||
240 | my_mat = [''] | ||
241 | //for k=1:size(my_list,"*") | ||
242 | for k=1:size(my_list) | ||
243 | my_mat (k) = my_list(k) | ||
244 | end | ||
245 | endfunction | ||
246 | |||
247 | |||
248 | function mat_rep = sel_rep(my_mat) | ||
249 | mat_rep = [''] | ||
250 | // cas d'une liste | ||
251 | mat_rep = '' | ||
252 | n=1 | ||
253 | for k=1:size(my_mat,"*") | ||
254 | // for k=1:size(my_mat) | ||
255 | if isdir(my_mat(k)) then | ||
256 | mat_rep (n) = my_mat(k) | ||
257 | n = n+1 | ||
258 | end | ||
259 | end | ||
260 | endfunction | ||
261 | |||
262 | function copyftp(param) | ||
263 | if argn(2)==0 then | ||
264 | param = [] | ||
265 | end // du if | ||
266 | prompt_cmd("copyftp",param,envq_log) | ||
267 | endfunction | ||
268 | |||
269 | |||
270 | function test (str) | ||
271 | a=[] | ||
272 | interv=strindex(str," ") | ||
273 | debut=1 | ||
274 | for i=1:length(interv) | ||
275 | a=[a;part(str,[debut:(interv(i))-1])] | ||
276 | debut=interv(i)+1 | ||
277 | end | ||
278 | a=[a;part(str,[debut:length(str)])] | ||
279 | disp (a) | ||
280 | endfunction | ||
281 | |||
282 | function clearwork (param) | ||
283 | if argn(2)==0 then | ||
284 | param = [] | ||
285 | end // du if | ||
286 | prompt_cmd("clearwork",param,envq_work) | ||
287 | endfunction | ||
288 | |||
289 | function clearlog (param) | ||
290 | if argn(2)==0 then | ||
291 | param = [] | ||
292 | end // du if | ||
293 | prompt_cmd("clearlog",param,envq_log+envq_ver) | ||
294 | endfunction | ||
295 | |||
296 | |||
297 | |||
298 | function showlog (my_cmd) | ||
299 | if argn(2)==0 then | ||
300 | //disp " " | ||
301 | write(%io(2),"SHOWLOG : ") | ||
302 | write(%io(2),"Pour visualiser la derniere ligne de un, plusieurs ou tous fichiers log : ") | ||
303 | write(%io(2),"- toutes les tests_suites faire : showlog *") | ||
304 | write(%io(2),"- certaines tests_suites faire : showlog ""nonreg* tests_20?? scicos""") | ||
305 | write(%io(2),"- une tests_suite faire : showlog ""scicos""") | ||
306 | disp " " | ||
307 | else | ||
308 | if MSDOS then | ||
309 | unix_w (envq_proc+"init_qualif.bat&showlog.bat "+my_cmd) | ||
310 | else | ||
311 | unix_w ("showlog" +my_cmd) | ||
312 | end | ||
313 | end | ||
314 | endfunction | ||
315 | |||
316 | |||
317 | function dirlog (my_cmd) | ||
318 | if argn(2)==0 then | ||
319 | param = [] | ||
320 | end // du if | ||
321 | prompt_cmd("clearlog",param,envq_log+envq_ver) | ||
322 | endfunction | ||
323 | |||
324 | |||
325 | function dirwork (my_cmd) | ||
326 | if argn(2)==0 then | ||
327 | //disp " " | ||
328 | write(%io(2),"DIRWORK : ") | ||
329 | write(%io(2),"Pour visualiser la derniere ligne de un, plusieurs ou tous fichiers log : ") | ||
330 | write(%io(2),"- toutes les tests_suites faire : showlog *") | ||
331 | write(%io(2),"- certaines tests_suites faire : showlog ""nonreg* tests_20?? scicos""") | ||
332 | write(%io(2),"- une tests_suite faire : showlog ""scicos""") | ||
333 | disp " " | ||
334 | else | ||
335 | disp(sort(basename(listfiles(envq_work+my_cmd)))) | ||
336 | |||
337 | //if MSDOS then | ||
338 | // unix_w (envq_proc+"init_qualif.bat&showlog.bat "+my_cmd) | ||
339 | // else | ||
340 | // unix_w ("showlog" +my_cmd) | ||
341 | // end | ||
342 | end | ||
343 | endfunction | ||
344 | |||
345 | function copyrun(param) | ||
346 | if argn(2)==0 then | ||
347 | copyftp() | ||
348 | runtest() | ||
349 | else | ||
350 | copyftp (param) | ||
351 | runtest (""""+param+"""") | ||
352 | end | ||
353 | endfunction | ||
354 | |||
355 | |||
356 | function runtestXXXXXXXXXXX(tout) | ||
357 | |||
358 | if argn(2)==0 then | ||
359 | //disp " " | ||
360 | write(%io(2),"RUNTEST : ") | ||
361 | write(%io(2),"Pour executer en local : ") | ||
362 | write(%io(2),"- toutes les tests_suites faire : runtest (""*"")") | ||
363 | write(%io(2),"- certaines tests_suites faire : runtest (""nonreg* tests_20?? scicos"")") | ||
364 | write(%io(2),"- une tests_suite faire : runtest (""scicos"")") | ||
365 | disp " " | ||
366 | else | ||
367 | |||
368 | //disp (length(varargin)) | ||
369 | |||
370 | //for i=1:length(varargin) | ||
371 | //disp (varargin(i)) | ||
372 | //end // du for | ||
373 | |||
374 | my_list=tokens(tout," ") | ||
375 | |||
376 | //pause | ||
377 | |||
378 | // exemple : displist(["autre?ep";"n*"]) | ||
379 | ierr=0 | ||
380 | //my_list = ["autrerep","hif","n*"] | ||
381 | //my_list = listfiles(envq_work+my_list | ||
382 | the_list=[] | ||
383 | //for i=1:size(my_list) | ||
384 | for i=1:size(my_list,"*") | ||
385 | if isdir (envq_work+my_list(i)) then | ||
386 | // my_list(i) est un répertoire | ||
387 | the_list = [the_list;my_list(i)] | ||
388 | else | ||
389 | the_list = [the_list;basename(listfiles(envq_work+my_list(i)))] | ||
390 | end | ||
391 | end // du for | ||
392 | |||
393 | //disp("ici") | ||
394 | //pause | ||
395 | |||
396 | |||
397 | the_list2=[] | ||
398 | for i=1:size(the_list,"*") | ||
399 | if isdir (envq_work+the_list(i)) then | ||
400 | the_list2 = [the_list2;the_list(i)] | ||
401 | end | ||
402 | end // du for | ||
403 | |||
404 | //disp("là") | ||
405 | //pause | ||
406 | |||
407 | for k=1:size(the_list2,"*") | ||
408 | bibi = the_list2(k) | ||
409 | chdir (envq_work + basename(the_list2(k))) | ||
410 | unix_w ("erase "+envq_log+envq_ver+"\test_en_cours.txt") | ||
411 | diary (envq_log+envq_ver+"\test_en_cours.txt") | ||
412 | ierr=0 | ||
413 | // diary (envq_log+envq_ver+"\"+the_list2(k)+".txt") | ||
414 | ierr = exec (the_list2(k) + ".sce", 'errcatch') | ||
415 | if ierr<>0 then | ||
416 | disp("") | ||
417 | disp " LA TESTS-SUITE " + the_list2(k) + " S ''EST INCORRECTEMENT TERMINEE.----------------------------" | ||
418 | disp("Error n° "+string(ierr)); | ||
419 | disp(lasterror()); | ||
420 | disp("") | ||
421 | end | ||
422 | diary(0) | ||
423 | if MSDOS then | ||
424 | //disp ("msdos") | ||
425 | //pause | ||
426 | // disp ("bibi = " + bibi) | ||
427 | //pause | ||
428 | //unix_w ("type "+envq_log+envq_ver+"\test_en_cours.txt >> "+envq_log+envq_ver+"\"+the_list2(k)+".txt") | ||
429 | unix_w ("type "+envq_log+envq_ver+"\test_en_cours.txt >> "+envq_log+envq_ver+"\"+bibi+".txt") | ||
430 | // unix_w ("erase "+envq_log+envq_ver+"\test_en_cours.txt") | ||
431 | else | ||
432 | // monde linux utiliser commande cat | ||
433 | end | ||
434 | // disp (basename(the_list2(k))) | ||
435 | end // du for | ||
436 | |||
437 | end | ||
438 | endfunction | ||
439 | |||
440 | |||
441 | function aide(varargin) | ||
442 | // fonction executer au lancement de l'environnement de qualification scilab sous window | ||
443 | if argn(2)==1 then | ||
444 | if (varargin(1)=="all") | (varargin(1)=="ALL" )then | ||
445 | disp (" ") | ||
446 | copyftp() | ||
447 | runtest() | ||
448 | // copyrun() | ||
449 | clearwork() | ||
450 | clearlog() | ||
451 | disp (" ") | ||
452 | end | ||
453 | else | ||
454 | disp (" ") | ||
455 | write(%io(2)," ENVIRONNEMENT DE QUALIFICATION SCILAB") | ||
456 | disp (" ") | ||
457 | write(%io(2)," commandes disponibles : COPYFTP() - RUNTEST() - COPYRUN() - CLEARWORK() - CLEARLOG()") | ||
458 | write(%io(2)," ") | ||
459 | write(%io(2)," pour une aide faire : AIDE (""all"") ou lancer une commande sans parametres ") | ||
460 | disp (" ") | ||
461 | end | ||
462 | endfunction | ||
diff --git a/tests/nonRegression/Qualif/Proc/frioul_tests_suite_list.bat b/tests/nonRegression/Qualif/Proc/frioul_tests_suite_list.bat deleted file mode 100755 index 5b3060c..0000000 --- a/tests/nonRegression/Qualif/Proc/frioul_tests_suite_list.bat +++ /dev/null | |||
@@ -1,8 +0,0 @@ | |||
1 | @echo off | ||
2 | |||
3 | rem if not "%os%"=="Windows_NT" goto NextStep | ||
4 | REM --- Section spécifique à Windows NT --- | ||
5 | rem color 0F | ||
6 | rem :NextStep | ||
7 | |||
8 | ncftpget -d %envq_qualif%\log\copyftp.log -u qualif -p qualifpwd frioul.inria.fr %envq_qualif%\work tests_suite/frioul_tests_suite_list.txt | ||
diff --git a/tests/nonRegression/Qualif/Proc/init_qualif.bat b/tests/nonRegression/Qualif/Proc/init_qualif.bat deleted file mode 100755 index 58aad34..0000000 --- a/tests/nonRegression/Qualif/Proc/init_qualif.bat +++ /dev/null | |||
@@ -1,30 +0,0 @@ | |||
1 | @echo off | ||
2 | |||
3 | REM --- modifier la couleur et le prompt dos | ||
4 | color 71 | ||
5 | |||
6 | REM --- positionner paths et variables d'environnement | ||
7 | set envq_qualif=e:\qualif | ||
8 | set envq_proc=e:\qualif\proc | ||
9 | set envq_work=e:\qualif\work | ||
10 | set envq_log=e:\qualif\log | ||
11 | |||
12 | REM --- init version Scilab à tester et path | ||
13 | call init_version_and_path.bat | ||
14 | |||
15 | REM --- prise en compte de la version Scilab dans le prompt | ||
16 | rem PROMPT=$C%envq_ver%$F$S$P$G | ||
17 | |||
18 | REM --- modification du titre de la fenetre DOS | ||
19 | title Env. Qualification Scilab - version %envq_ver% | ||
20 | |||
21 | REM --- création du repertoire version sous le repertoire log | ||
22 | if not exist %envq_log%\%envq_ver% mkdir %envq_log%\%envq_ver% | ||
23 | |||
24 | REM --- afficher les commandes possibles dans l'environnement de qualification copyftp runtest copyrun | ||
25 | REM call aide.bat | ||
26 | |||
27 | |||
28 | |||
29 | |||
30 | |||
diff --git a/tests/nonRegression/Qualif/Proc/init_qualif_2.8.2.bat b/tests/nonRegression/Qualif/Proc/init_qualif_2.8.2.bat deleted file mode 100755 index 58aad34..0000000 --- a/tests/nonRegression/Qualif/Proc/init_qualif_2.8.2.bat +++ /dev/null | |||
@@ -1,30 +0,0 @@ | |||
1 | @echo off | ||
2 | |||
3 | REM --- modifier la couleur et le prompt dos | ||
4 | color 71 | ||
5 | |||
6 | REM --- positionner paths et variables d'environnement | ||
7 | set envq_qualif=e:\qualif | ||
8 | set envq_proc=e:\qualif\proc | ||
9 | set envq_work=e:\qualif\work | ||
10 | set envq_log=e:\qualif\log | ||
11 | |||
12 | REM --- init version Scilab à tester et path | ||
13 | call init_version_and_path.bat | ||
14 | |||
15 | REM --- prise en compte de la version Scilab dans le prompt | ||
16 | rem PROMPT=$C%envq_ver%$F$S$P$G | ||
17 | |||
18 | REM --- modification du titre de la fenetre DOS | ||
19 | title Env. Qualification Scilab - version %envq_ver% | ||
20 | |||
21 | REM --- création du repertoire version sous le repertoire log | ||
22 | if not exist %envq_log%\%envq_ver% mkdir %envq_log%\%envq_ver% | ||
23 | |||
24 | REM --- afficher les commandes possibles dans l'environnement de qualification copyftp runtest copyrun | ||
25 | REM call aide.bat | ||
26 | |||
27 | |||
28 | |||
29 | |||
30 | |||
diff --git a/tests/nonRegression/Qualif/Proc/init_version_and_path.bat b/tests/nonRegression/Qualif/Proc/init_version_and_path.bat deleted file mode 100755 index e533058..0000000 --- a/tests/nonRegression/Qualif/Proc/init_version_and_path.bat +++ /dev/null | |||
@@ -1,7 +0,0 @@ | |||
1 | @echo off | ||
2 | |||
3 | REM --- création de la variable d'environnement version de scilab | ||
4 | set envq_ver=scilab-2.7.2 | ||
5 | |||
6 | REM --- ajout dans le path du chemin d'installation de la version de scilab a qualifier et du repertoire ou sont installees les procedures necessaires | ||
7 | PATH=%PATH%;%ProgramFiles%\%envq_ver%\bin;%envq_proc% \ No newline at end of file | ||
diff --git a/tests/nonRegression/Qualif/Proc/listfrioul.bat b/tests/nonRegression/Qualif/Proc/listfrioul.bat deleted file mode 100755 index 213305a..0000000 --- a/tests/nonRegression/Qualif/Proc/listfrioul.bat +++ /dev/null | |||
@@ -1,24 +0,0 @@ | |||
1 | @echo off | ||
2 | |||
3 | rem if not "%os%"=="Windows_NT" goto NextStep | ||
4 | REM --- Section spécifique à Windows NT --- | ||
5 | rem color 0F | ||
6 | rem :NextStep | ||
7 | if "%1"=="" goto aide | ||
8 | |||
9 | if exist %envq_log%\listfrioul.log erase %envq_log%\listfrioul.log | ||
10 | |||
11 | |||
12 | echo construction de la liste des tests_suites disponibles sur frioul ... | ||
13 | ncftpls -d %envq_log%\listfrioul.log -u qualif -p qualifpwd frioul.inria.fr %envq_work% tests_suite/%1 | ||
14 | |||
15 | |||
16 | goto the_end | ||
17 | |||
18 | :aide | ||
19 | echo // | ||
20 | |||
21 | echo // | ||
22 | echo // | ||
23 | |||
24 | :the_end \ No newline at end of file | ||
diff --git a/tests/nonRegression/Qualif/Proc/login.cfg.txt b/tests/nonRegression/Qualif/Proc/login.cfg.txt deleted file mode 100755 index 242a365..0000000 --- a/tests/nonRegression/Qualif/Proc/login.cfg.txt +++ /dev/null | |||
@@ -1 +0,0 @@ | |||
1 | open -u qualif -p qualifpwd frioul.inria.fr | ||
diff --git a/tests/nonRegression/Qualif/Proc/menu_qualif.txt b/tests/nonRegression/Qualif/Proc/menu_qualif.txt deleted file mode 100755 index 20e8a6f..0000000 --- a/tests/nonRegression/Qualif/Proc/menu_qualif.txt +++ /dev/null | |||
@@ -1,41 +0,0 @@ | |||
1 | |||
2 | function select_tests_suite() | ||
3 | |||
4 | //recuperer les batteries de tests sous qualif/work dans une matrice | ||
5 | tests_suite=listfiles(basename('e:\qualif\work')); | ||
6 | tests_suite=listfiles(basename(envq_work)); | ||
7 | |||
8 | //parcourir la matrice ainsi créée et charger les listes pour le menu de selection des batteries | ||
9 | the_list=('') | ||
10 | for i=1:size(tests_suite,"*") | ||
11 | the_list(i)=list(tests_suite(i),1,['Non','Oui']); | ||
12 | end // du for | ||
13 | rep=x_choices('Tests-Suites Selection Menu',the_list); | ||
14 | |||
15 | |||
16 | //prendre dans rep que les reponses à oui (valeur 2) et retrouver la batterie de tests correspondante | ||
17 | |||
18 | |||
19 | endfunction | ||
20 | |||
21 | |||
22 | |||
23 | |||
24 | |||
25 | |||
26 | |||
27 | |||
28 | |||
29 | // if isdir (envq_work+my_list(i)) then | ||
30 | // my_list(i) est un répertoire | ||
31 | // the_list = [the_list;my_list(i)] | ||
32 | // else | ||
33 | // the_list = [the_list;basename(listfiles(envq_work+my_list(i)))] | ||
34 | |||
35 | // end // du if | ||
36 | |||
37 | |||
38 | //l1=list('choice 1',1,['Non','Oui']); | ||
39 | //l2=list('choice 2',1,['Non','Oui']); | ||
40 | //l3=list('choice 3',1,['Non','Oui']); | ||
41 | //rep=x_choices('Tests-Suites Selection Menu',list(l1,l2,l3)); | ||
diff --git a/tests/nonRegression/Qualif/Proc/modele.sci b/tests/nonRegression/Qualif/Proc/modele.sci deleted file mode 100755 index cd871b1..0000000 --- a/tests/nonRegression/Qualif/Proc/modele.sci +++ /dev/null | |||
@@ -1,15 +0,0 @@ | |||
1 | // bugAAA | ||
2 | |||
3 | mode (-1) | ||
4 | clear all | ||
5 | |||
6 | xxxxxxxxxxxxxxxxxxxxxxxxxxxx | ||
7 | xxxxxxxxxxxxxxxxxxxxxxxxxxxx | ||