Mercurial > hg > octave-nkf
annotate test/test_logical-wfi-t.m @ 14026:3781981be535 ss-3-5-90
snapshot 3.5.90
* configure.ac (AC_INIT): Version is now 3.5.90.
(OCTAVE_API_VERSION_NUMBER): Now 46.
(OCTAVE_RELEASE_DATE): Now 2011-12-11.
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Sun, 11 Dec 2011 23:18:31 -0500 |
| parents | 0a158dbdb04a |
| children |
| 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/octave.test/logical-wfi-t/s-1.m |
| 20 %!test | |
| 21 %! a = []; | |
| 22 %! fail("a(0);"); | |
| 23 | |
| 24 %% test/octave.test/logical-wfi-t/s-2.m | |
| 25 %!test | |
| 26 %! a = 2; | |
| 27 %! assert(a(1) == 2); | |
| 28 | |
| 29 %% test/octave.test/logical-wfi-t/s-3.m | |
| 30 %!test | |
| 31 %! a = 2; | |
| 32 %! assert(a(1) == 2); | |
| 33 | |
| 34 %% test/octave.test/logical-wfi-t/s-4.m | |
| 35 %!test | |
|
7572
85da2ab0c6fd
logical indexing compatibility fixes
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
36 %!shared a |
| 5590 | 37 %! a = 2; |
|
10399
81bcdf5fd7a9
modernize failing tests
Jaroslav Hajek <highegg@gmail.com>
parents:
9112
diff
changeset
|
38 %!error id=Octave:index-out-of-bounds a(logical ([1,1])); |
| 5590 | 39 |
| 40 %% test/octave.test/logical-wfi-t/v-1.m | |
| 41 %!test | |
| 42 %! a = [9,8,7,6]; | |
| 43 %! assert(isempty (a(logical ([0,0,0,0])))); | |
| 44 | |
| 45 %% test/octave.test/logical-wfi-t/v-2.m | |
| 46 %!test | |
| 47 %! a = [9,8,7,6]; | |
| 48 %! assert(all (a(logical ([1,1,1,1])) == [9,8,7,6])); | |
| 49 | |
| 50 %% test/octave.test/logical-wfi-t/v-3.m | |
| 51 %!test | |
| 52 %! a = [9,8,7,6]; | |
| 53 %! assert(all (a(logical ([0,1,1,0])) == [8,7])); | |
| 54 | |
| 55 %% test/octave.test/logical-wfi-t/v-4.m | |
| 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])) == [9,8])); |
| 5590 | 59 |
| 60 %% test/octave.test/logical-wfi-t/m-1.m | |
| 61 %!test | |
| 62 %! a = [9,8;7,6]; | |
| 63 %! isempty (a(logical ([0,0,0,0]))); | |
| 64 | |
| 65 %% test/octave.test/logical-wfi-t/m-2.m | |
| 66 %!test | |
| 67 %! a = [9,8;7,6]; | |
|
7572
85da2ab0c6fd
logical indexing compatibility fixes
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
68 %! all (a(logical ([1,1,1,1])) == [9,7,8,6]); |
| 5590 | 69 |
| 70 %% test/octave.test/logical-wfi-t/m-3.m | |
| 71 %!test | |
| 72 %! a = [9,8;7,6]; | |
|
7572
85da2ab0c6fd
logical indexing compatibility fixes
John W. Eaton <jwe@octave.org>
parents:
7017
diff
changeset
|
73 %! all (a(logical ([0,1,1,0])) == [7,8]); |
| 5590 | 74 |
| 75 %% test/octave.test/logical-wfi-t/m-4.m | |
| 76 %!test | |
| 77 %! a = [9,8;7,6]; | |
| 78 %! assert(a(logical (0:1),logical (0:1)) == 6); | |
| 79 | |
| 80 %% test/octave.test/logical-wfi-t/m-5.m | |
| 81 %!test | |
| 82 %! a = [9,8;7,6]; | |
| 83 %! assert(all (a(logical (0:1),2:-1:1) == [6,7])); | |
| 84 | |
| 85 %% test/octave.test/logical-wfi-t/m-6.m | |
| 86 %!test | |
| 87 %! a = [9,8;7,6]; | |
| 88 %! assert(a(logical (0:1),logical ([0,1])) == 6); | |
| 89 | |
| 90 %% test/octave.test/logical-wfi-t/m-7.m | |
| 91 %!test | |
| 92 %! a = [9,8;7,6]; | |
| 93 %! assert(all (a(logical (0:1),[2,1]) == [6,7])); | |
| 94 | |
| 95 %% test/octave.test/logical-wfi-t/m-8.m | |
| 96 %!test | |
| 97 %! a = [9,8;7,6]; | |
| 98 %! assert(all (a(logical (0:1),:) == [7,6])); | |
| 99 | |
| 100 %% test/octave.test/logical-wfi-t/m-9.m | |
| 101 %!test | |
| 102 %! a = [9,8;7,6]; | |
| 103 %! assert(a(logical (0:1),1) == 7); | |
| 104 | |
| 105 %% test/octave.test/logical-wfi-t/m-10.m | |
| 106 %!test | |
| 107 %! a = [9,8;7,6]; | |
| 108 %! assert(all (a(logical (0:1),logical ([1,1])) == [7,6])); | |
| 109 | |
| 110 %% test/octave.test/logical-wfi-t/m-11.m | |
| 111 %!test | |
| 112 %! a = [9,8;7,6]; | |
| 113 %! assert(all (a(2:-1:1,logical (0:1)) == [6;8])); | |
| 114 | |
| 115 %% test/octave.test/logical-wfi-t/m-12.m | |
| 116 %!test | |
| 117 %! a = [9,8;7,6]; | |
| 118 %! assert(all (a(2:-1:1,logical ([0,1])) == [6;8])); | |
| 119 | |
| 120 %% test/octave.test/logical-wfi-t/m-13.m | |
| 121 %!test | |
| 122 %! a = [9,8;7,6]; | |
| 123 %! assert(all (all (a(2:-1:1,logical ([1,1])) == [7,6;9,8]))); | |
| 124 | |
| 125 %% test/octave.test/logical-wfi-t/m-14.m | |
| 126 %!test | |
| 127 %! a = [9,8;7,6]; | |
| 128 %! assert(a(logical ([0,1]),logical (0:1)) == 6); | |
| 129 | |
| 130 %% test/octave.test/logical-wfi-t/m-15.m | |
| 131 %!test | |
| 132 %! a = [9,8;7,6]; | |
| 133 %! assert(all (a(logical ([0,1]),2:-1:1) == [6,7])); | |
| 134 | |
| 135 %% test/octave.test/logical-wfi-t/m-16.m | |
| 136 %!test | |
| 137 %! a = [9,8;7,6]; | |
| 138 %! assert(a(logical ([0,1]),logical ([0,1])) == 6); | |
| 139 | |
| 140 %% test/octave.test/logical-wfi-t/m-17.m | |
| 141 %!test | |
| 142 %! a = [9,8;7,6]; | |
| 143 %! assert(all (a(logical ([0,1]),[2,1]) == [6,7])); | |
| 144 | |
| 145 %% test/octave.test/logical-wfi-t/m-18.m | |
| 146 %!test | |
| 147 %! a = [9,8;7,6]; | |
| 148 %! assert(all (a(logical ([0,1]),:) == [7,6])); | |
| 149 | |
| 150 %% test/octave.test/logical-wfi-t/m-19.m | |
| 151 %!test | |
| 152 %! a = [9,8;7,6]; | |
| 153 %! assert(a(logical ([0,1]),1) == 7); | |
| 154 | |
| 155 %% test/octave.test/logical-wfi-t/m-20.m | |
| 156 %!test | |
| 157 %! a = [9,8;7,6]; | |
| 158 %! assert(all (a(logical ([0,1]),logical ([1,1])) == [7,6])); | |
| 159 | |
| 160 %% test/octave.test/logical-wfi-t/m-21.m | |
| 161 %!test | |
| 162 %! a = [9,8;7,6]; | |
| 163 %! assert(all (a([2,1],logical (0:1)) == [6;8])); | |
| 164 | |
| 165 %% test/octave.test/logical-wfi-t/m-22.m | |
| 166 %!test | |
| 167 %! a = [9,8;7,6]; | |
| 168 %! assert(all (a([2,1],logical ([0,1])) == [6;8])); | |
| 169 | |
| 170 %% test/octave.test/logical-wfi-t/m-23.m | |
| 171 %!test | |
| 172 %! a = [9,8;7,6]; | |
| 173 %! assert(all (all (a([2,1],logical ([1,1])) == [7,6;9,8]))); | |
| 174 | |
| 175 %% test/octave.test/logical-wfi-t/m-24.m | |
| 176 %!test | |
| 177 %! a = [9,8;7,6]; | |
| 178 %! assert(all (a(:,logical (0:1)) == [8;6])); | |
| 179 | |
| 180 %% test/octave.test/logical-wfi-t/m-25.m | |
| 181 %!test | |
| 182 %! a = [9,8;7,6]; | |
| 183 %! assert(all (a(:,logical ([0,1])) == [8;6])); | |
| 184 | |
| 185 %% test/octave.test/logical-wfi-t/m-26.m | |
| 186 %!test | |
| 187 %! a = [9,8;7,6]; | |
| 188 %! assert(all (all (a(:,logical ([1,1])) == [9,8;7,6]))); | |
| 189 | |
| 190 %% test/octave.test/logical-wfi-t/m-27.m | |
| 191 %!test | |
| 192 %! a = [9,8;7,6]; | |
| 193 %! assert(a(1,logical (0:1)) == 8); | |
| 194 | |
| 195 %% test/octave.test/logical-wfi-t/m-28.m | |
| 196 %!test | |
| 197 %! a = [9,8;7,6]; | |
| 198 %! assert(a(1,logical ([0,1])) == 8); | |
| 199 | |
| 200 %% test/octave.test/logical-wfi-t/m-29.m | |
| 201 %!test | |
| 202 %! a = [9,8;7,6]; | |
| 203 %! assert(all (a(1,logical ([1,1])) == [9,8])); | |
| 204 | |
| 205 %% test/octave.test/logical-wfi-t/m-30.m | |
| 206 %!test | |
| 207 %! a = [9,8;7,6]; | |
| 208 %! assert(all (a(logical ([1,1]),logical (0:1)) == [8;6])); | |
| 209 | |
| 210 %% test/octave.test/logical-wfi-t/m-31.m | |
| 211 %!test | |
| 212 %! a = [9,8;7,6]; | |
| 213 %! assert(all (all (a(logical ([1,1]),2:-1:1) == [8,9;6,7]))); | |
| 214 | |
| 215 %% test/octave.test/logical-wfi-t/m-32.m | |
| 216 %!test | |
| 217 %! a = [9,8;7,6]; | |
| 218 %! assert(all (a(logical ([1,1]),logical ([0,1])) == [8;6])); | |
| 219 | |
| 220 %% test/octave.test/logical-wfi-t/m-33.m | |
| 221 %!test | |
| 222 %! a = [9,8;7,6]; | |
| 223 %! assert(all (all (a(logical ([1,1]),[2,1]) == [8,9;6,7]))); | |
| 224 | |
| 225 %% test/octave.test/logical-wfi-t/m-34.m | |
| 226 %!test | |
| 227 %! a = [9,8;7,6]; | |
| 228 %! assert(all (all (a(logical ([1,1]),:) == [9,8;7,6]))); | |
| 229 | |
| 230 %% test/octave.test/logical-wfi-t/m-35.m | |
| 231 %!test | |
| 232 %! a = [9,8;7,6]; | |
| 233 %! assert(all (a(logical ([1,1]),1) == [9;7])); | |
| 234 | |
| 235 %% test/octave.test/logical-wfi-t/m-36.m | |
| 236 %!test | |
| 237 %! a = [9,8;7,6]; | |
| 238 %! assert(all (all (a(logical ([1,1]),logical ([1,1])) == [9,8;7,6]))); | |
| 239 |