# HG changeset patch
# User Carnë Draug <carandraug@octave.org>
# Date 1444331205 -3600
# Node ID 780431fc41374622c32df0fc1663be67990077ca
# Parent  32a0bf9906c13c67a679f461261f4ccacfe5d7f0
linspace: add tests for the use of vectors as base and limit.

diff -r 32a0bf9906c1 -r 780431fc4137 libinterp/corefcn/data.cc
--- 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")