stem: don't coerce

Author: scivision

+stdlib/stem.m

@@ -9,14 +9,13 @@
 % * s: Character vector or string scalar containing the file name without directory or suffix.
 %
 % Note: fileparts() was about 100x faster then using multiple steps with pattern.
+
 function s = stem(filepath)
-arguments
-  filepath string
-end
 
 [~, s, e] = fileparts(filepath);
 
-i = stdlib.strempty(s);
-s(i) = e(i);
+if stdlib.strempty(s)
+  s = e;
+end
 
 end

test/TestStem.m

@@ -11,10 +11,10 @@
 {"a/b/c.txt", "c"}, ...
 {"a/b/c.txt.gz", "c.txt"}, ...
 {"a/b/.c", ".c"}, ...
-{'a/b/.c', ".c"}, ...
+{'a/b/.c', '.c'}, ...
 {".config", ".config"}, ...
 {"", ""}, ...
-{'', ""}
+{'', ''}
 }
 end
 
@@ -27,16 +27,4 @@ function test_stem(tc, p)
 
 end
 
-methods (Test, TestTags={'R2020b'})
-
-function test_stem_array(tc)
-tc.assumeFalse(stdlib.matlabOlderThan('R2020b'))
-in = ["", ".txt", "a/b/c.txt", "a/b/c.txt.gz", "a/b/c"];
-exp = ["", ".txt", "c", "c.txt", "c"];
-out = stdlib.stem(in);
-tc.verifyEqual(out, exp)
-end
-
-end
-
 end