Mercurial > octave-nkf
annotate test/test_logical_index.m @ 14125:abbb07913e0a stable
eliminate duplicate logical indexing tests
* test_logical-wfi-t.m: Delete
* test_logical_indexing.m: Rename from test_logical-wfi-f.m.
Flush comments marking origin of tests from old DejaGNU scripts.
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Sat, 31 Dec 2011 13:50:40 -0500 |
| parents | test/test_logical-wfi-f.m@0a158dbdb04a |
| children | c3309e1ec50d |
| rev | line source |
|---|---|
| 11523 | 1 ## Copyright (C) 2006-2011 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 %!test |
| 20 %! a = []; | |
| 21 %! fail("a(0);"); | |
| 22 | |
| 23 %!test | |
| 24 %! a = 2; | |
| 25 %! assert(a(1) == 2); | |
| 26 | |
| 27 %!test | |
| 28 %! a = 2; | |
| 29 %! assert(a(1) == 2); | |
| 30 | |
| 31 %!test | |
|
7572
85da2ab0c6fd
logical indexing compatibility fixes
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
32 %!shared a |
|
85da2ab0c6fd
logical indexing compatibility fixes
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
33 %! a = 2; |
|
10399
81bcdf5fd7a9
modernize failing tests
Jaroslav Hajek <highegg@gmail.com>
parents:
9112
diff
changeset
|
34 %!error id=Octave:index-out-of-bounds a(logical ([1,1])); |
| 5590 | 35 |
| 36 %!test | |
| 37 %! a = [9,8,7,6]; | |
| 38 %! assert(isempty (a(logical ([0,0,0,0])))); | |
| 39 | |
| 40 %!test | |
| 41 %! a = [9,8,7,6]; | |
| 42 %! assert(all (a(logical ([1,1,1,1])) == [9,8,7,6])); | |
| 43 | |
| 44 %!test | |
| 45 %! a = [9,8,7,6]; | |
| 46 %! assert(all (a(logical ([0,1,1,0])) == [8,7])); | |
| 47 | |
| 48 %!test | |
| 49 %! a = [9,8,7,6]; | |
|
7572
85da2ab0c6fd
logical indexing compatibility fixes
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
50 %! assert(all (a(logical ([1,1])) == [9,8])); |
| 5590 | 51 |
| 52 %!test | |
| 53 %! a = [9,8;7,6]; | |
| 54 %! assert(isempty (a(logical ([0,0,0,0])))); | |
| 55 | |
| 56 %!test | |
| 57 %! a = [9,8;7,6]; | |
|
7572
85da2ab0c6fd
logical indexing compatibility fixes
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
58 %! assert(all (a(logical ([1,1,1,1])) == [9,7,8,6])); |
| 5590 | 59 |
| 60 %!test | |
| 61 %! a = [9,8;7,6]; | |
|
7572
85da2ab0c6fd
logical indexing compatibility fixes
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
62 %! assert(all (a(logical ([0,1,1,0])) == [7,8])); |
| 5590 | 63 |
| 64 %!test | |
| 65 %! a = [9,8;7,6]; | |
| 66 %! assert(a(logical (0:1),logical (0:1)) == 6); | |
| 67 | |
| 68 %!test | |
| 69 %! a = [9,8;7,6]; | |
| 70 %! assert(all (a(logical (0:1),2:-1:1) == [6,7])); | |
| 71 | |
| 72 %!test | |
| 73 %! a = [9,8;7,6]; | |
| 74 %! assert(a(logical (0:1),logical ([0,1])) == 6); | |
| 75 | |
| 76 %!test | |
| 77 %! a = [9,8;7,6]; | |
| 78 %! assert(all (a(logical (0:1),[2,1]) == [6,7])); | |
| 79 | |
| 80 %!test | |
| 81 %! a = [9,8;7,6]; | |
| 82 %! assert(all (a(logical (0:1),:) == [7,6])); | |
| 83 | |
| 84 %!test | |
| 85 %! a = [9,8;7,6]; | |
| 86 %! assert(a(logical (0:1),1) == 7); | |
| 87 | |
| 88 %!test | |
| 89 %! a = [9,8;7,6]; | |
| 90 %! assert(all (a(logical (0:1),logical ([1,1])) == [7,6])); | |
| 91 | |
| 92 %!test | |
| 93 %! a = [9,8;7,6]; | |
| 94 %! assert(all (a(2:-1:1,logical (0:1)) == [6;8])); | |
| 95 | |
| 96 %!test | |
| 97 %! a = [9,8;7,6]; | |
| 98 %! assert(all (a(2:-1:1,logical ([0,1])) == [6;8])); | |
| 99 | |
| 100 %!test | |
| 101 %! a = [9,8;7,6]; | |
| 102 %! assert(all (all (a(2:-1:1,logical ([1,1])) == [7,6;9,8]))); | |
| 103 | |
| 104 %!test | |
| 105 %! a = [9,8;7,6]; | |
| 106 %! assert(a(logical ([0,1]),logical (0:1)) == 6); | |
| 107 | |
| 108 %!test | |
| 109 %! a = [9,8;7,6]; | |
| 110 %! assert(all (a(logical ([0,1]),2:-1:1) == [6,7])); | |
| 111 | |
| 112 %!test | |
| 113 %! a = [9,8;7,6]; | |
| 114 %! assert(a(logical ([0,1]),logical ([0,1])) == 6); | |
| 115 | |
| 116 %!test | |
| 117 %! a = [9,8;7,6]; | |
| 118 %! assert(all (a(logical ([0,1]),[2,1]) == [6,7])); | |
| 119 | |
| 120 %!test | |
| 121 %! a = [9,8;7,6]; | |
| 122 %! assert(all (a(logical ([0,1]),:) == [7,6])); | |
| 123 | |
| 124 %!test | |
| 125 %! a = [9,8;7,6]; | |
| 126 %! assert(a(logical ([0,1]),1) == 7); | |
| 127 | |
| 128 %!test | |
| 129 %! a = [9,8;7,6]; | |
| 130 %! assert(all (a(logical ([0,1]),logical ([1,1])) == [7,6])); | |
| 131 | |
| 132 %!test | |
| 133 %! a = [9,8;7,6]; | |
| 134 %! assert(all (a([2,1],logical (0:1)) == [6;8])); | |
| 135 | |
| 136 %!test | |
| 137 %! a = [9,8;7,6]; | |
| 138 %! assert(all (a([2,1],logical ([0,1])) == [6;8])); | |
| 139 | |
| 140 %!test | |
| 141 %! a = [9,8;7,6]; | |
| 142 %! assert(all (all (a([2,1],logical ([1,1])) == [7,6;9,8]))); | |
| 143 | |
| 144 %!test | |
| 145 %! a = [9,8;7,6]; | |
| 146 %! assert(all (a(:,logical (0:1)) == [8;6])); | |
| 147 | |
| 148 %!test | |
| 149 %! a = [9,8;7,6]; | |
| 150 %! assert(all (a(:,logical ([0,1])) == [8;6])); | |
| 151 | |
| 152 %!test | |
| 153 %! a = [9,8;7,6]; | |
| 154 %! assert(all (all (a(:,logical ([1,1])) == [9,8;7,6]))); | |
| 155 | |
| 156 %!test | |
| 157 %! a = [9,8;7,6]; | |
| 158 %! assert(a(1,logical (0:1)) == 8); | |
| 159 | |
| 160 %!test | |
| 161 %! a = [9,8;7,6]; | |
| 162 %! assert(a(1,logical ([0,1])) == 8); | |
| 163 | |
| 164 %!test | |
| 165 %! a = [9,8;7,6]; | |
| 166 %! assert(all (a(1,logical ([1,1])) == [9,8])); | |
| 167 | |
| 168 %!test | |
| 169 %! a = [9,8;7,6]; | |
| 170 %! assert(all (a(logical ([1,1]),logical (0:1)) == [8;6])); | |
| 171 | |
| 172 %!test | |
| 173 %! a = [9,8;7,6]; | |
| 174 %! assert(all (all (a(logical ([1,1]),2:-1:1) == [8,9;6,7]))); | |
| 175 | |
| 176 %!test | |
| 177 %! a = [9,8;7,6]; | |
| 178 %! assert(all (a(logical ([1,1]),logical ([0,1])) == [8;6])); | |
| 179 | |
| 180 %!test | |
| 181 %! a = [9,8;7,6]; | |
| 182 %! assert(all (all (a(logical ([1,1]),[2,1]) == [8,9;6,7]))); | |
| 183 | |
| 184 %!test | |
| 185 %! a = [9,8;7,6]; | |
| 186 %! assert(all (all (a(logical ([1,1]),:) == [9,8;7,6]))); | |
| 187 | |
| 188 %!test | |
| 189 %! a = [9,8;7,6]; | |
| 190 %! assert(all (a(logical ([1,1]),1) == [9;7])); | |
| 191 | |
| 192 %!test | |
| 193 %! a = [9,8;7,6]; | |
| 194 %! assert(all (all (a(logical ([1,1]),logical ([1,1])) == [9,8;7,6]))); | |
| 195 |