with_suffix: handle corner case of leading dot filename

Author: scivision

+stdlib/with_suffix.m

@@ -16,7 +16,15 @@
 s = stdlib.stem(p);
 
 if stdlib.len(s) == 0
-  f = stdlib.join(p, suffix, false);
+  if stdlib.len(stdlib.filename(p))
+    if ischar(r)
+      f = strcat(p, suffix);
+    else
+      f = p + suffix;
+    end
+  else
+    f = stdlib.join(p, suffix, false);
+  end
   return
 end
 
@@ -40,3 +48,4 @@
 %!assert(with_suffix("ab", ".nc"), "ab.nc")
 %!assert(with_suffix("ab.h5", ""), "ab")
 %!assert(with_suffix("ab", ""), "ab")
+%!assert(with_suffix("ab/.h5", ".nc"), "ab/.nc")

test/TestFilePure.m

@@ -31,7 +31,9 @@
 
 p_suffix = {{"", ""}, {"/a/b/c", ""}, {"/a/b/c/", ""}, {"a/b/c.txt", ".txt"}, {"a/b/c.txt.gz", ".gz"}, {".stat", ".stat"}, {".stat.txt", ".txt"}}
 
-p_with_suffix = {{"foo.h5", ".nc", "foo.nc"}, {"c", "", "c"}, {"c.nc", "", "c"}, {"", ".nc", ".nc"}, {"a//b///c///", ".h5", "a/b/c/.h5"}}
+p_with_suffix = {{"foo.h5", ".nc", "foo.nc"}, {"c", "", "c"}, {"c.nc", "", "c"}, ...
+{"", ".nc", ".nc"}, {"a//b///c///", ".h5", "a/b/c/.h5"}, ...
+{"a/b/.h5", ".nc", "a/b/.h5.nc"}, {"a/b", ".nc", "a/b.nc"}};
 
 p_norm = {
   {"", "."}, ...