octave-nkf: test/test_index-wfi-t.m annotate

annotate test/test_index-wfi-t.m @ 12830:208f0a181be6

codesprint: Stop reporting print_usage() as missing tests. * print_usage.m: Add %!assert(1) to stop reporting on file. No real tests possible.

author	Rik <octave@nomad.inbox5.com>
date	Sat, 16 Jul 2011 14:16:52 -0700
parents	981cd6796065
children	0a158dbdb04a

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

Mercurial > hg > octave-nkf

annotate test/test_index-wfi-t.m @ 12830:208f0a181be6