comparison test/test_slice.m @ 14131:c3309e1ec50d stable

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 fd0a3ac60b0e
children 72c96de7a403
comparison
equal deleted inserted replaced
14130:e13bfbc2c4c5 14131:c3309e1ec50d
14 ## 14 ##
15 ## You should have received a copy of the GNU General Public License 15 ## You should have received a copy of the GNU General Public License
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 %!function x = set_slice(size, dim, slice) 19 %!function x = set_slice (size, dim, slice)
20 %! x = ones(size); 20 %! x = ones (size);
21 %! switch dim 21 %! switch dim
22 %! case 11 22 %! case 11
23 %! x(slice) = 2; 23 %! x(slice) = 2;
24 %! case 21 24 %! case 21
25 %! x(slice, :) = 2; 25 %! x(slice, :) = 2;
32 %! case 33 32 %! case 33
33 %! x(:, :, slice) = 2; 33 %! x(:, :, slice) = 2;
34 %! otherwise 34 %! otherwise
35 %! error("invalid dim, '%d'", dim); 35 %! error("invalid dim, '%d'", dim);
36 %! endswitch 36 %! endswitch
37 %! endfunction 37 %!endfunction
38 38
39 ## size = [2 0] 39 ## size = [2 0]
40 %!assert(set_slice([2 0], 11, []), zeros([2 0])); 40 %!assert (set_slice ([2 0], 11, []), zeros ([2 0]))
41 %!error id=Octave:invalid-resize set_slice([2 0], 11, 1) 41 %!error id=Octave:invalid-resize set_slice ([2 0], 11, 1)
42 %!error id=Octave:invalid-resize set_slice([2 0], 11, 2) 42 %!error id=Octave:invalid-resize set_slice ([2 0], 11, 2)
43 %!error id=Octave:invalid-resize set_slice([2 0], 11, 3) 43 %!error id=Octave:invalid-resize set_slice ([2 0], 11, 3)
44 %!assert(set_slice([2 0], 21, []), zeros([2 0])); 44 %!assert (set_slice ([2 0], 21, []), zeros ([2 0]))
45 %!assert(set_slice([2 0], 21, 1), zeros([2 0])); 45 %!assert (set_slice ([2 0], 21, 1), zeros ([2 0]))
46 %!assert(set_slice([2 0], 21, 2), zeros([2 0])); 46 %!assert (set_slice ([2 0], 21, 2), zeros ([2 0]))
47 %!assert(set_slice([2 0], 21, 3), zeros([3 0])); 47 %!assert (set_slice ([2 0], 21, 3), zeros ([3 0]))
48 %!assert(set_slice([2 0], 22, []), zeros([2 0])); 48 %!assert (set_slice ([2 0], 22, []), zeros ([2 0]))
49 %!assert(set_slice([2 0], 22, 1), [2 2]'); 49 %!assert (set_slice ([2 0], 22, 1), [2 2]')
50 %!assert(set_slice([2 0], 22, 2), [0 0;2 2]'); 50 %!assert (set_slice ([2 0], 22, 2), [0 0;2 2]')
51 %!assert(set_slice([2 0], 22, 3), [0 0;0 0;2 2]'); 51 %!assert (set_slice ([2 0], 22, 3), [0 0;0 0;2 2]')
52 %!assert(set_slice([2 0], 31, []), zeros([2 0])); 52 %!assert (set_slice ([2 0], 31, []), zeros ([2 0]))
53 %!assert(set_slice([2 0], 31, 1), zeros([2 0])); 53 %!assert (set_slice ([2 0], 31, 1), zeros ([2 0]))
54 %!assert(set_slice([2 0], 31, 2), zeros([2 0])); 54 %!assert (set_slice ([2 0], 31, 2), zeros ([2 0]))
55 %!assert(set_slice([2 0], 31, 3), zeros([3 0])); 55 %!assert (set_slice ([2 0], 31, 3), zeros ([3 0]))
56 %!assert(set_slice([2 0], 32, []), zeros([2 0])); 56 %!assert (set_slice ([2 0], 32, []), zeros ([2 0]))
57 %!assert(set_slice([2 0], 32, 1), [2 2]'); 57 %!assert (set_slice ([2 0], 32, 1), [2 2]')
58 %!assert(set_slice([2 0], 32, 2), [0 0;2 2]'); 58 %!assert (set_slice ([2 0], 32, 2), [0 0;2 2]')
59 %!assert(set_slice([2 0], 32, 3), [0 0;0 0;2 2]'); 59 %!assert (set_slice ([2 0], 32, 3), [0 0;0 0;2 2]')
60 %!assert(set_slice([2 0], 33, []), zeros([2 0])); 60 %!assert (set_slice ([2 0], 33, []), zeros ([2 0]))
61 %!assert(set_slice([2 0], 33, 1), zeros([2 0])); 61 %!assert (set_slice ([2 0], 33, 1), zeros ([2 0]))
62 %!assert(set_slice([2 0], 33, 2), zeros([2 0 2])); 62 %!assert (set_slice ([2 0], 33, 2), zeros ([2 0 2]))
63 %!assert(set_slice([2 0], 33, 3), zeros([2 0 3])); 63 %!assert (set_slice ([2 0], 33, 3), zeros ([2 0 3]))
64 64
65 ## size = [0 2] 65 ## size = [0 2]
66 %!assert(set_slice([0 2], 11, []), zeros([0 2])); 66 %!assert (set_slice ([0 2], 11, []), zeros ([0 2]))
67 %!assert(set_slice([0 2], 11, 1), 2); 67 %!assert (set_slice ([0 2], 11, 1), 2)
68 %!assert(set_slice([0 2], 11, 2), [0, 2]); 68 %!assert (set_slice ([0 2], 11, 2), [0, 2])
69 %!assert(set_slice([0 2], 11, 3), [0, 0, 2]); 69 %!assert (set_slice ([0 2], 11, 3), [0, 0, 2])
70 %!assert(set_slice([0 2], 21, []), zeros([0 2])); 70 %!assert (set_slice ([0 2], 21, []), zeros ([0 2]))
71 %!assert(set_slice([0 2], 21, 1), [2 2]); 71 %!assert (set_slice ([0 2], 21, 1), [2 2])
72 %!assert(set_slice([0 2], 21, 2), [0 0;2 2]); 72 %!assert (set_slice ([0 2], 21, 2), [0 0;2 2])
73 %!assert(set_slice([0 2], 21, 3), [0 0;0 0;2 2]); 73 %!assert (set_slice ([0 2], 21, 3), [0 0;0 0;2 2])
74 %!assert(set_slice([0 2], 22, []), zeros([0 2])); 74 %!assert (set_slice ([0 2], 22, []), zeros ([0 2]))
75 %!assert(set_slice([0 2], 22, 1), zeros([0 2])); 75 %!assert (set_slice ([0 2], 22, 1), zeros ([0 2]))
76 %!assert(set_slice([0 2], 22, 2), zeros([0 2])); 76 %!assert (set_slice ([0 2], 22, 2), zeros ([0 2]))
77 %!assert(set_slice([0 2], 22, 3), zeros([0 3])); 77 %!assert (set_slice ([0 2], 22, 3), zeros ([0 3]))
78 %!assert(set_slice([0 2], 31, []), zeros([0 2])); 78 %!assert (set_slice ([0 2], 31, []), zeros ([0 2]))
79 %!assert(set_slice([0 2], 31, 1), [2 2]); 79 %!assert (set_slice ([0 2], 31, 1), [2 2])
80 %!assert(set_slice([0 2], 31, 2), [0 0;2 2]); 80 %!assert (set_slice ([0 2], 31, 2), [0 0;2 2])
81 %!assert(set_slice([0 2], 31, 3), [0 0;0 0;2 2]); 81 %!assert (set_slice ([0 2], 31, 3), [0 0;0 0;2 2])
82 %!assert(set_slice([0 2], 32, []), zeros([0 2])); 82 %!assert (set_slice ([0 2], 32, []), zeros ([0 2]))
83 %!assert(set_slice([0 2], 32, 1), zeros([0 2])); 83 %!assert (set_slice ([0 2], 32, 1), zeros ([0 2]))
84 %!assert(set_slice([0 2], 32, 2), zeros([0 2])); 84 %!assert (set_slice ([0 2], 32, 2), zeros ([0 2]))
85 %!assert(set_slice([0 2], 32, 3), zeros([0 3])); 85 %!assert (set_slice ([0 2], 32, 3), zeros ([0 3]))
86 %!assert(set_slice([0 2], 33, []), zeros([0 2])); 86 %!assert (set_slice ([0 2], 33, []), zeros ([0 2]))
87 %!assert(set_slice([0 2], 33, 1), zeros([0 2])); 87 %!assert (set_slice ([0 2], 33, 1), zeros ([0 2]))
88 %!assert(set_slice([0 2], 33, 2), zeros([0 2 2])); 88 %!assert (set_slice ([0 2], 33, 2), zeros ([0 2 2]))
89 %!assert(set_slice([0 2], 33, 3), zeros([0 2 3])); 89 %!assert (set_slice ([0 2], 33, 3), zeros ([0 2 3]))
90 90
91 ## size = [2 1] 91 ## size = [2 1]
92 %!assert(set_slice([2 1], 11, []), ones([2 1])); 92 %!assert (set_slice ([2 1], 11, []), ones ([2 1]))
93 %!assert(set_slice([2 1], 11, 1), [2 1]'); 93 %!assert (set_slice ([2 1], 11, 1), [2 1]')
94 %!assert(set_slice([2 1], 11, 2), [1 2]'); 94 %!assert (set_slice ([2 1], 11, 2), [1 2]')
95 %!assert(set_slice([2 1], 11, 3), [1 1 2]'); 95 %!assert (set_slice ([2 1], 11, 3), [1 1 2]')
96 %!assert(set_slice([2 1], 11, 4), [1 1 0 2]'); 96 %!assert (set_slice ([2 1], 11, 4), [1 1 0 2]')
97 %!assert(set_slice([2 1], 21, []), ones([2 1])); 97 %!assert (set_slice ([2 1], 21, []), ones ([2 1]))
98 %!assert(set_slice([2 1], 21, 1), [2 1]'); 98 %!assert (set_slice ([2 1], 21, 1), [2 1]')
99 %!assert(set_slice([2 1], 21, 2), [1 2]'); 99 %!assert (set_slice ([2 1], 21, 2), [1 2]')
100 %!assert(set_slice([2 1], 21, 3), [1 1 2]'); 100 %!assert (set_slice ([2 1], 21, 3), [1 1 2]')
101 %!assert(set_slice([2 1], 21, 4), [1 1 0 2]'); 101 %!assert (set_slice ([2 1], 21, 4), [1 1 0 2]')
102 %!assert(set_slice([2 1], 22, []), ones([2 1])); 102 %!assert (set_slice ([2 1], 22, []), ones ([2 1]))
103 %!assert(set_slice([2 1], 22, 1), [2 2]'); 103 %!assert (set_slice ([2 1], 22, 1), [2 2]')
104 %!assert(set_slice([2 1], 22, 2), [1 1;2 2]'); 104 %!assert (set_slice ([2 1], 22, 2), [1 1;2 2]')
105 %!assert(set_slice([2 1], 22, 3), [1 1;0 0;2 2]'); 105 %!assert (set_slice ([2 1], 22, 3), [1 1;0 0;2 2]')
106 %!assert(set_slice([2 1], 31, []), ones([2 1])); 106 %!assert (set_slice ([2 1], 31, []), ones ([2 1]))
107 %!assert(set_slice([2 1], 31, 1), [2 1]'); 107 %!assert (set_slice ([2 1], 31, 1), [2 1]')
108 %!assert(set_slice([2 1], 31, 2), [1 2]'); 108 %!assert (set_slice ([2 1], 31, 2), [1 2]')
109 %!assert(set_slice([2 1], 31, 3), [1 1 2]'); 109 %!assert (set_slice ([2 1], 31, 3), [1 1 2]')
110 %!assert(set_slice([2 1], 31, 4), [1 1 0 2]'); 110 %!assert (set_slice ([2 1], 31, 4), [1 1 0 2]')
111 %!assert(set_slice([2 1], 32, []), ones([2 1])); 111 %!assert (set_slice ([2 1], 32, []), ones ([2 1]))
112 %!assert(set_slice([2 1], 32, 1), [2 2]'); 112 %!assert (set_slice ([2 1], 32, 1), [2 2]')
113 %!assert(set_slice([2 1], 32, 2), [1 1;2 2]'); 113 %!assert (set_slice ([2 1], 32, 2), [1 1;2 2]')
114 %!assert(set_slice([2 1], 32, 3), [1 1;0 0;2 2]'); 114 %!assert (set_slice ([2 1], 32, 3), [1 1;0 0;2 2]')
115 %!assert(set_slice([2 1], 33, []), ones([2 1])); 115 %!assert (set_slice ([2 1], 33, []), ones ([2 1]))
116 %!assert(set_slice([2 1], 33, 1), [2 2]'); 116 %!assert (set_slice ([2 1], 33, 1), [2 2]')
117 %!assert(set_slice([2 1], 33, 2), reshape([1 1 2 2],[2 1 2])); 117 %!assert (set_slice ([2 1], 33, 2), reshape ([1 1 2 2],[2 1 2]))
118 %!assert(set_slice([2 1], 33, 3), reshape([1 1 0 0 2 2],[2 1 3])); 118 %!assert (set_slice ([2 1], 33, 3), reshape ([1 1 0 0 2 2],[2 1 3]))
119 119
120 ## size = [1 2] 120 ## size = [1 2]
121 %!assert(set_slice([1 2], 11, []), full(ones([1 2]))); 121 %!assert (set_slice ([1 2], 11, []), full (ones ([1 2])))
122 %!assert(set_slice([1 2], 11, 1), [2 1]); 122 %!assert (set_slice ([1 2], 11, 1), [2 1])
123 %!assert(set_slice([1 2], 11, 2), [1 2]); 123 %!assert (set_slice ([1 2], 11, 2), [1 2])
124 %!assert(set_slice([1 2], 11, 3), [1 1 2]); 124 %!assert (set_slice ([1 2], 11, 3), [1 1 2])
125 %!assert(set_slice([1 2], 11, 4), [1 1 0 2]); 125 %!assert (set_slice ([1 2], 11, 4), [1 1 0 2])
126 %!assert(set_slice([1 2], 21, []), full(ones([1 2]))); 126 %!assert (set_slice ([1 2], 21, []), full (ones ([1 2])))
127 %!assert(set_slice([1 2], 21, 1), [2 2]); 127 %!assert (set_slice ([1 2], 21, 1), [2 2])
128 %!assert(set_slice([1 2], 21, 2), [1 1;2 2]); 128 %!assert (set_slice ([1 2], 21, 2), [1 1;2 2])
129 %!assert(set_slice([1 2], 21, 3), [1 1;0 0;2 2]); 129 %!assert (set_slice ([1 2], 21, 3), [1 1;0 0;2 2])
130 %!assert(set_slice([1 2], 22, []), full(ones([1 2]))); 130 %!assert (set_slice ([1 2], 22, []), full (ones ([1 2])))
131 %!assert(set_slice([1 2], 22, 1), [2 1]); 131 %!assert (set_slice ([1 2], 22, 1), [2 1])
132 %!assert(set_slice([1 2], 22, 2), [1 2]); 132 %!assert (set_slice ([1 2], 22, 2), [1 2])
133 %!assert(set_slice([1 2], 22, 3), [1 1 2]); 133 %!assert (set_slice ([1 2], 22, 3), [1 1 2])
134 %!assert(set_slice([1 2], 22, 4), [1 1 0 2]); 134 %!assert (set_slice ([1 2], 22, 4), [1 1 0 2])
135 %!assert(set_slice([1 2], 31, []), full(ones([1 2]))); 135 %!assert (set_slice ([1 2], 31, []), full (ones ([1 2])))
136 %!assert(set_slice([1 2], 31, 1), [2 2]); 136 %!assert (set_slice ([1 2], 31, 1), [2 2])
137 %!assert(set_slice([1 2], 31, 2), [1 1;2 2]); 137 %!assert (set_slice ([1 2], 31, 2), [1 1;2 2])
138 %!assert(set_slice([1 2], 31, 3), [1 1;0 0;2 2]); 138 %!assert (set_slice ([1 2], 31, 3), [1 1;0 0;2 2])
139 %!assert(set_slice([1 2], 32, []), full(ones([1 2]))); 139 %!assert (set_slice ([1 2], 32, []), full (ones ([1 2])))
140 %!assert(set_slice([1 2], 32, 1), [2 1]); 140 %!assert (set_slice ([1 2], 32, 1), [2 1])
141 %!assert(set_slice([1 2], 32, 2), [1 2]); 141 %!assert (set_slice ([1 2], 32, 2), [1 2])
142 %!assert(set_slice([1 2], 32, 3), [1 1 2]); 142 %!assert (set_slice ([1 2], 32, 3), [1 1 2])
143 %!assert(set_slice([1 2], 32, 4), [1 1 0 2]); 143 %!assert (set_slice ([1 2], 32, 4), [1 1 0 2])
144 %!assert(set_slice([1 2], 33, []), full(ones([1 2]))); 144 %!assert (set_slice ([1 2], 33, []), full (ones ([1 2])))
145 %!assert(set_slice([1 2], 33, 1), [2 2]); 145 %!assert (set_slice ([1 2], 33, 1), [2 2])
146 %!assert(set_slice([1 2], 33, 2), reshape([1 1 2 2],[1 2 2])); 146 %!assert (set_slice ([1 2], 33, 2), reshape ([1 1 2 2],[1 2 2]))
147 %!assert(set_slice([1 2], 33, 3), reshape([1 1 0 0 2 2],[1 2 3])); 147 %!assert (set_slice ([1 2], 33, 3), reshape ([1 1 0 0 2 2],[1 2 3]))
148 148
149 ## size = [2 2] 149 ## size = [2 2]
150 %!assert(set_slice([2 2], 11, []), ones([2 2])); 150 %!assert (set_slice ([2 2], 11, []), ones ([2 2]))
151 %!assert(set_slice([2 2], 11, 1), [2 1;1 1]); 151 %!assert (set_slice ([2 2], 11, 1), [2 1;1 1])
152 %!assert(set_slice([2 2], 11, 2), [1 1;2 1]); 152 %!assert (set_slice ([2 2], 11, 2), [1 1;2 1])
153 %!assert(set_slice([2 2], 11, 3), [1 2;1 1]); 153 %!assert (set_slice ([2 2], 11, 3), [1 2;1 1])
154 %!assert(set_slice([2 2], 11, 4), [1 1;1 2]); 154 %!assert (set_slice ([2 2], 11, 4), [1 1;1 2])
155 %!error id=Octave:invalid-resize set_slice([2 2], 11, 5) 155 %!error id=Octave:invalid-resize set_slice ([2 2], 11, 5)
156 %!error id=Octave:invalid-resize set_slice([2 2], 11, 6) 156 %!error id=Octave:invalid-resize set_slice ([2 2], 11, 6)
157 %!assert(set_slice([2 2], 21, []), ones([2 2])); 157 %!assert (set_slice ([2 2], 21, []), ones ([2 2]))
158 %!assert(set_slice([2 2], 21, 1), [2 2;1 1]); 158 %!assert (set_slice ([2 2], 21, 1), [2 2;1 1])
159 %!assert(set_slice([2 2], 21, 2), [1 1;2 2]); 159 %!assert (set_slice ([2 2], 21, 2), [1 1;2 2])
160 %!assert(set_slice([2 2], 21, 3), [1 1;1 1;2 2]); 160 %!assert (set_slice ([2 2], 21, 3), [1 1;1 1;2 2])
161 %!assert(set_slice([2 2], 21, 4), [1 1;1 1;0 0;2 2]); 161 %!assert (set_slice ([2 2], 21, 4), [1 1;1 1;0 0;2 2])
162 %!assert(set_slice([2 2], 22, []), ones([2 2])); 162 %!assert (set_slice ([2 2], 22, []), ones ([2 2]))
163 %!assert(set_slice([2 2], 22, 1), [2 2;1 1]'); 163 %!assert (set_slice ([2 2], 22, 1), [2 2;1 1]')
164 %!assert(set_slice([2 2], 22, 2), [1 1;2 2]'); 164 %!assert (set_slice ([2 2], 22, 2), [1 1;2 2]')
165 %!assert(set_slice([2 2], 22, 3), [1 1;1 1;2 2]'); 165 %!assert (set_slice ([ 2 2], 22, 3), [1 1;1 1;2 2]')
166 %!assert(set_slice([2 2], 22, 4), [1 1;1 1;0 0;2 2]'); 166 %!assert (set_slice ([2 2], 22, 4), [1 1;1 1;0 0;2 2]')
167 %!assert(set_slice([2 2], 31, []), ones([2 2])); 167 %!assert (set_slice ([2 2], 31, []), ones ([2 2]))
168 %!assert(set_slice([2 2], 31, 1), [2 2;1 1]); 168 %!assert (set_slice ([2 2], 31, 1), [2 2;1 1])
169 %!assert(set_slice([2 2], 31, 2), [1 1;2 2]); 169 %!assert (set_slice ([2 2], 31, 2), [1 1;2 2])
170 %!assert(set_slice([2 2], 31, 3), [1 1;1 1;2 2]); 170 %!assert (set_slice ( [2 2], 31, 3), [1 1;1 1;2 2])
171 %!assert(set_slice([2 2], 31, 4), [1 1;1 1;0 0;2 2]); 171 %!assert (set_slice ([2 2], 31, 4), [1 1;1 1;0 0;2 2])
172 %!assert(set_slice([2 2], 32, []), ones([2 2])); 172 %!assert (set_slice ([2 2], 32, []), ones ([2 2]))
173 %!assert(set_slice([2 2], 32, 1), [2 2;1 1]'); 173 %!assert (set_slice ([2 2], 32, 1), [2 2;1 1]')
174 %!assert(set_slice([2 2], 32, 2), [1 1;2 2]'); 174 %!assert (set_slice ([2 2], 32, 2), [1 1;2 2]')
175 %!assert(set_slice([2 2], 32, 3), [1 1;1 1;2 2]'); 175 %!assert (set_slice ([ 2 2], 32, 3), [1 1;1 1;2 2]')
176 %!assert(set_slice([2 2], 32, 4), [1 1;1 1;0 0;2 2]'); 176 %!assert (set_slice ([2 2], 32, 4), [1 1;1 1;0 0;2 2]')
177 %!assert(set_slice([2 2], 33, []), ones([2 2])); 177 %!assert (set_slice ([2 2], 33, []), ones ([2 2]))
178 %!assert(set_slice([2 2], 33, 1), [2 2;2 2]); 178 %!assert (set_slice ([2 2], 33, 1), [2 2;2 2])
179 %!assert(set_slice([2 2], 33, 2), reshape([1 1 1 1 2 2 2 2],[2 2 2])); 179 %!assert (set_slice ([2 2], 33, 2), reshape ([1 1 1 1 2 2 2 2],[2 2 2]))
180 %!assert(set_slice([2 2], 33, 3), reshape([1 1 1 1 0 0 0 0 2 2 2 2],[2 2 3])); 180 %!assert (set_slice ([ 2 2], 33, 3), reshape ([1 1 1 1 0 0 0 0 2 2 2 2],[2 2 3]))