add stem()

Author: scivision

+stdlib/+fileio/stem.m

@@ -0,0 +1,9 @@
+function p = stem(path)
+% STEM filename without directory or suffix
+arguments
+  path string
+end
+
+[~, p] = fileparts(path);
+
+end

+stdlib/+test/TestFilePure.m

@@ -16,7 +16,7 @@ function test_posix(tc)
 
 function test_parent(tc)
 
-tc.assertEmpty(stdlib.fileio.parent(string.empty))
+tc.verifyEmpty(stdlib.fileio.parent(string.empty))
 tc.verifyEqual(stdlib.fileio.parent(""), "")
 
 tc.verifyEqual(stdlib.fileio.parent("/foo/bar/baz"), "/foo/bar")
@@ -27,6 +27,22 @@ function test_parent(tc)
 end
 
 
+function test_stem(tc)
+
+tc.verifyEmpty(stdlib.fileio.stem(string.empty))
+tc.verifyEqual(stdlib.fileio.stem(""), "")
+
+tc.verifyEqual(stdlib.fileio.stem("/foo/bar/baz"), "baz")
+tc.verifyEqual(stdlib.fileio.stem("/foo/bar/baz/"), "")
+
+tc.verifyEqual(stdlib.fileio.stem("foo/bar/baz/"), "")
+
+tc.verifyEqual(stdlib.fileio.stem("foo/bar/baz.txt"), "baz")
+tc.verifyEqual(stdlib.fileio.stem("foo/bar/baz.txt.gz"), "baz.txt")
+
+end
+
+
 function test_path_tail(tc)
 
 import stdlib.path_tail

+stdlib/stem.m

@@ -0,0 +1,9 @@
+function p = stem(path)
+% STEM filename without directory or suffix
+arguments
+  path string
+end
+
+p = stdlib.fileio.stem(path);
+
+end