diff scripts/general/interp3.m @ 18722:5cf9a02732b6

Issue warning when '*' flag used with interp2,3,n.m (bug #41459). interp2.m, interp3.m, interpn.m: Check for '*' flag to method. Remove if found and issue a warning. Add %!warning test for behavior.
author Rik <rik@octave.org>
date Sat, 22 Mar 2014 14:31:22 -0700
parents d63878346099
children 0ede4dbb37f1
line wrap: on
line diff
--- a/scripts/general/interp3.m
+++ b/scripts/general/interp3.m
@@ -85,6 +85,11 @@
     nargs = nargs - 2;
   endif
 
+  if (method(1) == "*")
+    warning ("interp3: ignoring unsupported '*' flag to METHOD");
+    method(1) = [];
+  endif
+
   if (nargs < 3 || (nargs == 4 && ! isvector (varargin{1})
                     && nargs == (ndims (varargin{1}) + 1)))
     v = varargin{1};
@@ -199,3 +204,5 @@
 %!assert (interp3 (z, "linear"), zout, tol)
 %!assert (interp3 (z, "spline"), zout, tol)
 
+%% Test input validation
+%!warning <ignoring unsupported '\*' flag> interp3 (rand (3,3,3), 1, "*linear");