test: stem, filename: arrays

Author: scivision

+stdlib/filename.m

@@ -18,7 +18,7 @@
   case 'regexp'
     f = regexp(p, ['[^/\' filesep ']*$'], 'match', 'once');
     f(ismissing(f)) = "";
-    otherwise, error('must be backend "pattern" or "regexp"')
+  otherwise, error('must be backend "pattern" or "regexp"')
 end
 
 end

test/TestFilename.m

@@ -25,6 +25,13 @@ function test_filename_empty(tc, e, backend)
 tc.verifyEqual(strlength(fn), 0)
 end
 
+function test_filename_array(tc, backend)
+in = ["", "a", "a/b/c", "a/b/c.txt", "a/b/.hidden", "a/b/c/"];
+exp = ["", "a", "c", "c.txt", ".hidden", ""];
+out = stdlib.filename(in, backend);
+tc.verifyEqual(out, exp)
+end
+
 end
 
 end

test/TestStem.m

@@ -25,9 +25,17 @@ function pkg_path(tc)
 end
 
 methods (Test, TestTags="pure")
-function test(tc, p)
+function test_stem(tc, p)
 tc.verifyEqual(stdlib.stem(p{1}), p{2})
 end
+
+function test_stem_array(tc)
+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