summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorPierre Marechal <pierre.marechal@scilab.org>2007-05-23 14:59:20 +0000
committerPierre Marechal <pierre.marechal@scilab.org>2007-05-23 14:59:20 +0000
commit4bdd4c410263960264aebf04220d6c28d357d3db (patch)
treecb122a2b6df95bec22cb6de40e85ebe3511dfbaa /tests
parent8a582d34195882c053081d6bc5b25813d4ea581b (diff)
downloadscilab-4bdd4c410263960264aebf04220d6c28d357d3db.zip
scilab-4bdd4c410263960264aebf04220d6c28d357d3db.tar.gz
Fix the test
Diffstat (limited to 'tests')
-rw-r--r--tests/nonRegression/nonRegression_tests_version_27/before_nonreg_3.sce348
1 files changed, 185 insertions, 163 deletions
diff --git a/tests/nonRegression/nonRegression_tests_version_27/before_nonreg_3.sce b/tests/nonRegression/nonRegression_tests_version_27/before_nonreg_3.sce
index a5611f6..ce8bd1b 100644
--- a/tests/nonRegression/nonRegression_tests_version_27/before_nonreg_3.sce
+++ b/tests/nonRegression/nonRegression_tests_version_27/before_nonreg_3.sce
@@ -1,163 +1,185 @@
1 // before_nonreg_3 tests_suite 1 // before_nonreg_3 tests_suite
2 // check old bugs 2 // check old bugs
3 3
4 mode (-1) 4 mode (-1)
5 //getf ('../fonct_qualif.sci')////////////////////// 5
6 6 // ========================================================================
7 //*************************************************** 7 // bug A
8 // bugA 8 // ========================================================================
9 affich_result((and((1&[1,0,1;1,1,0])==([%T,%F,%T;%T,%T,%F]))), "A"); 9
10 10 affich_result((and((1&[1,0,1;1,1,0])==([%T,%F,%T;%T,%T,%F]))), "A");
11 //*************************************************** 11
12 // bugAA 12 // ========================================================================
13 affich_result(and((1|[1,0,1;1,1,0])==[%T,%T,%T;%T,%T,%T]), "AA"); 13 // bug AA
14 14 // ========================================================================
15 //*************************************************** 15
16 // bugB 16 affich_result(and((1|[1,0,1;1,1,0])==[%T,%T,%T;%T,%T,%T]), "AA");
17 files = [''] 17
18 files=listfiles([SCI+'/macros/scicos/*.cosf']) 18 // ========================================================================
19 affich_result(files <> [''], "B"); 19 // bug B
20 clear files; 20 // ========================================================================
21 21
22 //*************************************************** 22 files = ['']
23 // bugC 23 files = listfiles([SCI+'/macros/scicos/*.cosf'])
24 affich_result(isnan(1:%nan), "C"); 24 affich_result(files <> [''], "B");
25 25 clear files;
26 //*************************************************** 26
27 // bugD 27 // ========================================================================
28 affich_result((and(cumprod([1+1*%i,2+2*%i,3+3*%i])==cumprod([1+1*%i,2+2*%i,3+3*%i],2))), "D") 28 // bugC
29 29 // ========================================================================
30//La fonction cumprod() donne des résultats érronés pour les complexes. 30
31// 31 affich_result(isnan(1:%nan), "C");
32// Exemple : 32
33// -->res1 = cumprod([1+1*%i,2+2*%i,3+3*%i]) 33 // ========================================================================
34// res1 = 34 // bug D
35// 35 // ========================================================================
36// ! 1. + i 2. + 2.i 6. + 6.i ! 36
37// 37 affich_result((and(cumprod([1+1*%i,2+2*%i,3+3*%i])==cumprod([1+1*%i,2+2*%i,3+3*%i],2))), "D")
38// Alors que l'on devrait avoir : 38
39// 39 //La fonction cumprod() donne des résultats érronés pour les complexes.
40// res1 = 40 //
41// 41 // Exemple :
42// ! 1. + i 4.i - 12. + 12.i ! 42 // -->res1 = cumprod([1+1*%i,2+2*%i,3+3*%i])
43// 43 // res1 =
44 44 //
45 45 // ! 1. + i 2. + 2.i 6. + 6.i !
46 //*************************************************** 46 //
47 // bugE 47 // Alors que l'on devrait avoir :
48 [q,r]=qr((1:3)') 48 //
49 affich_result(((r(2)==0)&(r(3)==0)), "E"); 49 // res1 =
50 clear r 50 //
51 clear q 51 // ! 1. + i 4.i - 12. + 12.i !
52// La matrice triangulaire supérieure renvoyée par cette fonction contient 52 //
53// des valeurs non nulles en dessous de la diagonale : 53
54// 54
55// -->[Q,R]=qr([1,2,3]') 55 // ========================================================================
56// R = 56 // bug E
57// ! - 3.7416574 ! 57 // ========================================================================
58// ! 4.881-313 ! // !!!!! 58
59// ! 6.154-313 ! // !!!!! 59 [q,r]=qr((1:3)')
60// 60 affich_result(((r(2)==0)&(r(3)==0)), "E");
61// 61 clear r
62// Q = 62 clear q
63// ! - 0.2672612 - 0.5345225 - 0.8017837 ! 63
64// ! - 0.5345225 0.7745419 - 0.3381871 ! 64 // La matrice triangulaire supérieure renvoyée par cette fonction contient
65// ! - 0.8017837 - 0.3381871 0.4927193 ! 65 // des valeurs non nulles en dessous de la diagonale :
66// 66 //
67 67 // -->[Q,R]=qr([1,2,3]')
68 68 // R =
69 //*************************************************** 69 // ! - 3.7416574 !
70 // bugF 70 // ! 4.881-313 ! // !!!!!
71 correct = %F 71 // ! 6.154-313 ! // !!!!!
72 I=0; 72 //
73 while 1 73 //
74 printf('Dans le while principal I='+string(I)+'\n') 74 // Q =
75 while 1 75 // ! - 0.2672612 - 0.5345225 - 0.8017837 !
76 break; 76 // ! - 0.5345225 0.7745419 - 0.3381871 !
77 end 77 // ! - 0.8017837 - 0.3381871 0.4927193 !
78 // les lignes suivantes ne sont jamais executes !!!!!! 78 //
79 correct = %T 79
80 I=I+1; 80
81 if I >= 5 then break; end 81 // ========================================================================
82 end 82 // bugF
83 83 // ========================================================================
84 affich_result(correct, "F") 84 correct = %F
85 clear correct 85 I=0;
86 //La raison : c'est un cas non prevu le break est appele par while sans un if dans ce cas le while ne sert a rien. 86 while 1
87 87 printf('Dans le while principal I='+string(I)+'\n')
88 //*************************************************** 88 while 1
89 // bugG 89 break;
90 result=execstr("contour2d(1:10,1:10,rand(10,10),[0.1 0.5 0.9])","errcatch","n") 90 end
91 if result==0 then 91 // les lignes suivantes ne sont jamais executes !!!!!!
92 affich_result(%T, "G"); 92 correct = %T
93 else 93 I=I+1;
94 affich_result(%F, "G"); 94 if I >= 5 then break; end
95 disp ("Error n° "+string(result)"+" sur bugG") 95 end
96 disp (lasterror()); 96
97 end 97 affich_result(correct, "F")
98 xdel() 98 clear correct
99 clear result; 99 // La raison : c'est un cas non prevu le break est appele par while sans un
100 // 100 // if dans ce cas le while ne sert a rien.
101 // Une option de contour2d a ete oubliee dans la version 2.7 101
102 102 // ========================================================================
103 //*************************************************** 103 // bug G
104 // bugH 104 // ========================================================================
105 // it is not a bug, it is not yet implemented 105
106 // restart command does not exist with the keyboard 106 result=execstr("contour2d(1:10,1:10,rand(10,10),[0.1 0.5 0.9])","errcatch","n")
107 //result =execstr("restart","errcatch","n") 107 if result==0 then
108 //if result==0 then 108 affich_result(%T, "G");
109 // affich_result(%T, "H"); 109 else
110 //else 110 affich_result(%F, "G");
111 // affich_result(%F, "H"); 111 disp ("Error n° "+string(result)+" sur bugG")
112 // disp ("Error n° "+string(result)"+" sur bugH") 112 disp (lasterror());
113 // disp (lasterror()); 113 end
114 //end 114 xdel()
115 //clear result; 115 clear result;
116 116
117 //*************************************************** 117
118 // bugI 118 // Une option de contour2d a ete oubliee dans la version 2.7
119 result =execstr("comp(beurk)","errcatch","n") 119
120 if result==4 then 120 // ========================================================================
121 affich_result(%T, "I"); 121 // bug H
122 else 122 // ========================================================================
123 affich_result(%F, "I"); 123 // it is not a bug, it is not yet implemented
124 disp ("Error n° "+string(result)"+" sur bugI") 124 // restart command does not exist with the keyboard
125 disp (lasterror()); 125 //result =execstr("restart","errcatch","n")
126 end 126 //if result==0 then
127 clear result; 127 // affich_result(%T, "H");
128 128 //else
129 //*************************************************** 129 // affich_result(%F, "H");
130 // bugJ 130 // disp ("Error n° "+string(result)"+" sur bugH")
131 // crash Scilab 131 // disp (lasterror());
132 132 //end
133 // function toto() 133 //clear result;
134 // N 134
135 // endfunction 135 // ========================================================================
136 136 // bug I
137 // -->N 137 // ========================================================================
138 // !--error 4 138
139 // undefined variable : N 139 result =execstr("comp(beurk)","errcatch","n")
140 140 if result==4 then
141 // result=execstr('toto()','errcatch') 141 affich_result(%T, "I");
142 142 else
143 // Error Message: 143 affich_result(%F, "I");
144 144 disp ("Error n° "+string(result)+" sur bugI")
145 // !--error 22 145 disp (lasterror());
146 // recursion problems. Sorry.... 146 end
147 147 clear result;
148 148
149 // warning: recursion problem..., cleared 149 // ========================================================================
150 150 // bug G
151 //*************************************************** 151 // ========================================================================
152 // bugK 152 // crash Scilab
153 153
154 mode (-1) 154 // function toto()
155 clear all 155 // N
156 156 // endfunction
157 x='a' 157
158 z=x($:-1:1) 158 // -->N
159 affich_result(z=='a', "K") 159 // !--error 4
160 160 // undefined variable : N
161 clear all 161
162 162 // result=execstr('toto()','errcatch')
163 //*************************************************** 163
164 // Error Message:
165
166 // !--error 22
167 // recursion problems. Sorry....
168
169
170 // warning: recursion problem..., cleared
171
172 // ========================================================================
173 // bug K
174 // ========================================================================
175
176 mode (-1)
177 clear all
178
179 x='a'
180 z=x($:-1:1)
181 affich_result(z=='a', "K")
182
183 clear all
184
185 // ========================================================================