Mercurial > octave-nkf

comparison test/test_logical_index.m @ 14131:c3309e1ec50d stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
test: Use Octave coding and spacing conventions for fixed test scripts * build_bc_overload_tests.sh, build_bc_overloads_expected.m, build_sparse_tests.sh, test_args.m, test_contin.m, test_diag_perm.m, test_error.m, test_eval-catch.m, test_for.m, test_func.m, test_global.m, test_if.m, test_index.m, test_io.m, test_logical_index.m, test_null_assign.m, test_parser.m, test_prefer.m, test_range.m, test_recursion.m, test_return.m, test_slice.m, test_struct.m, test_switch.m, test_system.m, test_transpose.m, test_try.m, test_unwind.m, test_while.m: Use Octave coding and spacing conventions for fixed test scripts.
author Rik <octave@nomad.inbox5.com>
date Sun, 01 Jan 2012 20:04:52 -0800
parents abbb07913e0a
children 72c96de7a403
comparison
equal deleted inserted replaced
14130:e13bfbc2c4c5 14131:c3309e1ec50d
16 ## along with Octave; see the file COPYING. If not, see 16 ## along with Octave; see the file COPYING. If not, see
17 ## <http://www.gnu.org/licenses/>. 17 ## <http://www.gnu.org/licenses/>.
18 18
19 %!test 19 %!test
20 %! a = []; 20 %! a = [];
21 %! fail("a(0);"); 21 %! fail ("a(0);");
22 22
23 %!test 23 %!shared a
24 %! a = 2; 24 %! a = 2;
25 %! assert(a(1) == 2); 25 %!assert (a(1), 2);
26 %!error id=Octave:index-out-of-bounds a(logical ([1,1]))
26 27
27 %!test 28 %!shared a
28 %! a = 2; 29 %! a = [9,8,7,6];
29 %! assert(a(1) == 2); 30 %!assert (isempty (a(logical ([0,0,0,0]))))
31 %!assert (a(logical ([1,1,1,1])), [9,8,7,6])
32 %!assert (a(logical ([0,1,1,0])), [8,7])
33 %!assert (a(logical ([1,1])), [9,8])
30 34
31 %!test
32 %!shared a 35 %!shared a
33 %! a = 2; 36 %! a = [9,8;7,6];
34 %!error id=Octave:index-out-of-bounds a(logical ([1,1])); 37 %!assert (isempty (a(logical ([0,0,0,0]))))
38 %!assert (a(logical ([1,1,1,1])), [9,7,8,6])
39 %!assert (a(logical ([0,1,1,0])), [7,8])
40 %!assert (a(logical (0:1),logical (0:1)), 6)
41 %!assert (a(logical (0:1),2:-1:1), [6,7])
42 %!assert (a(logical (0:1),logical ([0,1])), 6)
43 %!assert (a(logical (0:1),[2,1]), [6,7])
44 %!assert (a(logical (0:1),:), [7,6])
45 %!assert (a(logical (0:1),1), 7)
46 %!assert (a(logical (0:1),logical ([1,1])), [7,6])
47 %!assert (a(2:-1:1,logical (0:1)), [6;8])
48 %!assert (a(2:-1:1,logical ([0,1])), [6;8])
49 %!assert (a(2:-1:1,logical ([1,1])), [7,6;9,8])
50 %!assert (a(logical ([0,1]),logical (0:1)), 6)
51 %!assert (a(logical ([0,1]),2:-1:1), [6,7])
52 %!assert (a(logical ([0,1]),logical ([0,1])), 6)
53 %!assert (a(logical ([0,1]),[2,1]), [6,7])
54 %!assert (a(logical ([0,1]),:), [7,6])
55 %!assert (a(logical ([0,1]),1), 7)
56 %!assert (a(logical ([0,1]),logical ([1,1])), [7,6])
57 %!assert (a([2,1],logical (0:1)), [6;8])
58 %!assert (a([2,1],logical ([0,1])), [6;8])
59 %!assert (a([2,1],logical ([1,1])), [7,6;9,8])
60 %!assert (a(:,logical (0:1)), [8;6])
61 %!assert (a(:,logical ([0,1])), [8;6])
62 %!assert (a(:,logical ([1,1])), [9,8;7,6])
63 %!assert (a(1,logical (0:1)), 8)
64 %!assert (a(1,logical ([0,1])), 8)
65 %!assert (a(1,logical ([1,1])), [9,8])
66 %!assert (a(logical ([1,1]),logical (0:1)), [8;6])
67 %!assert (a(logical ([1,1]),2:-1:1), [8,9;6,7])
68 %!assert (a(logical ([1,1]),logical ([0,1])), [8;6])
69 %!assert (a(logical ([1,1]),[2,1]), [8,9;6,7])
70 %!assert (a(logical ([1,1]),:), [9,8;7,6])
71 %!assert (a(logical ([1,1]),1), [9;7])
72 %!assert (a(logical ([1,1]),logical ([1,1])), [9,8;7,6])
35 73
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];
50 %! assert(all (a(logical ([1,1])) == [9,8]));
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];
58 %! assert(all (a(logical ([1,1,1,1])) == [9,7,8,6]));
59
60 %!test
61 %! a = [9,8;7,6];
62 %! assert(all (a(logical ([0,1,1,0])) == [7,8]));
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