test samepath: more robust cwd case

Author: scivision

+stdlib/perl_exe.m

@@ -23,11 +23,11 @@
   rethrow(e)
 end
 
-if s == 0 && isfile(r)
+if s == 0 && stdlib.is_file(r)
   exe = r;
   perle = r;
 end
 
 end
 
-%!assert (isfile(stdlib.perl_exe()))
+%!assert (isfile(stdlib.perl_exe()))

test/TestHDF4.m

@@ -1,5 +1,5 @@
 classdef (SharedTestFixtures={ matlab.unittest.fixtures.PathFixture(fileparts(fileparts(mfilename('fullpath'))))}, ...
-          TestTags = {'R2017b', 'hdf4'}) ...
+          TestTags = {'R2017a', 'hdf4'}) ...
     TestHDF4 < matlab.unittest.TestCase
 
 properties
@@ -8,7 +8,7 @@
 
 methods (TestClassSetup)
 function check_file(tc)
-tc.assumeTrue(isfile(tc.file), "HDF4 file not found: " + tc.file)
+tc.assumeTrue(stdlib.is_file(tc.file), "HDF4 file not found: " + tc.file)
 end
 end
 

test/TestSame.m

@@ -1,33 +1,56 @@
 classdef (SharedTestFixtures={ matlab.unittest.fixtures.PathFixture(fileparts(fileparts(mfilename('fullpath'))))}, ...
-          TestTags = {'R2017b', 'impure'}) ...
+          TestTags = {'R2017a'}) ...
     TestSame < matlab.unittest.TestCase
 
+properties
+file = 'same.txt'
+cwd
+end
+
 properties (TestParameter)
-p_same = {...
-{".", pwd()}, ...
-{"..", "./.."}, ...
-{"..", pwd() + "/.."}, ...
-{pwd(), pwd() + "/."}}
+p = {...
+{'..', './..'}, ...
+{'same.txt', './same.txt'}}
 
 backend = {'python', 'java', 'perl', 'sys', 'native'}
 end
 
 
+methods(TestClassSetup)
+function w_dirs(tc)
+  f = matlab.unittest.fixtures.WorkingFolderFixture();
+  tc.applyFixture(f);
+  tc.cwd = f.Folder;
+  tc.assertTrue(stdlib.touch(tc.file))
+end
+end
+
+
 methods(Test)
 
-function test_samepath(tc, p_same, backend)
-[r, b] = stdlib.samepath(p_same{:}, backend);
+function test_samepath(tc, p, backend)
+[r, b] = stdlib.samepath(p{:}, backend);
 tc.assertEqual(char(b), backend)
 tc.verifyClass(r, 'logical')
 
 if ismember(backend, stdlib.Backend().select('samepath'))
-  tc.verifyTrue(r)
+  tc.verifyTrue(r, [p{1} ' ' p{2}])
 else
   tc.assertEmpty(r)
 end
 end
 
 
+function test_samepath_cwd(tc, backend)
+r = stdlib.samepath('.', tc.cwd, backend);
+if ismember(backend, stdlib.Backend().select('samepath'))
+  tc.verifyTrue(r)
+else
+  tc.verifyEmpty(r)
+end
+end
+
+
 function test_samepath_notexist(tc, backend)
 
 t = tempname();

test/TestSymlink.m

@@ -1,5 +1,5 @@
 classdef (SharedTestFixtures={ matlab.unittest.fixtures.PathFixture(fileparts(fileparts(mfilename('fullpath'))))}, ...
-          TestTags = {'R2017b', 'symlink'}) ...
+          TestTags = {'R2017a', 'symlink'}) ...
     TestSymlink < matlab.unittest.TestCase
 
 properties
@@ -74,7 +74,6 @@ function test_create_symlink(tc, B_create_symlink)
   ["MATLAB:io:filesystem:symlink:TargetNotFound","MATLAB:io:filesystem:symlink:FileExists"]));
 
 ano = fullfile(pwd(), 'another.lnk');
-tc.assertFalse(isfile(ano))
 tc.assertFalse(stdlib.is_symlink(ano))
 
 r = stdlib.create_symlink(tc.target, ano, B_create_symlink);