better test suite for older matlab

Author: scivision

+stdlib/filename.m

@@ -6,9 +6,8 @@
 % filename (including suffix) without directory
 
 function f = filename(p, backend)
-arguments
-  p
-  backend = 'fileparts'
+if nargin < 2
+  backend = 'fileparts';
 end
 
 % fileparts is 5x to 10x faster than regexp and pattern

private/releaseTestTags.m

@@ -10,9 +10,10 @@
 end
 
 releasesKnown = [
-"R2019b", "R2020a", "R2020b", "R2021a", "R2021b", ...
-"R2022a", "R2022b", "R2023a", "R2023b", "R2024a", ...
-"R2024b", "R2025a", "R2025b"];
+"R2019a", "R2019b", "R2020a", "R2020b", ...
+"R2021a", "R2021b", "R2022a", "R2022b", ...
+"R2023a", "R2023b", "R2024a", "R2024b", ...
+"R2025a", "R2025b"];
 
 % takes releases not newer than this release
 idx = find(releasesKnown >= r, 1, 'first');

test/TestAbsolute.m

@@ -1,5 +1,5 @@
 classdef (SharedTestFixtures={ matlab.unittest.fixtures.PathFixture(fileparts(fileparts(mfilename('fullpath'))))}, ...
-          TestTags = {'R2019b', 'impure'}) ...
+          TestTags = {'R2019a', 'impure'}) ...
     TestAbsolute < matlab.unittest.TestCase
 
 properties (TestParameter)

test/TestFilename.m

@@ -1,5 +1,5 @@
 classdef (SharedTestFixtures={ matlab.unittest.fixtures.PathFixture(fileparts(fileparts(mfilename('fullpath'))))}, ...
-          TestTags = {'R2019b', 'pure'}) ...
+          TestTags = {'R2019a', 'pure'}) ...
     TestFilename < matlab.unittest.TestCase
 
 properties (TestParameter)

test/TestIsAbsolute.m

@@ -1,11 +1,9 @@
 classdef (SharedTestFixtures={ matlab.unittest.fixtures.PathFixture(fileparts(fileparts(mfilename('fullpath'))))}, ...
-          TestTags = {'R2019b', 'pure'}) ...
+          TestTags = {'R2019a', 'pure'}) ...
     TestIsAbsolute < matlab.unittest.TestCase
 
 properties (TestParameter)
-p = {{"", false}, {"x", false}, {"x:", false}}
-pu = {{"x:/foo", false}, {"/foo", true}}
-pw = {{"x:/foo", true}, {"/foo", false}}
+p = init_p()
 end
 
 
@@ -17,27 +15,16 @@ function test_is_absolute(tc, p)
 end
 
 end
-
-
-methods (Test, TestTags={'unix'})
-
-function test_is_absolute_unix(tc, pu)
-tc.assumeTrue(isunix())
-ok = stdlib.is_absolute(pu{1});
-tc.verifyEqual(ok, pu{2}, pu{1})
 end
 
-end
 
+function p = init_p()
+p = {{"", false}, {"x", false}, {"x:", false}};
 
-methods (Test, TestTags={'windows'})
-
-function test_is_absolute_windows(tc, pw)
-tc.assumeTrue(ispc())
-ok = stdlib.is_absolute(pw{1});
-tc.verifyEqual(ok, pw{2}, pw{1})
-end
-
+if ispc()
+  p = [p, {{"x:/foo", true}, {"/foo", false}}];
+else
+  p = [p, {{"x:/foo", false}, {"/foo", true}}];
 end
 
 end

test/TestStem.m

@@ -1,5 +1,5 @@
 classdef (SharedTestFixtures={ matlab.unittest.fixtures.PathFixture(fileparts(fileparts(mfilename('fullpath'))))}, ...
-          TestTags = {'pure'}) ...
+          TestTags = {'R2019a', 'pure'}) ...
     TestStem < matlab.unittest.TestCase
 
 properties (TestParameter)
@@ -19,7 +19,7 @@
 end
 
 
-methods (Test, TestTags={'R2019b'})
+methods (Test)
 
 function test_stem(tc, p)
 tc.verifyEqual(stdlib.stem(p{1}), p{2})

test/TestSuffix.m

@@ -1,5 +1,5 @@
 classdef (SharedTestFixtures={ matlab.unittest.fixtures.PathFixture(fileparts(fileparts(mfilename('fullpath'))))}, ...
-          TestTags = {'pure'}) ...
+          TestTags = {'R2019a', 'pure'}) ...
     TestSuffix < matlab.unittest.TestCase
 
 properties (TestParameter)
@@ -14,7 +14,7 @@
 end
 
 
-methods (Test, TestTags={'R2019b'})
+methods (Test)
 
 function test_suffix(tc, p)
 r = stdlib.suffix(p{1});

test_main.m

@@ -3,9 +3,11 @@
 % Matlab >= R2020a recommended
 
 function test_main(context, sel)
-arguments
-  context = []
-  sel = ~HasTag("exe") & ~HasTag("java_exe")
+if nargin < 1
+  context = [];
+end
+if nargin < 2
+  sel = (~HasTag("exe") & ~HasTag("java_exe")) | HasTag("native_exe");
 end
 
 import matlab.unittest.TestRunner
@@ -18,20 +20,29 @@ function test_main(context, sel)
 end
 test_root = fullfile(cwd, "test");
 
-tags = ["native_exe", releaseTestTags()];
+rtags = releaseTestTags();
 
 try
-  suite = testsuite(test_root, 'Tag', tags, 'InvalidFileFoundAction', "error");
+  suite = testsuite(test_root, 'Tag', rtags, 'InvalidFileFoundAction', "error");
 catch e
   if e.identifier ~= "MATLAB:InputParser:UnmatchedParameter"
     rethrow(e)
   end
 
   try
-    suite = testsuite(test_root, 'Tag', tags);
+    suite = testsuite(test_root, 'Tag', rtags);
   catch e
     if e.identifier == "MATLAB:expectedScalartext"
-      suite = testsuite(test_root, 'Tag', "R2019b");
+      suite = testsuite(test_root);
+
+      assert(numel(rtags) > 0, "No test tags found for this Matlab release")
+      ts = HasTag(rtags(1));
+      if numel(rtags) > 1
+        for t = rtags(2:end)
+          ts = ts | HasTag(t);
+        end
+      end
+      sel = sel & ts;
     else
       rethrow(e)
     end