mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2024-11-27 02:10:55 +08:00
Code Issues Packages Projects Releases Wiki Activity

HDFFV-10635: add a test case.

Browse Source
This commit is contained in:
Songyu Lu 2018-12-05 16:48:47 -06:00
parent a89130553d
commit 19a94503f3
1 changed files with 102 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

104
test/tvlstr.c
View File

@ -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
@ -845,6 +850,99 @@ static void test_vl_rewrite(void)
return;
} /* 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);
}