[svn-r533] Added tests for H5Sextent_class (renamed H5Sget_class)

2 files changed, 10 insertions, 0 deletions

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;