more test cases

scivision · scivision · commit e4700349fe2c · 2025-01-14T15:46:21.000-05:00
diff --git a/+stdlib/with_suffix.m b/+stdlib/with_suffix.m
@@ -12,8 +12,11 @@
   suffix (1,1) string
 end
 
+f = "";
 
 r = stdlib.parent(p);
+if ~stdlib.len(r), return, end
+
 s = stdlib.stem(p);
 
 if stdlib.len(s) == 0
diff --git a/test/TestAbsolute.m b/test/TestAbsolute.m
@@ -25,12 +25,12 @@ function test_absolute2arg(tc, p2)
 td = stdlib.posix(pwd());
 r = td + "/hi";
 
-p = {{"", td}, {"hi", r}, {"./hi", td + "/./hi"}, {"../hi", td + "/../hi"}};
+p = {{"", td}, {"hi", r}, {"./hi", td + "/./hi"}, {"../hi", td + "/../hi"}, {"file:///", ""}};
 end
 
 function p = init2arg()
 td = stdlib.posix(pwd());
 r = td + "/hi";
 
-p = {{"", "", td}, {"", "hi", r}, {"hi", "", r}, {"there", "hi", td + "/hi/there"}};
+p = {{"", "", td}, {"", "hi", r}, {"hi", "", r}, {"there", "hi", td + "/hi/there"}, {"file:///", "file:///", ""}};
 end
diff --git a/test/TestCanonical.m b/test/TestCanonical.m
@@ -8,7 +8,8 @@
 {"~/", stdlib.homedir()}, ...
 {"~/..", stdlib.parent(stdlib.homedir())}, ...
 {mfilename("fullpath") + ".m/..", stdlib.parent(mfilename("fullpath"))}, ...
-{"~/not-exist/a/..", stdlib.homedir() + "/not-exist"}
+{"~/not-exist/a/..", stdlib.homedir() + "/not-exist"}, ...
+{"file:///", ""}
 };
 end
 
diff --git a/test/TestFileImpure.m b/test/TestFileImpure.m
@@ -3,7 +3,9 @@
 properties(TestParameter)
 p_is_writable = {{pwd(), true}, {"not-exists", false}, {"file:///", false}, {"", false}};
 
-p_expand = {{"", ""}, {"~abc", "~abc"}, {"~", stdlib.homedir()}, {"~/c", stdlib.homedir() + "/c"}, {'~/////c', stdlib.homedir() + "/c"}};
+p_expand = {{"", ""}, {"~abc", "~abc"}, {"~", stdlib.homedir()}, ...
+  {"~/c", stdlib.homedir() + "/c"}, {'~/////c', stdlib.homedir() + "/c"}, ...
+  {"file:///", ""}};
 
 p_same = {...
 {"","", false}, ...
diff --git a/test/TestFilePure.m b/test/TestFilePure.m
@@ -30,7 +30,9 @@ function test_root_name(tc, p)
 p = {{"", ""}, ...
 {"a/b", ""}, ...
 {"/etc", ""}, ...
-{"c:/etc", ""}};
+{"c:/etc", ""}, ...
+{"file:///", ""}, ...
+};
 
 if ispc
   p{4}{2} = "c:";
diff --git a/test/TestFilename.m b/test/TestFilename.m
@@ -6,7 +6,8 @@
 {"/a/b/c", "c"}, ...
 {"/a/b/c/", ""}, ...
 {"a/b/c.txt", "c.txt"}, ...
-{"a/b/c.txt.gz", "c.txt.gz"}
+{"a/b/c.txt.gz", "c.txt.gz"}, ...
+{"file:///users", ""}, ...
 };
 end
 
diff --git a/test/TestIsAbsolute.m b/test/TestIsAbsolute.m
@@ -14,7 +14,8 @@ function test_is_absolute(tc, p)
 
 
 function p = init_is_absolute()
-p = {{"", false}, {"x", false}, {"x:", false}, {"x:/foo", false}, {"/foo", true}};
+p = {{"", false}, {"x", false}, {"x:", false}, {"x:/foo", false}, {"/foo", true}, ...
+     {"file:///", false}};
 if ispc
     p{4}{2} = true;
     p{5}{2} = false;
diff --git a/test/TestJava.m b/test/TestJava.m
@@ -1,7 +1,7 @@
 classdef TestJava < matlab.unittest.TestCase
 
 properties (TestParameter)
-Ps = {".", tempname, "", "not-exist"}
+Ps = {".", tempname, "", "not-exist", "file:///"}
 end
 
 methods(TestClassSetup)
diff --git a/test/TestJoin.m b/test/TestJoin.m
@@ -14,7 +14,8 @@
 {"a/b", "c/d", "a/b/c/d"}, ...
 {"ab/cd", "/ef", "/ef"}, ...
 {stdlib.homedir(), "", stdlib.homedir()}, ...
-{matlabroot, "bin", stdlib.posix(matlabroot + "/bin")}
+{matlabroot, "bin", stdlib.posix(matlabroot + "/bin")}, ...
+{"file:///", "file:///", ""}, ...
 }
 end
 
diff --git a/test/TestNormalize.m b/test/TestNormalize.m
@@ -31,7 +31,8 @@ function test_normalize(tc, p)
   {"a.", "a."}, ...
   {"a..", "a.."}, ...
   {"./a/.", "a"}, ...
-  {"../a", "../a"}
+  {"../a", "../a"}, ...
+  {"file:///", ""}
 };
 
 if ispc
diff --git a/test/TestParent.m b/test/TestParent.m
@@ -30,7 +30,8 @@ function test_parent(tc, p)
 {"c:/", "."}, ...
 {"c:\", "."}, ...
 {"c:/a/b", "c:/a"}, ...
-{"c:\a/b", "c:\a"}
+{"c:\a/b", "c:\a"}, ...
+{"file:///", ""}
 };
 
 if ispc
diff --git a/test/TestResolve.m b/test/TestResolve.m
@@ -54,11 +54,14 @@ function test_resolve_fullpath(tc, p)
 c = stdlib.posix(pwd());
 
 p = {...
-{"", c}, {"not-exist", c + "/not-exist"}, ...
+{"", c}, ...
+{"not-exist", c + "/not-exist"}, ...
 {"a/../b", c + "/b"}, ...
-{"~", stdlib.homedir()}, {"~/", stdlib.homedir()}, ...
+{"~", stdlib.homedir()}, ...
+{"~/", stdlib.homedir()}, ...
 {"~/..", stdlib.parent(stdlib.homedir())}, ...
 {mfilename("fullpath") + ".m/..", stdlib.parent(mfilename("fullpath"))}, ...
-{"~/not-exist/a/..", stdlib.homedir() + "/not-exist"}
+{"~/not-exist/a/..", stdlib.homedir() + "/not-exist"}, ...
+{"file:///", ""}
 };
 end
diff --git a/test/TestRoot.m b/test/TestRoot.m
@@ -26,4 +26,6 @@ function test_root(tc, p)
 p{5}{2} = "c:";
 p{6}{2} = "c:/";
 end
+
+p{end+1} = {"file:///", ""};
 end
diff --git a/test/TestStem.m b/test/TestStem.m
@@ -2,9 +2,16 @@
 
 properties (TestParameter)
 
-p = {{"/a/b/c", "c"}, {"/a/b/c/", ""}, {"a/b/c/", ""}, ...
-{"a/b/c.txt", "c"}, {"a/b/c.txt.gz", "c.txt"}, ...
-{"a/b/.c", ".c"}}
+p = {...
+{"/a/b/c", "c"}, ...
+{"/a/b/c/", ""}, ...
+{"a/b/c/", ""}, ...
+{"a/b/c.txt", "c"}, ...
+{"a/b/c.txt.gz", "c.txt"}, ...
+{"a/b/.c", ".c"}, ...
+{"", ""}, ...
+{"file:///", ""}, ...
+}
 
 end
 
diff --git a/test/TestSuffix.m b/test/TestSuffix.m
@@ -1,7 +1,11 @@
 classdef TestSuffix < matlab.unittest.TestCase
 
 properties (TestParameter)
-p = {{"", ""}, {"/a/b/c", ""}, {"/a/b/c/", ""}, {"a/b/c.txt", ".txt"}, {"a/b/c.txt.gz", ".gz"}, {".stat", ".stat"}, {".stat.txt", ".txt"}}
+p = {{"", ""}, {"/a/b/c", ""}, ...
+  {"/a/b/c/", ""}, {"a/b/c.txt", ".txt"}, ...
+  {"a/b/c.txt.gz", ".gz"}, {".stat", ".stat"}, ...
+  {".stat.txt", ".txt"}, ...
+  {"file:///", ""}}
 end
 
 methods (Test)
diff --git a/test/TestSymlink.m b/test/TestSymlink.m
@@ -40,6 +40,8 @@ function test_is_symlink(tc, p)
 function test_read_symlink(tc)
 import matlab.unittest.constraints.IsOfClass
 
+tc.verifyEqual(stdlib.read_symlink(""), "")
+tc.verifyEqual(stdlib.read_symlink("file:///"), "")
 tc.verifyEqual(stdlib.read_symlink("not-exist"), "")
 tc.verifyEqual(stdlib.read_symlink(tc.d.this), "")
 
@@ -53,6 +55,8 @@ function test_read_symlink(tc)
 
 function test_create_symlink(tc)
 
+tc.verifyFalse(stdlib.create_symlink("", tempname))
+tc.verifyFalse(stdlib.create_symlink("file:///", tempname))
 tc.verifyFalse(stdlib.create_symlink(tc.d.this, tc.d.link))
 tc.verifyTrue(stdlib.create_symlink(tc.d.this, "another.lnk"))
 tc.verifyTrue(stdlib.is_symlink("another.lnk"))
@@ -64,5 +68,8 @@ function test_create_symlink(tc)
 
 
 function p = init_symlink()
-p = {{"not-exist", false}, {"my.lnk", true}, {mfilename("fullpath") + ".m", false}};
+p = {{"not-exist", false}, {"my.lnk", true}, ...
+  {mfilename("fullpath") + ".m", false}, ...
+  {"", false}, ...
+  {"file:///", false}};
 end
diff --git a/test/TestWindowsCOM.m b/test/TestWindowsCOM.m
@@ -1,10 +1,13 @@
 classdef TestWindowsCOM < matlab.unittest.TestCase
 
+properties (TestParameter)
+Pn = {"", "not-exist", "file:///"}
+end
 
 methods (Test)
 
-function test_not(tc)
-tc.verifyEmpty(stdlib.windows_shortname("not-exist"))
+function test_not(tc, Pn)
+tc.verifyEmpty(stdlib.windows_shortname(Pn))
 end
 
 function test_short_folder(tc)
diff --git a/test/TestWithSuffix.m b/test/TestWithSuffix.m
@@ -1,9 +1,15 @@
 classdef TestWithSuffix < matlab.unittest.TestCase
 
 properties (TestParameter)
-p = {{"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 = {{"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"}, ...
+{"file:///asdf", ".nc", ""}
+};
 end
 
 methods (Test)

Original file line number	Diff line number	Diff line change
`@@ -14,7 +14,8 @@`
`14`	`14`	`{"a/b", "c/d", "a/b/c/d"}, ...`
`15`	`15`	`{"ab/cd", "/ef", "/ef"}, ...`
`16`	`16`	`{stdlib.homedir(), "", stdlib.homedir()}, ...`
`17`		`-{matlabroot, "bin", stdlib.posix(matlabroot + "/bin")}`
	`17`	`+{matlabroot, "bin", stdlib.posix(matlabroot + "/bin")}, ...`
	`18`	`+{"file:///", "file:///", ""}, ...`
`18`	`19`	`}`
`19`	`20`	`end`
`20`	`21`