diff options
Diffstat (limited to 'test/reserved.c')
| -rw-r--r-- | test/reserved.c | 425 |
1 files changed, 239 insertions, 186 deletions
diff --git a/test/reserved.c b/test/reserved.c index d8d0c59..1286893 100644 --- a/test/reserved.c +++ b/test/reserved.c @@ -6,7 +6,7 @@ * This file is part of HDF5. The full HDF5 copyright notice, including * * terms governing use, modification, and redistribution, is contained in * * the COPYING file, which can be found at the root of the source code * - * distribution tree, or in https://support.hdfgroup.org/ftp/HDF5/releases. * + * distribution tree, or in https://www.hdfgroup.org/licenses. * * If you do not have access to either file, you may request a copy from * * help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ @@ -14,25 +14,20 @@ #include "h5test.h" #ifdef BROKEN -const char *FILENAME[] = { - "rsrv_heap", - "rsrv_ohdr", - "rsrv_vlen", - NULL -}; +const char *FILENAME[] = {"rsrv_heap", "rsrv_ohdr", "rsrv_vlen", NULL}; /*------------------------------------------------------------------------- - * Function: rsrv_heap + * Function: rsrv_heap * - * Purpose: Ensure that heaps reserve file address space. - * This function does this by creating datasets up to and past - * the limit of the file, then ensuring that an error (not an - * assert) was generated and that the file is readable. + * Purpose: Ensure that heaps reserve file address space. + * This function does this by creating datasets up to and past + * the limit of the file, then ensuring that an error (not an + * assert) was generated and that the file is readable. * - * Return: Success: 0 - * Failure: 1 + * Return: Success: 0 + * Failure: 1 * - * Programmer: James Laird + * Programmer: James Laird * Nat Furrer * Friday, May 28, 2004 * @@ -43,11 +38,11 @@ const char *FILENAME[] = { static herr_t rsrv_heap(void) { - hid_t file_id=(-1), dataset_id=(-1), dataspace_id=(-1); - hid_t fapl=(-1), fcpl=(-1); - hsize_t dims[1] = {1}; - char filename[1024], dset_name[10]; - int i; + hid_t file_id = (-1), dataset_id = (-1), dataspace_id = (-1); + hid_t fapl = (-1), fcpl = (-1); + hsize_t dims[1] = {1}; + char filename[1024], dset_name[10]; + int i; TESTING("Reserving file space for heap"); @@ -57,95 +52,111 @@ rsrv_heap(void) h5_fixname(FILENAME[0], fapl, filename, sizeof filename); /* Set file address sizes to be very small. */ fcpl = H5Pcreate(H5P_FILE_CREATE); - if(fcpl < 0) TEST_ERROR; - if(H5Pset_sizes(fcpl, (size_t)2,(size_t)2) < 0) TEST_ERROR; + if (fcpl < 0) + TEST_ERROR; + if (H5Pset_sizes(fcpl, (size_t)2, (size_t)2) < 0) + TEST_ERROR; file_id = H5Fcreate(filename, H5F_ACC_TRUNC, fcpl, fapl); - if(file_id < 0) TEST_ERROR; + if (file_id < 0) + TEST_ERROR; /* Write datasets until the file is full, at which point HDF5 * should throw an error. */ - for(i = 0; i < 200; i++) { - H5E_BEGIN_TRY { - dataspace_id = H5Screate_simple(1, dims, dims); - } H5E_END_TRY + for (i = 0; i < 200; i++) { + H5E_BEGIN_TRY { dataspace_id = H5Screate_simple(1, dims, dims); } + H5E_END_TRY - sprintf(dset_name, "Dset %d", i); + HDsprintf(dset_name, "Dset %d", i); - H5E_BEGIN_TRY { - dataset_id = H5Dcreate2(file_id, dset_name, H5T_NATIVE_INT, dataspace_id, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT); - } H5E_END_TRY + H5E_BEGIN_TRY + { + dataset_id = H5Dcreate2(file_id, dset_name, H5T_NATIVE_INT, dataspace_id, H5P_DEFAULT, + H5P_DEFAULT, H5P_DEFAULT); + } + H5E_END_TRY - if(dataset_id < 0) + if (dataset_id < 0) break; - H5E_BEGIN_TRY { - H5Dwrite(dataset_id, H5T_NATIVE_INT, dataspace_id, dataspace_id, H5P_DEFAULT, &i); - } H5E_END_TRY + H5E_BEGIN_TRY { H5Dwrite(dataset_id, H5T_NATIVE_INT, dataspace_id, dataspace_id, H5P_DEFAULT, &i); } + H5E_END_TRY - if(H5Dclose(dataset_id) < 0) TEST_ERROR; - if(H5Sclose(dataspace_id) < 0) TEST_ERROR; + if (H5Dclose(dataset_id) < 0) + TEST_ERROR; + if (H5Sclose(dataspace_id) < 0) + TEST_ERROR; } /* end for */ /* The loop should have broken before completing--the file should not have had * enough address space to hold 200 datasets (or this test needs to be updated!). */ - if(i == 200) + if (i == 200) TEST_ERROR; /* Close the file, property lists, and library */ - if(H5Fclose(file_id) < 0) TEST_ERROR; - if(H5Pclose(fapl) < 0) TEST_ERROR; - if(H5Pclose(fcpl) < 0) TEST_ERROR; - if(H5close() < 0) TEST_ERROR; + if (H5Fclose(file_id) < 0) + TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; + if (H5Pclose(fcpl) < 0) + TEST_ERROR; + if (H5close() < 0) + TEST_ERROR; /* Re-open the library and try to read a dataset from the file we created */ - if(H5open() < 0) TEST_ERROR; + if (H5open() < 0) + TEST_ERROR; - sprintf(dset_name, "Dset %d", i - 2); + HDsprintf(dset_name, "Dset %d", i - 2); file_id = H5Fopen(filename, H5F_ACC_RDONLY, H5P_DEFAULT); - if(file_id < 0) TEST_ERROR; + if (file_id < 0) + TEST_ERROR; dataset_id = H5Dopen2(file_id, dset_name, H5P_DEFAULT); /* If we can read a dataset from the file, the file has been flushed to disk * (if the heap or object headers weren't flushed, the file would be empty). */ - if(dataset_id == H5I_BADID) - TEST_ERROR; + if (dataset_id == H5I_BADID) + TEST_ERROR; - if(H5Dclose(dataset_id) < 0) TEST_ERROR; - if(H5Fclose(file_id) < 0) TEST_ERROR; + if (H5Dclose(dataset_id) < 0) + TEST_ERROR; + if (H5Fclose(file_id) < 0) + TEST_ERROR; PASSED(); return 0; error: /* Close everything we can and exit */ - H5E_BEGIN_TRY { - H5Dclose(dataset_id); - H5Sclose(dataspace_id); - H5Pclose(fcpl); - H5Pclose(fapl); - H5Fclose(file_id); - } H5E_END_TRY + H5E_BEGIN_TRY + { + H5Dclose(dataset_id); + H5Sclose(dataspace_id); + H5Pclose(fcpl); + H5Pclose(fapl); + H5Fclose(file_id); + } + H5E_END_TRY return 1; } /*------------------------------------------------------------------------- - * Function: rsrv_ohdr + * Function: rsrv_ohdr * - * Purpose: Ensure that object headers reserve file address space. - * This function does this by creating attributes of a dataset - * past the limit of the file, then ensuring that an error (not - * an assert) was generated and that the file is readable. + * Purpose: Ensure that object headers reserve file address space. + * This function does this by creating attributes of a dataset + * past the limit of the file, then ensuring that an error (not + * an assert) was generated and that the file is readable. * - * Return: Success: 0 - * Failure: 1 + * Return: Success: 0 + * Failure: 1 * - * Programmer: James Laird + * Programmer: James Laird * Nat Furrer * Friday, May 28, 2004 * @@ -156,13 +167,13 @@ error: static herr_t rsrv_ohdr(void) { - hid_t file_id=(-1), dataset_id=(-1), dataspace_id=(-1); - hid_t fapl=(-1), fcpl=(-1), aid, attr_id; - hsize_t dims[2]; - herr_t status; - int attrval[4][6]; - char filename[1024], attrname[20]; - int i; + hid_t file_id = (-1), dataset_id = (-1), dataspace_id = (-1); + hid_t fapl = (-1), fcpl = (-1), aid, attr_id; + hsize_t dims[2]; + herr_t status; + int attrval[4][6]; + char filename[1024], attrname[20]; + int i; TESTING("Reserving file space for object headers"); @@ -171,39 +182,47 @@ rsrv_ohdr(void) h5_fixname(FILENAME[1], fapl, filename, sizeof filename); fcpl = H5Pcreate(H5P_FILE_CREATE); - if(fcpl < 0) TEST_ERROR; - if(H5Pset_sizes(fcpl, (size_t)2,(size_t)2) < 0) TEST_ERROR; + if (fcpl < 0) + TEST_ERROR; + if (H5Pset_sizes(fcpl, (size_t)2, (size_t)2) < 0) + TEST_ERROR; file_id = H5Fcreate(filename, H5F_ACC_TRUNC, fcpl, fapl); - if(file_id < 0) TEST_ERROR; + if (file_id < 0) + TEST_ERROR; /* Create the data space for the dataset. */ - dims[0] = 4; - dims[1] = 6; + dims[0] = 4; + dims[1] = 6; dataspace_id = H5Screate_simple(2, dims, NULL); - if(dataspace_id < 0) TEST_ERROR; + if (dataspace_id < 0) + TEST_ERROR; /* Create the dataset. */ - dataset_id = H5Dcreate2(file_id, "/dset", H5T_STD_I32BE, dataspace_id, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT); - if(dataset_id < 0) TEST_ERROR; + dataset_id = + H5Dcreate2(file_id, "/dset", H5T_STD_I32BE, dataspace_id, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT); + if (dataset_id < 0) + TEST_ERROR; - for(i = 0; i < 6; i++) { + for (i = 0; i < 6; i++) { attrval[0][i] = 0; attrval[1][i] = 1; attrval[2][i] = 2; attrval[3][i] = 3; } /* end for */ - for(i = 0; i < 2000; i++) { - sprintf(attrname, "attr %d", i); - H5E_BEGIN_TRY{ - aid = H5Screate_simple(2, dims, NULL); + for (i = 0; i < 2000; i++) { + HDsprintf(attrname, "attr %d", i); + H5E_BEGIN_TRY + { + aid = H5Screate_simple(2, dims, NULL); attr_id = H5Acreate2(dataset_id, attrname, H5T_STD_I32BE, aid, H5P_DEFAULT, H5P_DEFAULT); H5Awrite(attr_id, H5T_NATIVE_INT, attrval); status = H5Aclose(attr_id); - } H5E_END_TRY + } + H5E_END_TRY - if(status < 0) + if (status < 0) break; } /* end for */ @@ -211,66 +230,78 @@ rsrv_ohdr(void) * enough address space to hold 2000 attributes (or this test needs to be updated !). */ - if(i == 2000) + if (i == 2000) TEST_ERROR; /* End access to the dataset and dataspace and release resources. */ - if(H5Dclose(dataset_id) < 0) TEST_ERROR; - if(H5Pclose(fapl) < 0) TEST_ERROR; - if(H5Pclose(fcpl) < 0) TEST_ERROR; - if(H5Sclose(dataspace_id) < 0) TEST_ERROR; + if (H5Dclose(dataset_id) < 0) + TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; + if (H5Pclose(fcpl) < 0) + TEST_ERROR; + if (H5Sclose(dataspace_id) < 0) + TEST_ERROR; /* Close the file and the library. */ - if(H5Fclose(file_id) < 0) TEST_ERROR; - if(H5close() < 0) TEST_ERROR; + if (H5Fclose(file_id) < 0) + TEST_ERROR; + if (H5close() < 0) + TEST_ERROR; /* Re-open the library and try to read a dataset from the file we created */ - if(H5open() < 0) TEST_ERROR; + if (H5open() < 0) + TEST_ERROR; file_id = H5Fopen(filename, H5F_ACC_RDONLY, H5P_DEFAULT); - if(file_id < 0) TEST_ERROR; + if (file_id < 0) + TEST_ERROR; dataset_id = H5Dopen2(file_id, "/dset", H5P_DEFAULT); /* If we can read the dataset from the file, the file has been flushed to disk * (if the heap or object headers weren't flushed, the file would be empty). */ - if(dataset_id == H5I_BADID) + if (dataset_id == H5I_BADID) TEST_ERROR; - if(H5Dclose(dataset_id) < 0) TEST_ERROR; - if(H5Fclose(file_id) < 0) TEST_ERROR; + if (H5Dclose(dataset_id) < 0) + TEST_ERROR; + if (H5Fclose(file_id) < 0) + TEST_ERROR; PASSED(); return 0; error: /* Close everything we can and exit */ - H5E_BEGIN_TRY { - H5Dclose(dataset_id); - H5Sclose(dataspace_id); - H5Pclose(fcpl); - H5Pclose(fapl); - H5Fclose(file_id); - } H5E_END_TRY + H5E_BEGIN_TRY + { + H5Dclose(dataset_id); + H5Sclose(dataspace_id); + H5Pclose(fcpl); + H5Pclose(fapl); + H5Fclose(file_id); + } + H5E_END_TRY return 1; } /*------------------------------------------------------------------------- - * Function: rsrv_vlen + * Function: rsrv_vlen * - * Purpose: Ensure that variable length datatypes properly ensure that + * Purpose: Ensure that variable length datatypes properly ensure that * enough file address space exists before writing. - * This function does this by creating a dataset containing + * This function does this by creating a dataset containing * variable length data past the limit of the file, then * ensuring that an error (not an assert) was generated and * that the file is readable. * - * Return: Success: 0 - * Failure: 1 + * Return: Success: 0 + * Failure: 1 * - * Programmer: James Laird - * Nat Furrer + * Programmer: James Laird + * Nat Furrer * Thursday, July 1, 2004 * * Modifications: @@ -280,16 +311,16 @@ error: static herr_t rsrv_vlen(void) { - hid_t file_id=(-1), dataset_id=(-1), dataspace_id=(-1), type_id=(-1); - hid_t fapl=(-1), fcpl=(-1), mem_space_id=(-1); - hssize_t offset[1]; - hsize_t start[1]; - hsize_t dims[1], count[1]; - herr_t status; - int i; - int write_buf[20]; - char filename[1024]; - hvl_t vlen_data; + hid_t file_id = (-1), dataset_id = (-1), dataspace_id = (-1), type_id = (-1); + hid_t fapl = (-1), fcpl = (-1), mem_space_id = (-1); + hssize_t offset[1]; + hsize_t start[1]; + hsize_t dims[1], count[1]; + herr_t status; + int i; + int write_buf[20]; + char filename[1024]; + hvl_t vlen_data; TESTING("Reserved space with variable length data"); @@ -299,117 +330,140 @@ rsrv_vlen(void) /* Make file address space very small */ fcpl = H5Pcreate(H5P_FILE_CREATE); - if(fcpl < 0) TEST_ERROR; - if(H5Pset_sizes(fcpl, (size_t)2,(size_t)2) < 0) TEST_ERROR; + if (fcpl < 0) + TEST_ERROR; + if (H5Pset_sizes(fcpl, (size_t)2, (size_t)2) < 0) + TEST_ERROR; file_id = H5Fcreate(filename, H5F_ACC_TRUNC, fcpl, fapl); - if(file_id < 0) TEST_ERROR; + if (file_id < 0) + TEST_ERROR; /* Create the data space for the dataset. */ - dims[0] = 2000; + dims[0] = 2000; dataspace_id = H5Screate_simple(1, dims, NULL); - if(dataspace_id < 0) TEST_ERROR; + if (dataspace_id < 0) + TEST_ERROR; /* Create a variable length type */ type_id = H5Tvlen_create(H5T_NATIVE_INT); - if(type_id < 0) TEST_ERROR; + if (type_id < 0) + TEST_ERROR; /* Create the dataset. */ dataset_id = H5Dcreate2(file_id, "/dset", type_id, dataspace_id, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT); - if(dataset_id < 0) TEST_ERROR; + if (dataset_id < 0) + TEST_ERROR; /* Create some data to write */ - for(i = 0; i < 20; i++) + for (i = 0; i < 20; i++) write_buf[i] = i + 1; vlen_data.p = write_buf; /* Create a memory dataspace for writing */ - dims[0] = 1; + dims[0] = 1; mem_space_id = H5Screate_simple(1, dims, NULL); - if(mem_space_id < 0) TEST_ERROR; + if (mem_space_id < 0) + TEST_ERROR; /* Create a selection to write to */ start[0] = 0; count[0] = 1; - if(H5Sselect_hyperslab(dataspace_id, H5S_SELECT_SET, start, NULL, count, NULL) < 0) TEST_ERROR; + if (H5Sselect_hyperslab(dataspace_id, H5S_SELECT_SET, start, NULL, count, NULL) < 0) + TEST_ERROR; - for(i = 0; i< 2000; i++) { - vlen_data.len = (i%20) + 1; + for (i = 0; i < 2000; i++) { + vlen_data.len = (i % 20) + 1; offset[0] = i; - if( H5Soffset_simple(dataspace_id, offset) <0) TEST_ERROR; + if (H5Soffset_simple(dataspace_id, offset) < 0) + TEST_ERROR; H5E_BEGIN_TRY - status = H5Dwrite(dataset_id, type_id, mem_space_id, dataspace_id, H5P_DEFAULT, &vlen_data); + status = H5Dwrite(dataset_id, type_id, mem_space_id, dataspace_id, H5P_DEFAULT, &vlen_data); H5E_END_TRY - if(status < 0) + if (status < 0) break; } /* end for */ /* The loop should have broken before completing--the file should not have had * enough address space to hold 2000 attributes (or this test needs to be updated!). */ - if(i == 2000) + if (i == 2000) TEST_ERROR; /* End access to the dataset and dataspace and release resources. */ - if(H5Dclose(dataset_id) < 0) TEST_ERROR; - if(H5Pclose(fcpl) < 0) TEST_ERROR; - if(H5Pclose(fapl) < 0) TEST_ERROR; - if(H5Sclose(dataspace_id) < 0) TEST_ERROR; - if(H5Tclose(type_id) < 0) TEST_ERROR; - if(H5Sclose(mem_space_id) < 0) TEST_ERROR; + if (H5Dclose(dataset_id) < 0) + TEST_ERROR; + if (H5Pclose(fcpl) < 0) + TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; + if (H5Sclose(dataspace_id) < 0) + TEST_ERROR; + if (H5Tclose(type_id) < 0) + TEST_ERROR; + if (H5Sclose(mem_space_id) < 0) + TEST_ERROR; /* Close the file and the library. */ - if(H5Fclose(file_id) < 0) TEST_ERROR; - if(H5close() < 0) TEST_ERROR; + if (H5Fclose(file_id) < 0) + TEST_ERROR; + if (H5close() < 0) + TEST_ERROR; /* Re-open the library and try to read a dataset from the file we created */ - if(H5open() < 0) TEST_ERROR; + if (H5open() < 0) + TEST_ERROR; file_id = H5Fopen(filename, H5F_ACC_RDONLY, H5P_DEFAULT); - if(file_id < 0) TEST_ERROR; + if (file_id < 0) + TEST_ERROR; dataset_id = H5Dopen2(file_id, "/dset", H5P_DEFAULT); /* If we can read the dataset from the file, the file has been flushed to disk * (if the heap or object headers weren't flushed, the file would be empty). */ - if(dataset_id == H5I_BADID) + if (dataset_id == H5I_BADID) TEST_ERROR; - if(H5Dclose(dataset_id) < 0) TEST_ERROR; - if(H5Fclose(file_id) < 0) TEST_ERROR; + if (H5Dclose(dataset_id) < 0) + TEST_ERROR; + if (H5Fclose(file_id) < 0) + TEST_ERROR; PASSED(); return 0; error: /* Close everything we can and exit */ - H5E_BEGIN_TRY { - H5Dclose(dataset_id); - H5Sclose(dataspace_id); - H5Sclose(mem_space_id); - H5Tclose(type_id); - H5Pclose(fcpl); - H5Pclose(fapl); - H5Fclose(file_id); - } H5E_END_TRY + H5E_BEGIN_TRY + { + H5Dclose(dataset_id); + H5Sclose(dataspace_id); + H5Sclose(mem_space_id); + H5Tclose(type_id); + H5Pclose(fcpl); + H5Pclose(fapl); + H5Fclose(file_id); + } + H5E_END_TRY return 1; } #endif /* BROKEN */ /*------------------------------------------------------------------------- - * Function: main + * Function: main * * Purpose: * - * Return: Success: + * Return: Success: * - * Failure: + * Failure: * - * Programmer: Nat Furrer and James Laird + * Programmer: Nat Furrer and James Laird * Thursday, July 1, 2004 * * Modifications: @@ -425,36 +479,35 @@ main(void) * (Also, we should try to make this test work with all the VFDs) */ #ifdef BROKEN - int num_errs=0; - hid_t fapl; + int num_errs = 0; + hid_t fapl; const char *envval = NULL; envval = HDgetenv("HDF5_DRIVER"); if (envval == NULL) envval = "nomatch"; -/* QAK: should be able to use the core driver? */ - if (HDstrcmp(envval, "core") && HDstrcmp(envval, "split") && HDstrcmp(envval, "multi") && HDstrcmp(envval, "family")) { - num_errs+=rsrv_ohdr(); - num_errs+=rsrv_heap(); - num_errs+=rsrv_vlen(); - - if(num_errs > 0) - printf("**** %d FAILURE%s! ****\n", num_errs, num_errs==1?"":"S"); - else - puts("All address space reservation tests passed."); - - fapl = h5_fileaccess(); - h5_cleanup(FILENAME, fapl); - return num_errs; + /* QAK: should be able to use the core driver? */ + if (HDstrcmp(envval, "core") && HDstrcmp(envval, "split") && HDstrcmp(envval, "multi") && + HDstrcmp(envval, "family")) { + num_errs += rsrv_ohdr(); + num_errs += rsrv_heap(); + num_errs += rsrv_vlen(); + + if (num_errs > 0) + HDprintf("**** %d FAILURE%s! ****\n", num_errs, num_errs == 1 ? "" : "S"); + else + HDputs("All address space reservation tests passed."); + + fapl = h5_fileaccess(); + h5_cleanup(FILENAME, fapl); + return num_errs; } - else - { - puts("All address space reservation tests skippped - Incompatible with current Virtual File Driver"); + else { + HDputs( + "All address space reservation tests skippped - Incompatible with current Virtual File Driver"); } #endif /* BROKEN */ SKIPPED(); return 0; - } - |