is_symlink: array

Author: scivision

+stdlib/is_symlink.m

@@ -2,12 +2,16 @@
 
 function ok = is_symlink(file, backend)
 arguments
-  file {mustBeTextScalar}
+  file string
   backend (1,:) string = ["native", "java", "dotnet", "python", "sys"]
 end
 
-fun = hbackend(backend, "is_symlink", 'R2024b');
+[fun, b] = hbackend(backend, "is_symlink", 'R2024b');
 
-ok = fun(file);
+if isscalar(file) || b == "native"
+  ok = fun(file);
+else
+  ok = arrayfun(fun, file);
+end
 
 end

test/TestSymlink.m

@@ -10,9 +10,9 @@
 p = {{"not-exist", false}, ...
     {mfilename("fullpath") + ".m", false}, ...
     {"", false}};
-cs_fun = {'native', 'sys', 'dotnet', 'python'}
+cs_backend = {'native', 'sys', 'dotnet', 'python'}
 Pre = {'', "", tempname()}
-rs_fun = {'native', 'sys', 'dotnet', 'java', 'python'}
+ir_backend = {'native', 'sys', 'dotnet', 'java', 'python'}
 end
 
 methods(TestClassSetup)
@@ -44,48 +44,57 @@ function setup_symlink(tc)
 
 methods (Test, TestTags=["impure", "symlink"])
 
-function test_is_symlink(tc, p, rs_fun)
-tc.assertNotEmpty(which("stdlib." + rs_fun + ".is_symlink"))
+function test_is_symlink(tc, p, ir_backend)
+tc.assertNotEmpty(which("stdlib." + ir_backend + ".is_symlink"))
 try
-  tc.verifyTrue(stdlib.is_symlink(tc.link, rs_fun), "failed to detect own link")
-  tc.verifyEqual(stdlib.is_symlink(p{1}, rs_fun), p{2}, p{1})
+  tc.verifyTrue(stdlib.is_symlink(tc.link, ir_backend), "failed to detect own link")
+  tc.verifyEqual(stdlib.is_symlink(p{1}, ir_backend), p{2}, p{1})
+catch e
+  tc.verifyEqual(e.identifier, 'stdlib:hbackend:NameError', e.message)
+end
+end
+
+function test_is_symlink_array(tc, ir_backend)
+try
+  r = stdlib.is_symlink([tc.link, mfilename() + ".m"], ir_backend);
+  tc.verifyEqual(r, [true, false], "failed to detect own link")
 catch e
   tc.verifyEqual(e.identifier, 'stdlib:hbackend:NameError', e.message)
 end
 end
 
 
-function test_read_symlink_empty(tc, Pre, rs_fun)
+function test_read_symlink_empty(tc, Pre, ir_backend)
 try
-  tc.verifyEmpty(stdlib.read_symlink(Pre, rs_fun))
+  tc.verifyEmpty(stdlib.read_symlink(Pre, ir_backend))
 catch e
   tc.verifyEqual(e.identifier, 'stdlib:hbackend:NameError', e.message)
 end
 end
 
 
-function test_read_symlink(tc, rs_fun)
-tc.assertNotEmpty(which("stdlib." + rs_fun + ".read_symlink"))
+function test_read_symlink(tc, ir_backend)
+tc.assertNotEmpty(which("stdlib." + ir_backend + ".read_symlink"))
 try
-  tc.verifyEqual(stdlib.read_symlink(tc.link, rs_fun), string(tc.target))
+  tc.verifyEqual(stdlib.read_symlink(tc.link, ir_backend), string(tc.target))
 catch e
   tc.verifyEqual(e.identifier, 'stdlib:hbackend:NameError', e.message)
 end
 end
 
 
-function test_create_symlink(tc, cs_fun)
-tc.assumeNotEmpty(which("stdlib." + cs_fun + ".create_symlink"))
+function test_create_symlink(tc, cs_backend)
+tc.assumeNotEmpty(which("stdlib." + cs_backend + ".create_symlink"))
 tc.applyFixture(matlab.unittest.fixtures.SuppressedWarningsFixture(["MATLAB:io:filesystem:symlink:TargetNotFound","MATLAB:io:filesystem:symlink:FileExists"]))
 
 ano = tc.td + "/another.lnk";
 
 h = @stdlib.create_symlink;
 
 try
-  tc.verifyFalse(h('', tempname(), cs_fun))
-  tc.verifyFalse(h(tc.target, tc.link, cs_fun), "should fail for existing symlink")
-  tc.verifyTrue(h(tc.target, ano, cs_fun))
+  tc.verifyFalse(h('', tempname(), cs_backend))
+  tc.verifyFalse(h(tc.target, tc.link, cs_backend), "should fail for existing symlink")
+  tc.verifyTrue(h(tc.target, ano, cs_backend))
 catch e
   tc.verifyEqual(e.identifier, 'stdlib:hbackend:NameError', e.message)
   return