Mercurial > octave-nkf
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])) |