test hdf4

Author: scivision

+stdlib/h4exists.m

@@ -6,12 +6,13 @@
 % * variable: path of variable in file
 %%% Outputs
 % * exists: boolean
-arguments
-  file
-  variable (1,1) string
-end
+% arguments
+%   file
+%   variable (1,1) string
+% end
 
-sds = hdfinfo(file).SDS;
+finf = hdfinfo(file);
+sds = finf.SDS;
 exists = ismember(variable, sds.Name);
 
 end

+stdlib/h4size.m

@@ -7,14 +7,15 @@
 % fsize: vector of variable size per dimension. Empty if scalar variable.
 
 function fsize = h4size(file, variable)
-arguments
-  file
-  variable (1,1) string
-end
+% arguments
+%   file
+%   variable (1,1) string
+% end
 
-sds = hdfinfo(file).SDS;
+finf = hdfinfo(file);
+sds = finf.SDS;
 
-i = {sds.Name} == variable;
+i = strcmp({sds.Name}, variable);
 if ~any(i)
   error(variable + " is not an SDS in " + file)
 end

test/TestHDF4.m

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