Mercurial > octave
changeset 20810:dc9039163760
Add BIST tests for rows().
* data.cc (Frows): Add BIST tests.
author | Rik <rik@octave.org> |
---|---|
date | Fri, 04 Dec 2015 19:53:54 -0800 |
parents | 9e9892519a7c |
children | 5979314bb15a |
files | libinterp/corefcn/data.cc |
diffstat | 1 files changed, 27 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/libinterp/corefcn/data.cc Fri Dec 04 17:17:24 2015 -0800 +++ b/libinterp/corefcn/data.cc Fri Dec 04 19:53:54 2015 -0800 @@ -2903,6 +2903,33 @@ return octave_value (args(0).rows ()); } +/* +%!assert (rows (ones (2,5)), 2) +%!assert (rows (ones (5,2)), 5) +%!assert (rows (ones (5,4,3,2)), 2) +%!assert (rows (ones (3,4,5,2)), 3) + +%!assert (rows (cell (2,5)), 2) +%!assert (rows (cell (5,2)), 5) +%!assert (rows (cell (5,4,3,2)), 2) +%!assert (rows (cell (3,4,5,2)), 3) + +%!test +%! x(2,5,3).a = 1; +%! assert (rows (x), 2); +%! y(5,4,3).b = 2; +%! assert (rows (y), 5); + +%!assert (rows ("Hello World"), 1) + +%!assert (rows ([]), 0) +%!assert (rows (zeros (2,0), 2) + +## Test input validation +%!error rows () +%!error rows (1,2) +*/ + DEFUN (columns, args, , "-*- texinfo -*-\n\ @deftypefn {Built-in Function} {} columns (@var{a})\n\