From 8e9136b83704e2f9adc03bfbea4a227b5eabbe16 Mon Sep 17 00:00:00 2001 From: Quincey Koziol Date: Thu, 23 Jul 1998 14:03:01 -0500 Subject: [svn-r533] Added tests for H5Sextent_class (renamed H5Sget_class) --- test/th5s.c | 5 +++++ test/tselect.c | 5 +++++ 2 files changed, 10 insertions(+) diff --git a/test/th5s.c b/test/th5s.c index 000ca2f..6b4a66c 100644 --- a/test/th5s.c +++ b/test/th5s.c @@ -161,6 +161,7 @@ test_h5s_scalar_write(void) unsigned rank; /* Logical rank of dataspace */ hsize_t tdims[4]; /* Dimension array to test with */ size_t n; /* Number of dataspace elements */ + H5S_class_t ext_type; /* Extent type */ herr_t ret; /* Generic return value */ /* Output message about test being performed */ @@ -185,6 +186,10 @@ test_h5s_scalar_write(void) ret = H5Sextent_dims(sid1, tdims, NULL); VERIFY(ret, 0, "H5Sextent_dims"); + /* Verify extent type */ + ext_type = H5Sextent_class(sid1); + VERIFY(ext_type, H5S_SCALAR, "H5Sextent_class"); + /* Create a dataset */ dataset=H5Dcreate(fid1,"Dataset1",H5T_NATIVE_UINT,sid1,H5P_DEFAULT); CHECK(dataset, FAIL, "H5Dcreate"); diff --git a/test/tselect.c b/test/tselect.c index 39ebaa2..d61dae8 100644 --- a/test/tselect.c +++ b/test/tselect.c @@ -80,6 +80,7 @@ test_select_hyper(void) *tbuf2; /* temporary buffer pointer */ intn i,j; /* Counters */ herr_t ret; /* Generic return value */ + H5S_class_t ext_type; /* Extent type */ /* Output message about test being performed */ MESSAGE(5, ("Testing Hyperslab Selection Functions\n")); @@ -105,6 +106,10 @@ test_select_hyper(void) sid2 = H5Screate_simple(SPACE2_RANK, dims2, NULL); CHECK(sid2, FAIL, "H5Screate_simple"); + /* Verify extent type */ + ext_type = H5Sextent_class(sid1); + VERIFY(ext_type, H5S_SIMPLE, "H5Sextent_class"); + /* Select 2x15x13 hyperslab for disk dataset */ start[0]=1; start[1]=0; start[2]=0; stride[0]=1; stride[1]=1; stride[2]=1; -- cgit v0.12