summaryrefslogtreecommitdiffstats
path: root/test/API/th5o.c
diff options
context:
space:
mode:
Diffstat (limited to 'test/API/th5o.c')
-rw-r--r--test/API/th5o.c1886
1 files changed, 0 insertions, 1886 deletions
diff --git a/test/API/th5o.c b/test/API/th5o.c
deleted file mode 100644
index 8a052ee..0000000
--- a/test/API/th5o.c
+++ /dev/null
@@ -1,1886 +0,0 @@
-/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
- * Copyright by The HDF Group. *
- * All rights reserved. *
- * *
- * 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://www.hdfgroup.org/licenses. *
- * If you do not have access to either file, you may request a copy from *
- * help@hdfgroup.org. *
- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
-
-/***********************************************************
- *
- * Test program: th5o
- *
- * Test public H5O functions for accessing
- *
- *************************************************************/
-
-#include "testhdf5.h"
-
-#if 0
-#include "H5Fprivate.h"
-#include "H5VLprivate.h"
-#include "H5VLnative_private.h"
-#endif
-
-#define TEST_FILENAME "th5o_file.h5"
-
-#define RANK 2
-#define DIM0 5
-#define DIM1 10
-
-#define TEST6_DIM1 100
-#define TEST6_DIM2 100
-
-/****************************************************************
-**
-** test_h5o_open(): Test H5Oopen function.
-**
-****************************************************************/
-static void
-test_h5o_open(void)
-{
- hid_t fid; /* HDF5 File ID */
- hid_t grp, dset, dtype, dspace; /* Object identifiers */
- char filename[1024];
- hsize_t dims[RANK];
- H5I_type_t id_type; /* Type of IDs returned from H5Oopen */
- H5G_info_t ginfo; /* Group info struct */
- H5T_class_t type_class; /* Class of the datatype */
- herr_t ret; /* Value returned from API calls */
-
- /* Output message about test being performed */
- MESSAGE(5, ("Testing H5Oopen\n"));
-
- h5_fixname(TEST_FILENAME, H5P_DEFAULT, filename, sizeof filename);
-
- /* Create a new HDF5 file */
- fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(fid, FAIL, "H5Fcreate");
-
- /* Create a group, dataset, and committed datatype within the file */
- /* Create the group */
- grp = H5Gcreate2(fid, "group", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(grp, FAIL, "H5Gcreate2");
- ret = H5Gclose(grp);
- CHECK(ret, FAIL, "H5Gclose");
-
- /* Commit the type inside the group */
- dtype = H5Tcopy(H5T_NATIVE_INT);
- CHECK(dtype, FAIL, "H5Tcopy");
- ret = H5Tcommit2(fid, "group/datatype", dtype, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Tcommit2");
- ret = H5Tclose(dtype);
- CHECK(ret, FAIL, "H5Tclose");
-
- /* Create the data space for the dataset. */
- dims[0] = DIM0;
- dims[1] = DIM1;
- dspace = H5Screate_simple(RANK, dims, NULL);
- CHECK(dspace, FAIL, "H5Screate_simple");
-
- /* Create the dataset. */
- dset = H5Dcreate2(fid, "dataset", H5T_NATIVE_INT, dspace, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(dset, FAIL, "H5Dcreate2");
- ret = H5Dclose(dset);
- CHECK(ret, FAIL, "H5Dclose");
- ret = H5Sclose(dspace);
- CHECK(ret, FAIL, "H5Sclose");
-
- /* Now make sure that H5Oopen can open all three types of objects */
- grp = H5Oopen(fid, "group", H5P_DEFAULT);
- CHECK(grp, FAIL, "H5Oopen");
- dtype = H5Oopen(fid, "group/datatype", H5P_DEFAULT);
- CHECK(dtype, FAIL, "H5Oopen");
- /* Check that we can use the group as a valid location */
- dset = H5Oopen(grp, "/dataset", H5P_DEFAULT);
- CHECK(dset, FAIL, "H5Oopen");
-
- /* Make sure that each is the right kind of ID */
- id_type = H5Iget_type(grp);
- VERIFY(id_type, H5I_GROUP, "H5Iget_type for group ID");
- id_type = H5Iget_type(dtype);
- VERIFY(id_type, H5I_DATATYPE, "H5Iget_type for datatype ID");
- id_type = H5Iget_type(dset);
- VERIFY(id_type, H5I_DATASET, "H5Iget_type for dataset ID");
-
- /* Do something more complex with each of the IDs to make sure they "work" */
- ret = H5Gget_info(grp, &ginfo);
- CHECK(ret, FAIL, "H5Gget_info");
- VERIFY(ginfo.nlinks, 1, "H5Gget_info"); /* There should be one object, the datatype */
-
- type_class = H5Tget_class(dtype);
- VERIFY(type_class, H5T_INTEGER, "H5Tget_class");
-
- dspace = H5Dget_space(dset);
- CHECK(dspace, FAIL, "H5Dget_space");
-
- /* Close the IDs */
- ret = H5Sclose(dspace);
- CHECK(ret, FAIL, "H5Sclose");
- ret = H5Gclose(grp);
- CHECK(ret, FAIL, "H5Gclose");
- ret = H5Tclose(dtype);
- CHECK(ret, FAIL, "H5Tclose");
- ret = H5Dclose(dset);
- CHECK(ret, FAIL, "H5Dclose");
-
- /* Trying to open objects with bogus names should fail gracefully */
- H5E_BEGIN_TRY
- {
- grp = H5Oopen(fid, "bogus_group", H5P_DEFAULT);
- VERIFY(grp, FAIL, "H5Oopen");
- dtype = H5Oopen(fid, "group/bogus_datatype", H5P_DEFAULT);
- VERIFY(dtype, FAIL, "H5Oopen");
- dset = H5Oopen(fid, "/bogus_dataset", H5P_DEFAULT);
- VERIFY(dset, FAIL, "H5Oopen");
- }
- H5E_END_TRY
-
- /* Close the file */
- ret = H5Fclose(fid);
- CHECK(ret, FAIL, "H5Fclose");
-
- /* Trying to open an object with a bogus file ID should fail */
- H5E_BEGIN_TRY
- {
- dset = H5Oopen(fid, "dataset", H5P_DEFAULT);
- VERIFY(dset, FAIL, "H5Oopen");
- }
- H5E_END_TRY
-} /* test_h5o_open() */
-
-/****************************************************************
-**
-** test_h5o_close(): Test H5Oclose function.
-**
-****************************************************************/
-static void
-test_h5o_close(void)
-{
- hid_t fid; /* HDF5 File ID */
- hid_t grp, dset, dtype, dspace; /* Object identifiers */
- char filename[1024];
- hsize_t dims[RANK];
- herr_t ret; /* Value returned from API calls */
-
- /* Output message about test being performed */
- MESSAGE(5, ("Testing H5Oclose\n"));
-
- h5_fixname(TEST_FILENAME, H5P_DEFAULT, filename, sizeof filename);
-
- /* Create a new HDF5 file */
- fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(fid, FAIL, "H5Fcreate");
-
- /* Create a group, dataset, and committed datatype within the file */
- /* Create the group and close it with H5Oclose */
- grp = H5Gcreate2(fid, "group", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(grp, FAIL, "H5Gcreate2");
- VERIFY_TYPE(H5Iget_type(grp), H5I_GROUP, H5I_type_t, "%d", "H5Iget_type");
- ret = H5Oclose(grp);
- CHECK(ret, FAIL, "H5Oclose");
-
- /* Commit the type inside the group */
- dtype = H5Tcopy(H5T_NATIVE_INT);
- CHECK(dtype, FAIL, "H5Tcopy");
- ret = H5Tcommit2(fid, "group/datatype", dtype, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Tcommit2");
- ret = H5Oclose(dtype);
- CHECK(ret, FAIL, "H5Oclose");
-
- /* Create the data space for the dataset. */
- dims[0] = DIM0;
- dims[1] = DIM1;
- dspace = H5Screate_simple(RANK, dims, NULL);
- CHECK(dspace, FAIL, "H5Screate_simple");
-
- /* Create the dataset. */
- dset = H5Dcreate2(fid, "dataset", H5T_NATIVE_INT, dspace, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(dset, FAIL, "H5Dcreate2");
- ret = H5Oclose(dset);
- CHECK(ret, FAIL, "H5Oclose");
-
- /* Attempting to close the data space with H5Oclose should fail */
- H5E_BEGIN_TRY
- {
- ret = H5Oclose(dspace);
- VERIFY(ret, FAIL, "H5Oclose");
- }
- H5E_END_TRY
- /* Close the dataspace for real */
- ret = H5Sclose(dspace);
- CHECK(ret, FAIL, "H5Sclose");
-
- /* Make sure that H5Oclose can close objects opened with H5Oopen */
- grp = H5Oopen(fid, "group", H5P_DEFAULT);
- CHECK(grp, FAIL, "H5Oopen");
- dtype = H5Oopen(fid, "group/datatype", H5P_DEFAULT);
- CHECK(dtype, FAIL, "H5Oopen");
- dset = H5Oopen(fid, "dataset", H5P_DEFAULT);
- CHECK(dset, FAIL, "H5Oopen");
-
- ret = H5Oclose(grp);
- CHECK(ret, FAIL, "H5Oclose");
- ret = H5Oclose(dtype);
- CHECK(ret, FAIL, "H5Oclose");
- ret = H5Oclose(dset);
- CHECK(ret, FAIL, "H5Oclose");
-
- /* Make sure H5Oclose can close objects opened with H5*open */
- grp = H5Gopen2(fid, "group", H5P_DEFAULT);
- CHECK(grp, FAIL, "H5Gopen2");
- dtype = H5Topen2(fid, "group/datatype", H5P_DEFAULT);
- CHECK(dtype, FAIL, "H5Topen2");
- dset = H5Dopen2(fid, "dataset", H5P_DEFAULT);
- CHECK(dset, FAIL, "H5Dopen2");
-
- ret = H5Oclose(grp);
- CHECK(ret, FAIL, "H5Oclose");
- ret = H5Oclose(dtype);
- CHECK(ret, FAIL, "H5Oclose");
- ret = H5Oclose(dset);
- CHECK(ret, FAIL, "H5Oclose");
-
- /* Close the file */
- ret = H5Fclose(fid);
- CHECK(ret, FAIL, "H5Fclose");
-}
-
-#if 0
-#ifndef H5_NO_DEPRECATED_SYMBOLS
-/****************************************************************
-**
-** test_h5o_open_by_addr(): Test H5Oopen_by_addr function.
-**
-****************************************************************/
-static void
-test_h5o_open_by_addr(void)
-{
- hid_t fid; /* HDF5 File ID */
- hid_t grp, dset, dtype, dspace; /* Object identifiers */
- char filename[1024];
- H5L_info2_t li; /* Buffer for H5Lget_info2 */
- haddr_t grp_addr; /* Addresses for objects */
- haddr_t dset_addr;
- haddr_t dtype_addr;
- hsize_t dims[RANK];
- H5I_type_t id_type; /* Type of IDs returned from H5Oopen */
- H5G_info_t ginfo; /* Group info struct */
- H5T_class_t type_class; /* Class of the datatype */
- herr_t ret; /* Value returned from API calls */
-
- h5_fixname(TEST_FILENAME, H5P_DEFAULT, filename, sizeof filename);
-
- /* Create a new HDF5 file */
- fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(fid, FAIL, "H5Fcreate");
-
- /* Create a group, dataset, and committed datatype within the file */
- /* Create the group */
- grp = H5Gcreate2(fid, "group", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(grp, FAIL, "H5Gcreate2");
- ret = H5Gclose(grp);
- CHECK(ret, FAIL, "H5Gclose");
-
- /* Commit the type inside the group */
- dtype = H5Tcopy(H5T_NATIVE_INT);
- CHECK(dtype, FAIL, "H5Tcopy");
- ret = H5Tcommit2(fid, "group/datatype", dtype, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Tcommit2");
- ret = H5Tclose(dtype);
- CHECK(ret, FAIL, "H5Tclose");
-
- /* Create the data space for the dataset. */
- dims[0] = DIM0;
- dims[1] = DIM1;
- dspace = H5Screate_simple(RANK, dims, NULL);
- CHECK(dspace, FAIL, "H5Screate_simple");
-
- /* Create the dataset. */
- dset = H5Dcreate2(fid, "dataset", H5T_NATIVE_INT, dspace, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(dset, FAIL, "H5Dcreate2");
- ret = H5Dclose(dset);
- CHECK(ret, FAIL, "H5Dclose");
- ret = H5Sclose(dspace);
- CHECK(ret, FAIL, "H5Sclose");
-
- /* Get address for each object */
- ret = H5Lget_info2(fid, "group", &li, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Lget_info2");
- ret = H5VLnative_token_to_addr(fid, li.u.token, &grp_addr);
- CHECK(ret, FAIL, "H5VLnative_token_to_addr");
-
- ret = H5Lget_info2(fid, "group/datatype", &li, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Lget_info2");
- ret = H5VLnative_token_to_addr(fid, li.u.token, &dtype_addr);
- CHECK(ret, FAIL, "H5VLnative_token_to_addr");
-
- ret = H5Lget_info2(fid, "dataset", &li, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Lget_info2");
- ret = H5VLnative_token_to_addr(fid, li.u.token, &dset_addr);
- CHECK(ret, FAIL, "H5VLnative_token_to_addr");
-
- /* Now make sure that H5Oopen_by_addr can open all three types of objects */
- grp = H5Oopen_by_addr(fid, grp_addr);
- CHECK(grp, FAIL, "H5Oopen_by_addr");
- dtype = H5Oopen_by_addr(fid, dtype_addr);
- CHECK(dtype, FAIL, "H5Oopen_by_addr");
- /* Check that we can use the group ID as a valid location */
- dset = H5Oopen_by_addr(grp, dset_addr);
- CHECK(dset, FAIL, "H5Oopen_by_addr");
-
- /* Make sure that each is the right kind of ID */
- id_type = H5Iget_type(grp);
- VERIFY(id_type, H5I_GROUP, "H5Iget_type for group ID");
- id_type = H5Iget_type(dtype);
- VERIFY(id_type, H5I_DATATYPE, "H5Iget_type for datatype ID");
- id_type = H5Iget_type(dset);
- VERIFY(id_type, H5I_DATASET, "H5Iget_type for dataset ID");
-
- /* Do something more complex with each of the IDs to make sure they "work" */
- ret = H5Gget_info(grp, &ginfo);
- CHECK(ret, FAIL, "H5Gget_info");
- VERIFY(ginfo.nlinks, 1, "H5Gget_info"); /* There should be one object, the datatype */
-
- type_class = H5Tget_class(dtype);
- VERIFY(type_class, H5T_INTEGER, "H5Tget_class");
-
- dspace = H5Dget_space(dset);
- CHECK(dspace, FAIL, "H5Dget_space");
-
- /* Close the IDs */
- ret = H5Sclose(dspace);
- CHECK(ret, FAIL, "H5Sclose");
- ret = H5Gclose(grp);
- CHECK(ret, FAIL, "H5Gclose");
- ret = H5Tclose(dtype);
- CHECK(ret, FAIL, "H5Tclose");
- ret = H5Dclose(dset);
- CHECK(ret, FAIL, "H5Dclose");
-
- /* Try giving some bogus values to H5O_open_by_addr. */
- /* Try to open an object with a bad address */
- grp_addr += 20;
- H5E_BEGIN_TRY
- {
- grp = H5Oopen_by_addr(fid, grp_addr);
- }
- H5E_END_TRY
- VERIFY(grp, FAIL, "H5Oopen_by_addr");
-
- /* For instance, an objectno smaller than the end of the file's superblock should
- * trigger an error */
- grp_addr = 10;
- H5E_BEGIN_TRY
- {
- grp = H5Oopen_by_addr(fid, grp_addr);
- }
- H5E_END_TRY
- VERIFY(grp, FAIL, "H5Oopen_by_addr");
-
- /* Likewise, an objectno larger than the size of the file should fail */
- grp_addr = 0;
- grp_addr = 1000000000;
- H5E_BEGIN_TRY
- {
- grp = H5Oopen_by_addr(fid, grp_addr);
- }
- H5E_END_TRY
- VERIFY(grp, FAIL, "H5Oopen_by_addr");
-
- ret = H5Fclose(fid);
- CHECK(ret, FAIL, "H5Fclose");
-
- /* Also, trying to open an object without a valid location should fail */
- H5E_BEGIN_TRY
- {
- dtype = H5Oopen_by_addr(fid, dtype_addr);
- }
- H5E_END_TRY
- VERIFY(dtype, FAIL, "H5Oopen_by_addr");
-} /* test_h5o_open_by_addr() */
-#endif /* H5_NO_DEPRECATED_SYMBOLS */
-#endif
-
-/****************************************************************
-**
-** test_h5o_open_by_token(): Test H5Oopen_by_token function.
-**
-****************************************************************/
-static void
-test_h5o_open_by_token(void)
-{
- hid_t fid; /* HDF5 File ID */
- hid_t grp, dset, dtype, dspace; /* Object identifiers */
- char filename[1024];
- H5L_info2_t li; /* Buffer for H5Lget_info */
- hsize_t dims[RANK];
- H5I_type_t id_type; /* Type of IDs returned from H5Oopen */
- H5G_info_t ginfo; /* Group info struct */
- H5T_class_t type_class; /* Class of the datatype */
- herr_t ret; /* Value returned from API calls */
-
- /* Output message about test being performed */
- MESSAGE(5, ("Testing H5Oopen_by_token\n"));
-
- h5_fixname(TEST_FILENAME, H5P_DEFAULT, filename, sizeof filename);
-
- /* Create a new HDF5 file */
- fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(fid, FAIL, "H5Fcreate");
-
- /* Create a group, dataset, and committed datatype within the file */
- /* Create the group */
- grp = H5Gcreate2(fid, "group", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(grp, FAIL, "H5Gcreate2");
- ret = H5Gclose(grp);
- CHECK(ret, FAIL, "H5Gclose");
-
- /* Commit the type inside the group */
- dtype = H5Tcopy(H5T_NATIVE_INT);
- CHECK(dtype, FAIL, "H5Tcopy");
- ret = H5Tcommit2(fid, "group/datatype", dtype, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Tcommit2");
- ret = H5Tclose(dtype);
- CHECK(ret, FAIL, "H5Tclose");
-
- /* Create the data space for the dataset. */
- dims[0] = DIM0;
- dims[1] = DIM1;
- dspace = H5Screate_simple(RANK, dims, NULL);
- CHECK(dspace, FAIL, "H5Screate_simple");
-
- /* Create the dataset. */
- dset = H5Dcreate2(fid, "dataset", H5T_NATIVE_INT, dspace, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(dset, FAIL, "H5Dcreate2");
- ret = H5Dclose(dset);
- CHECK(ret, FAIL, "H5Dclose");
- ret = H5Sclose(dspace);
- CHECK(ret, FAIL, "H5Sclose");
-
- /* Make sure that H5Oopen_by_token can open all three types of objects */
- ret = H5Lget_info2(fid, "group", &li, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Lget_info");
- grp = H5Oopen_by_token(fid, li.u.token);
- CHECK(grp, FAIL, "H5Oopen_by_token");
-
- ret = H5Lget_info2(fid, "group/datatype", &li, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Lget_info");
- dtype = H5Oopen_by_token(fid, li.u.token);
- CHECK(dtype, FAIL, "H5Oopen_by_token");
-
- ret = H5Lget_info2(fid, "dataset", &li, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Lget_info");
- /* Check that we can use the group ID as a valid location */
- dset = H5Oopen_by_token(grp, li.u.token);
- CHECK(dset, FAIL, "H5Oopen_by_token");
-
- /* Make sure that each is the right kind of ID */
- id_type = H5Iget_type(grp);
- VERIFY(id_type, H5I_GROUP, "H5Iget_type for group ID");
- id_type = H5Iget_type(dtype);
- VERIFY(id_type, H5I_DATATYPE, "H5Iget_type for datatype ID");
- id_type = H5Iget_type(dset);
- VERIFY(id_type, H5I_DATASET, "H5Iget_type for dataset ID");
-
- /* Do something more complex with each of the IDs to make sure they "work" */
- ret = H5Gget_info(grp, &ginfo);
- CHECK(ret, FAIL, "H5Gget_info");
- VERIFY(ginfo.nlinks, 1, "H5Gget_info"); /* There should be one object, the datatype */
-
- type_class = H5Tget_class(dtype);
- VERIFY(type_class, H5T_INTEGER, "H5Tget_class");
-
- dspace = H5Dget_space(dset);
- CHECK(dspace, FAIL, "H5Dget_space");
-
- /* Close the IDs */
- ret = H5Sclose(dspace);
- CHECK(ret, FAIL, "H5Sclose");
- ret = H5Gclose(grp);
- CHECK(ret, FAIL, "H5Gclose");
- ret = H5Tclose(dtype);
- CHECK(ret, FAIL, "H5Tclose");
- ret = H5Dclose(dset);
- CHECK(ret, FAIL, "H5Dclose");
-
- /* Try giving some bogus values to H5O_open_by_token */
- /* Try opening an object using H5O_TOKEN_UNDEF (should fail) */
- H5E_BEGIN_TRY
- {
- dtype = H5Oopen_by_token(fid, H5O_TOKEN_UNDEF);
- }
- H5E_END_TRY
- VERIFY(dtype, FAIL, "H5Oopen_by_token");
-
- ret = H5Fclose(fid);
- CHECK(ret, FAIL, "H5Fclose");
-
- /* Also, trying to open an object without a valid location (should fail) */
- H5E_BEGIN_TRY
- {
- dtype = H5Oopen_by_token(fid, li.u.token);
- }
- H5E_END_TRY
- VERIFY(dtype, FAIL, "H5Oopen_by_token");
-
-} /* test_h5o_open_by_token() */
-
-/****************************************************************
-**
-** test_h5o_refcount(): Test H5O refcounting functions.
-**
-****************************************************************/
-static void
-test_h5o_refcount(void)
-{
- hid_t fid; /* HDF5 File ID */
- hid_t grp, dset, dtype, dspace; /* Object identifiers */
- char filename[1024];
- H5O_info2_t oinfo; /* Object info struct */
- hsize_t dims[RANK];
- herr_t ret; /* Value returned from API calls */
-
- /* Output message about test being performed */
- MESSAGE(5, ("Testing retrieval of object reference count with H5Oget_info\n"));
-
- h5_fixname(TEST_FILENAME, H5P_DEFAULT, filename, sizeof filename);
-
- /* Create a new HDF5 file */
- fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(fid, FAIL, "H5Fcreate");
-
- /* Create a group, dataset, and committed datatype within the file */
- /* Create the group */
- grp = H5Gcreate2(fid, "group", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(grp, FAIL, "H5Gcreate2");
-
- /* Commit the type inside the group */
- dtype = H5Tcopy(H5T_NATIVE_INT);
- CHECK(dtype, FAIL, "H5Tcopy");
- ret = H5Tcommit2(fid, "datatype", dtype, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Tcommit2");
-
- /* Create the data space for the dataset. */
- dims[0] = DIM0;
- dims[1] = DIM1;
- dspace = H5Screate_simple(RANK, dims, NULL);
- CHECK(dspace, FAIL, "H5Screate_simple");
-
- /* Create the dataset. */
- dset = H5Dcreate2(fid, "dataset", H5T_NATIVE_INT, dspace, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(dset, FAIL, "H5Dcreate2");
- ret = H5Sclose(dspace);
- CHECK(ret, FAIL, "H5Sclose");
-
- /* Get ref counts for each object. They should all be 1, since each object has a hard link. */
- ret = H5Oget_info_by_name3(fid, "group", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Oget_info_by_name3");
- VERIFY(oinfo.rc, 1, "reference count in H5Oget_info_by_name3");
- ret = H5Oget_info_by_name3(fid, "datatype", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Oget_info_by_name3");
- VERIFY(oinfo.rc, 1, "reference count in H5Oget_info_by_name3");
- ret = H5Oget_info_by_name3(fid, "dataset", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Oget_info_by_name3");
- VERIFY(oinfo.rc, 1, "reference count in H5Oget_info_by_name3");
-
- /* Increment each object's reference count. */
- ret = H5Oincr_refcount(grp);
- CHECK(ret, FAIL, "H5Oincr_refcount");
- ret = H5Oincr_refcount(dtype);
- CHECK(ret, FAIL, "H5Oincr_refcount");
- ret = H5Oincr_refcount(dset);
- CHECK(ret, FAIL, "H5Oincr_refcount");
-
- /* Get ref counts for each object. They should all be 2 now. */
- ret = H5Oget_info_by_name3(fid, "group", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Oget_info_by_name3");
- VERIFY(oinfo.rc, 2, "reference count in H5Oget_info_by_name3");
- ret = H5Oget_info_by_name3(fid, "datatype", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Oget_info_by_name3");
- VERIFY(oinfo.rc, 2, "reference count in H5Oget_info_by_name3");
- ret = H5Oget_info_by_name3(fid, "dataset", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Oget_info_by_name3");
- VERIFY(oinfo.rc, 2, "reference count in H5Oget_info_by_name3");
-
- /* Decrement the reference counts and check that they decrease back to 1. */
- ret = H5Odecr_refcount(grp);
- CHECK(ret, FAIL, "H5Odecr_refcount");
- ret = H5Odecr_refcount(dtype);
- CHECK(ret, FAIL, "H5Odecr_refcount");
- ret = H5Odecr_refcount(dset);
- CHECK(ret, FAIL, "H5Odecr_refcount");
-
- ret = H5Oget_info_by_name3(fid, "group", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Oget_info_by_name3");
- VERIFY(oinfo.rc, 1, "reference count in H5Oget_info_by_name3");
- ret = H5Oget_info_by_name3(fid, "datatype", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Oget_info_by_name3");
- VERIFY(oinfo.rc, 1, "reference count in H5Oget_info_by_name3");
- ret = H5Oget_info_by_name3(fid, "dataset", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Oget_info_by_name3");
- VERIFY(oinfo.rc, 1, "reference count in H5Oget_info_by_name3");
-
- /* Increment the reference counts and then close the file to make sure the increment is permanent */
- ret = H5Oincr_refcount(grp);
- CHECK(ret, FAIL, "H5Oincr_refcount");
- ret = H5Oincr_refcount(dtype);
- CHECK(ret, FAIL, "H5Oincr_refcount");
- ret = H5Oincr_refcount(dset);
- CHECK(ret, FAIL, "H5Oincr_refcount");
-
- ret = H5Gclose(grp);
- CHECK(ret, FAIL, "H5Gclose");
- ret = H5Tclose(dtype);
- CHECK(ret, FAIL, "H5Tclose");
- ret = H5Dclose(dset);
- CHECK(ret, FAIL, "H5Dclose");
- ret = H5Fclose(fid);
- CHECK(ret, FAIL, "H5Fclose");
-
- /* Re-open the file and check that the reference counts were really incremented */
- fid = H5Fopen(filename, H5F_ACC_RDWR, H5P_DEFAULT);
- CHECK(fid, FAIL, "H5Fopen");
-
- grp = H5Gopen2(fid, "group", H5P_DEFAULT);
- CHECK(grp, FAIL, "H5Gopen2");
- dtype = H5Topen2(fid, "datatype", H5P_DEFAULT);
- CHECK(dtype, FAIL, "H5Topen2");
- dset = H5Dopen2(fid, "dataset", H5P_DEFAULT);
- CHECK(dset, FAIL, "H5Dopen2");
-
- ret = H5Oget_info_by_name3(fid, "group", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Oget_info_by_name3");
- VERIFY(oinfo.rc, 2, "reference count in H5Oget_info_by_name3");
- ret = H5Oget_info_by_name3(fid, "datatype", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Oget_info_by_name3");
- VERIFY(oinfo.rc, 2, "reference count in H5Oget_info_by_name3");
- ret = H5Oget_info_by_name3(fid, "dataset", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Oget_info_by_name3");
- VERIFY(oinfo.rc, 2, "reference count in H5Oget_info_by_name3");
-
- /* Decrement the reference counts and close the file */
- ret = H5Odecr_refcount(grp);
- CHECK(ret, FAIL, "H5Odecr_refcount");
- ret = H5Odecr_refcount(dtype);
- CHECK(ret, FAIL, "H5Odecr_refcount");
- ret = H5Odecr_refcount(dset);
- CHECK(ret, FAIL, "H5Odecr_refcount");
-
- ret = H5Gclose(grp);
- CHECK(ret, FAIL, "H5Gclose");
- ret = H5Tclose(dtype);
- CHECK(ret, FAIL, "H5Tclose");
- ret = H5Dclose(dset);
- CHECK(ret, FAIL, "H5Dclose");
- ret = H5Fclose(fid);
- CHECK(ret, FAIL, "H5Fclose");
-
- /* Re-open the file and check that the reference counts were really decremented */
- fid = H5Fopen(filename, H5F_ACC_RDWR, H5P_DEFAULT);
- CHECK(fid, FAIL, "H5Fopen");
-
- grp = H5Gopen2(fid, "group", H5P_DEFAULT);
- CHECK(grp, FAIL, "H5Gopen2");
- dtype = H5Topen2(fid, "datatype", H5P_DEFAULT);
- CHECK(dtype, FAIL, "H5Topen2");
- dset = H5Dopen2(fid, "dataset", H5P_DEFAULT);
- CHECK(dset, FAIL, "H5Dopen2");
-
- ret = H5Oget_info_by_name3(fid, "group", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Oget_info_by_name3");
- VERIFY(oinfo.rc, 1, "reference count in H5Oget_info_by_name3");
- ret = H5Oget_info_by_name3(fid, "datatype", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Oget_info_by_name3");
- VERIFY(oinfo.rc, 1, "reference count in H5Oget_info_by_name3");
- ret = H5Oget_info_by_name3(fid, "dataset", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Oget_info_by_name3");
- VERIFY(oinfo.rc, 1, "reference count in H5Oget_info_by_name3");
-
- /* Close the IDs */
- ret = H5Gclose(grp);
- CHECK(ret, FAIL, "H5Gclose");
- ret = H5Tclose(dtype);
- CHECK(ret, FAIL, "H5Tclose");
- ret = H5Dclose(dset);
- CHECK(ret, FAIL, "H5Dclose");
-
- /* Make sure that bogus IDs return errors properly */
- H5E_BEGIN_TRY
- {
- ret = H5Oincr_refcount(grp);
- VERIFY(ret, FAIL, "H5Oincr_refcount");
- ret = H5Oincr_refcount(dtype);
- VERIFY(ret, FAIL, "H5Oincr_refcount");
- ret = H5Oincr_refcount(dset);
- VERIFY(ret, FAIL, "H5Oincr_refcount");
- ret = H5Odecr_refcount(grp);
- VERIFY(ret, FAIL, "H5Odecr_refcount");
- ret = H5Odecr_refcount(dtype);
- VERIFY(ret, FAIL, "H5Odecr_refcount");
- ret = H5Odecr_refcount(dset);
- VERIFY(ret, FAIL, "H5Odecr_refcount");
- }
- H5E_END_TRY
-
- /* Close the file */
- ret = H5Fclose(fid);
- CHECK(ret, FAIL, "H5Fclose");
-} /* test_h5o_refcount() */
-
-/****************************************************************
-**
-** test_h5o_plist(): Test object creation properties
-**
-****************************************************************/
-static void
-test_h5o_plist(void)
-{
- hid_t fid; /* HDF5 File ID */
- hid_t grp, dset, dtype, dspace; /* Object identifiers */
- hid_t fapl; /* File access property list */
- hid_t gcpl, dcpl, tcpl; /* Object creation properties */
- char filename[1024];
- unsigned def_max_compact, def_min_dense; /* Default phase change parameters */
- unsigned max_compact, min_dense; /* Actual phase change parameters */
- herr_t ret; /* Value returned from API calls */
-
- /* Output message about test being performed */
- MESSAGE(5, ("Testing Object creation properties\n"));
-
- /* Make a FAPL that uses the "use the latest version of the format" flag */
- fapl = H5Pcreate(H5P_FILE_ACCESS);
- CHECK(fapl, FAIL, "H5Pcreate");
-
- /* Set the "use the latest version of the format" bounds for creating objects in the file */
- ret = H5Pset_libver_bounds(fapl, H5F_LIBVER_LATEST, H5F_LIBVER_LATEST);
- CHECK(ret, FAIL, "H5Pset_libver_bounds");
-
- h5_fixname(TEST_FILENAME, fapl, filename, sizeof filename);
-
- /* Create a new HDF5 file */
- fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl);
- CHECK(fid, FAIL, "H5Fcreate");
-
- /* Create group, dataset & named datatype creation property lists */
- gcpl = H5Pcreate(H5P_GROUP_CREATE);
- CHECK(gcpl, FAIL, "H5Pcreate");
- dcpl = H5Pcreate(H5P_DATASET_CREATE);
- CHECK(dcpl, FAIL, "H5Pcreate");
- tcpl = H5Pcreate(H5P_DATATYPE_CREATE);
- CHECK(tcpl, FAIL, "H5Pcreate");
-
- /* Retrieve default attribute phase change values */
- ret = H5Pget_attr_phase_change(gcpl, &def_max_compact, &def_min_dense);
- CHECK(ret, FAIL, "H5Pget_attr_phase_change");
-
- /* Set non-default attribute phase change values on each creation property list */
- ret = H5Pset_attr_phase_change(gcpl, def_max_compact + 1, def_min_dense - 1);
- CHECK(ret, FAIL, "H5Pset_attr_phase_change");
- ret = H5Pset_attr_phase_change(dcpl, def_max_compact + 1, def_min_dense - 1);
- CHECK(ret, FAIL, "H5Pset_attr_phase_change");
- ret = H5Pset_attr_phase_change(tcpl, def_max_compact + 1, def_min_dense - 1);
- CHECK(ret, FAIL, "H5Pset_attr_phase_change");
-
- /* Retrieve attribute phase change values on each creation property list and verify */
- ret = H5Pget_attr_phase_change(gcpl, &max_compact, &min_dense);
- CHECK(ret, FAIL, "H5Pget_attr_phase_change");
- VERIFY(max_compact, (def_max_compact + 1), "H5Pget_attr_phase_change");
- VERIFY(min_dense, (def_min_dense - 1), "H5Pget_attr_phase_change");
- ret = H5Pget_attr_phase_change(dcpl, &max_compact, &min_dense);
- CHECK(ret, FAIL, "H5Pget_attr_phase_change");
- VERIFY(max_compact, (def_max_compact + 1), "H5Pget_attr_phase_change");
- VERIFY(min_dense, (def_min_dense - 1), "H5Pget_attr_phase_change");
- ret = H5Pget_attr_phase_change(tcpl, &max_compact, &min_dense);
- CHECK(ret, FAIL, "H5Pget_attr_phase_change");
- VERIFY(max_compact, (def_max_compact + 1), "H5Pget_attr_phase_change");
- VERIFY(min_dense, (def_min_dense - 1), "H5Pget_attr_phase_change");
-
- /* Create a group, dataset, and committed datatype within the file,
- * using the respective type of creation property lists.
- */
-
- /* Create the group anonymously and link it in */
- grp = H5Gcreate_anon(fid, gcpl, H5P_DEFAULT);
- CHECK(grp, FAIL, "H5Gcreate_anon");
- ret = H5Olink(grp, fid, "group", H5P_DEFAULT, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Olink");
-
- /* Commit the type inside the group anonymously and link it in */
- dtype = H5Tcopy(H5T_NATIVE_INT);
- CHECK(dtype, FAIL, "H5Tcopy");
- ret = H5Tcommit_anon(fid, dtype, tcpl, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Tcommit_anon");
- ret = H5Olink(dtype, fid, "datatype", H5P_DEFAULT, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Olink");
-
- /* Create the dataspace for the dataset. */
- dspace = H5Screate(H5S_SCALAR);
- CHECK(dspace, FAIL, "H5Screate");
-
- /* Create the dataset anonymously and link it in */
- dset = H5Dcreate_anon(fid, H5T_NATIVE_INT, dspace, dcpl, H5P_DEFAULT);
- CHECK(dset, FAIL, "H5Dcreate_anon");
- ret = H5Olink(dset, fid, "dataset", H5P_DEFAULT, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Olink");
- ret = H5Sclose(dspace);
- CHECK(ret, FAIL, "H5Sclose");
-
- /* Close current creation property lists */
- ret = H5Pclose(gcpl);
- CHECK(ret, FAIL, "H5Pclose");
- ret = H5Pclose(dcpl);
- CHECK(ret, FAIL, "H5Pclose");
- ret = H5Pclose(tcpl);
- CHECK(ret, FAIL, "H5Pclose");
-
- /* Retrieve each object's creation property list */
- gcpl = H5Gget_create_plist(grp);
- CHECK(gcpl, FAIL, "H5Gget_create_plist");
- tcpl = H5Tget_create_plist(dtype);
- CHECK(tcpl, FAIL, "H5Tget_create_plist");
- dcpl = H5Dget_create_plist(dset);
- CHECK(dcpl, FAIL, "H5Dget_create_plist");
-
- /* Retrieve attribute phase change values on each creation property list and verify */
- ret = H5Pget_attr_phase_change(gcpl, &max_compact, &min_dense);
- CHECK(ret, FAIL, "H5Pget_attr_phase_change");
- VERIFY(max_compact, (def_max_compact + 1), "H5Pget_attr_phase_change");
- VERIFY(min_dense, (def_min_dense - 1), "H5Pget_attr_phase_change");
- ret = H5Pget_attr_phase_change(dcpl, &max_compact, &min_dense);
- CHECK(ret, FAIL, "H5Pget_attr_phase_change");
- VERIFY(max_compact, (def_max_compact + 1), "H5Pget_attr_phase_change");
- VERIFY(min_dense, (def_min_dense - 1), "H5Pget_attr_phase_change");
- ret = H5Pget_attr_phase_change(tcpl, &max_compact, &min_dense);
- CHECK(ret, FAIL, "H5Pget_attr_phase_change");
- VERIFY(max_compact, (def_max_compact + 1), "H5Pget_attr_phase_change");
- VERIFY(min_dense, (def_min_dense - 1), "H5Pget_attr_phase_change");
-
- /* Close current objects */
- ret = H5Pclose(gcpl);
- CHECK(ret, FAIL, "H5Pclose");
- ret = H5Pclose(dcpl);
- CHECK(ret, FAIL, "H5Pclose");
- ret = H5Pclose(tcpl);
- CHECK(ret, FAIL, "H5Pclose");
- ret = H5Gclose(grp);
- CHECK(ret, FAIL, "H5Gclose");
- ret = H5Tclose(dtype);
- CHECK(ret, FAIL, "H5Tclose");
- ret = H5Dclose(dset);
- CHECK(ret, FAIL, "H5Dclose");
- ret = H5Fclose(fid);
- CHECK(ret, FAIL, "H5Fclose");
-
- /* Re-open the file and check that the object creation properties persist */
- fid = H5Fopen(filename, H5F_ACC_RDONLY, fapl);
- CHECK(fid, FAIL, "H5Fopen");
-
- /* Re-open objects */
- grp = H5Gopen2(fid, "group", H5P_DEFAULT);
- CHECK(grp, FAIL, "H5Gopen2");
- dtype = H5Topen2(fid, "datatype", H5P_DEFAULT);
- CHECK(dtype, FAIL, "H5Topen2");
- dset = H5Dopen2(fid, "dataset", H5P_DEFAULT);
- CHECK(dset, FAIL, "H5Dopen2");
-
- /* Retrieve each object's creation property list */
- gcpl = H5Gget_create_plist(grp);
- CHECK(gcpl, FAIL, "H5Gget_create_plist");
- tcpl = H5Tget_create_plist(dtype);
- CHECK(tcpl, FAIL, "H5Tget_create_plist");
- dcpl = H5Dget_create_plist(dset);
- CHECK(dcpl, FAIL, "H5Dget_create_plist");
-
- /* Retrieve attribute phase change values on each creation property list and verify */
- ret = H5Pget_attr_phase_change(gcpl, &max_compact, &min_dense);
- CHECK(ret, FAIL, "H5Pget_attr_phase_change");
- VERIFY(max_compact, (def_max_compact + 1), "H5Pget_attr_phase_change");
- VERIFY(min_dense, (def_min_dense - 1), "H5Pget_attr_phase_change");
- ret = H5Pget_attr_phase_change(dcpl, &max_compact, &min_dense);
- CHECK(ret, FAIL, "H5Pget_attr_phase_change");
- VERIFY(max_compact, (def_max_compact + 1), "H5Pget_attr_phase_change");
- VERIFY(min_dense, (def_min_dense - 1), "H5Pget_attr_phase_change");
- ret = H5Pget_attr_phase_change(tcpl, &max_compact, &min_dense);
- CHECK(ret, FAIL, "H5Pget_attr_phase_change");
- VERIFY(max_compact, (def_max_compact + 1), "H5Pget_attr_phase_change");
- VERIFY(min_dense, (def_min_dense - 1), "H5Pget_attr_phase_change");
-
- /* Close current objects */
- ret = H5Pclose(gcpl);
- CHECK(ret, FAIL, "H5Pclose");
- ret = H5Pclose(dcpl);
- CHECK(ret, FAIL, "H5Pclose");
- ret = H5Pclose(tcpl);
- CHECK(ret, FAIL, "H5Pclose");
- ret = H5Gclose(grp);
- CHECK(ret, FAIL, "H5Gclose");
- ret = H5Tclose(dtype);
- CHECK(ret, FAIL, "H5Tclose");
- ret = H5Dclose(dset);
- CHECK(ret, FAIL, "H5Dclose");
- ret = H5Fclose(fid);
- CHECK(ret, FAIL, "H5Fclose");
-
- /* Close the FAPL */
- ret = H5Pclose(fapl);
- CHECK(ret, FAIL, "H5Pclose");
-} /* test_h5o_plist() */
-
-/****************************************************************
-**
-** test_h5o_link(): Test creating link to object
-**
-****************************************************************/
-static void
-test_h5o_link(void)
-{
- hid_t file_id = -1;
- hid_t group_id = -1;
- hid_t space_id = -1;
- hid_t dset_id = -1;
- hid_t type_id = -1;
- hid_t fapl_id = -1;
- hid_t lcpl_id = -1;
- char filename[1024];
- hsize_t dims[2] = {TEST6_DIM1, TEST6_DIM2};
- htri_t committed; /* Whether the named datatype is committed */
- H5F_libver_t low, high; /* File format bounds */
- int *wdata;
- int *rdata;
- int i, n;
- herr_t ret; /* Value returned from API calls */
-
- /* Output message about test being performed */
- MESSAGE(5, ("Testing H5Olink\n"));
-
- h5_fixname(TEST_FILENAME, H5P_DEFAULT, filename, sizeof filename);
-
- /* Allocate memory buffers */
- /* (These are treated as 2-D buffers) */
- wdata = (int *)malloc((size_t)(TEST6_DIM1 * TEST6_DIM2) * sizeof(int));
- CHECK_PTR(wdata, "malloc");
- rdata = (int *)malloc((size_t)(TEST6_DIM1 * TEST6_DIM2) * sizeof(int));
- CHECK_PTR(rdata, "malloc");
-
- /* Initialize the raw data */
- for (i = n = 0; i < (TEST6_DIM1 * TEST6_DIM2); i++)
- wdata[i] = n++;
-
- /* Create the dataspace */
- space_id = H5Screate_simple(2, dims, NULL);
- CHECK(space_id, FAIL, "H5Screate_simple");
-
- /* Create LCPL with intermediate group creation flag set */
- lcpl_id = H5Pcreate(H5P_LINK_CREATE);
- CHECK(lcpl_id, FAIL, "H5Pcreate");
- ret = H5Pset_create_intermediate_group(lcpl_id, true);
- CHECK(ret, FAIL, "H5Pset_create_intermediate_group");
-
- /* Create a file access property list */
- fapl_id = H5Pcreate(H5P_FILE_ACCESS);
- CHECK(fapl_id, FAIL, "H5Pcreate");
-
- /* Loop through all the combinations of low/high library format bounds */
- for (low = H5F_LIBVER_EARLIEST; low < H5F_LIBVER_NBOUNDS; low++) {
- for (high = H5F_LIBVER_EARLIEST; high < H5F_LIBVER_NBOUNDS; high++) {
-
- /* Set version bounds */
- H5E_BEGIN_TRY
- {
- ret = H5Pset_libver_bounds(fapl_id, low, high);
- }
- H5E_END_TRY
-
- if (ret < 0) /* Invalid low/high combinations */
- continue;
-
- /* Create a new HDF5 file */
- file_id = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl_id);
- CHECK(file_id, FAIL, "H5Fcreate");
-
- /* Close the FAPL */
- ret = H5Pclose(fapl_id);
- CHECK(ret, FAIL, "H5Pclose");
-
- /* Create and commit a datatype with no name */
- type_id = H5Tcopy(H5T_NATIVE_INT);
- CHECK(type_id, FAIL, "H5Fcreate");
- ret = H5Tcommit_anon(file_id, type_id, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Tcommit_anon");
- committed = H5Tcommitted(type_id);
- VERIFY(committed, true, "H5Tcommitted");
-
- /* Create a dataset with no name using the committed datatype*/
- dset_id = H5Dcreate_anon(file_id, type_id, space_id, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(dset_id, FAIL, "H5Dcreate_anon");
-
- /* Verify that we can write to and read from the dataset */
-
- /* Write the data to the dataset */
- ret = H5Dwrite(dset_id, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, wdata);
- CHECK(ret, FAIL, "H5Dwrite");
-
- /* Read the data back */
- ret = H5Dread(dset_id, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, rdata);
- CHECK(ret, FAIL, "H5Dread");
-
- /* Verify the data */
- for (i = 0; i < (TEST6_DIM1 * TEST6_DIM2); i++)
- VERIFY(wdata[i], rdata[i], "H5Dread");
-
- /* Create a group with no name*/
- group_id = H5Gcreate_anon(file_id, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(group_id, FAIL, "H5Gcreate_anon");
-
- /* Link nameless datatype into nameless group */
- ret = H5Olink(type_id, group_id, "datatype", H5P_DEFAULT, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Olink");
-
- /* Link nameless dataset into nameless group with intermediate group */
- ret = H5Olink(dset_id, group_id, "inter_group/dataset", lcpl_id, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Olink");
-
- /* Close IDs for dataset and datatype */
- ret = H5Dclose(dset_id);
- CHECK(ret, FAIL, "H5Dclose");
- ret = H5Tclose(type_id);
- CHECK(ret, FAIL, "H5Tclose");
-
- /* Re-open datatype using new link */
- type_id = H5Topen2(group_id, "datatype", H5P_DEFAULT);
- CHECK(type_id, FAIL, "H5Topen2");
-
- /* Link nameless group to root group and close the group ID*/
- ret = H5Olink(group_id, file_id, "/group", H5P_DEFAULT, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Olink");
- ret = H5Gclose(group_id);
- CHECK(ret, FAIL, "H5Gclose");
-
- /* Open dataset through root group and verify its data */
- dset_id = H5Dopen2(file_id, "/group/inter_group/dataset", H5P_DEFAULT);
- CHECK(dset_id, FAIL, "H5Dopen2");
-
- /* Read data from dataset */
- ret = H5Dread(dset_id, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, rdata);
- CHECK(ret, FAIL, "H5Dread");
- for (i = 0; i < (TEST6_DIM1 * TEST6_DIM2); i++)
- VERIFY(wdata[i], rdata[i], "H5Dread");
-
- /* Close open IDs */
- ret = H5Dclose(dset_id);
- CHECK(ret, FAIL, "H5Dclose");
- ret = H5Tclose(type_id);
- CHECK(ret, FAIL, "H5Tclose");
- ret = H5Fclose(file_id);
- CHECK(ret, FAIL, "H5Fclose");
- } /* for high */
- } /* for low */
-
- /* Close remaining IDs */
- ret = H5Sclose(space_id);
- CHECK(ret, FAIL, "H5Sclose");
- ret = H5Pclose(lcpl_id);
- CHECK(ret, FAIL, "H5Pclose");
-
- /* Release buffers */
- free(wdata);
- free(rdata);
-} /* end test_h5o_link() */
-
-#if 0
-/****************************************************************
-**
-** test_h5o_comment(): Test H5Oset(get)_comment functions.
-**
-****************************************************************/
-static void
-test_h5o_comment(void)
-{
- hid_t fid; /* HDF5 File ID */
- hid_t grp, dset, dtype, dspace; /* Object identifiers */
- hid_t attr_space, attr_id;
- char filename[1024];
- hsize_t dims[RANK];
- hsize_t attr_dims = 1;
- int attr_value = 5;
- const char *file_comment = "file comment";
- const char *grp_comment = "group comment";
- const char *dset_comment = "dataset comment";
- const char *dtype_comment = "datatype comment";
- char check_comment[64];
- ssize_t comment_len = 0;
- ssize_t len;
- herr_t ret; /* Value returned from API calls */
- int ret_value;
-
- h5_fixname(TEST_FILENAME, H5P_DEFAULT, filename, sizeof filename);
-
- /* Create a new HDF5 file */
- fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(fid, FAIL, "H5Fcreate");
-
- /* Create an attribute for the file */
- attr_space = H5Screate_simple(1, &attr_dims, NULL);
- CHECK(attr_space, FAIL, "H5Screate_simple");
- attr_id = H5Acreate2(fid, "file attribute", H5T_NATIVE_INT, attr_space, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(attr_id, FAIL, "H5Acreate2");
- ret = H5Awrite(attr_id, H5T_NATIVE_INT, &attr_value);
- CHECK(ret, FAIL, "H5Awrite");
-
- /* Putting a comment on the file through its attribute */
- ret = H5Oset_comment(attr_id, file_comment);
- CHECK(ret, FAIL, "H5Oset_comment");
-
- ret = H5Sclose(attr_space);
- CHECK(ret, FAIL, "H5Sclose");
-
- ret = H5Aclose(attr_id);
- CHECK(ret, FAIL, "H5Aclose");
-
- /* Create a group, dataset, and committed datatype within the file */
- /* Create the group */
- grp = H5Gcreate2(fid, "group", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(grp, FAIL, "H5Gcreate2");
-
- /* Putting a comment on the group */
- ret = H5Oset_comment(grp, grp_comment);
- CHECK(ret, FAIL, "H5Oset_comment");
-
- ret = H5Gclose(grp);
- CHECK(ret, FAIL, "H5Gclose");
-
- /* Commit the type inside the group */
- dtype = H5Tcopy(H5T_NATIVE_INT);
- CHECK(dtype, FAIL, "H5Tcopy");
- ret = H5Tcommit2(fid, "group/datatype", dtype, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Tcommit2");
-
- /* Putting a comment on the committed data type */
- ret = H5Oset_comment(dtype, dtype_comment);
- CHECK(ret, FAIL, "H5Oset_comment");
-
- ret = H5Tclose(dtype);
- CHECK(ret, FAIL, "H5Tclose");
-
- /* Create the data space for the dataset. */
- dims[0] = DIM0;
- dims[1] = DIM1;
- dspace = H5Screate_simple(RANK, dims, NULL);
- CHECK(dspace, FAIL, "H5Screate_simple");
-
- /* Create the dataset. */
- dset = H5Dcreate2(fid, "dataset", H5T_NATIVE_INT, dspace, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(dset, FAIL, "H5Dcreate2");
-
- /* Putting a comment on the dataset */
- ret = H5Oset_comment(dset, dset_comment);
- CHECK(ret, FAIL, "H5Oset_comment");
-
- /* Putting a comment on the dataspace. It's supposed to fail. */
- H5E_BEGIN_TRY
- {
- ret = H5Oset_comment(dspace, "dataspace comment");
- }
- H5E_END_TRY
- VERIFY(ret, FAIL, "H5Oset_comment");
-
- /* Close the file */
- ret = H5Dclose(dset);
- CHECK(ret, FAIL, "H5Dclose");
- ret = H5Sclose(dspace);
- CHECK(ret, FAIL, "H5Sclose");
- ret = H5Fclose(fid);
- CHECK(ret, FAIL, "H5Fclose");
-
- /* Now make sure that the comments are correct all 4 types of objects */
- /* Open file */
- fid = H5Fopen(filename, H5F_ACC_RDONLY, H5P_DEFAULT);
- CHECK(fid, FAIL, "H5Fopen");
-
- /* Getting the comment on the file and verify it */
- comment_len = H5Oget_comment(fid, NULL, (size_t)0);
- CHECK(comment_len, FAIL, "H5Oget_comment");
-
- len = H5Oget_comment(fid, check_comment, (size_t)comment_len + 1);
- CHECK(len, FAIL, "H5Oget_comment");
-
- ret_value = strcmp(file_comment, check_comment);
- VERIFY(ret_value, 0, "H5Oget_comment");
-
- /* Open the group */
- grp = H5Gopen2(fid, "group", H5P_DEFAULT);
- CHECK(grp, FAIL, "H5Gopen2");
-
- /* Getting the comment on the group and verify it */
- comment_len = H5Oget_comment(grp, NULL, (size_t)0);
- CHECK(comment_len, FAIL, "H5Oget_comment");
-
- len = H5Oget_comment(grp, check_comment, (size_t)comment_len + 1);
- CHECK(len, FAIL, "H5Oget_comment");
-
- ret_value = strcmp(grp_comment, check_comment);
- VERIFY(ret_value, 0, "H5Oget_comment");
-
- /* Open the datatype */
- dtype = H5Topen2(fid, "group/datatype", H5P_DEFAULT);
- CHECK(dtype, FAIL, "H5Topen2");
-
- /* Getting the comment on the datatype and verify it */
- comment_len = H5Oget_comment(dtype, NULL, (size_t)0);
- CHECK(comment_len, FAIL, "H5Oget_comment");
-
- len = H5Oget_comment(dtype, check_comment, (size_t)comment_len + 1);
- CHECK(len, FAIL, "H5Oget_comment");
-
- ret_value = strcmp(dtype_comment, check_comment);
- VERIFY(ret_value, 0, "H5Oget_comment");
-
- /* Open the dataset */
- dset = H5Dopen2(fid, "dataset", H5P_DEFAULT);
- CHECK(dset, FAIL, "H5Dopen2");
-
- /* Getting the comment on the dataset and verify it */
- comment_len = H5Oget_comment(dset, NULL, (size_t)0);
- CHECK(comment_len, FAIL, "H5Oget_comment");
-
- len = H5Oget_comment(dset, check_comment, (size_t)comment_len + 1);
- CHECK(ret, len, "H5Oget_comment");
-
- ret_value = strcmp(dset_comment, check_comment);
- VERIFY(ret_value, 0, "H5Oget_comment");
-
- /* Close the IDs */
- ret = H5Gclose(grp);
- CHECK(ret, FAIL, "H5Gclose");
- ret = H5Tclose(dtype);
- CHECK(ret, FAIL, "H5Tclose");
- ret = H5Dclose(dset);
- CHECK(ret, FAIL, "H5Dclose");
-
- /* Close the file */
- ret = H5Fclose(fid);
- CHECK(ret, FAIL, "H5Fclose");
-
-} /* test_h5o_comment() */
-
-/****************************************************************
-**
-** test_h5o_comment_by_name(): Test H5Oset(get)_comment_by_name functions.
-**
-****************************************************************/
-static void
-test_h5o_comment_by_name(void)
-{
- hid_t fid; /* HDF5 File ID */
- hid_t grp, dset, dtype, dspace; /* Object identifiers */
- hid_t attr_space, attr_id;
- char filename[1024];
- hsize_t dims[RANK];
- hsize_t attr_dims = 1;
- int attr_value = 5;
- const char *file_comment = "file comment by name";
- const char *grp_comment = "group comment by name";
- const char *dset_comment = "dataset comment by name";
- const char *dtype_comment = "datatype comment by name";
- char check_comment[64];
- ssize_t comment_len = 0;
- ssize_t len;
- herr_t ret; /* Value returned from API calls */
- int ret_value;
-
- h5_fixname(TEST_FILENAME, H5P_DEFAULT, filename, sizeof filename);
-
- /* Create a new HDF5 file */
- fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(fid, FAIL, "H5Fcreate");
-
- /* Create an attribute for the file */
- attr_space = H5Screate_simple(1, &attr_dims, NULL);
- CHECK(attr_space, FAIL, "H5Screate_simple");
- attr_id = H5Acreate2(fid, "file attribute", H5T_NATIVE_INT, attr_space, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(attr_id, FAIL, "H5Acreate2");
- ret = H5Awrite(attr_id, H5T_NATIVE_INT, &attr_value);
- CHECK(ret, FAIL, "H5Awrite");
-
- /* Putting a comment on the file through its attribute */
- ret = H5Oset_comment_by_name(attr_id, ".", file_comment, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Oset_comment_by_name");
-
- ret = H5Sclose(attr_space);
- CHECK(ret, FAIL, "H5Sclose");
-
- ret = H5Aclose(attr_id);
- CHECK(ret, FAIL, "H5Aclose");
-
- /* Create a group, dataset, and committed datatype within the file */
- /* Create the group */
- grp = H5Gcreate2(fid, "group", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(grp, FAIL, "H5Gcreate2");
-
- /* Putting a comment on the group */
- ret = H5Oset_comment_by_name(fid, "group", grp_comment, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Oset_comment_by_name");
-
- /* Commit the type inside the group */
- dtype = H5Tcopy(H5T_NATIVE_INT);
- CHECK(dtype, FAIL, "H5Tcopy");
- ret = H5Tcommit2(fid, "group/datatype", dtype, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Tcommit2");
-
- /* Putting a comment on the committed data type */
- ret = H5Oset_comment_by_name(grp, "datatype", dtype_comment, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Oset_comment_by_name");
-
- ret = H5Tclose(dtype);
- CHECK(ret, FAIL, "H5Tclose");
-
- ret = H5Gclose(grp);
- CHECK(ret, FAIL, "H5Gclose");
-
- /* Create the data space for the dataset. */
- dims[0] = DIM0;
- dims[1] = DIM1;
- dspace = H5Screate_simple(RANK, dims, NULL);
- CHECK(dspace, FAIL, "H5Screate_simple");
-
- /* Create the dataset. */
- dset = H5Dcreate2(fid, "dataset", H5T_NATIVE_INT, dspace, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(dset, FAIL, "H5Dcreate2");
-
- /* Putting a comment on the dataset */
- ret = H5Oset_comment_by_name(fid, "dataset", dset_comment, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Oset_comment_by_name");
-
- /* Putting a comment on the dataspace. It's supposed to fail. */
- H5E_BEGIN_TRY
- {
- ret = H5Oset_comment_by_name(dspace, ".", "dataspace comment", H5P_DEFAULT);
- }
- H5E_END_TRY
- VERIFY(ret, FAIL, "H5Oset_comment");
-
- /* Close the file */
- ret = H5Dclose(dset);
- CHECK(ret, FAIL, "H5Dclose");
- ret = H5Sclose(dspace);
- CHECK(ret, FAIL, "H5Sclose");
- ret = H5Fclose(fid);
- CHECK(ret, FAIL, "H5Fclose");
-
- /* Now make sure that the comments are correct all 4 types of objects */
- /* Open file */
- fid = H5Fopen(filename, H5F_ACC_RDONLY, H5P_DEFAULT);
- CHECK(fid, FAIL, "H5Fopen");
-
- /* Getting the comment on the file and verify it */
- comment_len = H5Oget_comment_by_name(fid, ".", NULL, (size_t)0, H5P_DEFAULT);
- CHECK(comment_len, FAIL, "H5Oget_comment_by_name");
-
- len = H5Oget_comment_by_name(fid, ".", check_comment, (size_t)comment_len + 1, H5P_DEFAULT);
- CHECK(len, FAIL, "H5Oget_comment_by_name");
-
- ret_value = strcmp(file_comment, check_comment);
- VERIFY(ret_value, 0, "H5Oget_comment_by_name");
-
- /* Open the group */
- grp = H5Gopen2(fid, "group", H5P_DEFAULT);
- CHECK(grp, FAIL, "H5Gopen2");
-
- /* Getting the comment on the group and verify it */
- comment_len = H5Oget_comment_by_name(fid, "group", NULL, (size_t)0, H5P_DEFAULT);
- CHECK(comment_len, FAIL, "H5Oget_comment_by_name");
-
- len = H5Oget_comment_by_name(fid, "group", check_comment, (size_t)comment_len + 1, H5P_DEFAULT);
- CHECK(len, FAIL, "H5Oget_comment_by_name");
-
- ret_value = strcmp(grp_comment, check_comment);
- VERIFY(ret_value, 0, "H5Oget_comment_by_name");
-
- /* Getting the comment on the datatype and verify it */
- comment_len = H5Oget_comment_by_name(grp, "datatype", NULL, (size_t)0, H5P_DEFAULT);
- CHECK(comment_len, FAIL, "H5Oget_comment_by_name");
-
- len = H5Oget_comment_by_name(grp, "datatype", check_comment, (size_t)comment_len + 1, H5P_DEFAULT);
- CHECK(len, FAIL, "H5Oget_comment");
-
- ret_value = strcmp(dtype_comment, check_comment);
- VERIFY(ret_value, 0, "H5Oget_comment_by_name");
-
- /* Getting the comment on the dataset and verify it */
- comment_len = H5Oget_comment_by_name(fid, "dataset", NULL, (size_t)0, H5P_DEFAULT);
- CHECK(comment_len, FAIL, "H5Oget_comment_by_name");
-
- len = H5Oget_comment_by_name(fid, "dataset", check_comment, (size_t)comment_len + 1, H5P_DEFAULT);
- CHECK(len, FAIL, "H5Oget_comment_by_name");
-
- ret_value = strcmp(dset_comment, check_comment);
- VERIFY(ret_value, 0, "H5Oget_comment_by_name");
-
- /* Close the IDs */
- ret = H5Gclose(grp);
- CHECK(ret, FAIL, "H5Gclose");
-
- /* Close the file */
- ret = H5Fclose(fid);
- CHECK(ret, FAIL, "H5Fclose");
-
-} /* test_h5o_comment_by_name() */
-#endif
-
-/****************************************************************
-**
-** test_h5o_getinfo_same_file(): Test that querying the object info for
-** objects in the same file will return the same file "number"
-**
-****************************************************************/
-static void
-test_h5o_getinfo_same_file(void)
-{
- hid_t fid1, fid2; /* HDF5 File ID */
- hid_t gid1, gid2; /* Group IDs */
- char filename[1024];
- H5O_info2_t oinfo1, oinfo2; /* Object info structs */
- herr_t ret; /* Value returned from API calls */
-
- /* Output message about test being performed */
- MESSAGE(5, ("Testing H5Oget_info on objects in same file\n"));
-
- h5_fixname(TEST_FILENAME, H5P_DEFAULT, filename, sizeof filename);
-
- /* Create a new HDF5 file */
- fid1 = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(fid1, FAIL, "H5Fcreate");
-
- /* Create two groups in the file */
- gid1 = H5Gcreate2(fid1, "group1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(gid1, FAIL, "H5Gcreate2");
- gid2 = H5Gcreate2(fid1, "group2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(gid2, FAIL, "H5Gcreate2");
-
- /* Reset object info */
- memset(&oinfo1, 0, sizeof(oinfo1));
- memset(&oinfo2, 0, sizeof(oinfo2));
-
- /* Query the object info for each object, through group IDs */
- ret = H5Oget_info3(gid1, &oinfo1, H5O_INFO_BASIC);
- CHECK(ret, FAIL, "H5Oget_info3");
- ret = H5Oget_info3(gid2, &oinfo2, H5O_INFO_BASIC);
- CHECK(ret, FAIL, "H5Oget_info3");
-
- VERIFY(oinfo1.fileno, oinfo2.fileno, "file number from H5Oget_info3");
-
- /* Reset object info */
- memset(&oinfo1, 0, sizeof(oinfo1));
- memset(&oinfo2, 0, sizeof(oinfo2));
-
- /* Query the object info for each object, by name */
- ret = H5Oget_info_by_name3(fid1, "group1", &oinfo1, H5O_INFO_BASIC, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Oget_info_by_name3");
- ret = H5Oget_info_by_name3(fid1, "group2", &oinfo2, H5O_INFO_BASIC, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Oget_info_by_name3");
-
- VERIFY(oinfo1.fileno, oinfo2.fileno, "file number from H5Oget_info3");
-
- /* Close everything */
- ret = H5Gclose(gid1);
- CHECK(ret, FAIL, "H5Gclose");
- ret = H5Gclose(gid2);
- CHECK(ret, FAIL, "H5Gclose");
- ret = H5Fclose(fid1);
- CHECK(ret, FAIL, "H5Fclose");
-
- /* Open file twice */
- fid1 = H5Fopen(filename, H5F_ACC_RDWR, H5P_DEFAULT);
- CHECK(fid1, FAIL, "H5Fopen");
- fid2 = H5Fopen(filename, H5F_ACC_RDWR, H5P_DEFAULT);
- CHECK(fid2, FAIL, "H5Fopen");
-
- /* Open the two groups in the file */
- gid1 = H5Gopen2(fid1, "group1", H5P_DEFAULT);
- CHECK(gid1, FAIL, "H5Gopen2");
- gid2 = H5Gopen2(fid2, "group2", H5P_DEFAULT);
- CHECK(gid2, FAIL, "H5Gopen2");
-
- /* Reset object info */
- memset(&oinfo1, 0, sizeof(oinfo1));
- memset(&oinfo2, 0, sizeof(oinfo2));
-
- /* Query the object info for each object, through group IDs */
- ret = H5Oget_info3(gid1, &oinfo1, H5O_INFO_BASIC);
- CHECK(ret, FAIL, "H5Oget_info3");
- ret = H5Oget_info3(gid2, &oinfo2, H5O_INFO_BASIC);
- CHECK(ret, FAIL, "H5Oget_info3");
-
- VERIFY(oinfo1.fileno, oinfo2.fileno, "file number from H5Oget_info3");
-
- /* Reset object info */
- memset(&oinfo1, 0, sizeof(oinfo1));
- memset(&oinfo2, 0, sizeof(oinfo2));
-
- /* Query the object info for each object, by name */
- ret = H5Oget_info_by_name3(fid1, "group1", &oinfo1, H5O_INFO_BASIC, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Oget_info_by_name3");
- ret = H5Oget_info_by_name3(fid1, "group2", &oinfo2, H5O_INFO_BASIC, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Oget_info_by_name3");
-
- VERIFY(oinfo1.fileno, oinfo2.fileno, "file number from H5Oget_info3");
-
- /* Close everything */
- ret = H5Gclose(gid1);
- CHECK(ret, FAIL, "H5Gclose");
- ret = H5Gclose(gid2);
- CHECK(ret, FAIL, "H5Gclose");
- ret = H5Fclose(fid1);
- CHECK(ret, FAIL, "H5Fclose");
- ret = H5Fclose(fid2);
- CHECK(ret, FAIL, "H5Fclose");
-
-} /* test_h5o_getinfo_same_file() */
-
-#ifndef H5_NO_DEPRECATED_SYMBOLS
-#if 0
-/****************************************************************
-**
-** test_h5o_open_by_addr_deprec(): Test H5Oopen_by_addr function.
-**
-****************************************************************/
-static void
-test_h5o_open_by_addr_deprec(void)
-{
- hid_t fid; /* HDF5 File ID */
- hid_t grp, dset, dtype, dspace; /* Object identifiers */
- char filename[1024];
- H5L_info1_t li; /* Buffer for H5Lget_info1 */
- haddr_t grp_addr; /* Addresses for objects */
- haddr_t dset_addr;
- haddr_t dtype_addr;
- hsize_t dims[RANK];
- H5I_type_t id_type; /* Type of IDs returned from H5Oopen */
- H5G_info_t ginfo; /* Group info struct */
- H5T_class_t type_class; /* Class of the datatype */
- herr_t ret; /* Value returned from API calls */
-
- h5_fixname(TEST_FILENAME, H5P_DEFAULT, filename, sizeof filename);
-
- /* Create a new HDF5 file */
- fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(fid, FAIL, "H5Fcreate");
-
- /* Create a group, dataset, and committed datatype within the file */
- /* Create the group */
- grp = H5Gcreate2(fid, "group", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(grp, FAIL, "H5Gcreate2");
- ret = H5Gclose(grp);
- CHECK(ret, FAIL, "H5Gclose");
-
- /* Commit the type inside the group */
- dtype = H5Tcopy(H5T_NATIVE_INT);
- CHECK(dtype, FAIL, "H5Tcopy");
- ret = H5Tcommit2(fid, "group/datatype", dtype, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Tcommit2");
- ret = H5Tclose(dtype);
- CHECK(ret, FAIL, "H5Tclose");
-
- /* Create the data space for the dataset. */
- dims[0] = DIM0;
- dims[1] = DIM1;
- dspace = H5Screate_simple(RANK, dims, NULL);
- CHECK(dspace, FAIL, "H5Screate_simple");
-
- /* Create the dataset. */
- dset = H5Dcreate2(fid, "dataset", H5T_NATIVE_INT, dspace, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(dset, FAIL, "H5Dcreate2");
- ret = H5Dclose(dset);
- CHECK(ret, FAIL, "H5Dclose");
- ret = H5Sclose(dspace);
- CHECK(ret, FAIL, "H5Sclose");
-
- /* Get address for each object */
- ret = H5Lget_info1(fid, "group", &li, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Lget_info");
- grp_addr = li.u.address;
- ret = H5Lget_info1(fid, "group/datatype", &li, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Lget_info");
- dtype_addr = li.u.address;
- ret = H5Lget_info1(fid, "dataset", &li, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Lget_info");
- dset_addr = li.u.address;
-
- /* Now make sure that H5Oopen_by_addr can open all three types of objects */
- grp = H5Oopen_by_addr(fid, grp_addr);
- CHECK(grp, FAIL, "H5Oopen_by_addr");
- dtype = H5Oopen_by_addr(fid, dtype_addr);
- CHECK(dtype, FAIL, "H5Oopen_by_addr");
- /* Check that we can use the group ID as a valid location */
- dset = H5Oopen_by_addr(grp, dset_addr);
- CHECK(dset, FAIL, "H5Oopen_by_addr");
-
- /* Make sure that each is the right kind of ID */
- id_type = H5Iget_type(grp);
- VERIFY(id_type, H5I_GROUP, "H5Iget_type for group ID");
- id_type = H5Iget_type(dtype);
- VERIFY(id_type, H5I_DATATYPE, "H5Iget_type for datatype ID");
- id_type = H5Iget_type(dset);
- VERIFY(id_type, H5I_DATASET, "H5Iget_type for dataset ID");
-
- /* Do something more complex with each of the IDs to make sure they "work" */
- ret = H5Gget_info(grp, &ginfo);
- CHECK(ret, FAIL, "H5Gget_info");
- VERIFY(ginfo.nlinks, 1, "H5Gget_info"); /* There should be one object, the datatype */
-
- type_class = H5Tget_class(dtype);
- VERIFY(type_class, H5T_INTEGER, "H5Tget_class");
-
- dspace = H5Dget_space(dset);
- CHECK(dspace, FAIL, "H5Dget_space");
-
- /* Close the IDs */
- ret = H5Sclose(dspace);
- CHECK(ret, FAIL, "H5Sclose");
- ret = H5Gclose(grp);
- CHECK(ret, FAIL, "H5Gclose");
- ret = H5Tclose(dtype);
- CHECK(ret, FAIL, "H5Tclose");
- ret = H5Dclose(dset);
- CHECK(ret, FAIL, "H5Dclose");
-
- /* Try giving some bogus values to H5O_open_by_addr. */
- /* Try to open an object with a bad address */
- grp_addr += 20;
- H5E_BEGIN_TRY
- {
- grp = H5Oopen_by_addr(fid, grp_addr);
- }
- H5E_END_TRY
- VERIFY(grp, FAIL, "H5Oopen_by_addr");
-
- /* For instance, an objectno smaller than the end of the file's superblock should
- * trigger an error */
- grp_addr = 10;
- H5E_BEGIN_TRY
- {
- grp = H5Oopen_by_addr(fid, grp_addr);
- }
- H5E_END_TRY
- VERIFY(grp, FAIL, "H5Oopen_by_addr");
-
- /* Likewise, an objectno larger than the size of the file should fail */
- grp_addr = 0;
- grp_addr = 1000000000;
- H5E_BEGIN_TRY
- {
- grp = H5Oopen_by_addr(fid, grp_addr);
- }
- H5E_END_TRY
- VERIFY(grp, FAIL, "H5Oopen_by_addr");
-
- ret = H5Fclose(fid);
- CHECK(ret, FAIL, "H5Fclose");
-
- /* Also, trying to open an object without a valid location should fail */
- H5E_BEGIN_TRY
- {
- dtype = H5Oopen_by_addr(fid, dtype_addr);
- }
- H5E_END_TRY
- VERIFY(dtype, FAIL, "H5Oopen_by_addr");
-} /* test_h5o_open_by_addr_deprec() */
-
-/****************************************************************
-**
-** visit_obj_cb():
-** This is the callback function invoked by H5Ovisit1() in
-** test_h5o_getinfo_visit():
-** --Verify that the object info returned to the callback
-** function is the same as H5Oget_info2().
-**
-****************************************************************/
-static int
-visit_obj_cb(hid_t group_id, const char *name, const H5O_info1_t *oinfo1, void H5_ATTR_UNUSED *_op_data)
-{
- H5O_info1_t oinfo2; /* Object info structs */
-
- /* Verify the object info for "group1", "group2" and the root group */
- if (!(strcmp(name, "group1"))) {
- H5Oget_info_by_name2(group_id, name, &oinfo2, H5O_INFO_NUM_ATTRS, H5P_DEFAULT);
- VERIFY(oinfo1->num_attrs, oinfo2.num_attrs, "obj info from H5Ovisit1");
- }
- else if (!(strcmp(name, "group2"))) {
- H5Oget_info_by_name2(group_id, name, &oinfo2, H5O_INFO_HDR, H5P_DEFAULT);
- VERIFY(oinfo1->hdr.nmesgs, oinfo2.hdr.nmesgs, "obj info from H5Ovisit1/H5Oget_info2");
- VERIFY(oinfo1->hdr.nchunks, oinfo2.hdr.nchunks, "obj info from H5Ovisit1/H5Oget_info2");
- }
- else if (!(strcmp(name, "."))) {
- H5Oget_info_by_name2(group_id, name, &oinfo2, H5O_INFO_META_SIZE, H5P_DEFAULT);
- VERIFY(oinfo1->meta_size.obj.index_size, oinfo2.meta_size.obj.index_size,
- "obj info from H5Ovisit1/H5Oget_info2");
- VERIFY(oinfo1->meta_size.obj.heap_size, oinfo2.meta_size.obj.heap_size,
- "obj info from H5Ovisit1/H5Oget_info2");
- }
-
- return (H5_ITER_CONT);
-} /* end visit_obj_cb() */
-
-/****************************************************************
-**
-** test_h5o_getinfo_visit():
-** Verify that the object info returned via H5Oget_info1()
-** and H5Oget_info2() are the same.
-** Verify that the object info retrieved via H5Ovisit1() is
-** the same as H5Oget_info2().
-**
-****************************************************************/
-static void
-test_h5o_getinfo_visit(void)
-{
- hid_t fid = -1; /* HDF5 File ID */
- hid_t gid1 = -1, gid2 = -1; /* Group IDs */
- hid_t sid = -1; /* Dataspace ID */
- hid_t aid = -1; /* Attribute ID */
- char filename[1024];
- H5O_info1_t oinfo1, oinfo2; /* Object info structs */
- char attrname[25]; /* Attribute name */
- int j; /* Local index variable */
- herr_t ret; /* Value returned from API calls */
-
- /* Output message about test being performed */
- MESSAGE(5, ("Testing info returned by H5Oget_info vs H5Ovisit\n"));
-
- h5_fixname(TEST_FILENAME, H5P_DEFAULT, filename, sizeof filename);
-
- /* Create an HDF5 file */
- fid = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(fid, FAIL, "H5Fcreate");
-
- /* Create "group1" in the file */
- gid1 = H5Gcreate2(fid, "group1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(gid1, FAIL, "H5Gcreate2");
-
- /* Create dataspace */
- sid = H5Screate(H5S_SCALAR);
- CHECK(sid, FAIL, "H5Screate");
-
- /* Attach 10 attributes to "group1" */
- for (j = 0; j < 10; j++) {
- /* Create the attribute name */
- snprintf(attrname, sizeof(attrname), "attr%u", j);
- /* Create the attribute */
- aid = H5Acreate2(gid1, attrname, H5T_NATIVE_INT, sid, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(aid, FAIL, "H5Acreate2");
- /* Close the attribute */
- ret = H5Aclose(aid);
- CHECK(ret, FAIL, "H5Aclose");
- }
-
- /* Create "group2" in the file */
- gid2 = H5Gcreate2(fid, "group2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
- CHECK(gid2, FAIL, "H5Gcreate2");
-
- /* Reset object info */
- memset(&oinfo1, 0, sizeof(oinfo1));
- memset(&oinfo2, 0, sizeof(oinfo2));
-
- /* Query the object info for "group1" via H5Oget_info1 and H5Oget_info2 */
- ret = H5Oget_info1(gid1, &oinfo1);
- CHECK(ret, FAIL, "H5Oget_info1");
- ret = H5Oget_info2(gid1, &oinfo2, H5O_INFO_BASIC | H5O_INFO_NUM_ATTRS);
- CHECK(ret, FAIL, "H5Oget_info2");
-
- /* Verify the object info for "group1" is correct */
- VERIFY(oinfo1.fileno, oinfo2.fileno, "obj info from H5Oget_info1/2");
- VERIFY(oinfo1.num_attrs, oinfo2.num_attrs, "obj info from H5Oget_info1/2");
-
- /* Reset object info */
- memset(&oinfo1, 0, sizeof(oinfo1));
- memset(&oinfo2, 0, sizeof(oinfo2));
-
- /* Query the object info for "group2" via H5Oget_info1 and H5Oget_info2 */
- ret = H5Oget_info_by_name1(fid, "group2", &oinfo1, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Oget_native_info_by_name");
- ret = H5Oget_info_by_name2(fid, "group2", &oinfo2, H5O_INFO_HDR | H5O_INFO_META_SIZE, H5P_DEFAULT);
- CHECK(ret, FAIL, "H5Oget_native_info_by_name");
-
- /* Verify the object info for "group2" is correct */
- VERIFY(oinfo1.hdr.nmesgs, oinfo2.hdr.nmesgs, "obj info from H5Oget_info1/2");
- VERIFY(oinfo1.hdr.nchunks, oinfo2.hdr.nchunks, "obj info from H5Oget_info1/2");
- VERIFY(oinfo1.meta_size.obj.index_size, oinfo2.meta_size.obj.index_size, "obj info from H5Oget_info1/2");
- VERIFY(oinfo1.meta_size.obj.heap_size, oinfo2.meta_size.obj.heap_size, "obj info from H5Oget_info1/2");
-
- /* Close everything */
- ret = H5Gclose(gid1);
- CHECK(ret, FAIL, "H5Gclose");
- ret = H5Gclose(gid2);
- CHECK(ret, FAIL, "H5Gclose");
-
- /* Verify the object info returned to the callback function is correct */
- ret = H5Ovisit1(fid, H5_INDEX_NAME, H5_ITER_INC, visit_obj_cb, NULL);
-
- /* Close the file */
- ret = H5Fclose(fid);
- CHECK(ret, FAIL, "H5Fclose");
-
-} /* test_h5o_getinfo_visit() */
-#endif
-#endif /* H5_NO_DEPRECATED_SYMBOLS */
-
-/****************************************************************
-**
-** test_h5o(): Main H5O (generic object) testing routine.
-**
-****************************************************************/
-void
-test_h5o(void)
-{
- /* Output message about test being performed */
- MESSAGE(5, ("Testing Objects\n"));
-
- test_h5o_open(); /* Test generic open function */
-#if 0
-#ifndef H5_NO_DEPRECATED_SYMBOLS
- test_h5o_open_by_addr(); /* Test opening objects by address */
-#endif /* H5_NO_DEPRECATED_SYMBOLS */
-#endif
- test_h5o_open_by_token(); /* Test opening objects by token */
- test_h5o_close(); /* Test generic close function */
- test_h5o_refcount(); /* Test incrementing and decrementing reference count */
- test_h5o_plist(); /* Test object creation properties */
- test_h5o_link(); /* Test object link routine */
-#if 0
- test_h5o_comment(); /* Test routines for comment */
- test_h5o_comment_by_name(); /* Test routines for comment by name */
-#endif
- test_h5o_getinfo_same_file(); /* Test info for objects in the same file */
-#ifndef H5_NO_DEPRECATED_SYMBOLS
-#if 0
- test_h5o_open_by_addr_deprec(); /* Test opening objects by address with H5Lget_info1 */
- test_h5o_getinfo_visit(); /* Test object info for H5Oget_info1/2 and H5Ovisit1 */
-#endif /* H5_NO_DEPRECATED_SYMBOLS */
-#endif
-} /* test_h5o() */
-
-/*-------------------------------------------------------------------------
- * Function: cleanup_h5o
- *
- * Purpose: Cleanup temporary test files
- *
- * Return: none
- *
- *-------------------------------------------------------------------------
- */
-void
-cleanup_h5o(void)
-{
- char filename[1024];
-
- H5E_BEGIN_TRY
- {
- h5_fixname(TEST_FILENAME, H5P_DEFAULT, filename, sizeof filename);
- H5Fdelete(filename, H5P_DEFAULT);
- }
- H5E_END_TRY
-}
generated by cgit v0.12 at 2024-07-05 07:50:53 (GMT)