root: don't coerce type

Author: scivision

+stdlib/root.m

@@ -5,25 +5,23 @@
 
 function r = root(p)
 arguments
-  p (1,1) string
+  p {mustBeTextScalar}
 end
 
 r = stdlib.root_name(p);
 
 if ~strlength(r)
-  if strncmp(p, "/", 1)
-    r = "/";
+  if strncmp(p, '/', 1)
+    r = '/';
   end
-
-  return
+elseif ~(ispc && strcmp(r, p))
+  r = strcat(r, '/');
 end
 
-if ispc && strcmp(r, p)
-  return
+if isstring(p)
+  r = string(r);
 end
 
-r = strcat(r, "/");
-
 end
 
 %!assert(root(''), '')

test/TestRoot.m

@@ -18,7 +18,7 @@ function test_root(tc, p)
 p = {{"", ""}, ...
 {"a/b", ""}, ...
 {"./a/b", ""}, ...
-{"/etc", "/"}, ...
+{'/etc', '/'}, ...
 {"c:", ""}, ...
 {"c:/etc", ""}};