Mercurial > octave-nkf

comparison test/test_slice.m @ 10425:0677c5d80b77

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
rewrite 1D sparse indexing
author Jaroslav Hajek <highegg@gmail.com>
date Fri, 19 Mar 2010 13:00:06 +0100
parents 2e9af3363669
children fd0a3ac60b0e
comparison
equal deleted inserted replaced
10424:0b05b204775b 10425:0677c5d80b77
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 <resize: Invalid.*> set_slice([2 0], 11, 1) 41 %!error id=Octave:invalid-resize set_slice([2 0], 11, 1)
42 %!error <resize: Invalid.*> set_slice([2 0], 11, 2) 42 %!error id=Octave:invalid-resize set_slice([2 0], 11, 2)
43 %!error <resize: Invalid.*> 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]));
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 <resize: Invalid.*> set_slice([2 2], 11, 5) 155 %!error id=Octave:invalid-resize set_slice([2 2], 11, 5)
156 %!error <resize: Invalid.*> 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]);