root: dedupe logic

Author: scivision

+stdlib/root.m

@@ -9,11 +9,14 @@
 else
 
   r = "";
+  if ~stdlib.is_absolute(p)
+    return
+  end
 
-  if startsWith(p, "/")
-    r = "/";
-  elseif ispc && strlength(p) >= 2 && isletter(extractBetween(p, 1, 1)) && extractBetween(p, 2, 2) == ":"
+  if ispc
     r = extractBetween(p, 1, 2) + "/";
+  else
+    r = "/";
   end
 
 end

test/TestFilePure.m

@@ -55,7 +55,8 @@
 ref_proximate_to = ref_relative_to;
 ref_proximate_to{end} = other_relative_to{end};
 
-ref_root{end} = "c:/";
+ref_root{5} = "";
+ref_root{6} = "c:/";
 
 else