summaryrefslogtreecommitdiffstats
path: root/test/tselect.c
diff options
context:
space:
mode:
authorQuincey Koziol <koziol@hdfgroup.org>2001-01-18 22:02:15 (GMT)
committerQuincey Koziol <koziol@hdfgroup.org>2001-01-18 22:02:15 (GMT)
commit0059525322df98fb6c6beaec2b89df93cc9657a8 (patch)
tree4326c6801ec6120ba5b60ee285d9fe2c53f340c0 /test/tselect.c
parent7c8547ed04497b1da081f7b161c229a29bf522c8 (diff)
downloadhdf5-0059525322df98fb6c6beaec2b89df93cc9657a8.zip
hdf5-0059525322df98fb6c6beaec2b89df93cc9657a8.tar.gz
hdf5-0059525322df98fb6c6beaec2b89df93cc9657a8.tar.bz2
[svn-r3303] Purpose:
Additional testing Description: Added another random hyperslab test with smaller strip-mine buffers to force more errors conditions (if they exist). Platforms tested: FreeBSD 4.2 (hawkwind)
Diffstat (limited to 'test/tselect.c')
-rw-r--r--test/tselect.c58
1 files changed, 54 insertions, 4 deletions
diff --git a/test/tselect.c b/test/tselect.c
index 3625e24..5c1b468 100644
--- a/test/tselect.c
+++ b/test/tselect.c
@@ -2641,7 +2641,7 @@ test_select_hyper_iter2(void *_elem, hid_t UNUSED type_id, hsize_t ndim, hssize_
**
****************************************************************/
static void
-test_select_hyper_union_random_5d(void)
+test_select_hyper_union_random_5d(hid_t read_plist)
{
hid_t fid1; /* HDF5 File IDs */
hid_t dataset; /* Dataset ID */
@@ -2672,7 +2672,7 @@ test_select_hyper_union_random_5d(void)
for(j=0; j<SPACE5_DIM2; j++)
for(k=0; k<SPACE5_DIM3; k++)
for(l=0; l<SPACE5_DIM4; l++)
- for(m=0; m<SPACE5_DIM4; m++)
+ for(m=0; m<SPACE5_DIM5; m++)
*tbuf++=(int)(((((((i*SPACE4_DIM2)+j)*SPACE4_DIM3)+k)*SPACE5_DIM4)+l)*SPACE5_DIM5)+m;
/* Create file */
@@ -2739,9 +2739,41 @@ printf("start[%d]=%d, count[%d]=%d\n",j,(int)start[j],j,(int)count[j]);
npoints2 = H5Sget_select_npoints(sid2);
VERIFY(npoints, npoints2, "H5Sget_select_npoints");
+#ifdef QAK
+printf("random I/O, before H5Dread()\n");
+{
+ hsize_t blocks[15][2][SPACE5_RANK];
+ hssize_t nblocks;
+ intn k;
+
+ nblocks=H5Sget_select_hyper_nblocks(sid1);
+ printf("nblocks=%d\n",(int)nblocks);
+ H5Sget_select_hyper_blocklist(sid1,0,nblocks,blocks);
+ for(j=0; j<nblocks; j++) {
+ printf("Block #%d, start = {",j);
+ for(k=0; k<SPACE5_RANK; k++) {
+ printf("%d",blocks[j][0][k]);
+ if(k<(SPACE5_RANK-1))
+ printf(", ");
+ else
+ printf("}, end = {");
+ } /* end for */
+ for(k=0; k<SPACE5_RANK; k++) {
+ printf("%d",blocks[j][1][k]);
+ if(k<(SPACE5_RANK-1))
+ printf(", ");
+ else
+ printf("}\n");
+ } /* end for */
+ } /* end for */
+}
+#endif /* QAK */
/* Read selection from disk */
- ret=H5Dread(dataset,H5T_NATIVE_INT,sid2,sid1,H5P_DEFAULT,rbuf);
+ ret=H5Dread(dataset,H5T_NATIVE_INT,sid2,sid1,read_plist,rbuf);
CHECK(ret, FAIL, "H5Dread");
+#ifdef QAK
+printf("random I/O, after H5Dread()\n");
+#endif /* QAK */
/* Compare data read with data written out */
tbuf=rbuf;
@@ -2784,6 +2816,9 @@ printf("start[%d]=%d, count[%d]=%d\n",j,(int)start[j],j,(int)count[j]);
void
test_select(void)
{
+ hid_t plist_id; /* Property list for reading random hyperslabs */
+ herr_t ret; /* Generic return value */
+
/* Output message about test being performed */
MESSAGE(5, ("Testing Selections\n"));
@@ -2801,7 +2836,22 @@ test_select(void)
test_select_hyper_union(); /* Test hyperslab union code */
test_select_hyper_union_stagger(); /* Test hyperslab union code for staggered slabs */
test_select_hyper_union_3d(); /* Test hyperslab union code for 3-D dataset */
- test_select_hyper_union_random_5d(); /* Test hyperslab union code for random 5-D hyperslabs */
+
+ /* test the random hyperslab I/O with the default property list for reading */
+ test_select_hyper_union_random_5d(H5P_DEFAULT); /* Test hyperslab union code for random 5-D hyperslabs */
+
+ /* Create a dataset transfer property list */
+ plist_id=H5Pcreate(H5P_DATASET_XFER);
+ CHECK(plist_id, FAIL, "H5Pcreate");
+
+ /* test random hyperslab I/O with a much smaller buffer for reads */
+ ret=H5Pset_buffer(plist_id,(hsize_t)128,NULL,NULL);
+ CHECK(ret, FAIL, "H5Pset_buffer");
+
+ test_select_hyper_union_random_5d(plist_id); /* Test hyperslab union code for random 5-D hyperslabs */
+
+ ret=H5Pclose(plist_id);
+ CHECK(ret, FAIL, "H5Pclose");
} /* test_select() */