join: remove drop_slash

Author: scivision

+stdlib/join.m

@@ -7,10 +7,10 @@
 end
 
 
-b = stdlib.drop_slash(base);
-o = stdlib.drop_slash(other);
+b = stdlib.posix(base);
+o = stdlib.posix(other);
 
-if strncmp(o, "/", 1) || (ispc && stdlib.is_absolute(o))
+if startsWith(o, "/") || (ispc && stdlib.is_absolute(o))
   p = o;
   return
 end

test/TestJoin.m

@@ -4,12 +4,11 @@
 p = {{"", "", ""}, ...
 {"a", "", "a"}, ...
 {"", "a", "a"}, ...
-{"a/b/", "c/", "a/b/c"}, ...
+{"a/b/", "c", "a/b/c"}, ...
 {"/", "", "/"}, ...
 {"", "/", "/"}, ...
-{"a", "b//", "a/b"}, ...
-{"a//", "b//", "a/b"}, ...
-{"a/b/../", "c/d/../", "a/b/../c/d/.."}, ...
+{"a", "b", "a/b"}, ...
+{"a/b/../", "c/d/..", "a/b/../c/d/.."}, ...
 {"a/b", "..", "a/b/.."}, ...
 {"a/b", "c/d", "a/b/c/d"}, ...
 {"ab/cd", "/ef", "/ef"}, ...

test/TestWithSuffix.m

@@ -5,7 +5,7 @@
   {"c", "", "c"}, ...
   {"c.nc", "", "c"}, ...
 {"", ".nc", ".nc"}, ...
-{"a//b///c///", ".h5", "a/b/c/.h5"}, ...
+{"a/b/c/", ".h5", "a/b/c/.h5"}, ...
 {"a/b/.h5", ".nc", "a/b/.h5.nc"}, ...
 {"a/b", ".nc", "a/b.nc"}
 };