mirror of
https://github.com/HDFGroup/hdf5.git
synced 2025-03-31 17:10:47 +08:00
[svn-r27543] Add tests to cover remaining code coverage assertions in H5Shyper.c.
Add more tests for unlimited selections. Fix bug related to empty unlimited source dataset. Tested: ummon
This commit is contained in:
Neil Fortner
parent
e3bea91686
commit
1821b64d49
@ -6541,15 +6541,11 @@ H5S_select_hyperslab (H5S_t *space, H5S_seloper_t op,
|
||||
/* Check for unlimited dimension */
|
||||
for(u = 0; u<space->extent.rank; u++)
|
||||
if((count[u] == H5S_UNLIMITED) || (block[u] == H5S_UNLIMITED)) {
|
||||
if(unlim_dim >= 0) {
|
||||
HDassert(0 && "Checking code coverage..."); //VDSINC
|
||||
if(unlim_dim >= 0)
|
||||
HGOTO_ERROR(H5E_DATASPACE, H5E_UNSUPPORTED, FAIL, "cannot have more than one unlimited dimension in selection")
|
||||
} //VDSINC
|
||||
else {
|
||||
if(count[u] == block[u] /* == H5S_UNLIMITED */) {
|
||||
HDassert(0 && "Checking code coverage..."); //VDSINC
|
||||
if(count[u] == block[u] /* == H5S_UNLIMITED */)
|
||||
HGOTO_ERROR(H5E_DATASPACE, H5E_UNSUPPORTED, FAIL, "count and block cannot both be unlimited")
|
||||
} //VDSINC
|
||||
unlim_dim = (int)u;
|
||||
} /* end else */
|
||||
} /* end if */
|
||||
@ -6802,7 +6798,6 @@ H5S_select_hyperslab (H5S_t *space, H5S_seloper_t op,
|
||||
hsize_t tmp_count = opt_count[unlim_dim];
|
||||
hsize_t tmp_block = opt_block[unlim_dim];
|
||||
|
||||
HDassert(0 && "Checking code coverage..."); //VDSINC
|
||||
/* Check for invalid operation */
|
||||
if(space->select.sel_info.hslab->unlim_dim >= 0)
|
||||
HGOTO_ERROR(H5E_DATASPACE, H5E_UNSUPPORTED, FAIL, "cannot modify unlimited selection with another unlimited selection")
|
||||
@ -7246,15 +7241,11 @@ H5S_select_hyperslab (H5S_t *space, H5S_seloper_t op,
|
||||
/* Check for unlimited dimension */
|
||||
for(u = 0; u<space->extent.rank; u++)
|
||||
if((count[u] == H5S_UNLIMITED) || (block[u] == H5S_UNLIMITED)) {
|
||||
if(unlim_dim >= 0) {
|
||||
HDassert(0 && "Checking code coverage..."); //VDSINC
|
||||
if(unlim_dim >= 0)
|
||||
HGOTO_ERROR(H5E_DATASPACE, H5E_UNSUPPORTED, FAIL, "cannot have more than one unlimited dimension in selection")
|
||||
} //VDSINC
|
||||
else {
|
||||
if(count[u] == block[u] /* == H5S_UNLIMITED */) {
|
||||
HDassert(0 && "Checking code coverage..."); //VDSINC
|
||||
if(count[u] == block[u] /* == H5S_UNLIMITED */)
|
||||
HGOTO_ERROR(H5E_DATASPACE, H5E_UNSUPPORTED, FAIL, "count and block cannot both be unlimited")
|
||||
} //VDSINC
|
||||
unlim_dim = (int)u;
|
||||
} /* end else */
|
||||
} /* end if */
|
||||
@ -7494,7 +7485,6 @@ H5S_select_hyperslab (H5S_t *space, H5S_seloper_t op,
|
||||
hsize_t tmp_count = opt_count[unlim_dim];
|
||||
hsize_t tmp_block = opt_block[unlim_dim];
|
||||
|
||||
HDassert(0 && "Checking code coverage..."); //VDSINC
|
||||
/* Check for invalid operation */
|
||||
if(space->select.sel_info.hslab->unlim_dim >= 0)
|
||||
HGOTO_ERROR(H5E_DATASPACE, H5E_UNSUPPORTED, FAIL, "cannot modify unlimited selection with another unlimited selection")
|
||||
@ -9746,7 +9736,6 @@ H5S__hyper_subtract(H5S_t *space, H5S_t *subtract_space)
|
||||
else {
|
||||
H5S_hyper_span_info_t *spans; /* Empty hyperslab span tree */
|
||||
|
||||
HDassert(0 && "Checking code coverage..."); //VDSINC
|
||||
/* Set number of elements */
|
||||
space->select.num_elem = 0;
|
||||
|
||||
@ -9999,11 +9988,8 @@ H5S__hyper_get_clip_extent_real(const H5S_t *clip_space, hsize_t num_slices,
|
||||
|
||||
diminfo = &clip_space->select.sel_info.hslab->opt_diminfo[clip_space->select.sel_info.hslab->unlim_dim];
|
||||
|
||||
if(num_slices == 0) {
|
||||
//HDassert(incl_trail && "Checking code coverage..."); //VDSINC
|
||||
HDassert(!incl_trail && "Checking code coverage..."); //VDSINC
|
||||
if(num_slices == 0)
|
||||
ret_value = incl_trail ? diminfo->start : 0;
|
||||
} //VDSINC
|
||||
else if((diminfo->block == H5S_UNLIMITED)
|
||||
|| (diminfo->block == diminfo->stride))
|
||||
/* Unlimited block, just set the extent large enough for the block size
|
||||
@ -10078,14 +10064,21 @@ H5S_hyper_get_clip_extent(const H5S_t *clip_space, const H5S_t *match_space,
|
||||
/* Check parameters */
|
||||
HDassert(clip_space);
|
||||
HDassert(match_space);
|
||||
HDassert(match_space->select.sel_info.hslab);
|
||||
HDassert(clip_space->select.sel_info.hslab->unlim_dim >= 0);
|
||||
|
||||
/* Calculate number of slices */
|
||||
num_slices = match_space->select.num_elem
|
||||
/ clip_space->select.sel_info.hslab->num_elem_non_unlim;
|
||||
HDassert((match_space->select.num_elem
|
||||
% clip_space->select.sel_info.hslab->num_elem_non_unlim) == 0);
|
||||
/* Check for "none" match space */
|
||||
if(match_space->select.type->type == H5S_SEL_NONE)
|
||||
num_slices = (hsize_t)0;
|
||||
else {
|
||||
HDassert(match_space->select.type->type == H5S_SEL_HYPERSLABS);
|
||||
HDassert(match_space->select.sel_info.hslab);
|
||||
|
||||
/* Calculate number of slices */
|
||||
num_slices = match_space->select.num_elem
|
||||
/ clip_space->select.sel_info.hslab->num_elem_non_unlim;
|
||||
HDassert((match_space->select.num_elem
|
||||
% clip_space->select.sel_info.hslab->num_elem_non_unlim) == 0);
|
||||
} /* end else */
|
||||
|
||||
/* Call "real" get_clip_extent function */
|
||||
ret_value = H5S__hyper_get_clip_extent_real(clip_space, num_slices, incl_trail);
|
||||
@ -10139,6 +10132,7 @@ H5S_hyper_get_clip_extent_match(const H5S_t *clip_space,
|
||||
/* Check parameters */
|
||||
HDassert(clip_space);
|
||||
HDassert(match_space);
|
||||
HDassert(clip_space->select.sel_info.hslab);
|
||||
HDassert(match_space->select.sel_info.hslab);
|
||||
HDassert(clip_space->select.sel_info.hslab->unlim_dim >= 0);
|
||||
HDassert(match_space->select.sel_info.hslab->unlim_dim >= 0);
|
||||
|
||||
230
test/tselect.c
230
test/tselect.c
@ -13315,9 +13315,12 @@ test_hyper_unlim(void)
|
||||
hsize_t stride[3] = {1, 1, 3};
|
||||
hsize_t count[3] = {1, 1, 2};
|
||||
hsize_t block[3] = {2, H5S_UNLIMITED, 2};
|
||||
hsize_t start2[3];
|
||||
hsize_t count2[3];
|
||||
hsize_t eblock1[6] = {1, 2, 1, 2, 3, 2};
|
||||
hsize_t eblock2[6] = {1, 2, 4, 2, 3, 5};
|
||||
hssize_t offset[3] = {0, -1, 0};
|
||||
hssize_t ssize_out;
|
||||
herr_t ret;
|
||||
|
||||
/* Output message about test being performed */
|
||||
@ -13430,11 +13433,230 @@ test_hyper_unlim(void)
|
||||
ret = H5Soffset_simple(sid, offset);
|
||||
CHECK(ret, FAIL, "H5Soffset_simple");
|
||||
|
||||
/*
|
||||
* Now try invalid operations
|
||||
*/
|
||||
H5E_BEGIN_TRY {
|
||||
/* Try multiple unlimited dimensions */
|
||||
start[0] = 1;
|
||||
start[1] = 2;
|
||||
start[2] = 1;
|
||||
stride[0] = 1;
|
||||
stride[1] = 3;
|
||||
stride[2] = 3;
|
||||
count[0] = 1;
|
||||
count[1] = H5S_UNLIMITED;
|
||||
count[2] = H5S_UNLIMITED;
|
||||
block[0] = 2;
|
||||
block[1] = 2;
|
||||
block[2] = 2;
|
||||
ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
|
||||
VERIFY(ret, FAIL, "H5Sselect_hyperslab");
|
||||
|
||||
/* Try unlimited count and block */
|
||||
count[2] = 2;
|
||||
block[1] = H5S_UNLIMITED;
|
||||
ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
|
||||
VERIFY(ret, FAIL, "H5Sselect_hyperslab");
|
||||
} H5E_END_TRY
|
||||
|
||||
/* Try operations with two unlimited selections */
|
||||
block[1] = 2;
|
||||
ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
|
||||
CHECK(ret, FAIL, "H5Sselect_hyperslab");
|
||||
H5E_BEGIN_TRY {
|
||||
ret = H5Sselect_hyperslab(sid, H5S_SELECT_OR, start, NULL, count, NULL);
|
||||
VERIFY(ret, FAIL, "H5Sselect_hyperslab");
|
||||
ret = H5Sselect_hyperslab(sid, H5S_SELECT_AND, start, NULL, count, NULL);
|
||||
VERIFY(ret, FAIL, "H5Sselect_hyperslab");
|
||||
ret = H5Sselect_hyperslab(sid, H5S_SELECT_XOR, start, NULL, count, NULL);
|
||||
VERIFY(ret, FAIL, "H5Sselect_hyperslab");
|
||||
ret = H5Sselect_hyperslab(sid, H5S_SELECT_NOTB, start, NULL, count, NULL);
|
||||
VERIFY(ret, FAIL, "H5Sselect_hyperslab");
|
||||
ret = H5Sselect_hyperslab(sid, H5S_SELECT_NOTA, start, NULL, count, NULL);
|
||||
VERIFY(ret, FAIL, "H5Sselect_hyperslab");
|
||||
} H5E_END_TRY
|
||||
|
||||
/* Try invalid combination operations */
|
||||
H5E_BEGIN_TRY {
|
||||
ret = H5Sselect_hyperslab(sid, H5S_SELECT_OR, start, NULL, block, NULL);
|
||||
VERIFY(ret, FAIL, "H5Sselect_hyperslab");
|
||||
ret = H5Sselect_hyperslab(sid, H5S_SELECT_XOR, start, NULL, block, NULL);
|
||||
VERIFY(ret, FAIL, "H5Sselect_hyperslab");
|
||||
ret = H5Sselect_hyperslab(sid, H5S_SELECT_NOTB, start, NULL, block, NULL);
|
||||
VERIFY(ret, FAIL, "H5Sselect_hyperslab");
|
||||
} H5E_END_TRY
|
||||
ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, NULL, block, NULL);
|
||||
CHECK(ret, FAIL, "H5Sselect_hyperslab");
|
||||
H5E_BEGIN_TRY {
|
||||
ret = H5Sselect_hyperslab(sid, H5S_SELECT_OR, start, stride, count, block);
|
||||
VERIFY(ret, FAIL, "H5Sselect_hyperslab");
|
||||
ret = H5Sselect_hyperslab(sid, H5S_SELECT_XOR, start, stride, count, block);
|
||||
VERIFY(ret, FAIL, "H5Sselect_hyperslab");
|
||||
ret = H5Sselect_hyperslab(sid, H5S_SELECT_NOTA, start, stride, count, block);
|
||||
VERIFY(ret, FAIL, "H5Sselect_hyperslab");
|
||||
} H5E_END_TRY
|
||||
|
||||
/*
|
||||
* Now test valid combination operations
|
||||
*/
|
||||
/* unlim AND non-unlim */
|
||||
count[0] = 1;
|
||||
count[1] = H5S_UNLIMITED;
|
||||
count[2] = 2;
|
||||
block[0] = 2;
|
||||
block[1] = 2;
|
||||
block[2] = 2;
|
||||
ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
|
||||
CHECK(ret, FAIL, "H5Sselect_hyperslab");
|
||||
start2[0] = 2;
|
||||
start2[1] = 2;
|
||||
start2[2] = 0;
|
||||
count2[0] = 5;
|
||||
count2[1] = 4;
|
||||
count2[2] = 2;
|
||||
ret = H5Sselect_hyperslab(sid, H5S_SELECT_AND, start2, NULL, count2, NULL);
|
||||
CHECK(ret, FAIL, "H5Sselect_hyperslab");
|
||||
eblock1[0] = 2;
|
||||
eblock1[3] = 2;
|
||||
eblock1[1] = 2;
|
||||
eblock1[4] = 3;
|
||||
eblock1[2] = 1;
|
||||
eblock1[5] = 1;
|
||||
eblock2[0] = 2;
|
||||
eblock2[3] = 2;
|
||||
eblock2[1] = 5;
|
||||
eblock2[4] = 5;
|
||||
eblock2[2] = 1;
|
||||
eblock2[5] = 1;
|
||||
dims[0] = 50;
|
||||
dims[1] = 50;
|
||||
dims[2] = 50;
|
||||
test_hyper_unlim_check(sid, dims, (hssize_t)3, (hssize_t)2, eblock1, eblock2);
|
||||
|
||||
/* unlim NOTA non-unlim */
|
||||
count[0] = 1;
|
||||
count[1] = H5S_UNLIMITED;
|
||||
count[2] = 2;
|
||||
block[0] = 2;
|
||||
block[1] = 2;
|
||||
block[2] = 2;
|
||||
ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
|
||||
CHECK(ret, FAIL, "H5Sselect_hyperslab");
|
||||
start2[0] = 1;
|
||||
start2[1] = 5;
|
||||
start2[2] = 2;
|
||||
count2[0] = 2;
|
||||
count2[1] = 2;
|
||||
count2[2] = 6;
|
||||
ret = H5Sselect_hyperslab(sid, H5S_SELECT_NOTA, start2, NULL, count2, NULL);
|
||||
CHECK(ret, FAIL, "H5Sselect_hyperslab");
|
||||
eblock1[0] = 1;
|
||||
eblock1[3] = 2;
|
||||
eblock1[1] = 5;
|
||||
eblock1[4] = 6;
|
||||
eblock1[2] = 3;
|
||||
eblock1[5] = 3;
|
||||
eblock2[0] = 1;
|
||||
eblock2[3] = 2;
|
||||
eblock2[1] = 5;
|
||||
eblock2[4] = 6;
|
||||
eblock2[2] = 6;
|
||||
eblock2[5] = 7;
|
||||
dims[0] = 50;
|
||||
dims[1] = 50;
|
||||
dims[2] = 50;
|
||||
test_hyper_unlim_check(sid, dims, (hssize_t)12, (hssize_t)2, eblock1, eblock2);
|
||||
|
||||
/* non-unlim AND unlim */
|
||||
start2[0] = 2;
|
||||
start2[1] = 2;
|
||||
start2[2] = 0;
|
||||
count2[0] = 5;
|
||||
count2[1] = 4;
|
||||
count2[2] = 2;
|
||||
ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start2, NULL, count2, NULL);
|
||||
CHECK(ret, FAIL, "H5Sselect_hyperslab");
|
||||
count[0] = 1;
|
||||
count[1] = H5S_UNLIMITED;
|
||||
count[2] = 2;
|
||||
block[0] = 2;
|
||||
block[1] = 2;
|
||||
block[2] = 2;
|
||||
ret = H5Sselect_hyperslab(sid, H5S_SELECT_AND, start, stride, count, block);
|
||||
CHECK(ret, FAIL, "H5Sselect_hyperslab");
|
||||
eblock1[0] = 2;
|
||||
eblock1[3] = 2;
|
||||
eblock1[1] = 2;
|
||||
eblock1[4] = 3;
|
||||
eblock1[2] = 1;
|
||||
eblock1[5] = 1;
|
||||
eblock2[0] = 2;
|
||||
eblock2[3] = 2;
|
||||
eblock2[1] = 5;
|
||||
eblock2[4] = 5;
|
||||
eblock2[2] = 1;
|
||||
eblock2[5] = 1;
|
||||
dims[0] = 50;
|
||||
dims[1] = 50;
|
||||
dims[2] = 50;
|
||||
test_hyper_unlim_check(sid, dims, (hssize_t)3, (hssize_t)2, eblock1, eblock2);
|
||||
|
||||
/* non-unlim NOTB unlim */
|
||||
start2[0] = 1;
|
||||
start2[1] = 5;
|
||||
start2[2] = 2;
|
||||
count2[0] = 2;
|
||||
count2[1] = 2;
|
||||
count2[2] = 6;
|
||||
ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start2, NULL, count2, NULL);
|
||||
CHECK(ret, FAIL, "H5Sselect_hyperslab");
|
||||
count[0] = 1;
|
||||
count[1] = H5S_UNLIMITED;
|
||||
count[2] = 2;
|
||||
block[0] = 2;
|
||||
block[1] = 2;
|
||||
block[2] = 2;
|
||||
ret = H5Sselect_hyperslab(sid, H5S_SELECT_NOTB, start, stride, count, block);
|
||||
CHECK(ret, FAIL, "H5Sselect_hyperslab");
|
||||
eblock1[0] = 1;
|
||||
eblock1[3] = 2;
|
||||
eblock1[1] = 5;
|
||||
eblock1[4] = 6;
|
||||
eblock1[2] = 3;
|
||||
eblock1[5] = 3;
|
||||
eblock2[0] = 1;
|
||||
eblock2[3] = 2;
|
||||
eblock2[1] = 5;
|
||||
eblock2[4] = 6;
|
||||
eblock2[2] = 6;
|
||||
eblock2[5] = 7;
|
||||
dims[0] = 50;
|
||||
dims[1] = 50;
|
||||
dims[2] = 50;
|
||||
test_hyper_unlim_check(sid, dims, (hssize_t)12, (hssize_t)2, eblock1, eblock2);
|
||||
|
||||
/* Test H5Sget_select_npoints() */
|
||||
ret = H5Sselect_hyperslab(sid, H5S_SELECT_SET, start, stride, count, block);
|
||||
CHECK(ret, FAIL, "H5Sselect_hyperslab");
|
||||
ssize_out = H5Sget_select_npoints(sid);
|
||||
VERIFY(ssize_out, (hssize_t)H5S_UNLIMITED, "H5Sget_select_npoints");
|
||||
|
||||
/* Test H5Sget_select_hyper_nblocks() */
|
||||
ssize_out = H5Sget_select_hyper_nblocks(sid);
|
||||
VERIFY(ssize_out, (hssize_t)H5S_UNLIMITED, "H5Sget_select_hyper_nblocks");
|
||||
|
||||
/* Test H5Sget_select_bounds() */
|
||||
ret = H5Sget_select_bounds(sid, start2, count2);
|
||||
CHECK(ret, FAIL, "H5Sget_select_bounds");
|
||||
VERIFY(start2[0], start[0], "H5Sget_select_bounds");
|
||||
VERIFY(start2[1], start[1], "H5Sget_select_bounds");
|
||||
VERIFY(start2[2], start[2], "H5Sget_select_bounds");
|
||||
VERIFY(count2[0], start[0] + (stride[0] * (count[0] - (hsize_t)1)) + block[0] - (hsize_t)1, "H5Sget_select_bounds");
|
||||
VERIFY(count2[1], H5S_UNLIMITED, "H5Sget_select_bounds");
|
||||
VERIFY(count2[2], start[2] + (stride[2] * (count[2] - (hsize_t)1)) + block[2] - (hsize_t)1, "H5Sget_select_bounds");
|
||||
|
||||
//VDSINC write test saving unlim selection to file as region reference
|
||||
//VDSINC write tests for more general AND/NOTA/NOTB operations with
|
||||
//unlimited selections. Also return values from H5Sget_select_npoints,
|
||||
//H5Shyper_get_select_nblocks, and H5Sget_select_bounds for unlimited
|
||||
//selections
|
||||
|
||||
/* Close the dataspace */
|
||||
ret = H5Sclose(sid);
|
||||
|
||||
457
test/vds.c
457
test/vds.c
@ -5821,6 +5821,463 @@ test_unlim(unsigned config, hid_t fapl)
|
||||
vspace[1] = -1;
|
||||
|
||||
|
||||
/*
|
||||
* Test 4: 2 Source datasets, offset starts
|
||||
*/
|
||||
/* Clear virtual layout in DCPL */
|
||||
if(H5Pset_layout(dcpl, H5D_VIRTUAL) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Create virtual dataspaces */
|
||||
if((vspace[0] = H5Screate_simple(2, dims, mdims)) < 0)
|
||||
TEST_ERROR
|
||||
if((vspace[1] = H5Screate_simple(2, dims, mdims)) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Create source dataspaces */
|
||||
dims[0] = 5;
|
||||
dims[1] = 0;
|
||||
mdims[0] = 5;
|
||||
if((srcspace[0] = H5Screate_simple(2, dims, mdims)) < 0)
|
||||
TEST_ERROR
|
||||
dims[1] = 5;
|
||||
if((srcspace[1] = H5Screate_simple(2, dims, mdims)) < 0)
|
||||
TEST_ERROR
|
||||
mdims[0] = 10;
|
||||
|
||||
/* Select hyperslab in source spaces */
|
||||
start[0] = 0;
|
||||
start[1] = 0;
|
||||
count[0] = 5;
|
||||
count[1] = H5S_UNLIMITED;
|
||||
if(H5Sselect_hyperslab(srcspace[0], H5S_SELECT_SET, start, NULL, count, NULL) < 0)
|
||||
TEST_ERROR
|
||||
if(H5Sselect_hyperslab(srcspace[1], H5S_SELECT_SET, start, NULL, count, NULL) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Select hyperslabs in virtual spaces */
|
||||
start[1] = 10;
|
||||
if(H5Sselect_hyperslab(vspace[0], H5S_SELECT_SET, start, NULL, count, NULL) < 0)
|
||||
TEST_ERROR
|
||||
start[0] = 5;
|
||||
start[1] = 0;
|
||||
if(H5Sselect_hyperslab(vspace[1], H5S_SELECT_SET, start, NULL, count, NULL) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Add virtual layout mappings */
|
||||
if(H5Pset_virtual(dcpl, vspace[0], config & TEST_IO_DIFFERENT_FILE ? srcfilename_map : ".", "src_dset1", srcspace[0]) < 0)
|
||||
TEST_ERROR
|
||||
if(H5Pset_virtual(dcpl, vspace[1], config & TEST_IO_DIFFERENT_FILE ? srcfilename_map : ".", "src_dset2", srcspace[1]) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Create virtual file */
|
||||
if((vfile = H5Fcreate(vfilename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Create source file if requested */
|
||||
if(config & TEST_IO_DIFFERENT_FILE) {
|
||||
if((srcfile[0] = H5Fcreate(srcfilename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
|
||||
TEST_ERROR
|
||||
} /* end if */
|
||||
else {
|
||||
srcfile[0] = vfile;
|
||||
if(H5Iinc_ref(srcfile[0]) < 0)
|
||||
TEST_ERROR
|
||||
} /* end if */
|
||||
|
||||
/* Create source datasets */
|
||||
if((srcdset[0] = H5Dcreate2(srcfile[0], "src_dset1", H5T_NATIVE_INT, srcspace[0], H5P_DEFAULT, srcdcpl, H5P_DEFAULT)) < 0)
|
||||
TEST_ERROR
|
||||
if((srcdset[1] = H5Dcreate2(srcfile[0], "src_dset2", H5T_NATIVE_INT, srcspace[1], H5P_DEFAULT, srcdcpl, H5P_DEFAULT)) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Create virtual dataset */
|
||||
if((vdset = H5Dcreate2(vfile, "v_dset", H5T_NATIVE_INT, vspace[0], H5P_DEFAULT, dcpl, dapl)) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Populate write buffer */
|
||||
for(i = 0; i < (int)mdims[0]; i++)
|
||||
for(j = 0; j < (int)mdims[1]; j++)
|
||||
buf[i][j] = (i * (int)mdims[1]) + j;
|
||||
|
||||
/* Initialize erbuf */
|
||||
for(i = 0; i < (int)mdims[0]; i++)
|
||||
for(j = 0; j < (int)mdims[1]; j++)
|
||||
erbuf[i][j] = fill;
|
||||
|
||||
/* Write data directly to second source dataset */
|
||||
/* Select hyperslab in memory */
|
||||
start[0] = 0;
|
||||
start[1] = 0;
|
||||
count[0] = 5;
|
||||
count[1] = 5;
|
||||
if(H5Sselect_hyperslab(memspace, H5S_SELECT_SET, start, NULL, count, NULL) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Write second dataset */
|
||||
if(H5Dwrite(srcdset[1], H5T_NATIVE_INT, memspace, H5S_ALL, H5P_DEFAULT, buf[0]) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Update erbuf */
|
||||
for(i = 0; i < 5; i++)
|
||||
for(j = 0; j < 5; j++)
|
||||
erbuf[i + 5][j] = buf[i][j];
|
||||
|
||||
/* Close srcdsets and srcfile if config option specified */
|
||||
if(config & TEST_IO_CLOSE_SRC) {
|
||||
if(H5Dclose(srcdset[0]) < 0)
|
||||
TEST_ERROR
|
||||
srcdset[0] = -1;
|
||||
if(H5Dclose(srcdset[1]) < 0)
|
||||
TEST_ERROR
|
||||
srcdset[1] = -1;
|
||||
|
||||
if(config & TEST_IO_DIFFERENT_FILE) {
|
||||
if(H5Fclose(srcfile[0]) < 0)
|
||||
TEST_ERROR
|
||||
srcfile[0] = -1;
|
||||
} /* end if */
|
||||
} /* end if */
|
||||
|
||||
/* Reopen virtual dataset and file if config option specified */
|
||||
if(config & TEST_IO_REOPEN_VIRT) {
|
||||
if(H5Dclose(vdset) < 0)
|
||||
TEST_ERROR
|
||||
vdset = -1;
|
||||
if(H5Fclose(vfile) < 0)
|
||||
TEST_ERROR
|
||||
vfile = -1;
|
||||
if((vfile = H5Fopen(vfilename, H5F_ACC_RDWR, fapl)) < 0)
|
||||
TEST_ERROR
|
||||
if((vdset = H5Dopen2(vfile, "v_dset", dapl)) < 0)
|
||||
TEST_ERROR
|
||||
} /* end if */
|
||||
|
||||
/* Get VDS space */
|
||||
if((filespace = H5Dget_space(vdset)) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Get VDS space dimensions */
|
||||
if((ndims = H5Sget_simple_extent_ndims(filespace)) < 0)
|
||||
TEST_ERROR
|
||||
if(ndims != 2)
|
||||
TEST_ERROR
|
||||
if(H5Sget_simple_extent_dims(filespace, dims, mdims) < 0)
|
||||
TEST_ERROR
|
||||
if(dims[0] != 10)
|
||||
TEST_ERROR
|
||||
if(dims[1] != 5)
|
||||
TEST_ERROR
|
||||
if(mdims[0] != 10)
|
||||
TEST_ERROR
|
||||
if(mdims[1] != 20)
|
||||
TEST_ERROR
|
||||
|
||||
/* Close filespace */
|
||||
if(H5Sclose(filespace) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Read data through virtual dataset */
|
||||
/* Reset rbuf */
|
||||
HDmemset(rbuf[0], 0, sizeof(rbuf));
|
||||
|
||||
/* Select hyperslab in memory space */
|
||||
start[0] = 0;
|
||||
start[1] = 0;
|
||||
if(H5Sselect_hyperslab(memspace, H5S_SELECT_SET, start, NULL, dims, NULL) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Read data */
|
||||
if(H5Dread(vdset, H5T_NATIVE_INT, memspace, H5S_ALL, H5P_DEFAULT, rbuf[0]) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Verify read data */
|
||||
for(i = 0; i < (int)mdims[0]; i++)
|
||||
for(j = 0; j < (int)mdims[1]; j++) {
|
||||
if(j >= (int)dims[1]) {
|
||||
if(rbuf[i][j] != 0)
|
||||
TEST_ERROR
|
||||
} /* end if */
|
||||
else
|
||||
if(rbuf[i][j] != erbuf[i][j])
|
||||
TEST_ERROR
|
||||
} /* end for */
|
||||
|
||||
/* Close VDS and reopen with view set to H5D_VDS_FIRST_MISSING, reopen file
|
||||
* as well if config option specified */
|
||||
if(H5Dclose(vdset) < 0)
|
||||
TEST_ERROR
|
||||
if(H5Pset_virtual_view(dapl, H5D_VDS_FIRST_MISSING) < 0)
|
||||
TEST_ERROR
|
||||
if(config & TEST_IO_REOPEN_VIRT) {
|
||||
if(H5Fclose(vfile) < 0)
|
||||
TEST_ERROR
|
||||
vfile = -1;
|
||||
if((vfile = H5Fopen(vfilename, H5F_ACC_RDWR, fapl)) < 0)
|
||||
TEST_ERROR
|
||||
} /* end if */
|
||||
if((vdset = H5Dopen2(vfile, "v_dset", dapl)) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Get VDS space */
|
||||
if((filespace = H5Dget_space(vdset)) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Get VDS space dimensions */
|
||||
if((ndims = H5Sget_simple_extent_ndims(filespace)) < 0)
|
||||
TEST_ERROR
|
||||
if(ndims != 2)
|
||||
TEST_ERROR
|
||||
if(H5Sget_simple_extent_dims(filespace, dims, mdims) < 0)
|
||||
TEST_ERROR
|
||||
if(dims[0] != 10)
|
||||
TEST_ERROR
|
||||
if(dims[1] != 5)
|
||||
TEST_ERROR
|
||||
if(mdims[0] != 10)
|
||||
TEST_ERROR
|
||||
if(mdims[1] != 20)
|
||||
TEST_ERROR
|
||||
|
||||
/* Close filespace */
|
||||
if(H5Sclose(filespace) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Read data through virtual dataset */
|
||||
/* Reset rbuf */
|
||||
HDmemset(rbuf[0], 0, sizeof(rbuf));
|
||||
|
||||
/* Read data */
|
||||
if(H5Dread(vdset, H5T_NATIVE_INT, memspace, H5S_ALL, H5P_DEFAULT, rbuf[0]) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Verify read data */
|
||||
for(i = 0; i < (int)mdims[0]; i++)
|
||||
for(j = 0; j < (int)mdims[1]; j++) {
|
||||
if(j >= (int)dims[1]) {
|
||||
if(rbuf[i][j] != 0)
|
||||
TEST_ERROR
|
||||
} /* end if */
|
||||
else
|
||||
if(rbuf[i][j] != erbuf[i][j])
|
||||
TEST_ERROR
|
||||
} /* end for */
|
||||
|
||||
/* Reopen srcdset[0] and srcfile if config option specified */
|
||||
if(config & TEST_IO_CLOSE_SRC) {
|
||||
if(config & TEST_IO_DIFFERENT_FILE)
|
||||
if((srcfile[0] = H5Fopen(srcfilename, H5F_ACC_RDWR, fapl)) < 0)
|
||||
TEST_ERROR
|
||||
if((srcdset[0] = H5Dopen2(srcfile[0], "src_dset1", H5P_DEFAULT)) < 0)
|
||||
TEST_ERROR
|
||||
} /* end if */
|
||||
|
||||
/* Extend srcdset[0] */
|
||||
dims[0] = 5;
|
||||
dims[1] = 5;
|
||||
if(H5Dset_extent(srcdset[0], dims) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Adjust write buffer */
|
||||
for(i = 0; i < (int)mdims[0]; i++)
|
||||
for(j = 0; j < (int)mdims[1]; j++)
|
||||
buf[i][j] += (int)mdims[0] * (int)mdims[1];
|
||||
|
||||
/* Write to srcdset[0] */
|
||||
start[0] = 0;
|
||||
start[1] = 0;
|
||||
count[0] = 5;
|
||||
count[1] = 5;
|
||||
if(H5Sselect_hyperslab(memspace, H5S_SELECT_SET, start, NULL, count, NULL) < 0)
|
||||
TEST_ERROR
|
||||
if(H5Dwrite(srcdset[0], H5T_NATIVE_INT, memspace, H5S_ALL, H5P_DEFAULT, buf[0]) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Update erbuf */
|
||||
for(i = 0; i < 5; i++)
|
||||
for(j = 0; j < 5; j++)
|
||||
erbuf[i][j + 10] = buf[i][j];
|
||||
|
||||
/* Close srcdset[0] and srcfile if config option specified */
|
||||
if(config & TEST_IO_CLOSE_SRC) {
|
||||
if(H5Dclose(srcdset[0]) < 0)
|
||||
TEST_ERROR
|
||||
srcdset[0] = -1;
|
||||
|
||||
if(config & TEST_IO_DIFFERENT_FILE) {
|
||||
if(H5Fclose(srcfile[0]) < 0)
|
||||
TEST_ERROR
|
||||
srcfile[0] = -1;
|
||||
} /* end if */
|
||||
} /* end if */
|
||||
|
||||
/* Reopen virtual dataset and file if config option specified */
|
||||
if(config & TEST_IO_REOPEN_VIRT) {
|
||||
if(H5Dclose(vdset) < 0)
|
||||
TEST_ERROR
|
||||
vdset = -1;
|
||||
if(H5Fclose(vfile) < 0)
|
||||
TEST_ERROR
|
||||
vfile = -1;
|
||||
if((vfile = H5Fopen(vfilename, H5F_ACC_RDWR, fapl)) < 0)
|
||||
TEST_ERROR
|
||||
if((vdset = H5Dopen2(vfile, "v_dset", dapl)) < 0)
|
||||
TEST_ERROR
|
||||
} /* end if */
|
||||
|
||||
/* Get VDS space */
|
||||
if((filespace = H5Dget_space(vdset)) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Get VDS space dimensions */
|
||||
if((ndims = H5Sget_simple_extent_ndims(filespace)) < 0)
|
||||
TEST_ERROR
|
||||
if(ndims != 2)
|
||||
TEST_ERROR
|
||||
if(H5Sget_simple_extent_dims(filespace, dims, mdims) < 0)
|
||||
TEST_ERROR
|
||||
if(dims[0] != 10)
|
||||
TEST_ERROR
|
||||
if(dims[1] != 5)
|
||||
TEST_ERROR
|
||||
if(mdims[0] != 10)
|
||||
TEST_ERROR
|
||||
if(mdims[1] != 20)
|
||||
TEST_ERROR
|
||||
|
||||
/* Close filespace */
|
||||
if(H5Sclose(filespace) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Read data through virtual dataset */
|
||||
/* Reset rbuf */
|
||||
HDmemset(rbuf[0], 0, sizeof(rbuf));
|
||||
|
||||
/* Select hyperslab in memory space */
|
||||
start[0] = 0;
|
||||
start[1] = 0;
|
||||
if(H5Sselect_hyperslab(memspace, H5S_SELECT_SET, start, NULL, dims, NULL) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Read data */
|
||||
if(H5Dread(vdset, H5T_NATIVE_INT, memspace, H5S_ALL, H5P_DEFAULT, rbuf[0]) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Verify read data */
|
||||
for(i = 0; i < (int)mdims[0]; i++)
|
||||
for(j = 0; j < (int)mdims[1]; j++) {
|
||||
if(j >= (int)dims[1]) {
|
||||
if(rbuf[i][j] != 0)
|
||||
TEST_ERROR
|
||||
} /* end if */
|
||||
else
|
||||
if(rbuf[i][j] != erbuf[i][j])
|
||||
TEST_ERROR
|
||||
} /* end for */
|
||||
|
||||
/* Close VDS and reopen with view set to H5D_VDS_LAST_AVAILABLE, reopen file
|
||||
* as well if config option specified */
|
||||
if(H5Dclose(vdset) < 0)
|
||||
TEST_ERROR
|
||||
if(H5Pset_virtual_view(dapl, H5D_VDS_LAST_AVAILABLE) < 0)
|
||||
TEST_ERROR
|
||||
if(config & TEST_IO_REOPEN_VIRT) {
|
||||
if(H5Fclose(vfile) < 0)
|
||||
TEST_ERROR
|
||||
vfile = -1;
|
||||
if((vfile = H5Fopen(vfilename, H5F_ACC_RDWR, fapl)) < 0)
|
||||
TEST_ERROR
|
||||
} /* end if */
|
||||
if((vdset = H5Dopen2(vfile, "v_dset", dapl)) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Get VDS space */
|
||||
if((filespace = H5Dget_space(vdset)) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Get VDS space dimensions */
|
||||
if((ndims = H5Sget_simple_extent_ndims(filespace)) < 0)
|
||||
TEST_ERROR
|
||||
if(ndims != 2)
|
||||
TEST_ERROR
|
||||
if(H5Sget_simple_extent_dims(filespace, dims, mdims) < 0)
|
||||
TEST_ERROR
|
||||
if(dims[0] != 10)
|
||||
TEST_ERROR
|
||||
if(dims[1] != 15)
|
||||
TEST_ERROR
|
||||
if(mdims[0] != 10)
|
||||
TEST_ERROR
|
||||
if(mdims[1] != 20)
|
||||
TEST_ERROR
|
||||
|
||||
/* Close filespace */
|
||||
if(H5Sclose(filespace) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Read data through virtual dataset */
|
||||
/* Reset rbuf */
|
||||
HDmemset(rbuf[0], 0, sizeof(rbuf));
|
||||
|
||||
/* Select hyperslab in memory space */
|
||||
start[0] = 0;
|
||||
start[1] = 0;
|
||||
if(H5Sselect_hyperslab(memspace, H5S_SELECT_SET, start, NULL, dims, NULL) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Read data */
|
||||
if(H5Dread(vdset, H5T_NATIVE_INT, memspace, H5S_ALL, H5P_DEFAULT, rbuf[0]) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Verify read data */
|
||||
for(i = 0; i < (int)mdims[0]; i++)
|
||||
for(j = 0; j < (int)mdims[1]; j++) {
|
||||
if(j >= (int)dims[1]) {
|
||||
if(rbuf[i][j] != 0)
|
||||
TEST_ERROR
|
||||
} /* end if */
|
||||
else
|
||||
if(rbuf[i][j] != erbuf[i][j])
|
||||
TEST_ERROR
|
||||
} /* end for */
|
||||
|
||||
/* Close */
|
||||
if(!(config & TEST_IO_CLOSE_SRC)) {
|
||||
if(H5Dclose(srcdset[0]) < 0)
|
||||
TEST_ERROR
|
||||
srcdset[0] = -1;
|
||||
if(H5Dclose(srcdset[1]) < 0)
|
||||
TEST_ERROR
|
||||
srcdset[1] = -1;
|
||||
if(H5Fclose(srcfile[0]) < 0)
|
||||
TEST_ERROR
|
||||
srcfile[0] = -1;
|
||||
} /* end if */
|
||||
else if(!(config & TEST_IO_DIFFERENT_FILE)) {
|
||||
if(H5Fclose(srcfile[0]) < 0)
|
||||
TEST_ERROR
|
||||
srcfile[0] = -1;
|
||||
} /* end if */
|
||||
if(H5Dclose(vdset) < 0)
|
||||
TEST_ERROR
|
||||
vdset = -1;
|
||||
if(H5Fclose(vfile) < 0)
|
||||
TEST_ERROR
|
||||
vfile = -1;
|
||||
if(H5Sclose(srcspace[0]) < 0)
|
||||
TEST_ERROR
|
||||
srcspace[0] = -1;
|
||||
if(H5Sclose(srcspace[1]) < 0)
|
||||
TEST_ERROR
|
||||
srcspace[1] = -1;
|
||||
if(H5Sclose(vspace[0]) < 0)
|
||||
TEST_ERROR
|
||||
vspace[0] = -1;
|
||||
if(H5Sclose(vspace[1]) < 0)
|
||||
TEST_ERROR
|
||||
vspace[1] = -1;
|
||||
|
||||
|
||||
/* Close */
|
||||
if(H5Pclose(dcpl) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user