summaryrefslogtreecommitdiffstats
path: root/test/set_extent.c
diff options
context:
space:
mode:
authorPedro Vicente Nunes <pvn@hdfgroup.org>2008-12-01 20:58:00 (GMT)
committerPedro Vicente Nunes <pvn@hdfgroup.org>2008-12-01 20:58:00 (GMT)
commit3f26602c9e83c756115e9b2270bc8c1af5eaed0a (patch)
tree0a6d7088c65e5151c495894368ad6bf81ad4eab8 /test/set_extent.c
parent78e90e5780e2f313a745e0c3b4eac5e3ee8a6db8 (diff)
downloadhdf5-3f26602c9e83c756115e9b2270bc8c1af5eaed0a.zip
hdf5-3f26602c9e83c756115e9b2270bc8c1af5eaed0a.tar.gz
hdf5-3f26602c9e83c756115e9b2270bc8c1af5eaed0a.tar.bz2
[svn-r16145] Merging with trunk regarding revisions
16132 some chunks were not deleted for some cases, the comparison to check for chunk offsets outside of the new dimensions was chunk_offset[ i ] > dimension [ i ] and it must be chunk_offset[ i ] >= dimension [ i ] 16133 H5TBdelete_record was not handlong correctly records at the end of the table added a ckeck that avoids to read these records if they are not needed (for pushing down the table) 16143 add a test for recent fixes of H5Dset_extent tested: windows, linux
Diffstat (limited to 'test/set_extent.c')
-rw-r--r--test/set_extent.c1166
1 files changed, 541 insertions, 625 deletions
diff --git a/test/set_extent.c b/test/set_extent.c
index 4bb324f..3cf2095 100644
--- a/test/set_extent.c
+++ b/test/set_extent.c
@@ -33,41 +33,30 @@
*-------------------------------------------------------------------------
*/
-#define RANK 2
-#define ISTORE_IK 64
+#define RANK 2
+#define DIM0 4
+#define DIM1 4
+#define DIMS0 2
+#define DIMS1 2
+#define DIME0 7
+#define DIME1 7
+#define ISTORE_IK 64
+static int test( hid_t fid, int do_compress, int do_fill_value );
+
+
+/*-------------------------------------------------------------------------
+ * main
+ *-------------------------------------------------------------------------
+ */
int main( void )
{
hid_t fid;
- hid_t did=(-1);
- hid_t sid=(-1);
- hid_t dcpl=(-1);
- hid_t fcpl;
- hsize_t dims[RANK] = { 90, 90 };
- hsize_t dims_new[RANK] = { 70, 70 };
- hsize_t dims_chunk[RANK] = { 20, 20 };
- hsize_t dims_out[RANK];
- hsize_t dims3[RANK];
- hsize_t maxdims[RANK] = { H5S_UNLIMITED, H5S_UNLIMITED };
- int data[ 90 ][ 90 ];
- int buf1[ 70 ][ 70 ];
- int buf2[ 90 ][ 90 ];
- int i, j, n = 0;
- int fillvalue = 1; /* Fill value for the dataset */
-#ifdef H5_HAVE_FILTER_DEFLATE
- hbool_t do_compress; /* Iterator for looping over compress/no compress */
-#endif /* H5_HAVE_FILTER_DEFLATE */
-
+ hid_t fcpl;
+ hbool_t do_compress; /* iterator for looping over compress/no compress */
+
- for( i = 0; i < 90; i++ )
- for( j = 0; j < 90; j++ )
- data[i][j] = n++;
-
- /*-------------------------------------------------------------------------
- * Test H5Dset_extent with chunks on the raw data cache
- *-------------------------------------------------------------------------
- */
#ifdef H5_HAVE_FILTER_DEFLATE
for (do_compress = FALSE; do_compress <= TRUE; do_compress++)
{
@@ -76,645 +65,572 @@ int main( void )
else
puts("Testing with NO compression on chunks.");
#else /* H5_HAVE_FILTER_DEFLATE */
- puts("** deflate filter nor available - Skipping tests for compression on chunks. **");
+ puts("** deflate filter nor available - Skipping tests for compression on chunks. **");
#endif /* H5_HAVE_FILTER_DEFLATE */
-
- TESTING("extend dataset create with fill value");
-
- /* Create a new file using default properties. */
- if((fid = H5Fcreate("set_extent_create.h5", H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
- TEST_ERROR;
-
- /* Create the data space with unlimited dimensions. */
- if((sid = H5Screate_simple(RANK, dims, maxdims)) < 0)
- TEST_ERROR;
-
- /* Modify dataset creation properties, i.e. enable chunking. */
- if((dcpl = H5Pcreate (H5P_DATASET_CREATE)) < 0)
- TEST_ERROR;
- if(H5Pset_chunk(dcpl, RANK, dims_chunk) < 0)
- TEST_ERROR;
- if(H5Pset_fill_value(dcpl, H5T_NATIVE_INT, &fillvalue) < 0)
- TEST_ERROR;
-#ifdef H5_HAVE_FILTER_DEFLATE
- if(do_compress)
+
+ /* create a file creation property list */
+ if ((fcpl = H5Pcreate(H5P_FILE_CREATE)) < 0)
{
- if(H5Pset_deflate(dcpl, 9) < 0)
- FAIL_STACK_ERROR
+ goto error;
}
-#endif /* H5_HAVE_FILTER_DEFLATE */
-
-
- /*-------------------------------------------------------------------------
- * Create and write one dataset
- *-------------------------------------------------------------------------
- */
-
- /* Create a new dataset */
- if((did = H5Dcreate2(fid , "Dataset1", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
- TEST_ERROR;
-
- /* Write the data. */
- if(H5Dwrite(did , H5T_NATIVE_INT, sid, H5S_ALL, H5P_DEFAULT, data) < 0)
- TEST_ERROR;
-
- /*-------------------------------------------------------------------------
- * Set new dimensions for the array; shrink it
- *-------------------------------------------------------------------------
- */
-
- /* Set new dimensions for the array. */
- if(H5Dset_extent(did , dims_new) < 0)
- TEST_ERROR;
-
- /* Get the space. */
- if((sid = H5Dget_space(did)) < 0)
- TEST_ERROR;
-
- /* Get dimensions. */
- if(H5Sget_simple_extent_dims(sid, dims_out, NULL) < 0)
- TEST_ERROR;
-
- if(dims_out[0] != dims_new[0])
- TEST_ERROR;
- if(dims_out[1] != dims_new[1])
- TEST_ERROR;
-
-
- /*-------------------------------------------------------------------------
- * Read
- *-------------------------------------------------------------------------
- */
-
- /* Read the new dataset. */
- if (H5Dread( did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf1 ) < 0)
- TEST_ERROR;
-
-
- /* Compare the read array with the original array */
- for( i = 0; i < (int)dims_out[0]; i++ )
+
+ if ( do_compress )
{
- for( j = 0; j < (int)dims_out[1]; j++ )
+
+ /* set non-default indexed storage B-tree internal 'K' value */
+ if (H5Pset_istore_k(fcpl,ISTORE_IK) < 0)
{
- if ( buf1[i][j] != data[i][j] )
- {
- printf("buf1[%d][%d] = %d\n", i, j, buf1[i][j]);
- printf("data[%d][%d] = %d\n", i, j, data[i][j]);
- TEST_ERROR;
- }
+ goto error;
}
}
-
-
- /*-------------------------------------------------------------------------
- * Set new dimensions for the array; expand it back to original size
- *-------------------------------------------------------------------------
- */
-
- /* Set new dimensions for the array. */
- if(H5Dset_extent(did, dims) < 0)
- TEST_ERROR;
-
- /* Get the space. */
- if((sid = H5Dget_space(did)) < 0)
- TEST_ERROR;
-
- /* Get dimensions. */
- if(H5Sget_simple_extent_dims(sid, dims_out, NULL) < 0)
- TEST_ERROR;
-
- if(dims_out[0] != dims[0])
- TEST_ERROR;
- if(dims_out[1] != dims[1])
- TEST_ERROR;
-
-
- /*-------------------------------------------------------------------------
- * Read
- *-------------------------------------------------------------------------
- */
-
- /* Read the new dataset. */
- if(H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf2) < 0)
- TEST_ERROR;
-
- /* Compare the read array with the original array */
- for(i = 0; i < (int)dims_out[0]; i++ )
+
+
+ /* create a new file */
+ if ((fid = H5Fcreate("set_extent1.h5", H5F_ACC_TRUNC, fcpl, H5P_DEFAULT)) < 0)
{
- for(j = 0; j < (int)dims_out[1]; j++ )
- {
- if(i >= 70 || j >= 70)
- {
- if(buf2[i][j] != fillvalue) {
- printf("buf1[%d][%d] = %d\n", i, j, buf1[i][j]);
- printf("fillvalue = %d\n", fillvalue);
- TEST_ERROR;
- } /* end if */
- } /* end if */
- else
- {
- if(buf2[i][j] != data[i][j])
- TEST_ERROR;
- }
- }
+ goto error;
}
-
-
- /*-------------------------------------------------------------------------
- * Close/release resources
- *-------------------------------------------------------------------------
- */
-
- if(H5Dclose(did) < 0)
- TEST_ERROR
- if(H5Sclose(sid) < 0)
- TEST_ERROR
- if(H5Pclose(dcpl) < 0)
- TEST_ERROR
-
+
+
+ /* close property list */
+ if(H5Pclose(fcpl) < 0)
+ {
+ goto error;
+ }
+
+
+
+ TESTING("extend dataset created with fill value");
+
+
+ if (test( fid, do_compress, 1 ) < 0)
+ {
+ goto error;
+ }
+
PASSED();
-
-
- TESTING("extend dataset create without fill value");
-
- /* Create the data space with unlimited dimensions. */
- if((sid = H5Screate_simple(RANK, dims, maxdims)) < 0)
- TEST_ERROR;
-
- /* Modify dataset creation properties, i.e. enable chunking. */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
- TEST_ERROR;
- if(H5Pset_chunk(dcpl, RANK, dims_chunk) < 0)
- TEST_ERROR;
- if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0)
- TEST_ERROR;
-#ifdef H5_HAVE_FILTER_DEFLATE
- if(do_compress)
- if(H5Pset_deflate(dcpl, 9) < 0)
- FAIL_STACK_ERROR
-#endif /* H5_HAVE_FILTER_DEFLATE */
-
- /*-------------------------------------------------------------------------
- * Create and write one dataset
- *-------------------------------------------------------------------------
- */
-
- /* Create a new dataset */
- if((did = H5Dcreate2(fid , "Dataset2", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
- TEST_ERROR;
-
- /* Write the data. */
- if(H5Dwrite(did , H5T_NATIVE_INT, sid, H5S_ALL, H5P_DEFAULT, data) < 0)
- TEST_ERROR;
-
- /*-------------------------------------------------------------------------
- * Set new dimensions for the array; shrink it
- *-------------------------------------------------------------------------
- */
-
- /* Set new dimensions for the array. */
- if(H5Dset_extent(did , dims_new) < 0)
- TEST_ERROR;
-
- /* Get the space. */
- if((sid = H5Dget_space(did)) < 0)
- TEST_ERROR;
-
- /* Get dimensions. */
- if(H5Sget_simple_extent_dims(sid, dims_out, NULL) < 0)
- TEST_ERROR;
-
- if(dims_out[0] != dims_new[0])
- TEST_ERROR;
-
-
- /*-------------------------------------------------------------------------
- * Read
- *-------------------------------------------------------------------------
- */
-
- /* Read the new dataset. */
- if (H5Dread( did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf1 ) < 0)
- TEST_ERROR;
-
-
- /* Compare the read array with the original array */
- for( i = 0; i < (int)dims_out[0]; i++ )
+
+ TESTING("extend dataset created without fill value");
+
+ if (test( fid, do_compress, 0 ) < 0)
{
- for( j = 0; j < (int)dims_out[1]; j++ )
- {
- if ( buf1[i][j] != data[i][j] )
- TEST_ERROR;
- }
+ goto error;
}
-
-
- /*-------------------------------------------------------------------------
- * Set new dimensions for the array; expand it again
- *-------------------------------------------------------------------------
- */
-
- /* Set new dimensions for the array. */
- if (H5Dset_extent( did , dims ) < 0)
- TEST_ERROR;
-
- /* Get the space. */
- if ((sid = H5Dget_space( did )) < 0)
- TEST_ERROR;
-
- /* Get dimensions. */
- if (H5Sget_simple_extent_dims( sid, dims_out, NULL ) < 0)
- TEST_ERROR;
-
- if ( dims_out[0] != dims[0] )
- TEST_ERROR;
-
-
- /*-------------------------------------------------------------------------
- * Read
- *-------------------------------------------------------------------------
- */
-
- /* Read the new dataset. */
- if (H5Dread( did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf2 ) < 0)
- TEST_ERROR;
-
- /* Compare the read array with the original array */
- for( i = 0; i < (int)dims_out[0]; i++ )
+
+
+ if (H5Fclose( fid ) < 0)
{
- for( j = 0; j < (int)dims_out[1]; j++ )
- {
- if ( i >= 70 || j >= 70 ) {
- if ( buf2[i][j] != 0 )
- TEST_ERROR;
- }
- else {
- if ( buf2[i][j] != data[i][j] )
- TEST_ERROR;
- }
- }
+ goto error;
}
-
-
- /*-------------------------------------------------------------------------
- * Close/release resources
- *-------------------------------------------------------------------------
- */
-
- if (H5Dclose(did) < 0)
- TEST_ERROR
- if (H5Sclose(sid) < 0)
- TEST_ERROR
- if (H5Pclose(dcpl) < 0)
- TEST_ERROR
- if (H5Fclose( fid ) < 0)
- TEST_ERROR
-
+
PASSED();
-
-
-
- /*-------------------------------------------------------------------------
- * Test H5Dset_extent with chunks written to file
- *-------------------------------------------------------------------------
- */
-
- /* Create a file creation property list */
- if((fcpl = H5Pcreate(H5P_FILE_CREATE)) < 0)
- TEST_ERROR;
-
- /* Set non-default indexed storage B-tree internal 'K' value */
- if(H5Pset_istore_k(fcpl,ISTORE_IK) < 0)
- TEST_ERROR;
-
- /* Create a new file using properties. */
- if((fid = H5Fcreate("set_extent_read.h5", H5F_ACC_TRUNC, fcpl, H5P_DEFAULT)) < 0)
- TEST_ERROR;
-
- /* Close property list */
- if(H5Pclose(fcpl) < 0)
- TEST_ERROR;
-
- TESTING("extend dataset read with fill value");
-
- /* Create the data space with unlimited dimensions. */
- if((sid = H5Screate_simple(RANK, dims, maxdims)) < 0)
- TEST_ERROR;
-
- /* Modify dataset creation properties, i.e. enable chunking. */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
- TEST_ERROR;
- if(H5Pset_chunk(dcpl, RANK, dims_chunk) < 0)
- TEST_ERROR;
- if(H5Pset_fill_value(dcpl, H5T_NATIVE_INT, &fillvalue) < 0)
- TEST_ERROR;
+
+
+
#ifdef H5_HAVE_FILTER_DEFLATE
- if(do_compress)
- if(H5Pset_deflate(dcpl, 9) < 0)
- FAIL_STACK_ERROR
+ } /* end for */
#endif /* H5_HAVE_FILTER_DEFLATE */
+
+ puts("All set_extent tests passed.");
+ return 0;
+
+
+error:
+
+ H5E_BEGIN_TRY
+ {
+ H5Fclose( fid );
+ } H5E_END_TRY;
+
+ H5_FAILED();
+ return 1;
+}
- /* Create a new dataset within the file using cparms creation properties. */
- if((did = H5Dcreate2(fid , "Dataset1", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
- TEST_ERROR;
-
- /* Write the data. */
- if(H5Dwrite(did , H5T_NATIVE_INT, sid, H5S_ALL, H5P_DEFAULT, data) < 0)
- TEST_ERROR;
-
- /* Close/release resources. */
- if(H5Dclose(did) < 0) FAIL_STACK_ERROR
- if(H5Sclose(sid) < 0) FAIL_STACK_ERROR
- if(H5Pclose(dcpl) < 0) FAIL_STACK_ERROR
- if(H5Fclose(fid) < 0) FAIL_STACK_ERROR
-
-
- /* Open the file */
- if((fid = H5Fopen("set_extent_read.h5", H5F_ACC_RDWR, H5P_DEFAULT)) < 0)
- TEST_ERROR;
-
- /* Open the dataset */
- if((did = H5Dopen2(fid , "Dataset1", H5P_DEFAULT)) < 0)
- TEST_ERROR;
- /* Set new dimensions for the array. */
- if(H5Dset_extent(did, dims_new) < 0)
- TEST_ERROR;
- /* Get the space. */
- if((sid = H5Dget_space(did)) < 0)
- TEST_ERROR;
- /* Get dimensions. */
- if(H5Sget_simple_extent_dims(sid, dims_out, NULL) < 0)
- TEST_ERROR;
+/*-------------------------------------------------------------------------
+ * test
+ *-------------------------------------------------------------------------
+ */
- if(dims_out[0] != dims_new[0])
- TEST_ERROR;
+static int test( hid_t fid, int do_compress, int do_fill_value )
+{
- /* Read the new dataset. */
- if(H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf1) < 0)
- TEST_ERROR;
+ hid_t did;
+ hid_t sid;
+ hid_t dcpl;
+ hsize_t dims_o[RANK] = {DIM0,DIM1};
+ hsize_t dims_s[RANK] = {DIMS0,DIMS1};
+ hsize_t dims_e[RANK] = {DIME0,DIME1};
+ hsize_t dims_c[RANK] = {2,2};
+ hsize_t dims_r[RANK];
+ hsize_t maxdims[RANK] = {H5S_UNLIMITED,H5S_UNLIMITED};
+ int buf_o[DIM0][DIM1];
+ int buf_s[DIMS0][DIMS1];
+ int buf_e[DIME0][DIME1];
+ int buf_r[DIM0][DIM1];
+ int i, j;
+ int fillvalue = 1;
+ int comp_value;
+ char dset_name[255];
+ char dset_name2[255];
+
+ if ( do_fill_value )
+ {
+ comp_value = fillvalue;
+ strcpy(dset_name,"dset_fill");
+ strcpy(dset_name2,"dset_fill_noinit");
+ }
+ else
+ {
+ comp_value = 0;
+ strcpy(dset_name,"dset_nofill");
+ strcpy(dset_name2,"dset_nofill_noinit");
+ }
- /* Compare the read array with the original array */
- for(i = 0; i < (int)dims_out[0]; i++)
+
+ for( i = 0; i < DIM0; i++ )
+ {
+ for( j = 0; j < DIM1; j++ )
{
- for(j = 0; j < (int)dims_out[1]; j++)
- {
- if(buf1[i][j] != data[i][j])
- TEST_ERROR;
- }
+ buf_o[i][j] = 2;
}
-
- /*-------------------------------------------------------------------------
- * Set new dimensions for the array; expand it again
- *-------------------------------------------------------------------------
- */
-
- /* Set new dimensions for the array. */
- if (H5Dset_extent( did , dims ) < 0)
- TEST_ERROR;
-
- /* Get the space. */
- if ((sid = H5Dget_space( did )) < 0)
- TEST_ERROR;
-
- /* Get dimensions. */
- if (H5Sget_simple_extent_dims( sid, dims_out, NULL ) < 0)
- TEST_ERROR;
-
- if ( dims_out[0] != dims[0] )
- TEST_ERROR;
-
- /* Read the new dataset. */
- if (H5Dread( did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf2 ) < 0)
- TEST_ERROR;
-
- /* Compare the read array with the original array */
- for( i = 0; i < (int)dims_out[0]; i++ )
+ }
+
+ /* create the data space with unlimited dimensions. */
+ if ((sid = H5Screate_simple(RANK, dims_o, maxdims)) < 0)
+ {
+ goto error;
+ }
+
+ /* modify dataset creation properties, i.e. enable chunking. */
+ if ((dcpl = H5Pcreate (H5P_DATASET_CREATE)) < 0)
+ {
+ goto error;
+ }
+ if (H5Pset_chunk(dcpl, RANK, dims_c) < 0)
+ {
+ goto error;
+ }
+ if ( do_fill_value )
+ {
+ if (H5Pset_fill_value(dcpl, H5T_NATIVE_INT, &fillvalue) < 0)
{
- for( j = 0; j < (int)dims_out[1]; j++ )
- {
- if ( i >= 70 || j >= 70 )
- {
- if ( buf2[i][j] != fillvalue )
- TEST_ERROR;
- }
- else
- {
- if ( buf2[i][j] != data[i][j] )
- TEST_ERROR;
- }
- }
+ goto error;
}
-
-
- /*-------------------------------------------------------------------------
- * Close/release resources
- *-------------------------------------------------------------------------
- */
-
- if (H5Dclose(did) < 0)
- TEST_ERROR
- if (H5Sclose(sid) < 0)
- TEST_ERROR
-
- PASSED();
-
-
- TESTING("extend dataset read without fill value");
-
- /* Create the data space with unlimited dimensions. */
- if((sid = H5Screate_simple(RANK, dims, maxdims)) < 0)
- TEST_ERROR;
-
- /* Modify dataset creation properties, i.e. enable chunking. */
- if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0)
- TEST_ERROR;
- if(H5Pset_chunk(dcpl, RANK, dims_chunk) < 0)
- TEST_ERROR;
+ }
+ else
+ {
+
if(H5Pset_fill_time(dcpl, H5D_FILL_TIME_ALLOC) < 0)
- TEST_ERROR;
+ {
+ goto error;
+ }
+
+ }
#ifdef H5_HAVE_FILTER_DEFLATE
- if(do_compress)
- if(H5Pset_deflate(dcpl, 9) < 0)
- FAIL_STACK_ERROR
+ if(do_compress)
+ {
+ if(H5Pset_deflate(dcpl, 9) < 0)
+ {
+ goto error;
+ }
+ }
#endif /* H5_HAVE_FILTER_DEFLATE */
-
- /* Create a new dataset within the file using cparms creation properties. */
- if((did = H5Dcreate2(fid , "Dataset2", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
- TEST_ERROR;
-
- /* Write the data. */
- if(H5Dwrite(did , H5T_NATIVE_INT, sid, H5S_ALL, H5P_DEFAULT, data) < 0)
- TEST_ERROR;
-
- /* Close/release resources. */
- if(H5Dclose(did) < 0) FAIL_STACK_ERROR
- if(H5Sclose(sid) < 0) FAIL_STACK_ERROR
- if(H5Pclose(dcpl) < 0) FAIL_STACK_ERROR
- if(H5Fclose(fid) < 0) FAIL_STACK_ERROR
-
-
- /* Open the file */
- if((fid = H5Fopen("set_extent_read.h5", H5F_ACC_RDWR, H5P_DEFAULT)) < 0)
- TEST_ERROR;
-
- /* Open the dataset */
- if((did = H5Dopen2(fid , "Dataset2", H5P_DEFAULT)) < 0)
- TEST_ERROR;
-
- /* Set new dimensions for the array. */
- if(H5Dset_extent(did, dims_new) < 0)
- TEST_ERROR;
-
- /* Get the space. */
- if((sid = H5Dget_space(did)) < 0)
- TEST_ERROR;
-
- /* Get dimensions. */
- if(H5Sget_simple_extent_dims(sid, dims_out, NULL) < 0)
- TEST_ERROR;
-
- if(dims_out[0] != dims_new[0])
- TEST_ERROR;
-
- /* Read the new dataset. */
- if(H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf1) < 0)
- TEST_ERROR;
-
- /* Compare the read array with the original array */
- for(i = 0; i < (int)dims_out[0]; i++)
+
+
+
+ /*-------------------------------------------------------------------------
+ * create and write one dataset
+ *-------------------------------------------------------------------------
+ */
+
+ /* create a dataset */
+ if ((did = H5Dcreate2(fid , dset_name, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ {
+ goto error;
+ }
+
+ /* write */
+ if (H5Dwrite(did , H5T_NATIVE_INT, sid, H5S_ALL, H5P_DEFAULT, buf_o) < 0)
+ {
+ goto error;
+ }
+
+
+#if defined (H5_SET_EXTENT_DEBUG)
+ printf("\n");
+ for (i = 0; i < (int)dims_o[0]; i++ )
+ {
+ for (j = 0; j < (int)dims_o[1]; j++ )
{
- for(j = 0; j < (int)dims_out[1]; j++)
- {
- if(buf1[i][j] != data[i][j])
- TEST_ERROR;
- }
+ printf("%d ", buf_o[i][j]);
}
-
- /*-------------------------------------------------------------------------
- * Set new dimensions for the array; expand it again
- *-------------------------------------------------------------------------
- */
-
- /* Set new dimensions for the array. */
- if (H5Dset_extent( did , dims ) < 0)
- TEST_ERROR;
-
- /* Get the space. */
- if ((sid = H5Dget_space( did )) < 0)
- TEST_ERROR;
-
- /* Get dimensions. */
- if (H5Sget_simple_extent_dims( sid, dims_out, NULL ) < 0)
- TEST_ERROR;
-
- if ( dims_out[0] != dims[0] )
- TEST_ERROR;
-
- /* Read the new dataset. */
- if (H5Dread( did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf2 ) < 0)
- TEST_ERROR;
-
- /* Compare the read array with the original array */
- for( i = 0; i < (int)dims_out[0]; i++ )
+ printf("\n");
+ }
+#endif
+
+ if (H5Sclose(sid) < 0)
+ {
+ goto error;
+ }
+
+ /*-------------------------------------------------------------------------
+ * set new dimensions for the array; expand it
+ *-------------------------------------------------------------------------
+ */
+
+ /* set new dimensions for the array. */
+ if (H5Dset_extent(did , dims_e) < 0)
+ {
+ goto error;
+ }
+
+ /* get the space */
+ if ((sid = H5Dget_space(did)) < 0)
+ {
+ goto error;
+ }
+
+ /* get dimensions */
+ if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
+ {
+ goto error;
+ }
+
+ if (H5Sclose(sid) < 0)
+ {
+ goto error;
+ }
+
+
+ /* check dimensions */
+ for( i = 0; i < RANK; i++ )
+ {
+ if (dims_r[i] != dims_e[i])
+ goto error;
+ }
+
+ /* read */
+ if (H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_e) < 0)
+ goto error;
+
+#if defined (H5_SET_EXTENT_DEBUG)
+ printf("\n");
+ for (i = 0; i < (int)dims_r[0]; i++ )
+ {
+ for (j = 0; j < (int)dims_r[1]; j++ )
{
- for( j = 0; j < (int)dims_out[1]; j++ )
+ printf("%d ", buf_e[i][j]);
+ }
+ printf("\n");
+ }
+#endif
+
+
+
+ /* compare the read array with the expanded array */
+ for (i = 0; i < (int)dims_r[0]; i++ )
+ {
+ for (j = 0; j < (int)dims_r[1]; j++ )
+ {
+ if (i >= DIM0 || j >= DIM1)
{
- if ( i >= 70 || j >= 70 )
+ if(buf_e[i][j] != comp_value)
{
- if ( buf2[i][j] != 0 )
- TEST_ERROR;
- }
- else
- {
- if ( buf2[i][j] != data[i][j] )
- TEST_ERROR;
- }
+ printf("buf_e[%d][%d] = %d\n", i, j, buf_e[i][j]);
+ printf("value = %d\n", comp_value);
+ goto error;
+ }
+ }
+ else
+ {
+ if(buf_e[i][j] != buf_o[i][j])
+ goto error;
}
}
-
-
- /*-------------------------------------------------------------------------
- * close
- *-------------------------------------------------------------------------
- */
-
- if (H5Dclose(did) < 0)
- TEST_ERROR
- if (H5Sclose(sid) < 0)
- TEST_ERROR
- if (H5Fclose( fid ) < 0)
- TEST_ERROR
-
- PASSED();
-
-
-
- /*-------------------------------------------------------------------------
- * test a dataset with non initialized chunks
- *-------------------------------------------------------------------------
- */
-
- TESTING("non initialized chunks");
-
- dims3[ 0 ] = 90;
- dims3[ 1 ] = 90;
-
- if ((fid = H5Fopen("set_extent_create.h5", H5F_ACC_RDWR, H5P_DEFAULT)) < 0)
- TEST_ERROR;
- if ((sid = H5Screate_simple(RANK, dims3, maxdims)) < 0)
- TEST_ERROR;
- if ((dcpl = H5Pcreate (H5P_DATASET_CREATE)) < 0)
- TEST_ERROR;
- if (H5Pset_chunk(dcpl, RANK, dims_chunk) < 0)
- TEST_ERROR;
-#ifdef H5_HAVE_FILTER_DEFLATE
- if(do_compress)
+ }
+
+
+ /*-------------------------------------------------------------------------
+ * write to the expanded array. fill the space with fill value with other value
+ *-------------------------------------------------------------------------
+ */
+
+ for( i = 0; i < DIME0; i++ )
+ {
+ for( j = 0; j < DIME1; j++ )
{
- if(H5Pset_deflate(dcpl, 9) < 0)
- FAIL_STACK_ERROR
+ buf_e[i][j] = 2;
}
-#endif /* H5_HAVE_FILTER_DEFLATE */
-
- /* create a new dataset */
- if((did = H5Dcreate2(fid , "Dataset3", H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
- TEST_ERROR;
-
- /* set new dimensions for the array */
- dims3[ 0 ] = 0;
- dims3[ 1 ] = 0;
- if (H5Dset_extent( did , dims3 ) < 0)
- TEST_ERROR;
-
-
- if (H5Dclose(did) < 0)
- TEST_ERROR
- if (H5Sclose(sid) < 0)
- TEST_ERROR
- if (H5Pclose(dcpl) < 0)
- TEST_ERROR
- if (H5Fclose( fid ) < 0)
- TEST_ERROR
-
- PASSED();
-
+ }
+
+ /* get the space */
+ if ((sid = H5Dget_space(did)) < 0)
+ {
+ goto error;
+ }
+
+ /* write */
+ if (H5Dwrite(did , H5T_NATIVE_INT, sid, H5S_ALL, H5P_DEFAULT, buf_e) < 0)
+ {
+ goto error;
+ }
+
+ /* read */
+ if (H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_e) < 0)
+ goto error;
+
+
+ /* close space */
+ if (H5Sclose(sid) < 0)
+ {
+ goto error;
+ }
+
+
+#if defined (H5_SET_EXTENT_DEBUG)
+ printf("\n");
+ for (i = 0; i < (int)dims_r[0]; i++ )
+ {
+ for (j = 0; j < (int)dims_r[1]; j++ )
+ {
+ printf("%d ", buf_e[i][j]);
+ }
+ printf("\n");
+ }
+#endif
+
+
+
+
+ /*-------------------------------------------------------------------------
+ * set new dimensions for the array; shrink it
+ *-------------------------------------------------------------------------
+ */
+
+ /* set new dimensions for the array. */
+ if (H5Dset_extent(did , dims_s) < 0)
+ {
+ goto error;
+ }
+
+ /* get the space */
+ if ((sid = H5Dget_space(did)) < 0)
+ {
+ goto error;
+ }
+
+ /* get dimensions */
+ if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
+ {
+ goto error;
+ }
+
+ if (H5Sclose(sid) < 0)
+ {
+ goto error;
+ }
+
+ /* check dimensions */
+ for( i = 0; i < RANK; i++ )
+ {
+ if (dims_r[i] != dims_s[i])
+ goto error;
+ }
+
+
+ /*-------------------------------------------------------------------------
+ * read
+ *-------------------------------------------------------------------------
+ */
+
+ /* read */
+ if (H5Dread( did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_s ) < 0)
+ {
+ goto error;
+ }
+
+#if defined (H5_SET_EXTENT_DEBUG)
+ printf("\n");
+ for (i = 0; i < (int)dims_r[0]; i++ )
+ {
+ for (j = 0; j < (int)dims_r[1]; j++ )
+ {
+ printf("%d ", buf_s[i][j]);
+ }
+ printf("\n");
+ }
+#endif
+
+
+ /* compare the read array with the shrinked array */
+ for( i = 0; i < (int)dims_r[0]; i++ )
+ {
+ for( j = 0; j < (int)dims_r[1]; j++ )
+ {
+ if ( buf_s[i][j] != buf_o[i][j] )
+ {
+ printf("buf_r[%d][%d] = %d\n", i, j, buf_r[i][j]);
+ printf("buf_o[%d][%d] = %d\n", i, j, buf_o[i][j]);
+ goto error;
+ }
+ }
+ }
+
+
+ /*-------------------------------------------------------------------------
+ * set new dimensions for the array; expand it back to original size
+ *-------------------------------------------------------------------------
+ */
+
+ /* set new dimensions for the array */
+ if (H5Dset_extent(did, dims_o) < 0)
+ {
+ goto error;
+ }
+
+ /* get the space */
+ if ((sid = H5Dget_space(did)) < 0)
+ {
+ goto error;
+ }
+
+ /* get dimensions. */
+ if (H5Sget_simple_extent_dims(sid, dims_r, NULL) < 0)
+ {
+ goto error;
+ }
+
+ /* check dimensions */
+ for( i = 0; i < RANK; i++ )
+ {
+ if (dims_r[i] != dims_o[i])
+ goto error;
+ }
+
+
+ /*-------------------------------------------------------------------------
+ * read
+ *-------------------------------------------------------------------------
+ */
+
+ /* read */
+ if (H5Dread(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf_r) < 0)
+ goto error;
+
+#if defined (H5_SET_EXTENT_DEBUG)
+ printf("\n");
+ for (i = 0; i < (int)dims_r[0]; i++ )
+ {
+ for (j = 0; j < (int)dims_r[1]; j++ )
+ {
+ printf("%d ", buf_r[i][j]);
+ }
+ printf("\n");
+ }
+#endif
+
+ /* compare the read array with the original array */
+ for (i = 0; i < (int)dims_r[0]; i++ )
+ {
+ for (j = 0; j < (int)dims_r[1]; j++ )
+ {
+ if (i >= DIMS0 || j >= DIMS1)
+ {
+ if(buf_r[i][j] != comp_value)
+ {
+ printf("buf_r[%d][%d] = %d\n", i, j, buf_r[i][j]);
+ printf("value = %d\n", comp_value);
+ goto error;
+ }
+ }
+ else
+ {
+ if(buf_r[i][j] != buf_o[i][j])
+ goto error;
+ }
+ }
+ }
+
+
+ /*-------------------------------------------------------------------------
+ * close dataset and space
+ *-------------------------------------------------------------------------
+ */
+
+ if (H5Dclose(did) < 0)
+ {
+ goto error;
+ }
+ if (H5Sclose(sid) < 0)
+ {
+ goto error;
+ }
+
+
+
+ /*-------------------------------------------------------------------------
+ * test a dataset with non initialized chunks
+ *-------------------------------------------------------------------------
+ */
+
-#ifdef H5_HAVE_FILTER_DEFLATE
- } /* end for */
-#endif /* H5_HAVE_FILTER_DEFLATE */
-
- puts("All set_extent tests passed.");
- return 0;
+ if ((sid = H5Screate_simple(RANK, dims_o, maxdims)) < 0)
+ {
+ goto error;
+ }
+ if ((did = H5Dcreate2(fid , dset_name2, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0)
+ {
+ goto error;
+ }
+ /* set new dimensions for the array */
+ dims_o[ 0 ] = 0;
+ dims_o[ 1 ] = 0;
+ if (H5Dset_extent( did , dims_o ) < 0)
+ {
+ goto error;
+ }
+ if (H5Dclose(did) < 0)
+ {
+ goto error;
+ }
+ if (H5Sclose(sid) < 0)
+ {
+ goto error;
+ }
+
+
+
+
+ /*-------------------------------------------------------------------------
+ * close property list
+ *-------------------------------------------------------------------------
+ */
+
+
+ if (H5Pclose(dcpl) < 0)
+ {
+ goto error;
+ }
+ return 0;
+
+
+
error:
- H5Dclose( did );
- H5Sclose( sid );
- H5Pclose( dcpl );
- H5Fclose( fid );
- H5_FAILED();
- return 1;
+
+ H5E_BEGIN_TRY
+ {
+ H5Dclose( did );
+ H5Sclose( sid );
+ H5Pclose( dcpl );
+ } H5E_END_TRY;
+ return -1;
+
}
+
+