7017
|
1 ## Copyright (C) 2006, 2007 John W. Eaton |
7016
|
2 ## |
|
3 ## This file is part of Octave. |
|
4 ## |
|
5 ## Octave is free software; you can redistribute it and/or modify it |
|
6 ## under the terms of the GNU General Public License as published by |
|
7 ## the Free Software Foundation; either version 3 of the License, or (at |
|
8 ## your option) any later version. |
|
9 ## |
|
10 ## Octave is distributed in the hope that it will be useful, but |
|
11 ## WITHOUT ANY WARRANTY; without even the implied warranty of |
|
12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
|
13 ## General Public License for more details. |
|
14 ## |
|
15 ## You should have received a copy of the GNU General Public License |
|
16 ## along with Octave; see the file COPYING. If not, see |
|
17 ## <http://www.gnu.org/licenses/>. |
|
18 |
5590
|
19 %% Automatically generated from DejaGNU files |
|
20 |
|
21 %% test/octave.test/index-wfi-t/s-1.m |
|
22 %!test |
5781
|
23 %! wfi = warning ("query", "Octave:fortran-indexing"); |
5590
|
24 %! warn_fortran_indexing = 1; |
|
25 %! a = []; |
|
26 %! assert(isempty (a)); |
5781
|
27 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
28 |
|
29 %% test/octave.test/index-wfi-t/s-2.m |
|
30 %!test |
5781
|
31 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
32 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
33 %! a = 1; |
|
34 %! assert(a(1),1); |
5781
|
35 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
36 |
|
37 %% test/octave.test/index-wfi-t/s-3.m |
|
38 %!test |
5781
|
39 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
40 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
41 %! a = 1; |
|
42 %! assert(a(:),1); |
5781
|
43 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
44 |
|
45 %% test/octave.test/index-wfi-t/s-4.m |
|
46 %!test |
5781
|
47 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
48 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
49 %! a = 1; |
|
50 %! assert(a(:,:),1); |
5781
|
51 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
52 |
|
53 %% test/octave.test/index-wfi-t/s-5.m |
|
54 %!test |
5781
|
55 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
56 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
57 %! a = 1; |
|
58 %! assert(a(1,:),1); |
5781
|
59 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
60 |
|
61 %% test/octave.test/index-wfi-t/s-6.m |
|
62 %!test |
5781
|
63 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
64 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
65 %! a = 1; |
|
66 %! assert(a(:,1),1); |
5781
|
67 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
68 |
|
69 %% test/octave.test/index-wfi-t/s-7.m |
|
70 %!test |
5781
|
71 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
72 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
73 %! a = 1; |
|
74 %! assert(isempty (a(logical (0)))); |
5781
|
75 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
76 |
|
77 %% test/octave.test/index-wfi-t/s-8.m |
|
78 %!test |
5781
|
79 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
80 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
81 %! a = 1; |
|
82 %! fail("a(-1);"); |
5781
|
83 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
84 |
|
85 %% test/octave.test/index-wfi-t/s-9.m |
|
86 %!test |
5781
|
87 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
88 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
89 %! a = 1; |
|
90 %! fail("a(2);"); |
5781
|
91 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
92 |
|
93 %% test/octave.test/index-wfi-t/s-10.m |
|
94 %!test |
5781
|
95 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
96 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
97 %! a = 1; |
|
98 %! fail("a(2,:);"); |
5781
|
99 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
100 |
|
101 %% test/octave.test/index-wfi-t/s-11.m |
|
102 %!test |
5781
|
103 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
104 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
105 %! a = 1; |
|
106 %! fail("a(:,2);"); |
5781
|
107 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
108 |
|
109 %% test/octave.test/index-wfi-t/s-12.m |
|
110 %!test |
5781
|
111 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
112 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
113 %! a = 1; |
|
114 %! fail("a(-1,:);"); |
5781
|
115 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
116 |
|
117 %% test/octave.test/index-wfi-t/s-13.m |
|
118 %!test |
5781
|
119 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
120 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
121 %! a = 1; |
|
122 %! fail("a(:,-1);"); |
5781
|
123 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
124 |
|
125 %% test/octave.test/index-wfi-t/s-14.m |
|
126 %!test |
5781
|
127 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
128 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
129 %! a = 1; |
|
130 %! fail("a([1,2,3]);"); |
5781
|
131 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
132 |
|
133 %% test/octave.test/index-wfi-t/s-15.m |
|
134 %!test |
5781
|
135 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
136 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
137 %! a = 1; |
|
138 %! fail("a([1;2;3]);"); |
5781
|
139 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
140 |
|
141 %% test/octave.test/index-wfi-t/s-16.m |
|
142 %!test |
5781
|
143 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
144 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
145 %! a = 1; |
|
146 %! fail("a([1,2;3,4]);"); |
5781
|
147 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
148 |
|
149 %% test/octave.test/index-wfi-t/s-17.m |
|
150 %!test |
5781
|
151 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
152 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
153 %! a = 1; |
|
154 %! fail("a([0,1]);"); |
5781
|
155 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
156 |
|
157 %% test/octave.test/index-wfi-t/s-18.m |
|
158 %!test |
5781
|
159 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
160 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
161 %! a = 1; |
|
162 %! fail("a([0;1]);"); |
5781
|
163 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
164 |
|
165 %% test/octave.test/index-wfi-t/s-19.m |
|
166 %!test |
5781
|
167 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
168 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
169 %! a = 1; |
|
170 %! fail("a([-1,0]);"); |
5781
|
171 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
172 |
|
173 %% test/octave.test/index-wfi-t/s-20.m |
|
174 %!test |
5781
|
175 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
176 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
177 %! a = 1; |
|
178 %! fail("a([-1;0]);"); |
5781
|
179 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
180 |
|
181 %% test/octave.test/index-wfi-t/v-1.m |
|
182 %!test |
5781
|
183 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
184 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
185 %! a = [4,3,2,1]; |
|
186 %! a_prime = [4;3;2;1]; |
|
187 %! mid_a = [3,2]; |
|
188 %! assert(a(1),4); |
5781
|
189 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
190 |
|
191 %% test/octave.test/index-wfi-t/v-2.m |
|
192 %!test |
5781
|
193 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
194 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
195 %! a = [4,3,2,1]; |
|
196 %! a_prime = [4;3;2;1]; |
|
197 %! mid_a = [3,2]; |
|
198 %! assert(a(2),3); |
5781
|
199 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
200 |
|
201 %% test/octave.test/index-wfi-t/v-3.m |
|
202 %!test |
5781
|
203 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
204 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
205 %! a = [4,3,2,1]; |
|
206 %! a_prime = [4;3;2;1]; |
|
207 %! mid_a = [3,2]; |
|
208 %! assert(all (a(:) == a_prime)); |
5781
|
209 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
210 |
|
211 %% test/octave.test/index-wfi-t/v-4.m |
|
212 %!test |
5781
|
213 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
214 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
215 %! a = [4,3,2,1]; |
|
216 %! a_prime = [4;3;2;1]; |
|
217 %! mid_a = [3,2]; |
|
218 %! assert(all (a(1,:) == a)); |
5781
|
219 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
220 |
|
221 %% test/octave.test/index-wfi-t/v-5.m |
|
222 %!test |
5781
|
223 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
224 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
225 %! a = [4,3,2,1]; |
|
226 %! a_prime = [4;3;2;1]; |
|
227 %! mid_a = [3,2]; |
|
228 %! assert(a(:,3),2); |
5781
|
229 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
230 |
|
231 %% test/octave.test/index-wfi-t/v-6.m |
|
232 %!test |
5781
|
233 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
234 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
235 %! a = [4,3,2,1]; |
|
236 %! a_prime = [4;3;2;1]; |
|
237 %! mid_a = [3,2]; |
|
238 %! assert(all (a(:,:) == a)); |
5781
|
239 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
240 |
|
241 %% test/octave.test/index-wfi-t/v-7.m |
|
242 %!test |
5781
|
243 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
244 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
245 %! a = [4,3,2,1]; |
|
246 %! a_prime = [4;3;2;1]; |
|
247 %! mid_a = [3,2]; |
|
248 %! assert(all (a(logical ([0,1,1,0])) == mid_a)); |
5781
|
249 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
250 |
|
251 %% test/octave.test/index-wfi-t/v-8.m |
|
252 %!test |
5781
|
253 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
254 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
255 %! a = [4,3,2,1]; |
|
256 %! a_prime = [4;3;2;1]; |
|
257 %! mid_a = [3,2]; |
|
258 %! fail("a(0);"); |
5781
|
259 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
260 |
|
261 %% test/octave.test/index-wfi-t/v-9.m |
|
262 %!test |
5781
|
263 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
264 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
265 %! a = [4,3,2,1]; |
|
266 %! a_prime = [4;3;2;1]; |
|
267 %! mid_a = [3,2]; |
|
268 %! fail("a(5);"); |
5781
|
269 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
270 |
|
271 %% test/octave.test/index-wfi-t/v-10.m |
|
272 %!test |
5781
|
273 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
274 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
275 %! a = [4,3,2,1]; |
|
276 %! a_prime = [4;3;2;1]; |
|
277 %! mid_a = [3,2]; |
|
278 %! fail("a(0,1);"); |
5781
|
279 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
280 |
|
281 %% test/octave.test/index-wfi-t/v-11.m |
|
282 %!test |
5781
|
283 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
284 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
285 %! a = [4,3,2,1]; |
|
286 %! a_prime = [4;3;2;1]; |
|
287 %! mid_a = [3,2]; |
|
288 %! assert(isempty (a(logical (0),:))); |
5781
|
289 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
290 |
|
291 %% test/octave.test/index-wfi-t/v-12.m |
|
292 %!test |
5781
|
293 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
294 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
295 %! a = [4,3,2,1]; |
|
296 %! a_prime = [4;3;2;1]; |
|
297 %! mid_a = [3,2]; |
|
298 %! fail("a(:,0);"); |
5781
|
299 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
300 |
|
301 %% test/octave.test/index-wfi-t/v-13.m |
|
302 %!test |
5781
|
303 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
304 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
305 %! a = [4,3,2,1]; |
|
306 %! a_prime = [4;3;2;1]; |
|
307 %! mid_a = [3,2]; |
|
308 %! assert(isempty (a([]))); |
5781
|
309 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
310 |
|
311 %% test/octave.test/index-wfi-t/v-14.m |
|
312 %!test |
5781
|
313 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
314 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
315 %! a = [4,3,2,1]; |
|
316 %! a_prime = [4;3;2;1]; |
|
317 %! mid_a = [3,2]; |
|
318 %! assert(isempty (a([],:))); |
5781
|
319 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
320 |
|
321 %% test/octave.test/index-wfi-t/v-15.m |
|
322 %!test |
5781
|
323 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
324 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
325 %! a = [4,3,2,1]; |
|
326 %! a_prime = [4;3;2;1]; |
|
327 %! mid_a = [3,2]; |
|
328 %! assert(isempty (a(:,[]))); |
5781
|
329 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
330 |
|
331 %% test/octave.test/index-wfi-t/m-1.m |
|
332 %!test |
5781
|
333 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
334 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
335 %! a = [1,2;3,4]; |
|
336 %! a_fvec = [1;3;2;4]; |
|
337 %! a_col_1 = [1;3]; |
|
338 %! a_col_2 = [2;4]; |
|
339 %! a_row_1 = [1,2]; |
|
340 %! a_row_2 = [3,4]; |
|
341 %! assert(all (all (a(:,:) == a))); |
5781
|
342 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
343 |
|
344 %% test/octave.test/index-wfi-t/m-2.m |
|
345 %!test |
5781
|
346 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
347 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
348 %! a = [1,2;3,4]; |
|
349 %! a_fvec = [1;3;2;4]; |
|
350 %! a_col_1 = [1;3]; |
|
351 %! a_col_2 = [2;4]; |
|
352 %! a_row_1 = [1,2]; |
|
353 %! a_row_2 = [3,4]; |
|
354 %! assert(all (a(:) == a_fvec)); |
5781
|
355 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
356 |
|
357 %% test/octave.test/index-wfi-t/m-3.m |
|
358 %!test |
5781
|
359 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
360 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
361 %! a = [1,2;3,4]; |
|
362 %! a_fvec = [1;3;2;4]; |
|
363 %! a_col_1 = [1;3]; |
|
364 %! a_col_2 = [2;4]; |
|
365 %! a_row_1 = [1,2]; |
|
366 %! a_row_2 = [3,4]; |
|
367 %! fail("a(0);"); |
5781
|
368 %! warning ("wfi.state", "Octave:fortran-indexing"); |
5590
|
369 |
|
370 %% test/octave.test/index-wfi-t/m-4.m |
|
371 %!test |
5781
|
372 %! wfi = warning ("query", "Octave:fortran-indexing"); |
|
373 %! warning ("on", "Octave:fortran-indexing"); |
5590
|
374 %! a = [1,2;3,4]; |
|
375 %! a_fvec = [1;3;2;4]; |
|
376 %! a_col_1 = [1;3]; |
|
377 %! a_col_2 = [2;4]; |
|
378 %! a_row_1 = [1,2]; |
|
379 %! a_row_2 = [3,4]; |
|
380 %! fail("a(2);","warning"); |
5781
|
381 %! warning ("wfi.state", "Octave:fortran-indexing"); |