parent: don't coerceE

Author: scivision

+stdlib/drop_slash.m

@@ -1,19 +1,15 @@
 %% DROP_SLASH drop repeated and trailing slash
-%
 
 function d = drop_slash(filepath)
-arguments
-  filepath string
-end
 
 s = stdlib.posix(filepath);
 
 % drop repeated slashes inside string
 d = regexprep(s, '/+', '/');
 
 % drop all trailing slashes
-i = ~strcmp(d, '/') & ~strcmp(d, stdlib.root(s));
-
-d(i) = regexprep(d(i), '/$', '');
+if ~strcmp(d, '/') && ~strcmp(d, stdlib.root(s));
+  d = regexprep(d, '/$', '');
+end
 
 end

+stdlib/parent.m

@@ -9,16 +9,16 @@
 % stdlib.parent("a/b/c/") == "a/b"
 
 function p = parent(file)
-arguments
-  file (1,1) string
-end
 
 p = fileparts(stdlib.drop_slash(file));
 
 if stdlib.strempty(p)
-  p = ".";
+  p = '.';
+  if isstring(file)
+    p = string(p);
+  end
 elseif ispc() && p == stdlib.root_name(file)
-  p = p + "/";
+  p = append(p, '/');
 end
 
 end

test/TestParent.m

@@ -26,7 +26,7 @@ function test_parent(tc, p)
 {".", "."}, ...
 {"..", "."}, ...
 {"../..", ".."}, ...
-{"a/", "."}, ...
+{'a/', '.'}, ...
 {"a/b", "a"}, ...
 {"ab/.parent", "ab"}, ...
 {"ab/.parent.txt", "ab"}, ...
@@ -41,7 +41,7 @@ function test_parent(tc, p)
 p{end+1} = {"c:", "c:/"};
 end
 
-p{end+1} = {'a/b/', "a"};
-p{end+1} = {'a//b', "a"};
+p{end+1} = {'a/b/', 'a'};
+p{end+1} = {'a//b', 'a'};
 
 end