test:octave: only if pkg exists

Author: scivision

+stdlib/h5exists.m

@@ -28,10 +28,12 @@
 end
 
 %!test
+%! if !isempty(pkg('list', 'hdf5oct'))
 %! pkg load hdf5oct
 %! fn = tempname();
 %! ds = '/a';
 %! h5create(fn, ds, [1])
 %! assert(h5exists(fn, ds))
 %! assert(!h5exists(fn, '/b'))
 %! delete(fn)
+%! endif

+stdlib/h5save_exist.m

@@ -32,6 +32,7 @@ function h5save_exist(filename, varname, A, sizeA)
 end
 
 %!test
+%! if !isempty(pkg('list', 'hdf5oct'))
 %! pkg load hdf5oct
 %! fn = tempname();
 %! ds = '/a';
@@ -41,3 +42,4 @@ function h5save_exist(filename, varname, A, sizeA)
 %! h5save_exist(fn, ds, b, size(b))
 %! assert(h5read(fn, ds), b)
 %! delete(fn)
+%! endif

+stdlib/h5save_new.m

@@ -31,10 +31,12 @@ function h5save_new(filename, varname, A, sizeA, compressLevel)
 end
 
 %!test
+%! if !isempty(pkg('list', 'hdf5oct'))
 %! pkg load hdf5oct
 %! fn = tempname();
 %! ds = '/a';
 %! a = [1,2];
 %! h5save_new(fn, ds, a, size(a), 0)
 %! assert(h5read(fn, ds), a)
 %! delete(fn)
+%! endif

+stdlib/h5size.m

@@ -24,10 +24,12 @@
 
 
 %!test
+%! if !isempty(pkg('list', 'hdf5oct'))
 %! pkg load hdf5oct
 %! fn = tempname();
 %! ds = '/a';
 %! a = [1,2];
 %! h5save_new(fn, ds, a, size(a), 0)
 %! assert(h5size(fn, ds), uint64([1,2]))
 %! delete(fn)
+%! endif

+stdlib/h5variables.m

@@ -36,9 +36,11 @@
 
 
 %!test
+%! if !isempty(pkg('list', 'hdf5oct'))
 %! pkg load hdf5oct
 %! fn = tempname();
 %! ds = '/a';
 %! h5create(fn, ds, [1])
 %! assert(h5variables(fn, ''), {'/a'})
 %! delete(fn)
+%! endif

+stdlib/ncexists.m

@@ -30,10 +30,12 @@
 
 
 %!test
+%! if !isempty(pkg('list', 'netcdf'))
 %! pkg load netcdf
 %! fn = tempname();
 %! ds = 'a';
 %! nccreate(fn, ds)
 %! assert(ncexists(fn, ds))
 %! assert(!ncexists(fn, 'b'))
 %! delete(fn)
+%! endif

+stdlib/ncsave_exist.m

@@ -16,6 +16,7 @@ function ncsave_exist(filename, varname, A, sizeA)
 end
 
 %!test
+%! if !isempty(pkg('list', 'netcdf'))
 %! pkg load netcdf
 %! fn = tempname();
 %! ds = 'a';
@@ -25,3 +26,4 @@ function ncsave_exist(filename, varname, A, sizeA)
 %! ncsave_exist(fn, ds, b, size(b))
 %! assert(ncread(fn, ds), b)
 %! delete(fn)
+%! endif

+stdlib/ncsave_new.m

@@ -22,10 +22,12 @@ function ncsave_new(file, varname, A, sizeA, ncdims, compressLevel)
 end
 
 %!test
+%! if !isempty(pkg('list', 'netcdf'))
 %! pkg load netcdf
 %! fn = tempname();
 %! ds = 'a';
 %! a = [1,2];
 %! ncsave_new(fn, ds, a, size(a), {"x", 1, "y", 2}, 0)
 %! assert(ncread(fn, ds), a)
 %! delete(fn)
+%! endif

+stdlib/ncsize.m

@@ -23,10 +23,12 @@
 end
 
 %!test
+%! if !isempty(pkg('list', 'netcdf'))
 %! pkg load netcdf
 %! fn = tempname();
 %! nccreate(fn, 'a')
 %! assert(ncsize(fn, 'a'), [])
 %! nccreate(fn, 'b', 'Dimensions', {'x', 2, 'y', 3})
 %! assert(ncsize(fn, 'b'), [2, 3])
 %! delete(fn)
+%! endif

+stdlib/ncvariables.m

@@ -38,9 +38,11 @@
 
 
 %!test
+%! if !isempty(pkg('list', 'netcdf'))
 %! pkg load netcdf
 %! fn = tempname();
 %! ds = 'a';
 %! nccreate(fn, ds)
 %! assert(ncvariables(fn, ''), {'a'})
 %! delete(fn)
+%! endif