ci: function based tests

Author: scivision

+hdf5nc/test_hdf5.m

@@ -3,7 +3,7 @@
 end
 
 function setupOnce(tc)
-import hdf5nc.*
+import hdf5nc.h5save
 
 A0 = 42.;
 A1 = [42.; 43.];
@@ -47,13 +47,13 @@ function test_get_variables(tc)
 function test_exists(tc)
 e0 = hdf5nc.h5exists(tc.TestData.basic, '/A3');
 assert(isscalar(e0))
-assert(e0, 'A3 exists')
+assertTrue(tc, e0, 'A3 exists')
 
-assert(~hdf5nc.h5exists(tc.TestData.basic, '/oops'), 'oops not exist')
+assertFalse(tc, hdf5nc.h5exists(tc.TestData.basic, '/oops'), 'oops not exist')
 
 e1 = hdf5nc.h5exists(tc.TestData.basic, ["A3", "oops"]);
 assert(isrow(e1))
-assert(all(e1 == [true, false]), 'h5exists array')
+assertEqual(tc, e1, [true, false], 'h5exists array')
 end
 
 
@@ -84,15 +84,16 @@ function test_size(tc)
 
 
 function test_read(tc)
-s = h5read(tc.TestData.basic, '/A0');
+basic = tc.TestData.basic;
+s = h5read(basic, '/A0');
 assert(isscalar(s))
 assertEqual(tc, s, 42, 'A0 read')
 
-s = h5read(tc.TestData.basic, '/A1');
+s = h5read(basic, '/A1');
 assert(isvector(s))
 assertEqual(tc, s, tc.TestData.A1, 'A1 read')
 
-s = h5read(tc.TestData.basic, '/A2');
+s = h5read(basic, '/A2');
 assert(ismatrix(s))
 assertEqual(tc, s, tc.TestData.A2, 'A2 read')
 

+hdf5nc/test_netcdf.m

@@ -1,5 +1,10 @@
-% test our custom high-level NetCDF4 interface
-import hdf5nc.*
+function tests = test_netcdf
+tests = functiontests(localfunctions);
+end
+
+
+function setupOnce(tc)
+import hdf5nc.ncsave
 
 A0 = 42.;
 A1 = [42.; 43.];
@@ -8,65 +13,109 @@
 A3(:,:,2) = 2*A3;
 A4(:,:,:,5) = A3;
 
+tc.TestData.A0 = A0;
+tc.TestData.A1 = A1;
+tc.TestData.A2 = A2;
+tc.TestData.A3 = A3;
+tc.TestData.A4 = A4;
+
 basic = tempname + ".nc";
+tc.TestData.basic = basic;
 
 % create test data first, so that parallel tests works
 ncsave(basic, 'A0', A0)
 ncsave(basic, 'A1', A1)
 ncsave(basic, 'A2', A2, "dims", {'x2', size(A2,1), 'y2', size(A2,2)})
 ncsave(basic, 'A3', A3, "dims", {'x3', size(A3,1), 'y3', size(A3,2), 'z3', size(A3,3)})
 ncsave(basic, 'A4', A4, "dims", {'x4', size(A4,1), 'y4', size(A4,2), 'z4', size(A4,3), 'w4', size(A4,4)})
-%% test_get_variables
-vars = ncvariables(basic);
-assert(isequal(sort(vars), ["A0", "A1", "A2", "A3", "A4"]), 'missing variables')
-%% test_exists
-e0 = ncexists(basic, 'A3');
+end
+
+
+function test_get_variables(tc)
+vars = hdf5nc.ncvariables(tc.TestData.basic);
+assertEqual(tc, sort(vars), ["A0", "A1", "A2", "A3", "A4"], 'missing variables')
+end
+
+
+function test_exists(tc)
+e0 = hdf5nc.ncexists(tc.TestData.basic, 'A3');
 assert(isscalar(e0))
-assert(e0, 'A3 exists')
+assertTrue(tc, e0, 'A3 exists')
 
-assert(~ncexists(basic, '/oops'), 'oops not exist')
+assertFalse(tc, hdf5nc.ncexists(tc.TestData.basic, '/oops'), 'oops not exist')
 
-e1 = ncexists(basic, ["A3", "oops"]);
+e1 = hdf5nc.ncexists(tc.TestData.basic, ["A3", "oops"]);
 assert(isrow(e1))
-assert(all(e1 == [true, false]), 'ncexists array')
-%% test_size
+assertEqual(tc, e1, [true, false], 'ncexists array')
+end
+
+function test_size(tc)
+import hdf5nc.ncsize
+basic = tc.TestData.basic;
+
 s = ncsize(basic, 'A0');
-assert(isscalar(s) && s==1, 'A0 shape')
+assert(isscalar(s))
+assertEqual(tc, s, 1, 'A0 shape')
 
 s = ncsize(basic, 'A1');
-assert(isscalar(s) && s==2, 'A1 shape')
+assert(isscalar(s))
+assertEqual(tc, s, 2, 'A1 shape')
 
 s = ncsize(basic, 'A2');
-assert(isvector(s) && isequal(s, [4,4]), 'A2 shape')
+assert(isvector(s))
+assertEqual(tc, s, [4,4], 'A2 shape')
 
 s = ncsize(basic, 'A3');
-assert(isvector(s) && isequal(s, [4,3,2]), 'A3 shape')
+assert(isvector(s))
+assertEqual(tc, s, [4,3,2], 'A3 shape')
 
 s = ncsize(basic, 'A4');
-assert(isvector(s) && isequal(s, [4,3,2,5]), 'A4 shape')
-%% test_read
+assert(isvector(s))
+assertEqual(tc, s, [4,3,2,5], 'A4 shape')
+end
+
+
+function test_read(tc)
+basic = tc.TestData.basic;
+
 s = ncread(basic, '/A0');
-assert(isscalar(s) && s==42, 'A0 read')
+assert(isscalar(s))
+assertEqual(tc, s, 42, 'A0 read')
 
 s = ncread(basic, '/A1');
-assert(isvector(s) && isequal(s, A1), 'A1 read')
+assert(isvector(s))
+assertEqual(tc, s, tc.TestData.A1, 'A1 read')
 
 s = ncread(basic, '/A2');
-assert(ismatrix(s) && isequal(s, A2), 'A2 read')
+assert(ismatrix(s))
+assertEqual(tc, s, tc.TestData.A2, 'A2 read')
 
 s = ncread(basic, '/A3');
-assert(ndims(s)==3 && isequal(s, A3), 'A3 read')
+assert(ndims(s)==3)
+assertEqual(tc, s, tc.TestData.A3, 'A3 read')
 
 s = ncread(basic, '/A4');
-assert(ndims(s)==4 && isequal(s, A4), 'A4 read')
-%% test_coerce
+assert(ndims(s)==4)
+assertEqual(tc, s, tc.TestData.A4, 'A4 read')
+end
+
+
+function test_coerce(tc)
+import hdf5nc.ncsave
+
+basic = tc.TestData.basic;
+A0 = tc.TestData.A0;
+
 ncsave(basic, 'int32', A0, "type", 'int32')
 ncsave(basic, 'int64', A0, "type", 'int64')
 ncsave(basic, 'float32', A0, "type", 'float32')
 
-assert(isa(ncread(basic, 'int32'), 'int32'), 'int32')
-assert(isa(ncread(basic, 'int64'), 'int64'), 'int64')
-assert(isa(ncread(basic, 'float32'), 'single'), 'float32')
-%% test_rewrite
-ncsave(basic, 'A2', 3*magic(4))
-assert(isequal(ncread(basic, 'A2'), 3*magic(4)), 'rewrite 2D fail')
+assertClass(tc, h5read(basic, '/int32'), 'int32', 'int32')
+assertClass(tc, h5read(basic, '/int64'), 'int64', 'int64')
+assertClass(tc, h5read(basic, '/float32'), 'single', 'float32')
+end
+
+function test_rewrite(tc)
+hdf5nc.ncsave(tc.TestData.basic, 'A2', 3*magic(4))
+assertEqual(tc, ncread(tc.TestData.basic, 'A2'), 3*magic(4), 'rewrite 2D fail')
+end

Readme.md

@@ -79,9 +79,3 @@ runtests('hdf5nc')
     ```matlab
     expanduser(path)
     ```
-
-## unit tests
-
-```matlab
-runtests
-```