Mercurial > octave-nkf
diff scripts/general/prepad.m @ 12795:9e7ebbaf69ff
codesprint: new tests for files in scripts/general directory
* bitget.m, bitset.m, colon.m, common_size.m, flipdim.m, isdir.m,
nextpow2.m, postpad.m, prepad.m, rat.m, rotdim.m: New tests.
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Sat, 16 Jul 2011 12:46:22 -0400 |
| parents | 2783fa95cab7 |
| children | 72c96de7a403 |
line wrap: on
line diff
--- a/scripts/general/prepad.m Sat Jul 16 09:45:31 2011 -0700 +++ b/scripts/general/prepad.m Sat Jul 16 12:46:22 2011 -0400 @@ -82,3 +82,18 @@ endif endfunction + +%!error prepad (); +%!error prepad (1); +%!error prepad (1,2,3,4,5); +%!error prepad ([1,2], 2, 2,3); + +%!assert (prepad ([1,2], 4), [0,0,1,2]); +%!assert (prepad ([1;2], 4), [0;0;1;2]); + +%!assert (prepad ([1,2], 4, 2), [2,2,1,2]); +%!assert (prepad ([1;2], 4, 2), [2;2;1;2]); + +%!assert (prepad ([1,2], 2, 2, 1), [2,2;1,2]); + +## FIXME -- we need tests for multidimensional arrays.