stem, with_suffix: no input coerce

Author: scivision

+stdlib/set_modtime.m

@@ -3,7 +3,7 @@
 
 function ok = set_modtime(p, t)
 arguments
-  p (1,1) string
+  p {mustBeTextScalar}
   t (1,1) datetime
 end
 

+stdlib/stem.m

@@ -2,7 +2,7 @@
 
 function st = stem(p)
 arguments
-  p (1,1) string
+  p {mustBeTextScalar}
 end
 
 [~, n, s] = fileparts(p);

+stdlib/unlink.m

@@ -2,20 +2,12 @@
 % optional: mex
 %
 % Matlab or GNU Octave delete() has trouble with not being able to delete
-% open files on Windows. This MEX function overcomes that limitation.
-% This function returns a boolean success status, which
-% delete() does not.
-%
-%%% Inputs
-% * path (1,1) string
-%%% Outputs
-% * ok (1,1) logical
-%
-% This function is written in C++ using STL <filesystem>
+% open files on Windows. This function overcomes that limitation by returning
+% a boolean success status.
 
 function ok = unlink(apath)
 arguments
-  apath (1,1) string
+  apath {mustBeTextScalar}
 end
 
 %% fallback for if MEX not compiled

+stdlib/with_suffix.m

@@ -8,8 +8,8 @@
 
 function f = with_suffix(p, suffix)
 arguments
-  p (1,1) string
-  suffix (1,1) string
+  p {mustBeTextScalar}
+  suffix {mustBeTextScalar}
 end
 
 f = "";
@@ -27,7 +27,7 @@
 if strcmp(r, '.')
   f = s;
 else
-  f = strcat(r, "/", s);
+  f = strcat(r, '/', s);
 end
 
 f = strcat(f, suffix);

test/TestStem.m

@@ -8,7 +8,7 @@
 {"a/b/c/", ""}, ...
 {"a/b/c.txt", "c"}, ...
 {"a/b/c.txt.gz", "c.txt"}, ...
-{"a/b/.c", ".c"}, ...
+{'a/b/.c', '.c'}, ...
 {"", ""}
 }
 

test/TestWithSuffix.m

@@ -2,13 +2,12 @@
 
 properties (TestParameter)
 p = {{"foo.h5", ".nc", "foo.nc"},...
-  {"c", "", "c"}, ...
-  {"c.nc", "", "c"}, ...
+{"c", "", "c"}, ...
+{"c.nc", "", "c"}, ...
 {"", ".nc", ".nc"}, ...
 {"a/b/c/", ".h5", "a/b/c/.h5"}, ...
 {"a/b/.h5", ".nc", "a/b/.h5.nc"}, ...
-{"a/b", ".nc", "a/b.nc"}
-};
+{'a/b', '.nc', "a/b.nc"}};
 end
 
 methods (Test)