summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorPierre Marechal <pierre.marechal@scilab.org>2007-11-29 09:17:14 +0000
committerPierre Marechal <pierre.marechal@scilab.org>2007-11-29 09:17:14 +0000
commitb859b7635da09e3b41704969177f143a7528eb5d (patch)
treee57d2992922e168e1fa6b5d2d49502ab5e9a46e6 /tests
parent72b4b55d2b3b4109d64567c5aa1acf3d57c31339 (diff)
downloadscilab-b859b7635da09e3b41704969177f143a7528eb5d.zip
scilab-b859b7635da09e3b41704969177f143a7528eb5d.tar.gz
Remove old directories
Diffstat (limited to 'tests')
-rwxr-xr-xtests/nonRegression/Qualif/Benchmark/ad_bench.txt1
-rwxr-xr-xtests/nonRegression/Qualif/Benchmark/bench_scilab.sce313
-rwxr-xr-xtests/nonRegression/Qualif/Invite DOS pour Env. Qualif.lnkbin1625 -> 0 bytes
-rwxr-xr-xtests/nonRegression/Qualif/Invite standard de commandes DOS.lnkbin1465 -> 0 bytes
-rwxr-xr-xtests/nonRegression/Qualif/Log/copyftp.log92
-rwxr-xr-xtests/nonRegression/Qualif/Log/save_log/autrerep.log91
-rwxr-xr-xtests/nonRegression/Qualif/Log/save_log/nonreg_2-7-1.log97
-rwxr-xr-xtests/nonRegression/Qualif/Log/scilab-2.7.2/autrerep.log26
-rwxr-xr-xtests/nonRegression/Qualif/Log/scilab-2.7.2/bug0.log26
-rwxr-xr-xtests/nonRegression/Qualif/Log/scilab-2.7.2/existepas.log26
-rwxr-xr-xtests/nonRegression/Qualif/Log/scilab-2.7.2/nonreg_2-7-1.log97
-rwxr-xr-xtests/nonRegression/Qualif/Proc/aide.bat23
-rwxr-xr-xtests/nonRegression/Qualif/Proc/bg.bat1
-rwxr-xr-xtests/nonRegression/Qualif/Proc/checklog.bat35
-rwxr-xr-xtests/nonRegression/Qualif/Proc/clearlog.bat41
-rwxr-xr-xtests/nonRegression/Qualif/Proc/clearwork.bat42
-rwxr-xr-xtests/nonRegression/Qualif/Proc/copyftp.bat33
-rwxr-xr-xtests/nonRegression/Qualif/Proc/copyrun.bat29
-rwxr-xr-xtests/nonRegression/Qualif/Proc/demarrage_qualif.bat23
-rwxr-xr-xtests/nonRegression/Qualif/Proc/diff.exebin68096 -> 0 bytes
-rwxr-xr-xtests/nonRegression/Qualif/Proc/diff3.exebin17920 -> 0 bytes
-rwxr-xr-xtests/nonRegression/Qualif/Proc/fonct_qualif.sci573
-rwxr-xr-xtests/nonRegression/Qualif/Proc/fonct_qualif.sci.sav.txt542
-rwxr-xr-xtests/nonRegression/Qualif/Proc/fonct_qualif_autre.sci742
-rwxr-xr-xtests/nonRegression/Qualif/Proc/fonct_qualif_sav1.sci462
-rwxr-xr-xtests/nonRegression/Qualif/Proc/frioul_tests_suite_list.bat8
-rwxr-xr-xtests/nonRegression/Qualif/Proc/init_qualif.bat30
-rwxr-xr-xtests/nonRegression/Qualif/Proc/init_qualif_2.8.2.bat30
-rwxr-xr-xtests/nonRegression/Qualif/Proc/init_version_and_path.bat7
-rwxr-xr-xtests/nonRegression/Qualif/Proc/listfrioul.bat24
-rwxr-xr-xtests/nonRegression/Qualif/Proc/login.cfg.txt1
-rwxr-xr-xtests/nonRegression/Qualif/Proc/menu_qualif.txt41
-rwxr-xr-xtests/nonRegression/Qualif/Proc/modele.sci15
-rwxr-xr-xtests/nonRegression/Qualif/Proc/ncftp.cfg5
-rwxr-xr-xtests/nonRegression/Qualif/Proc/old_clearwork.bat37
-rwxr-xr-xtests/nonRegression/Qualif/Proc/run_qualif_cmd.bat8
-rwxr-xr-xtests/nonRegression/Qualif/Proc/runtest.bat66
-rwxr-xr-xtests/nonRegression/Qualif/Proc/showlog.bat28
-rwxr-xr-xtests/nonRegression/Qualif/Proc/tail.exebin32768 -> 0 bytes
-rwxr-xr-xtests/nonRegression/Qualif/Proc/template_run_qualif_cmd.bat8
-rwxr-xr-xtests/nonRegression/Qualif/Proc/test.bat10
-rwxr-xr-xtests/nonRegression/Qualif/Proc/test2.bat21
-rwxr-xr-xtests/nonRegression/Qualif/Proc/travail/help_for.txt159
-rwxr-xr-xtests/nonRegression/Qualif/Proc/travail/helpset.txt172
-rwxr-xr-xtests/nonRegression/Qualif/Proc/travail/suite.bat3
-rwxr-xr-xtests/nonRegression/Qualif/Proc/travail/test.sci8
-rwxr-xr-xtests/nonRegression/Qualif/Proc/viaftp.bat33
-rwxr-xr-xtests/nonRegression/Qualif/Scilab 2.7.2 - Qualif.lnkbin753 -> 0 bytes
-rwxr-xr-xtests/nonRegression/Qualif/Work/autrerep/autrerep.sce23
-rwxr-xr-xtests/nonRegression/Qualif/Work/autrerep/bug21.sci28
-rwxr-xr-xtests/nonRegression/Qualif/Work/autrerep/bug22.sci28
-rwxr-xr-xtests/nonRegression/Qualif/Work/autrerep/bug24.sci19
-rwxr-xr-xtests/nonRegression/Qualif/Work/autrerep/bug25.sci24
-rwxr-xr-xtests/nonRegression/Qualif/Work/autrerep/bug6.sci16
-rwxr-xr-xtests/nonRegression/Qualif/Work/autrerep/bug71.sci24
-rwxr-xr-xtests/nonRegression/Qualif/Work/bench_sciviews_v2/bench_sciviews_v2.sce331
-rwxr-xr-xtests/nonRegression/Qualif/Work/bug0/bug0.sce26
-rwxr-xr-xtests/nonRegression/Qualif/Work/existepas/existepas.sce29
-rwxr-xr-xtests/nonRegression/Qualif/Work/frioul_tests_suite_list.txt6
-rwxr-xr-xtests/nonRegression/Qualif/Work/nonreg_2-7-1/bug1.sci24
-rwxr-xr-xtests/nonRegression/Qualif/Work/nonreg_2-7-1/bug21.sci28
-rwxr-xr-xtests/nonRegression/Qualif/Work/nonreg_2-7-1/bug22.sci28
-rwxr-xr-xtests/nonRegression/Qualif/Work/nonreg_2-7-1/bug24.sci19
-rwxr-xr-xtests/nonRegression/Qualif/Work/nonreg_2-7-1/bug25.sci24
-rwxr-xr-xtests/nonRegression/Qualif/Work/nonreg_2-7-1/bug6.sci16
-rwxr-xr-xtests/nonRegression/Qualif/Work/nonreg_2-7-1/nonreg_2-7-1.sce23
-rwxr-xr-xtests/nonRegression/Qualif/save tests_suites/autrerep/autrerep.sci25
-rwxr-xr-xtests/nonRegression/Qualif/save tests_suites/autrerep/bug1.sci24
-rwxr-xr-xtests/nonRegression/Qualif/save tests_suites/autrerep/bug21.sci28
-rwxr-xr-xtests/nonRegression/Qualif/save tests_suites/autrerep/bug22.sci28
-rwxr-xr-xtests/nonRegression/Qualif/save tests_suites/autrerep/bug24.sci19
-rwxr-xr-xtests/nonRegression/Qualif/save tests_suites/autrerep/bug25.sci24
-rwxr-xr-xtests/nonRegression/Qualif/save tests_suites/autrerep/bug6.sci16
-rwxr-xr-xtests/nonRegression/Qualif/save tests_suites/nonreg/nonreg.sci19
-rwxr-xr-xtests/nonRegression/Qualif/save tests_suites/nonreg_2-7-1/bug1.sci24
-rwxr-xr-xtests/nonRegression/Qualif/save tests_suites/nonreg_2-7-1/bug21.sci28
-rwxr-xr-xtests/nonRegression/Qualif/save tests_suites/nonreg_2-7-1/bug22.sci28
-rwxr-xr-xtests/nonRegression/Qualif/save tests_suites/nonreg_2-7-1/bug24.sci19
-rwxr-xr-xtests/nonRegression/Qualif/save tests_suites/nonreg_2-7-1/bug25.sci24
-rwxr-xr-xtests/nonRegression/Qualif/save tests_suites/nonreg_2-7-1/bug6.sci16
-rwxr-xr-xtests/nonRegression/Qualif/save tests_suites/nonreg_2-7-1/nonreg_2-7-1.sci27
-rwxr-xr-xtests/nonRegression/Qualif/save/autrerep/autrerep.sce23
-rwxr-xr-xtests/nonRegression/Qualif/save/autrerep/bug1.sci24
-rwxr-xr-xtests/nonRegression/Qualif/save/autrerep/bug21.sci28
-rwxr-xr-xtests/nonRegression/Qualif/save/autrerep/bug22.sci28
-rwxr-xr-xtests/nonRegression/Qualif/save/autrerep/bug24.sci19
-rwxr-xr-xtests/nonRegression/Qualif/save/autrerep/bug25.sci24
-rwxr-xr-xtests/nonRegression/Qualif/save/autrerep/bug6.sci16
-rwxr-xr-xtests/nonRegression/Qualif/save/bench_sciviews_v2/bench_sciviews_v2.sce331
-rwxr-xr-xtests/nonRegression/Qualif/save/bug0/bug0.sce26
-rwxr-xr-xtests/nonRegression/Qualif/save/existepas/existepas.sce29
-rwxr-xr-xtests/nonRegression/Qualif/save/frioul_tests_suite_list.txt6
-rwxr-xr-xtests/nonRegression/Qualif/save/nonreg_2-7-1/bug1.sci24
-rwxr-xr-xtests/nonRegression/Qualif/save/nonreg_2-7-1/bug21.sci28
-rwxr-xr-xtests/nonRegression/Qualif/save/nonreg_2-7-1/bug22.sci28
-rwxr-xr-xtests/nonRegression/Qualif/save/nonreg_2-7-1/bug24.sci19
-rwxr-xr-xtests/nonRegression/Qualif/save/nonreg_2-7-1/bug25.sci24
-rwxr-xr-xtests/nonRegression/Qualif/save/nonreg_2-7-1/bug6.sci16
-rwxr-xr-xtests/nonRegression/Qualif/save/nonreg_2-7-1/nonreg_2-7-1.sce23
-rwxr-xr-xtests/nonRegression/Qualif/save/nonreg_2-7-1/nonreg_2-7-1.sci27
-rwxr-xr-xtests/nonRegression/Qualif/save/t.log1
-rwxr-xr-xtests/nonRegression/Qualif/save/ttt.log1
-rwxr-xr-xtests/nonRegression/Qualif/save/tttt.log1
-rwxr-xr-xtests/nonRegression/Qualif/save/ttttt.log1
-rwxr-xr-xtests/nonRegression/Qualif/save/ttttttttt.log1
-rwxr-xr-xtests/nonRegression/Qualif/save/ttttttttttttttt.log1
-rwxr-xr-xtests/nonRegression/Qualif/scilab.ini111
-rwxr-xr-xtests/nonRegression/Qualif/version Scilab-2.7.2.lnkbin479 -> 0 bytes
-rw-r--r--tests/nonRegression/affich_result.sci20
-rwxr-xr-xtests/nonRegression/bench_sciviews_v2/bench_sciviews_v2.sce331
-rwxr-xr-xtests/nonRegression/diff.exebin68096 -> 0 bytes
-rw-r--r--tests/nonRegression/exclude.txt16
-rwxr-xr-xtests/nonRegression/fgrep.exebin80412 -> 0 bytes
-rw-r--r--tests/nonRegression/nonRegression_graphical/nonRegression_graphical.dpf48
-rw-r--r--tests/nonRegression/nonRegression_graphical/nonRegression_graphical.sci32
-rw-r--r--tests/nonRegression/nonRegression_tests_version_27/before_nonreg_3.sce185
-rw-r--r--tests/nonRegression/nonreg_3.sce24
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/Loop_nonreg_3b.sce35
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug525.sci14
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug528.sci14
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug534.sci16
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug539.sce12
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug542.sci14
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug545.sci25
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug546.sci25
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug548.sce35
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug549.sci28
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug553.sci18
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug557.ref1
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug557.sci29
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug558.sci26
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug562.sce12
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug564.ref23
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug564.sci45
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug566.sci23
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug567.sce12
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug568.sci22
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug569.sci13
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug570.sci22
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug573.sce9
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug575.sci19
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug576.sce13
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug577.sci19
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug584.sci18
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug600.sce12
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug600.sci12
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug604.sci14
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug608.sci25
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug610.sci26
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug612.sci26
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug623.sci63
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug625.sci13
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug629.sce17
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug629.sci17
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug632.sci20
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug649.sci6
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/bug650.sce14
-rwxr-xr-xtests/nonRegression/nonreg_3_Olivier/gain.mat0
-rw-r--r--tests/nonRegression/nonreg_3_Olivier/nonreg_3b.sce35
-rwxr-xr-xtests/nonRegression/nonreg_3_Olivier/t1.wavbin22096 -> 0 bytes
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 @@
1http://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
23stacksize(30000000)
24runs = 3; // Number of times the tests are executed
25times = zeros(5, 3);
26
27disp(' Scilab Benchmark 2')
28disp(' ==================')
29disp('Number of times each test is run__________________________: ' + string(runs))
30disp(' ')
31
32
33disp(' I. Matrix calculation')
34disp(' ---------------------')
35
36
37// (1)
38cumulate = 0; a = 0; b = 0;
39for 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;
47end;
48timing = cumulate/runs;
49times(1, 1) = timing;
50disp('Creation, transp., deformation of a 1500x1500 matrix (sec): ' + string(timing));
51clear('a'); clear('b');
52
53// (2)
54cumulate = 0; b = 0;
55for i = 1:runs
56 a = abs(rand(800, 800, 'n')/2);
57 timer();
58 b = a.^1000;
59 timing = timer();
60 cumulate = cumulate + timing;
61end
62timing = cumulate/runs;
63times(2, 1) = timing;
64disp('800x800 normal distributed random matrix ^1000______ (sec): ' + string(timing))
65clear('a'); clear('b');
66
67// (3)
68cumulate = 0; b = 0;
69for i = 1:runs
70 a = rand(2000000, 1, 'n');
71 timer();
72 b = -sort(-a);
73 timing = timer();
74 cumulate = cumulate + timing;
75end
76timing = cumulate/runs;
77times(3, 1) = timing;
78disp('Sorting of 2,000,000 random values__________________ (sec): ' + string(timing))
79clear('a'); clear('b');
80
81// (4)
82cumulate = 0; b = 0;
83for i = 1:runs
84 a = rand(700, 700, 'n');
85 timer();
86 b = a'*a;
87 timing = timer();
88 cumulate = cumulate + timing;
89end
90timing = cumulate/runs;
91times(4, 1) = timing;
92disp('700x700 cross-product matrix (b = a'' * a)___________ (sec): ' + string(timing))
93clear('a'); clear('b');
94
95// (5)
96cumulate = 0; c = 0;
97for 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;
104end
105timing = cumulate/runs;
106times(5, 1) = timing;
107disp('Linear regression over a 600x600 matrix (c = a \ b'') (sec): ' + string(timing))
108clear('a'); clear('b'); clear('c');
109
110times = sort(times, 'r');
111disp(' --------------------------------------------------')
112disp(' Trimmed geom. mean (2 extremes eliminated): ' + string(exp(mean(log(times(2:4,1))))))
113disp(' ')
114
115disp(' II. Matrix functions')
116disp(' --------------------')
117
118
119// (1)
120cumulate = 0; b = 0;
121for i = 1:runs
122 a = rand(800000, 1, 'n');
123 timer();
124 b = fft(a, -1);
125 timing = timer();
126 cumulate = cumulate + timing;
127end
128timing = cumulate/runs;
129times(1, 2) = timing;
130disp('FFT over 800,000 random values______________________ (sec): ' + string(timing))
131clear('a'); clear('b');
132
133// (2)
134cumulate = 0; b = 0;
135for i = 1:runs
136 a = rand(320, 320, 'n');
137 timer();
138 b = spec(a);
139 timing = timer();
140 cumulate = cumulate + timing;
141end
142timing = cumulate/runs;
143times(2, 2) = timing;
144disp('Eigenvalues of a 320x320 random matrix______________ (sec): ' + string(timing))
145clear('a'); clear('b');
146
147// (3)
148cumulate = 0; b = 0;
149for i = 1:runs
150 a = rand(650, 650, 'n');
151 timer();
152 b = det(a);
153 timing = timer();
154 cumulate = cumulate + timing;
155end
156timing = cumulate/runs;
157times(3, 2) = timing;
158disp('Determinant of a 650x650 random matrix______________ (sec): ' + string(timing))
159clear('a'); clear('b');
160
161// (4)
162cumulate = 0; b = 0;
163for 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;
170end
171timing = cumulate/runs;
172times(4, 2) = timing;
173disp('Cholesky decomposition of a 900x900 matrix__________ (sec): ' + string(timing))
174clear('a'); clear('b');
175
176// (5)
177cumulate = 0; b = 0;
178for i = 1:runs
179 a = rand(400, 400, 'n');
180 timer();
181 b = inv(a);
182 timing = timer();
183 cumulate = cumulate + timing;
184end
185timing = cumulate/runs;
186times(5, 2) = timing;
187disp('Inverse of a 400x400 random matrix__________________ (sec): ' + string(timing))
188clear('a'); clear('b');
189
190times = sort(times, 'r');
191disp(' --------------------------------------------------')
192disp(' Trimmed geom. mean (2 extremes eliminated): ' + string(exp(mean(log(times(2:4,2))))))
193disp(' ')
194
195disp(' III. Programmation')
196disp(' ------------------')
197
198// (1)
199cumulate = 0; a = 0; b = 0; phi = 1.6180339887498949;
200for 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;
206end
207timing = cumulate/runs;
208times(1, 3) = timing;
209disp('750,000 Fibonacci numbers calculation (vector calc)_ (sec): ' + string(timing))
210clear('a'); clear('b'); clear('phi');
211
212// (2)
213cumulate = 0; a = 2250; b = 0;
214for 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;
219end
220timing = cumulate/runs;
221times(2, 3) = timing;
222disp('Creation of a 2250x2250 Hilbert matrix (matrix calc) (sec): ' + string(timing))
223clear('a'); clear('b');
224
225// (3)
226cumulate = 0; c = 0;
227deff('[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'])
228for 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;
235end
236timing = cumulate/runs;
237times(3, 3) = timing;
238disp('Grand common divisors of 70,000 pairs (recursion)___ (sec): ' + string(timing))
239clear('a'); clear('b'); clear('c');
240
241// (4)
242cumulate = 0; b = 0;
243for 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;
253end
254timing = cumulate/runs;
255times(4, 3) = timing;
256disp('Creation of a 220x220 Toeplitz matrix (loops)_______ (sec): ' + string(timing))
257clear('b'); clear('j'); clear('k');
258
259// (5)
260cumulate = 0; p = 0; q = 0; vt = 0; vr = 0; vrt = 0; rvt = 0; RV = 0; j = 0; k = 0;
261x2 = 0; R = 0; Rxx = 0; Ryy = 0; Rxy = 0; Ryx = 0; Rvmax = 0; f = 0;, c= 0; d = 0;
262for 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;
298end
299times(5, 3) = timing;
300disp('Escoufier''s method on a 37x37 matrix (mixed)________ (sec): ' + string(timing))
301clear('x'); clear('p'); clear('q'); clear('vt'); clear('vr'); clear('vrt'); clear('rvt'); clear('RV'); clear('j'); clear('k');
302clear('x2'); clear('R'); clear('Rxx'); clear('Ryy'); clear('Rxy'); clear('Ryx'); clear('Rvmax'); clear('f'); clear('c'); clear('d');
303
304times = sort(times, 'r');
305disp(' --------------------------------------------------')
306disp(' Trimmed geom. mean (2 extremes eliminated): ' + string(exp(mean(log(times(2:4,3))))))
307disp(' ')
308
309disp(' ')
310disp('Total time for all 15 tests_________________________ (sec): ' + string(sum(times)))
311disp('Overall mean (sum of I, II and III trimmed means/3)_ (sec): ' + string(exp(mean(log(times(2:4,:))))))
312clear('cumulate'); clear('timing'); clear('times'); clear('runs'); clear('i');
313disp(' --- 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 @@
1LibNcFTP 3.1.5 (October 13, 2002) compiled for Windows
2220: frioul.inria.fr FTP server (Version 5.60) ready.
3Connected to frioul.inria.fr.
4Cmd: USER qualif
5331: Password required for qualif.
6Cmd: PASS xxxxxxxx
7230: User qualif logged in.
8Cmd: PWD
9257: "/home/qualif" is current directory.
10Logged in to frioul.inria.fr as qualif.
11Cmd: FEAT
12500: 'FEAT': command not understood.
13Cmd: HELP SITE
14214: The following SITE commands are recognized (* =>'s unimplemented).
15 UMASK IDLE CHMOD HELP
16 Direct comments to ftp-bugs@frioul.inria.fr.
17Cmd: CLNT NcFTPGet 3.1.5 Windows
18500: 'CLNT NcFTPGet 3.1.5 Windows': command not understood.
19Cmd: PWD
20257: "/home/qualif" is current directory.
21Cmd: CWD tests_suite/autrerep
22250: CWD command successful.
23Cmd: CWD /home/qualif
24250: CWD command successful.
25Cmd: PWD
26257: "/home/qualif" is current directory.
27Cmd: CWD tests_suite/autrerep
28250: CWD command successful.
29Cmd: PASV
30227: Entering Passive Mode (128,93,12,139,170,45)
31Cmd: LIST -Ra
32150: Opening ASCII mode data connection for /bin/ls.
33226: Transfer complete.
34Cmd: CWD /home/qualif
35250: CWD command successful.
36Cmd: MDTM tests_suite/autrerep/autrerep.sce
37213: 20030702130623
38Cmd: TYPE I
39200: Type set to I.
40Cmd: REST 1
41350: Restarting at 1. (null)
42Cmd: REST 0
43350: Restarting at 0. (null)
44Cmd: PASV
45227: Entering Passive Mode (128,93,12,139,170,46)
46Cmd: RETR tests_suite/autrerep/autrerep.sce
47150: Opening BINARY mode data connection for tests_suite/autrerep/autrerep.sce (438 bytes).
48226: Transfer complete.
49Cmd: MDTM tests_suite/autrerep/bug1.sci
50213: 20030702130623
51Cmd: PASV
52227: Entering Passive Mode (128,93,12,139,170,47)
53Cmd: RETR tests_suite/autrerep/bug1.sci
54150: Opening BINARY mode data connection for tests_suite/autrerep/bug1.sci (426 bytes).
55226: Transfer complete.
56Cmd: MDTM tests_suite/autrerep/bug21.sci
57213: 20030702130623
58Cmd: PASV
59227: Entering Passive Mode (128,93,12,139,170,48)
60Cmd: RETR tests_suite/autrerep/bug21.sci
61150: Opening BINARY mode data connection for tests_suite/autrerep/bug21.sci (562 bytes).
62226: Transfer complete.
63Cmd: MDTM tests_suite/autrerep/bug22.sci
64213: 20030702130623
65Cmd: PASV
66227: Entering Passive Mode (128,93,12,139,170,49)
67Cmd: RETR tests_suite/autrerep/bug22.sci
68150: Opening BINARY mode data connection for tests_suite/autrerep/bug22.sci (583 bytes).
69226: Transfer complete.
70Cmd: MDTM tests_suite/autrerep/bug24.sci
71213: 20030702130624
72Cmd: PASV
73227: Entering Passive Mode (128,93,12,139,170,50)
74Cmd: RETR tests_suite/autrerep/bug24.sci
75150: Opening BINARY mode data connection for tests_suite/autrerep/bug24.sci (388 bytes).
76226: Transfer complete.
77Cmd: MDTM tests_suite/autrerep/bug25.sci
78213: 20030702130624
79Cmd: PASV
80227: Entering Passive Mode (128,93,12,139,170,51)
81Cmd: RETR tests_suite/autrerep/bug25.sci
82150: Opening BINARY mode data connection for tests_suite/autrerep/bug25.sci (571 bytes).
83226: Transfer complete.
84Cmd: MDTM tests_suite/autrerep/bug6.sci
85213: 20030702130624
86Cmd: PASV
87227: Entering Passive Mode (128,93,12,139,170,52)
88Cmd: RETR tests_suite/autrerep/bug6.sci
89150: Opening BINARY mode data connection for tests_suite/autrerep/bug6.sci (237 bytes).
90226: Transfer complete.
91Cmd: QUIT
92221: 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
8Startup 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)
25cmplxt : code erronne : 20
26
27 ***************************************** Test bug1 : FAILED !
28cmplxt : 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)
59Warning :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)
74Dans le while principal I=0
75Dans le while principal I=1
76Dans le while principal I=2
77Dans le while principal I=3
78Dans 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
91autrerep 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
8Startup 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)
28cmplxt : code erronne : 20
29
30 ***************************************** Test bug1 : FAILED !
31cmplxt : 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)
62Warning :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)
77Dans le while principal I=0
78Dans le while principal I=1
79Dans le while principal I=2
80Dans le while principal I=3
81Dans 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.
97nonreg_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
8Startup 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
22File bug1.sci does not exist or read access denied
23at line 16 of exec file called by :
24ch(-1,"stop");exec("autrerep.sce");quit;
25
26autrerep 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
8Startup execution:
9 loading initial environment
10
11
12
13
14
15 ------------------------------{ DEBUT TEST SUITE AUTREREP DEBUT }
16
17
18
19
20toto=[1 2 3]-[1;2;3];
21 !--error 9
22inconsistent subtraction
23at line 19 of exec file called by :
24rcatch(-1,"stop");exec("bug0.sce");quit;
25
26bug0 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
8Startup execution:
9 loading initial environment
10
11
12
13
14
15 ------------------------------{ DEBUT TEST SUITE AUTREREP DEBUT }
16
17
18
19
20exec("oubaouba_marsupilami.sce");
21 !--error 241
22File oubaouba_marsupilami.sce does not exist or read access denied
23at line 20 of exec file called by :
24h(-1,"stop");exec("existepas.sce");quit;
25
26existepas 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
8Startup 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)
28cmplxt : code erronne : 20
29
30 ***************************************** Test bug1 : FAILED !
31cmplxt : 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)
62Warning :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)
77Dans le while principal I=0
78Dans le while principal I=1
79Dans le while principal I=2
80Dans le while principal I=3
81Dans 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.
97nonreg_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
3cls
4echo //
5echo // commandes disponibles : COPYFTP - RUNTEST - COPYRUN - CLEARWORK - CLEARLOG
6echo //
7echo // pour une aide faire : AIDE [all] ou lancer une commande sans parametre
8echo //
9echo //
10
11if "%1"=="all" goto suite
12if "%1"=="ALL" goto suite
13goto the_end
14
15:suite
16cls
17call copyftp
18call runtest
19call copyrun
20call clearwork
21call 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
3REM --- Echo Analyse des log tests_suites resultats
4
5find "{ FIN TEST SUITE " %envq_qualif%\log\%envq_ver%\%1.log
6if %errorlevel% == 0 (
7
8REM ---la chaine FIN TEST est trouvee , la tests suite est achevee , chercher si la chaine FAILED existe
9call :suite %1
10
11) else (
12
13 if %errorlevel% == 1 (
14REM ---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
20goto fin
21
22:suite
23
24 find /i "FAILED" %envq_qualif%\log\%envq_ver%\%1.log
25 if %errorlevel% == 0 (
26REM ---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 (
30REM la chaine FAILED n est pas trouvee , la test suite est correcte
31echo %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
3REM --- supprime tous les fichiers log des batteries de tests sous le répertoire log\version scilab
4
5if "%1"=="--help" goto aide
6if "%1"=="" goto saisie
7
8:encore
9if "%1"=="" goto the_end
10erase /s /q %envq_qualif%\log\%envq_ver%\%1.log
11REM if %errorlevel% leq 1 echo delete %1.log ...
12shift
13goto encore
14
15goto the_end
16
17:saisie
18
19goto the_end
20
21:aide
22echo -
23echo // CLEARLOG
24echo // Supprime un, plusieurs ou tous les fichiers log des batteries de tests du repertoire log\version scilab :
25echo //
26echo // - toutes les tests_suites faire : clearlog *
27echo // - certaines tests_suites faire : clearlog nonreg* tests_20?? scicos
28echo // - une tests-suite particuliere : clearlog nonreg_2-7-1
29echo //
30echo //
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
3REM --- supprime une, plusieurs ou toutesles batteries de tests du reperoire work local
4
5if "%1"=="--help" goto aide
6
7
8REM --- LIST : paramètre constitué de la liste de tests-suites demandées
9set LIST=
10
11:continue
12if "%1"=="" goto lancer_une
13
14for /D %%j in (%envq_qualif%\work\%1) do set LIST=!LIST! %%~nj
15shift
16goto continue
17
18REM --- lancer chaque tests-suite une par une
19:lancer_une
20echo liste des tests-suites :%LIST%
21echo ------------------------
22
23for %%i in (%LIST%) do echo delete %%i ... & rmdir /s /q %envq_qualif%\work\%%i
24
25goto the_end
26
27:aide
28echo //
29echo // CLEARWORK
30echo // Supprime une, plusieurs ou toutesles batteries de tests sous le repertoire work :
31echo //
32echo // - toutes les tests_suites faire : clearwork *
33echo // - certaines tests_suites faire : clearwork nonreg* tests_20?? scicos
34echo // - une tests-suite particuliere : clearwork nonreg_2-7-1
35echo //
36echo //
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
3rem if not "%os%"=="Windows_NT" goto NextStep
4REM --- Section spécifique à Windows NT ---
5rem color 0F
6rem :NextStep
7if "%1"=="--help" goto aide
8
9if exist %envq_qualif%\log\copyftp.log erase %envq_qualif%\log\copyftp.log
10
11:encore
12if "%1"=="" goto the_end
13echo copy de %1 ...
14ncftpget -R -d %envq_qualif%\log\copyftp.log -u qualif -p qualifpwd frioul.inria.fr %envq_qualif%\work tests_suite/%1
15shift
16goto encore
17
18rem for /F %%i in ('dir /A:A /O:S /B') do call :action1 %%i
19
20goto the_end
21
22:aide
23echo //
24echo // COPYFTP
25echo // Copie a partir du serveur via ftp (ncftpget) dans le repertoire Work local de l'environnement de qualification Scilab (les meta-caracteres sont acceptes) :
26echo //
27echo // - toutes les tests_suites faire : copyftp *
28echo // - certaines tests_suites faire : copyftp nonreg* tests_20?? scicos
29echo // - une tests-suite particuliere : copyftp nonreg_2-7-1
30echo //
31echo //
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
2if "%1"=="" goto aide
3
4set MYLIST=
5
6:continue
7if "%1"=="" goto suite
8set MYLIST=%MYLIST% %1
9shift
10goto continue
11
12:suite
13call copyftp %MYLIST%
14call runtest %MYLIST%
15
16goto the_end
17
18:aide
19echo //
20echo // COPYRUN
21echo // Copie puis execute une ou plusieurs batteries de tests dans l'environnement de qualification Scilab (les meta-caracteres sont acceptes) :
22echo //
23echo // copyrun tests_suite [tests_suite]
24echo // copyrun *
25echo // copyrun n* sc?cos autre
26echo //
27echo //
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
3REM --- création de la variable d'environnement version de scilab et du repertoire log
4set envq_ver=scilab-2.7.2
5
6set envq_qualif=e:\qualif
7REM set envq_proc=e:\qualif\proc
8REM set envq_work=e:\qualif\work
9REM set envq_log=e:\qualif\log
10
11REM --- ajout dans le path du chemin d'installation de la version de scilab a qualifier et du repertoire ou sont installees les procedures necessaires
12PATH=%PATH%;%ProgramFiles%\%envq_ver%\bin;%envq_qualif%\proc
13
14
15REM --- création du repertoire version sous le repertoire log
16if 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 @@
1function 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=""
6tests_suite = []
7select 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
54tests_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
57endfunction
58
59
60//======================================================================================================================
61
62
63function affich_message (graph_affich, texte)
64if graph_affich then
65//afficher message windows pour indiquer pas de batterie dans la liste de selection
66x_message(texte)
67else
68//afficher message prompt pour indiquer pas de batterie dans la liste de selection
69disp(texte)
70end // du if
71endfunction
72
73
74//======================================================================================================================
75
76
77function 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
98endfunction
99
100
101//======================================================================================================================
102
103
104function 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
115endfunction
116
117
118//======================================================================================================================
119
120
121function graph_cmd(command,directory)
122available_tests_suite=find_tests_suite_up_to_date(directory)
123//disp (" toto")
124//pause
125if isempty(available_tests_suite) then
126 affich_message (%t, "***** No tests_suite available *****")
127else
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
139end // du if
140endfunction
141
142
143//======================================================================================================================
144
145
146function 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
174end // du if
175endfunction
176
177
178
179//======================================================================================================================
180
181
182function tests_suite_without_wildcard = no_wildcard (tests_suite, directory)
183if ~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]
196end // du if
197tests_suite_without_wildcard=sort(tests_suite)
198//disp ( "tests_suite_without_wildcard via no_wildcard : " + tests_suite_without_wildcard)
199//pause
200endfunction
201
202
203//======================================================================================================================
204
205
206function 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
208the_list=[]
209for 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
215end // du for
216tests_suite_is_directory=the_list
217//disp ( "tests_suite_is_directory via only_directory : " + tests_suite_is_directory)
218//pause
219endfunction
220
221
222//======================================================================================================================
223
224
225function 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
234rep=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
258temp=read(envq_proc+"template_run_qualif_cmd.bat",-1,1,'(a)')
259temp(3)="call " + os_cmd(sci2exp(MSDOS))(command)+rep
260write(envq_proc+"run_qualif_cmd.bat",temp)
261// lancer le fichier bat dans une session dos qualif
262unix_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
273endfunction
274
275
276//======================================================================================================================
277
278
279function affich_date
280w=getdate()
281disp(date() + " "+string(w(7))+" h. "+string(w(8))+" mn. "+string(w(9))+" s. ")
282endfunction
283
284
285//======================================================================================================================
286
287
288function 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
296endfunction
297
298function my_mat = list2mat (my_list)
299my_mat = ['']
300//for k=1:size(my_list,"*")
301for k=1:size(my_list)
302 my_mat (k) = my_list(k)
303end
304endfunction
305
306
307//======================================================================================================================
308
309
310function mat_rep = sel_rep(my_mat)
311 mat_rep = ['']
312// cas d'une liste
313mat_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
322endfunction
323
324
325//======================================================================================================================
326
327
328function copyftp(param)
329if argn(2)==0 then
330 param = []
331end // du if
332prompt_cmd("copyftp",param,envq_log)
333endfunction
334
335
336//======================================================================================================================
337
338
339function test (str)
340a=[]
341interv=strindex(str," ")
342debut=1
343for i=1:length(interv)
344 a=[a;part(str,[debut:(interv(i))-1])]
345 debut=interv(i)+1
346end
347a=[a;part(str,[debut:length(str)])]
348disp (a)
349endfunction
350
351
352//======================================================================================================================
353
354
355function clearwork (param)
356if argn(2)==0 then
357 param = []
358end // du if
359prompt_cmd("clearwork",param,envq_work)
360endfunction
361
362
363//======================================================================================================================
364
365
366function clearlog (param)
367if argn(2)==0 then
368 param = []
369end // du if
370prompt_cmd("clearlog",param,envq_log+envq_ver+"\")
371endfunction
372
373
374//======================================================================================================================
375
376
377function runtest(param)
378if argn(2)==0 then
379 param = []
380end // du if
381prompt_cmd("runtest",param,envq_work)
382endfunction
383
384
385//======================================================================================================================
386
387
388function 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
404endfunction
405
406
407//======================================================================================================================
408
409
410function dirlog (my_cmd)
411if argn(2)==0 then
412 param = []
413end // du if
414prompt_cmd("clearlog",param,envq_log+envq_ver)
415endfunction
416
417
418//======================================================================================================================
419
420
421function 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
439endfunction
440
441
442//======================================================================================================================
443
444
445function copyrun(param)
446if argn(2)==0 then
447 copyftp()
448 runtest()
449else
450 copyftp (param)
451 runtest (""""+param+"""")
452end
453endfunction
454
455
456//======================================================================================================================
457
458
459function runtestXXXXXXXXXXX(tout)
460
461if 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 " "
469else
470
471//disp (length(varargin))
472
473//for i=1:length(varargin)
474//disp (varargin(i))
475//end // du for
476
477my_list=tokens(tout," ")
478
479//pause
480
481// exemple : displist(["autre?ep";"n*"])
482ierr=0
483//my_list = ["autrerep","hif","n*"]
484//my_list = listfiles(envq_work+my_list
485the_list=[]
486//for i=1:size(my_list)
487for 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
494end // du for
495
496//disp("ici")
497//pause
498
499
500the_list2=[]
501for i=1:size(the_list,"*")
502 if isdir (envq_work+the_list(i)) then
503 the_list2 = [the_list2;the_list(i)]
504 end
505end // du for
506
507//disp("là")
508//pause
509
510for 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")
532unix_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)))
538end // du for
539
540end
541endfunction
542
543
544//======================================================================================================================
545
546
547function 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
568endfunction
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 @@
1function 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
7select 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
26tests_suite=sort(tests_suite)
27
28
29//parcourir la matrice ainsi créée et charger la liste pour le menu de selection des batteries
30the_list=list()
31for i=1:size(tests_suite,"*")
32the_list($+1)=list(tests_suite(i),1,['Non','Oui'])
33end // du for
34rep=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
37tests_suite_selected=""
38for 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
42end // du for
43
44endfunction
45
46
47function affich_date
48w=getdate()
49disp(date() + " "+string(w(7))+" h. "+string(w(8))+" mn. "+string(w(9))+" s. ")
50endfunction
51
52
53function 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
62endfunction
63
64function my_mat = list2mat (my_list)
65my_mat = ['']
66//for k=1:size(my_list,"*")
67for k=1:size(my_list)
68 my_mat (k) = my_list(k)
69end
70endfunction
71
72
73function mat_rep = sel_rep(my_mat)
74 mat_rep = ['']
75// cas d'une liste
76mat_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
85endfunction
86
87function 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&copyftp.bat "+my_cmd)
99 end
100 end
101 endfunction
102
103function ierr=runtest22(varargin)
104// se positionne dans le repertoire de la tests_suite et lance son execution
105ierr=0
106chdir (envq_work)
107disp(varargin)
108// ts_work = list2mat (varargin)
109ts_work = varargin
110disp (typeof(ts_work))
111disp (ts_work)
112pause
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
151disp (" je suis là")
152pause
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
164disp("----")
165
166ts_work = sel_rep(ts_work)
167disp ("ts_work : "+ts_work)
168disp("type : "+typeof(ts_work))
169pause
170
171//if ts_work == [''] then
172if 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")
178else
179disp ("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
194end
195endfunction
196
197
198function displist (tout)
199
200// exemple : displist(["autre?ep";"n*"])
201ierr=0
202//tout = ["autrerep","hif","n*"]
203the_list=[]
204for 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
211end // du for
212
213//pause
214
215the_list2=[]
216for i=1:size(the_list,"*")
217 if isdir (envq_work+the_list(i)) then
218 the_list2 = [the_list2;the_list(i)]
219 end
220end // du for
221
222// pause
223
224for 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)))
237end // du for
238
239
240endfunction
241
242
243function rruntest(varargin)
244
245if 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 " "
252else
253
254disp (length(varargin))
255
256for i=1:length(varargin)
257disp (varargin(i))
258end // du for
259
260my_list=varargin
261
262pause
263
264// exemple : displist(["autre?ep";"n*"])
265ierr=0
266//my_list = ["autrerep","hif","n*"]
267//my_list = listfiles(envq_work+my_list
268the_list=[]
269for 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
277end // du for
278
279disp("ici")
280pause
281
282
283the_list2=[]
284for i=1:size(the_list,"*")
285 if isdir (envq_work+the_list(i)) then
286 the_list2 = [the_list2;the_list(i)]
287 end
288end // du for
289
290disp("là")
291pause
292
293for 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)))
306end // du for
307
308end
309endfunction
310
311function test (str)
312a=[]
313interv=strindex(str," ")
314debut=1
315for i=1:length(interv)
316 a=[a;part(str,[debut:(interv(i))-1])]
317 debut=interv(i)+1
318end
319a=[a;part(str,[debut:length(str)])]
320disp (a)
321
322pause
323
324endfunction
325
326function 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)
339else
340 unix_w ("clearwork" +my_cmd)
341 end
342 end
343endfunction
344
345function 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
361endfunction
362
363function 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
379endfunction
380
381
382function 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
400endfunction
401
402function 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
420endfunction
421
422
423function 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
444endfunction
445
446
447function copyrun(param)
448if argn(2)==0 then
449 copyftp()
450 runtest()
451else
452 copyftp (param)
453 runtest (""""+param+"""")
454end
455endfunction
456
457
458
459
460function runtest(tout)
461
462if 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 " "
470else
471
472//disp (length(varargin))
473
474//for i=1:length(varargin)
475//disp (varargin(i))
476//end // du for
477
478my_list=tokens(tout," ")
479
480//pause
481
482// exemple : displist(["autre?ep";"n*"])
483ierr=0
484//my_list = ["autrerep","hif","n*"]
485//my_list = listfiles(envq_work+my_list
486the_list=[]
487//for i=1:size(my_list)
488for 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
495end // du for
496
497//disp("ici")
498//pause
499
500
501the_list2=[]
502for i=1:size(the_list,"*")
503 if isdir (envq_work+the_list(i)) then
504 the_list2 = [the_list2;the_list(i)]
505 end
506end // du for
507
508//disp("là")
509//pause
510
511for 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")
533unix_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)))
539end // du for
540
541end
542endfunction
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 @@
1function 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 ???
5tests_suite=""
6select 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
37tests_suite_up_to_date=sort(tests_suite)
38//disp (tests_suite_up_to_date)
39//disp (typeof(tests_suite_up_to_date))
40//pause
41endfunction
42
43function affich_message (graph_affich, texte)
44// texte = 'No tests_suite to select'
45if graph_affich then
46//afficher message windows pour indiquer pas de batterie dans la liste de selection
47x_message(texte)
48else
49//afficher message prompt pour indiquer pas de batterie dans la liste de selection
50disp(texte)
51end // du if
52endfunction
53
54function 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
73endfunction
74
75function 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
84endfunction
85
86function graph_cmd(command,directory)
87//virer graph interf des param pas besoin verifier
88available_tests_suite=find_tests_suite_up_to_date(directory)
89//disp (" toto")
90//pause
91if isempty(available_tests_suite) then
92 affich_message (%t, "***** No tests_suite available *****")
93else
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
104end // du if
105endfunction
106
107function 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
133end // du if
134endfunction
135
136function 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
152endfunction
153
154
155function exec_cmdd(command, choosen_tests_suite)
156rep=tokens(choosen_tests_suite," ")
157for 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)
174end // du forselect command
175
176if 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
191endfunction
192
193
194
195
196
197function affich_date
198w=getdate()
199disp(date() + " "+string(w(7))+" h. "+string(w(8))+" mn. "+string(w(9))+" s. ")
200endfunction
201
202
203function 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
212endfunction
213
214function my_mat = list2mat (my_list)
215my_mat = ['']
216//for k=1:size(my_list,"*")
217for k=1:size(my_list)
218 my_mat (k) = my_list(k)
219end
220endfunction
221
222
223function mat_rep = sel_rep(my_mat)
224 mat_rep = ['']
225// cas d'une liste
226mat_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
235endfunction
236
237function copyftp(param)
238if argn(2)==0 then
239 param = []
240end // du if
241prompt_cmd("copyftp",param,envq_log)
242endfunction
243
244
245function 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&copyftp.bat "+my_cmd)
257 end
258 end
259 endfunction
260
261function ierr=runtest22(varargin)
262// se positionne dans le repertoire de la tests_suite et lance son execution
263ierr=0
264chdir (envq_work)
265disp(varargin)
266// ts_work = list2mat (varargin)
267ts_work = varargin
268disp (typeof(ts_work))
269disp (ts_work)
270pause
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
309disp (" je suis là")
310pause
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
322disp("----")
323
324ts_work = sel_rep(ts_work)
325disp ("ts_work : "+ts_work)
326disp("type : "+typeof(ts_work))
327pause
328
329//if ts_work == [''] then
330if 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")
336else
337disp ("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
352end
353endfunction
354
355
356function displist (tout)
357
358// exemple : displist(["autre?ep";"n*"])
359ierr=0
360//tout = ["autrerep","hif","n*"]
361the_list=[]
362for 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
369end // du for
370
371//pause
372
373the_list2=[]
374for i=1:size(the_list,"*")
375 if isdir (envq_work+the_list(i)) then
376 the_list2 = [the_list2;the_list(i)]
377 end
378end // du for
379
380// pause
381
382for 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)))
395end // du for
396
397
398endfunction
399
400
401function rruntest(varargin)
402
403if 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 " "
410else
411
412disp (length(varargin))
413
414for i=1:length(varargin)
415disp (varargin(i))
416end // du for
417
418my_list=varargin
419
420pause
421
422// exemple : displist(["autre?ep";"n*"])
423ierr=0
424//my_list = ["autrerep","hif","n*"]
425//my_list = listfiles(envq_work+my_list
426the_list=[]
427for 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
435end // du for
436
437disp("ici")
438pause
439
440
441the_list2=[]
442for i=1:size(the_list,"*")
443 if isdir (envq_work+the_list(i)) then
444 the_list2 = [the_list2;the_list(i)]
445 end
446end // du for
447
448disp("là")
449pause
450
451for 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)))
464end // du for
465
466end
467endfunction
468
469function test (str)
470a=[]
471interv=strindex(str," ")
472debut=1
473for i=1:length(interv)
474 a=[a;part(str,[debut:(interv(i))-1])]
475 debut=interv(i)+1
476end
477a=[a;part(str,[debut:length(str)])]
478disp (a)
479
480pause
481
482endfunction
483
484function clearwork (param)
485if argn(2)==0 then
486 param = []
487end // du if
488prompt_cmd("clearwork",param,envq_work)
489endfunction
490
491
492function 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)
505else
506 unix_w ("clearwork" +my_cmd)
507 end
508 end
509endfunction
510
511function clearlog (param)
512if argn(2)==0 then
513 param = []
514end // du if
515prompt_cmd("clearlog",param,envq_log+envq_ver)
516endfunction
517
518
519function XXXXX
520disp ("ici clearlog")
521pause
522if 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
529end //if
530//else
531if MSDOS then
532 unix_w (envq_proc+"init_qualif.bat&clearlog.bat "+my_cmd)
533else
534 unix_w ("clearlog" +my_cmd)
535end
536//end
537graph_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
554endfunction
555
556function 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
572endfunction
573
574
575function dirlog (my_cmd)
576if argn(2)==0 then
577 param = []
578end // du if
579prompt_cmd("clearlog",param,envq_log+envq_ver)
580endfunction
581
582function 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
600endfunction
601
602function 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
620endfunction
621
622
623function 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
644endfunction
645
646
647function copyrun(param)
648if argn(2)==0 then
649 copyftp()
650 runtest()
651else
652 copyftp (param)
653 runtest (""""+param+"""")
654end
655endfunction
656
657
658
659
660function runtest(tout)
661
662if 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 " "
670else
671
672//disp (length(varargin))
673
674//for i=1:length(varargin)
675//disp (varargin(i))
676//end // du for
677
678my_list=tokens(tout," ")
679
680//pause
681
682// exemple : displist(["autre?ep";"n*"])
683ierr=0
684//my_list = ["autrerep","hif","n*"]
685//my_list = listfiles(envq_work+my_list
686the_list=[]
687//for i=1:size(my_list)
688for 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
695end // du for
696
697//disp("ici")
698//pause
699
700
701the_list2=[]
702for i=1:size(the_list,"*")
703 if isdir (envq_work+the_list(i)) then
704 the_list2 = [the_list2;the_list(i)]
705 end
706end // du for
707
708//disp("là")
709//pause
710
711for 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")
733unix_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)))
739end // du for
740
741end
742endfunction
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 @@
1function 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 ???
5tests_suite=""
6select 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
38tests_suite_up_to_date=sort(tests_suite)
39//disp (tests_suite_up_to_date)
40//disp (typeof(tests_suite_up_to_date))
41//pause
42endfunction
43
44function affich_message (graph_affich, texte)
45if graph_affich then
46//afficher message windows pour indiquer pas de batterie dans la liste de selection
47x_message(texte)
48else
49//afficher message prompt pour indiquer pas de batterie dans la liste de selection
50disp(texte)
51end // du if
52endfunction
53
54function 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
73endfunction
74
75function 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
84endfunction
85
86function graph_cmd(command,directory)
87available_tests_suite=find_tests_suite_up_to_date(directory)
88//disp (" toto")
89//pause
90if isempty(available_tests_suite) then
91 affich_message (%t, "***** No tests_suite available *****")
92else
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
103end // du if
104endfunction
105
106function 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
132end // du if
133endfunction
134
135function 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
151endfunction
152
153function tests_suite_without_wildcard = no_wildcard (tests_suite, directory)
154if ~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]
166end // du if
167tests_suite_without_wildcard=sort(tests_suite)
168endfunction
169
170function 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
172the_list=[]
173for 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
179end // du for
180tests_suite_is_directory=the_list
181endfunction
182
183function 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," ")
193disp ("choosen_tests_suite de exec_cmd : "+ choosen_tests_suite)
194//disp ("rep : "+ rep)
195pause
196for 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
213unix_g(os_cmd(sci2exp(MSDOS))(command)+directory+choosen_tests_suite(i))
214
215//*************
216
217end // du for
218
219endfunction
220
221
222function affich_date
223w=getdate()
224disp(date() + " "+string(w(7))+" h. "+string(w(8))+" mn. "+string(w(9))+" s. ")
225endfunction
226
227
228function 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
237endfunction
238
239function my_mat = list2mat (my_list)
240my_mat = ['']
241//for k=1:size(my_list,"*")
242for k=1:size(my_list)
243 my_mat (k) = my_list(k)
244end
245endfunction
246
247
248function mat_rep = sel_rep(my_mat)
249 mat_rep = ['']
250// cas d'une liste
251mat_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
260endfunction
261
262function copyftp(param)
263if argn(2)==0 then
264 param = []
265end // du if
266prompt_cmd("copyftp",param,envq_log)
267endfunction
268
269
270function test (str)
271a=[]
272interv=strindex(str," ")
273debut=1
274for i=1:length(interv)
275 a=[a;part(str,[debut:(interv(i))-1])]
276 debut=interv(i)+1
277end
278a=[a;part(str,[debut:length(str)])]
279disp (a)
280endfunction
281
282function clearwork (param)
283if argn(2)==0 then
284 param = []
285end // du if
286prompt_cmd("clearwork",param,envq_work)
287endfunction
288
289function clearlog (param)
290if argn(2)==0 then
291 param = []
292end // du if
293prompt_cmd("clearlog",param,envq_log+envq_ver)
294endfunction
295
296
297
298function 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
314endfunction
315
316
317function dirlog (my_cmd)
318if argn(2)==0 then
319 param = []
320end // du if
321prompt_cmd("clearlog",param,envq_log+envq_ver)
322endfunction
323
324
325function 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
343endfunction
344
345function copyrun(param)
346if argn(2)==0 then
347 copyftp()
348 runtest()
349else
350 copyftp (param)
351 runtest (""""+param+"""")
352end
353endfunction
354
355
356function runtestXXXXXXXXXXX(tout)
357
358if 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 " "
366else
367
368//disp (length(varargin))
369
370//for i=1:length(varargin)
371//disp (varargin(i))
372//end // du for
373
374my_list=tokens(tout," ")
375
376//pause
377
378// exemple : displist(["autre?ep";"n*"])
379ierr=0
380//my_list = ["autrerep","hif","n*"]
381//my_list = listfiles(envq_work+my_list
382the_list=[]
383//for i=1:size(my_list)
384for 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
391end // du for
392
393//disp("ici")
394//pause
395
396
397the_list2=[]
398for i=1:size(the_list,"*")
399 if isdir (envq_work+the_list(i)) then
400 the_list2 = [the_list2;the_list(i)]
401 end
402end // du for
403
404//disp("là")
405//pause
406
407for 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")
429unix_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)))
435end // du for
436
437end
438endfunction
439
440
441function 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
462endfunction
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
3rem if not "%os%"=="Windows_NT" goto NextStep
4REM --- Section spécifique à Windows NT ---
5rem color 0F
6rem :NextStep
7
8ncftpget -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
3REM --- modifier la couleur et le prompt dos
4color 71
5
6REM --- positionner paths et variables d'environnement
7set envq_qualif=e:\qualif
8set envq_proc=e:\qualif\proc
9set envq_work=e:\qualif\work
10set envq_log=e:\qualif\log
11
12REM --- init version Scilab à tester et path
13call init_version_and_path.bat
14
15REM --- prise en compte de la version Scilab dans le prompt
16rem PROMPT=$C%envq_ver%$F$S$P$G
17
18REM --- modification du titre de la fenetre DOS
19title Env. Qualification Scilab - version %envq_ver%
20
21REM --- création du repertoire version sous le repertoire log
22if not exist %envq_log%\%envq_ver% mkdir %envq_log%\%envq_ver%
23
24REM --- afficher les commandes possibles dans l'environnement de qualification copyftp runtest copyrun
25REM 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
3REM --- modifier la couleur et le prompt dos
4color 71
5
6REM --- positionner paths et variables d'environnement
7set envq_qualif=e:\qualif
8set envq_proc=e:\qualif\proc
9set envq_work=e:\qualif\work
10set envq_log=e:\qualif\log
11
12REM --- init version Scilab à tester et path
13call init_version_and_path.bat
14
15REM --- prise en compte de la version Scilab dans le prompt
16rem PROMPT=$C%envq_ver%$F$S$P$G
17
18REM --- modification du titre de la fenetre DOS
19title Env. Qualification Scilab - version %envq_ver%
20
21REM --- création du repertoire version sous le repertoire log
22if not exist %envq_log%\%envq_ver% mkdir %envq_log%\%envq_ver%
23
24REM --- afficher les commandes possibles dans l'environnement de qualification copyftp runtest copyrun
25REM 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
3REM --- création de la variable d'environnement version de scilab
4set envq_ver=scilab-2.7.2
5
6REM --- ajout dans le path du chemin d'installation de la version de scilab a qualifier et du repertoire ou sont installees les procedures necessaires
7PATH=%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
3rem if not "%os%"=="Windows_NT" goto NextStep
4REM --- Section spécifique à Windows NT ---
5rem color 0F
6rem :NextStep
7if "%1"=="" goto aide
8
9if exist %envq_log%\listfrioul.log erase %envq_log%\listfrioul.log
10
11
12echo construction de la liste des tests_suites disponibles sur frioul ...
13ncftpls -d %envq_log%\listfrioul.log -u qualif -p qualifpwd frioul.inria.fr %envq_work% tests_suite/%1
14
15
16goto the_end
17
18:aide
19echo //
20
21echo //
22echo //
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 @@
1open -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
2function select_tests_suite()
3
4//recuperer les batteries de tests sous qualif/work dans une matrice
5tests_suite=listfiles(basename('e:\qualif\work'));
6tests_suite=listfiles(basename(envq_work));
7
8//parcourir la matrice ainsi créée et charger les listes pour le menu de selection des batteries
9the_list=('')
10for i=1:size(tests_suite,"*")
11the_list(i)=list(tests_suite(i),1,['Non','Oui']);
12end // du for
13rep=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
19endfunction
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)))]