diff options
author | Songyu Lu <songyulu@hdfgroup.org> | 2018-12-05 22:48:47 (GMT) |
---|---|---|
committer | Songyu Lu <songyulu@hdfgroup.org> | 2018-12-05 22:48:47 (GMT) |
commit | 19a94503f39dfd1a6b88caf4d76d3f4e9ce6f362 (patch) | |
tree | 87ae9ba9e99c2f23dcb0b9bc50f01eeec8ca0855 | |
parent | a89130553de2d043eb69b65d75162af5b97df3bf (diff) | |
download | hdf5-19a94503f39dfd1a6b88caf4d76d3f4e9ce6f362.zip hdf5-19a94503f39dfd1a6b88caf4d76d3f4e9ce6f362.tar.gz hdf5-19a94503f39dfd1a6b88caf4d76d3f4e9ce6f362.tar.bz2 |
HDFFV-10635: add a test case.
-rw-r--r-- | test/tvlstr.c | 104 |
1 files changed, 102 insertions, 2 deletions
diff --git a/test/tvlstr.c b/test/tvlstr.c index 3315d68..cc5a9c4 100644 --- a/test/tvlstr.c +++ b/test/tvlstr.c @@ -23,12 +23,17 @@ #define DATAFILE "tvlstr.h5" #define DATAFILE2 "tvlstr2.h5" +#define DATAFILE3 "sel2el.h5" + +#define DATASET "1Darray" /* 1-D dataset with fixed dimensions */ #define SPACE1_RANK 1 #define SPACE1_DIM1 4 +#define SPACE1_DIM2 2 +#define NUMP 2 -#define VLSTR_TYPE "vl_string_type" +#define VLSTR_TYPE "vl_string_type" /* Definitions for the VL re-writing test */ #define REWRITE_NDATASETS 32 @@ -846,6 +851,99 @@ static void test_vl_rewrite(void) } /* end test_vl_rewrite() */ /**************************************************************** + ** + ** test_write_same_element(): + ** Tests writing to the same element of VL string using + ** H5Sselect_element. + ** + ****************************************************************/ +static void test_write_same_element(void) +{ + hid_t file1, dataset1; + hid_t mspace, fspace, dtype; + hsize_t fdim[] = {SPACE1_DIM1}; + char *val[SPACE1_DIM2] = {"not", "bad"}; + hsize_t marray[] = {2}; + hsize_t coord[SPACE1_RANK][NUMP]; + herr_t ret; + + char *wdata[SPACE1_DIM1] = {"Parting", "is such", "sweet", "sorrow."}; + + file1 = H5Fcreate (DATAFILE3, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT); + CHECK(file1, FAIL, "H5Fcreate"); + + dtype = H5Tcopy (H5T_C_S1); + CHECK(dtype, FAIL, "H5Tcopy"); + + ret = H5Tset_size (dtype, H5T_VARIABLE); + CHECK(ret, FAIL, "H5Tset_size"); + + fspace = H5Screate_simple (SPACE1_RANK, fdim, NULL); + CHECK(fspace, FAIL, "H5Screate_simple"); + + dataset1 = H5Dcreate (file1, DATASET, dtype, fspace, H5P_DEFAULT, + H5P_DEFAULT, H5P_DEFAULT); + CHECK(dataset1, FAIL, "H5Dcreate"); + + ret = H5Dwrite(dataset1, dtype, H5S_ALL, H5S_ALL, H5P_DEFAULT, wdata); + CHECK(ret, FAIL, "H5Dwrite"); + + ret = H5Dclose (dataset1); + CHECK(ret, FAIL, "H5Dclose"); + + ret = H5Tclose (dtype); + CHECK(ret, FAIL, "H5Tclose"); + + ret = H5Sclose (fspace); + CHECK(ret, FAIL, "H5Sclose"); + + ret = H5Fclose (file1); + CHECK(ret, FAIL, "H5Fclose"); + + /* + * Open the file. Select the same two points, write values to those point locations. + */ + file1 = H5Fopen (DATAFILE3, H5F_ACC_RDWR, H5P_DEFAULT); + CHECK(file1, FAIL, "H5Fopen"); + + dataset1 = H5Dopen (file1, DATASET, H5P_DEFAULT); + CHECK(dataset1, FAIL, "H5Dopen"); + + fspace = H5Dget_space (dataset1); + CHECK(fspace, FAIL, "H5Dget_space"); + + dtype = H5Dget_type (dataset1); + CHECK(dtype, FAIL, "H5Dget_type"); + + mspace = H5Screate_simple(1, marray, NULL); + CHECK(mspace, FAIL, "H5Screate_simple"); + + coord[0][0] = 3; + coord[0][1] = 3; + + ret = H5Sselect_elements (fspace, H5S_SELECT_SET, NUMP, (const hsize_t *)&coord); + CHECK(ret, FAIL, "H5Sselect_elements"); + + ret = H5Dwrite (dataset1, dtype, mspace, fspace, H5P_DEFAULT, val); + CHECK(ret, FAIL, "H5Dwrite"); + + ret = H5Tclose (dtype); + CHECK(ret, FAIL, "H5Tclose"); + + ret = H5Dclose (dataset1); + CHECK(ret, FAIL, "H5Dclose"); + + ret = H5Sclose (fspace); + CHECK(ret, FAIL, "H5Dclose"); + + ret = H5Sclose (mspace); + CHECK(ret, FAIL, "H5Sclose"); + + ret = H5Fclose (file1); + CHECK(ret, FAIL, "H5Fclose"); +} /* test_write_same_element */ + +/**************************************************************** ** ** test_vlstrings(): Main VL string testing routine. ** @@ -869,9 +967,10 @@ test_vlstrings(void) /* Test writing VL datasets in files with lots of unlinking */ test_vl_rewrite(); + /* Test writing to the same element more than once using H5Sselect_elements */ + test_write_same_element(); } /* test_vlstrings() */ - /*------------------------------------------------------------------------- * Function: cleanup_vlstrings * @@ -891,5 +990,6 @@ cleanup_vlstrings(void) { HDremove(DATAFILE); HDremove(DATAFILE2); + HDremove(DATAFILE3); } |