Mercurial > octave-nkf
changeset 20609:780431fc4137
linspace: add tests for the use of vectors as base and limit.
author | Carnë Draug <carandraug@octave.org> |
---|---|
date | Thu, 08 Oct 2015 20:06:45 +0100 |
parents | 32a0bf9906c1 |
children | a61f0d6beb71 |
files | libinterp/corefcn/data.cc |
diffstat | 1 files changed, 15 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/libinterp/corefcn/data.cc Thu Oct 08 19:56:51 2015 +0100 +++ b/libinterp/corefcn/data.cc Thu Oct 08 20:06:45 2015 +0100 @@ -5211,7 +5211,7 @@ { octave_value retval; - int nargin = args.length (); + octave_idx_type nargin = args.length (); octave_idx_type npoints = 100; @@ -5282,6 +5282,20 @@ %! obs = linspace (1, 5-5i, 5); %! assert (obs, exp); +## Test support for vectors in BASE and LIMIT +%!assert (linspace ([1 2 3], [7 8 9]), +%! [linspace(1, 7); linspace(2, 8); linspace(3, 9)]) +%!assert (linspace ([1 2 3]', [7 8 9]'), +%! [linspace(1, 7); linspace(2, 8); linspace(3, 9)]) +%!assert (linspace ([1 2 3], 9), +%! [linspace(1, 9); linspace(2, 9); linspace(3, 9)]) +%!assert (linspace ([1 2 3]', 9), +%! [linspace(1, 9); linspace(2, 9); linspace(3, 9)]) +%!assert (linspace (1, [7 8 9]), +%! [linspace(1, 7); linspace(1, 8); linspace(1, 9)]) +%!assert (linspace (1, [7 8 9]'), +%! [linspace(1, 7); linspace(1, 8); linspace(1, 9)]) + ## Test class of output %!assert (class (linspace (1, 2)), "double") %!assert (class (linspace (single (1), 2)), "single")