← Back to branch summary

~ubuntu-branches/debian/sid/octave3.0/sid

« back to all changes in this revision

Viewing changes to test/test_index-wfi-t.m

  • Committer: Bazaar Package Importer
  • Author(s): Rafael Laboissiere
  • Date: 2007-12-23 16:04:15 UTC
  • Revision ID: james.westby@ubuntu.com-20071223160415-n4gk468dihy22e9v
Tags: upstream-3.0.0
Import upstream version 3.0.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
test/test_index-wfi-t.m
 
1
## Copyright (C) 2006, 2007 John W. Eaton
 
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
 
 
19
%% Automatically generated from DejaGNU files
 
20
 
 
21
%% test/octave.test/index-wfi-t/s-1.m
 
22
%!test
 
23
%! wfi = warning ("query", "Octave:fortran-indexing");
 
24
%! warn_fortran_indexing = 1;
 
25
%! a = [];
 
26
%! assert(isempty (a));
 
27
%! warning ("wfi.state", "Octave:fortran-indexing");
 
28
 
 
29
%% test/octave.test/index-wfi-t/s-2.m
 
30
%!test
 
31
%! wfi = warning ("query", "Octave:fortran-indexing");
 
32
%! warning ("on", "Octave:fortran-indexing");
 
33
%! a = 1;
 
34
%! assert(a(1),1);
 
35
%! warning ("wfi.state", "Octave:fortran-indexing");
 
36
 
 
37
%% test/octave.test/index-wfi-t/s-3.m
 
38
%!test
 
39
%! wfi = warning ("query", "Octave:fortran-indexing");
 
40
%! warning ("on", "Octave:fortran-indexing");
 
41
%! a = 1;
 
42
%! assert(a(:),1);
 
43
%! warning ("wfi.state", "Octave:fortran-indexing");
 
44
 
 
45
%% test/octave.test/index-wfi-t/s-4.m
 
46
%!test
 
47
%! wfi = warning ("query", "Octave:fortran-indexing");
 
48
%! warning ("on", "Octave:fortran-indexing");
 
49
%! a = 1;
 
50
%! assert(a(:,:),1);
 
51
%! warning ("wfi.state", "Octave:fortran-indexing");
 
52
 
 
53
%% test/octave.test/index-wfi-t/s-5.m
 
54
%!test
 
55
%! wfi = warning ("query", "Octave:fortran-indexing");
 
56
%! warning ("on", "Octave:fortran-indexing");
 
57
%! a = 1;
 
58
%! assert(a(1,:),1);
 
59
%! warning ("wfi.state", "Octave:fortran-indexing");
 
60
 
 
61
%% test/octave.test/index-wfi-t/s-6.m
 
62
%!test
 
63
%! wfi = warning ("query", "Octave:fortran-indexing");
 
64
%! warning ("on", "Octave:fortran-indexing");
 
65
%! a = 1;
 
66
%! assert(a(:,1),1);
 
67
%! warning ("wfi.state", "Octave:fortran-indexing");
 
68
 
 
69
%% test/octave.test/index-wfi-t/s-7.m
 
70
%!test
 
71
%! wfi = warning ("query", "Octave:fortran-indexing");
 
72
%! warning ("on", "Octave:fortran-indexing");
 
73
%! a = 1;
 
74
%! assert(isempty (a(logical (0))));
 
75
%! warning ("wfi.state", "Octave:fortran-indexing");
 
76
 
 
77
%% test/octave.test/index-wfi-t/s-8.m
 
78
%!test
 
79
%! wfi = warning ("query", "Octave:fortran-indexing");
 
80
%! warning ("on", "Octave:fortran-indexing");
 
81
%! a = 1;
 
82
%! fail("a(-1);");
 
83
%! warning ("wfi.state", "Octave:fortran-indexing");
 
84
 
 
85
%% test/octave.test/index-wfi-t/s-9.m
 
86
%!test
 
87
%! wfi = warning ("query", "Octave:fortran-indexing");
 
88
%! warning ("on", "Octave:fortran-indexing");
 
89
%! a = 1;
 
90
%! fail("a(2);");
 
91
%! warning ("wfi.state", "Octave:fortran-indexing");
 
92
 
 
93
%% test/octave.test/index-wfi-t/s-10.m
 
94
%!test
 
95
%! wfi = warning ("query", "Octave:fortran-indexing");
 
96
%! warning ("on", "Octave:fortran-indexing");
 
97
%! a = 1;
 
98
%! fail("a(2,:);");
 
99
%! warning ("wfi.state", "Octave:fortran-indexing");
 
100
 
 
101
%% test/octave.test/index-wfi-t/s-11.m
 
102
%!test
 
103
%! wfi = warning ("query", "Octave:fortran-indexing");
 
104
%! warning ("on", "Octave:fortran-indexing");
 
105
%! a = 1;
 
106
%! fail("a(:,2);");
 
107
%! warning ("wfi.state", "Octave:fortran-indexing");
 
108
 
 
109
%% test/octave.test/index-wfi-t/s-12.m
 
110
%!test
 
111
%! wfi = warning ("query", "Octave:fortran-indexing");
 
112
%! warning ("on", "Octave:fortran-indexing");
 
113
%! a = 1;
 
114
%! fail("a(-1,:);");
 
115
%! warning ("wfi.state", "Octave:fortran-indexing");
 
116
 
 
117
%% test/octave.test/index-wfi-t/s-13.m
 
118
%!test
 
119
%! wfi = warning ("query", "Octave:fortran-indexing");
 
120
%! warning ("on", "Octave:fortran-indexing");
 
121
%! a = 1;
 
122
%! fail("a(:,-1);");
 
123
%! warning ("wfi.state", "Octave:fortran-indexing");
 
124
 
 
125
%% test/octave.test/index-wfi-t/s-14.m
 
126
%!test
 
127
%! wfi = warning ("query", "Octave:fortran-indexing");
 
128
%! warning ("on", "Octave:fortran-indexing");
 
129
%! a = 1;
 
130
%! fail("a([1,2,3]);");
 
131
%! warning ("wfi.state", "Octave:fortran-indexing");
 
132
 
 
133
%% test/octave.test/index-wfi-t/s-15.m
 
134
%!test
 
135
%! wfi = warning ("query", "Octave:fortran-indexing");
 
136
%! warning ("on", "Octave:fortran-indexing");
 
137
%! a = 1;
 
138
%! fail("a([1;2;3]);");
 
139
%! warning ("wfi.state", "Octave:fortran-indexing");
 
140
 
 
141
%% test/octave.test/index-wfi-t/s-16.m
 
142
%!test
 
143
%! wfi = warning ("query", "Octave:fortran-indexing");
 
144
%! warning ("on", "Octave:fortran-indexing");
 
145
%! a = 1;
 
146
%! fail("a([1,2;3,4]);");
 
147
%! warning ("wfi.state", "Octave:fortran-indexing");
 
148
 
 
149
%% test/octave.test/index-wfi-t/s-17.m
 
150
%!test
 
151
%! wfi = warning ("query", "Octave:fortran-indexing");
 
152
%! warning ("on", "Octave:fortran-indexing");
 
153
%! a = 1;
 
154
%! fail("a([0,1]);");
 
155
%! warning ("wfi.state", "Octave:fortran-indexing");
 
156
 
 
157
%% test/octave.test/index-wfi-t/s-18.m
 
158
%!test
 
159
%! wfi = warning ("query", "Octave:fortran-indexing");
 
160
%! warning ("on", "Octave:fortran-indexing");
 
161
%! a = 1;
 
162
%! fail("a([0;1]);");
 
163
%! warning ("wfi.state", "Octave:fortran-indexing");
 
164
 
 
165
%% test/octave.test/index-wfi-t/s-19.m
 
166
%!test
 
167
%! wfi = warning ("query", "Octave:fortran-indexing");
 
168
%! warning ("on", "Octave:fortran-indexing");
 
169
%! a = 1;
 
170
%! fail("a([-1,0]);");
 
171
%! warning ("wfi.state", "Octave:fortran-indexing");
 
172
 
 
173
%% test/octave.test/index-wfi-t/s-20.m
 
174
%!test
 
175
%! wfi = warning ("query", "Octave:fortran-indexing");
 
176
%! warning ("on", "Octave:fortran-indexing");
 
177
%! a = 1;
 
178
%! fail("a([-1;0]);");
 
179
%! warning ("wfi.state", "Octave:fortran-indexing");
 
180
 
 
181
%% test/octave.test/index-wfi-t/v-1.m
 
182
%!test
 
183
%! wfi = warning ("query", "Octave:fortran-indexing");
 
184
%! warning ("on", "Octave:fortran-indexing");
 
185
%! a = [4,3,2,1];
 
186
%! a_prime = [4;3;2;1];
 
187
%! mid_a = [3,2];
 
188
%! assert(a(1),4);
 
189
%! warning ("wfi.state", "Octave:fortran-indexing");
 
190
 
 
191
%% test/octave.test/index-wfi-t/v-2.m
 
192
%!test
 
193
%! wfi = warning ("query", "Octave:fortran-indexing");
 
194
%! warning ("on", "Octave:fortran-indexing");
 
195
%! a = [4,3,2,1];
 
196
%! a_prime = [4;3;2;1];
 
197
%! mid_a = [3,2];
 
198
%! assert(a(2),3);
 
199
%! warning ("wfi.state", "Octave:fortran-indexing");
 
200
 
 
201
%% test/octave.test/index-wfi-t/v-3.m
 
202
%!test
 
203
%! wfi = warning ("query", "Octave:fortran-indexing");
 
204
%! warning ("on", "Octave:fortran-indexing");
 
205
%! a = [4,3,2,1];
 
206
%! a_prime = [4;3;2;1];
 
207
%! mid_a = [3,2];
 
208
%! assert(all (a(:) == a_prime));
 
209
%! warning ("wfi.state", "Octave:fortran-indexing");
 
210
 
 
211
%% test/octave.test/index-wfi-t/v-4.m
 
212
%!test
 
213
%! wfi = warning ("query", "Octave:fortran-indexing");
 
214
%! warning ("on", "Octave:fortran-indexing");
 
215
%! a = [4,3,2,1];
 
216
%! a_prime = [4;3;2;1];
 
217
%! mid_a = [3,2];
 
218
%! assert(all (a(1,:) == a));
 
219
%! warning ("wfi.state", "Octave:fortran-indexing");
 
220
 
 
221
%% test/octave.test/index-wfi-t/v-5.m
 
222
%!test
 
223
%! wfi = warning ("query", "Octave:fortran-indexing");
 
224
%! warning ("on", "Octave:fortran-indexing");
 
225
%! a = [4,3,2,1];
 
226
%! a_prime = [4;3;2;1];
 
227
%! mid_a = [3,2];
 
228
%! assert(a(:,3),2);
 
229
%! warning ("wfi.state", "Octave:fortran-indexing");
 
230
 
 
231
%% test/octave.test/index-wfi-t/v-6.m
 
232
%!test
 
233
%! wfi = warning ("query", "Octave:fortran-indexing");
 
234
%! warning ("on", "Octave:fortran-indexing");
 
235
%! a = [4,3,2,1];
 
236
%! a_prime = [4;3;2;1];
 
237
%! mid_a = [3,2];
 
238
%! assert(all (a(:,:) == a));
 
239
%! warning ("wfi.state", "Octave:fortran-indexing");
 
240
 
 
241
%% test/octave.test/index-wfi-t/v-7.m
 
242
%!test
 
243
%! wfi = warning ("query", "Octave:fortran-indexing");
 
244
%! warning ("on", "Octave:fortran-indexing");
 
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));
 
249
%! warning ("wfi.state", "Octave:fortran-indexing");
 
250
 
 
251
%% test/octave.test/index-wfi-t/v-8.m
 
252
%!test
 
253
%! wfi = warning ("query", "Octave:fortran-indexing");
 
254
%! warning ("on", "Octave:fortran-indexing");
 
255
%! a = [4,3,2,1];
 
256
%! a_prime = [4;3;2;1];
 
257
%! mid_a = [3,2];
 
258
%! fail("a(0);");
 
259
%! warning ("wfi.state", "Octave:fortran-indexing");
 
260
 
 
261
%% test/octave.test/index-wfi-t/v-9.m
 
262
%!test
 
263
%! wfi = warning ("query", "Octave:fortran-indexing");
 
264
%! warning ("on", "Octave:fortran-indexing");
 
265
%! a = [4,3,2,1];
 
266
%! a_prime = [4;3;2;1];
 
267
%! mid_a = [3,2];
 
268
%! fail("a(5);");
 
269
%! warning ("wfi.state", "Octave:fortran-indexing");
 
270
 
 
271
%% test/octave.test/index-wfi-t/v-10.m
 
272
%!test
 
273
%! wfi = warning ("query", "Octave:fortran-indexing");
 
274
%! warning ("on", "Octave:fortran-indexing");
 
275
%! a = [4,3,2,1];
 
276
%! a_prime = [4;3;2;1];
 
277
%! mid_a = [3,2];
 
278
%! fail("a(0,1);");
 
279
%! warning ("wfi.state", "Octave:fortran-indexing");
 
280
 
 
281
%% test/octave.test/index-wfi-t/v-11.m
 
282
%!test
 
283
%! wfi = warning ("query", "Octave:fortran-indexing");
 
284
%! warning ("on", "Octave:fortran-indexing");
 
285
%! a = [4,3,2,1];
 
286
%! a_prime = [4;3;2;1];
 
287
%! mid_a = [3,2];
 
288
%! assert(isempty (a(logical (0),:)));
 
289
%! warning ("wfi.state", "Octave:fortran-indexing");
 
290
 
 
291
%% test/octave.test/index-wfi-t/v-12.m
 
292
%!test
 
293
%! wfi = warning ("query", "Octave:fortran-indexing");
 
294
%! warning ("on", "Octave:fortran-indexing");
 
295
%! a = [4,3,2,1];
 
296
%! a_prime = [4;3;2;1];
 
297
%! mid_a = [3,2];
 
298
%! fail("a(:,0);");
 
299
%! warning ("wfi.state", "Octave:fortran-indexing");
 
300
 
 
301
%% test/octave.test/index-wfi-t/v-13.m
 
302
%!test
 
303
%! wfi = warning ("query", "Octave:fortran-indexing");
 
304
%! warning ("on", "Octave:fortran-indexing");
 
305
%! a = [4,3,2,1];
 
306
%! a_prime = [4;3;2;1];
 
307
%! mid_a = [3,2];
 
308
%! assert(isempty (a([])));
 
309
%! warning ("wfi.state", "Octave:fortran-indexing");
 
310
 
 
311
%% test/octave.test/index-wfi-t/v-14.m
 
312
%!test
 
313
%! wfi = warning ("query", "Octave:fortran-indexing");
 
314
%! warning ("on", "Octave:fortran-indexing");
 
315
%! a = [4,3,2,1];
 
316
%! a_prime = [4;3;2;1];
 
317
%! mid_a = [3,2];
 
318
%! assert(isempty (a([],:)));
 
319
%! warning ("wfi.state", "Octave:fortran-indexing");
 
320
 
 
321
%% test/octave.test/index-wfi-t/v-15.m
 
322
%!test
 
323
%! wfi = warning ("query", "Octave:fortran-indexing");
 
324
%! warning ("on", "Octave:fortran-indexing");
 
325
%! a = [4,3,2,1];
 
326
%! a_prime = [4;3;2;1];
 
327
%! mid_a = [3,2];
 
328
%! assert(isempty (a(:,[])));
 
329
%! warning ("wfi.state", "Octave:fortran-indexing");
 
330
 
 
331
%% test/octave.test/index-wfi-t/m-1.m
 
332
%!test
 
333
%! wfi = warning ("query", "Octave:fortran-indexing");
 
334
%! warning ("on", "Octave:fortran-indexing");
 
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)));
 
342
%! warning ("wfi.state", "Octave:fortran-indexing");
 
343
 
 
344
%% test/octave.test/index-wfi-t/m-2.m
 
345
%!test
 
346
%! wfi = warning ("query", "Octave:fortran-indexing");
 
347
%! warning ("on", "Octave:fortran-indexing");
 
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));
 
355
%! warning ("wfi.state", "Octave:fortran-indexing");
 
356
 
 
357
%% test/octave.test/index-wfi-t/m-3.m
 
358
%!test
 
359
%! wfi = warning ("query", "Octave:fortran-indexing");
 
360
%! warning ("on", "Octave:fortran-indexing");
 
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);");
 
368
%! warning ("wfi.state", "Octave:fortran-indexing");
 
369
 
 
370
%% test/octave.test/index-wfi-t/m-4.m
 
371
%!test
 
372
%! wfi = warning ("query", "Octave:fortran-indexing");
 
373
%! warning ("on", "Octave:fortran-indexing");
 
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");
 
381
%! warning ("wfi.state", "Octave:fortran-indexing");