Mercurial > octave-nkf

changeset 20609:780431fc4137

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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")