/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 * 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://support.hdfgroup.org/ftp/HDF5/releases.  *
 * If you do not have access to either file, you may request a copy from     *
 * help@hdfgroup.org.                                                        *
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */

#include "H5_api_object_test.h"

static int test_open_object(void);
static int test_open_object_invalid_params(void);
static int test_object_exists(void);
static int test_object_exists_invalid_params(void);
static int test_get_object_info(void);
static int test_get_object_info_invalid_params(void);
static int test_link_object(void);
static int test_link_object_invalid_params(void);
static int test_incr_decr_object_refcount(void);
static int test_incr_decr_object_refcount_invalid_params(void);
static int test_object_copy_basic(void);
static int test_object_copy_already_existing(void);
static int test_object_copy_shallow_group_copy(void);
static int test_object_copy_no_attributes(void);
static int test_object_copy_by_soft_link(void);
static int test_object_copy_group_with_soft_links(void);
static int test_object_copy_between_files(void);
static int test_object_copy_invalid_params(void);
static int test_object_comments(void);
static int test_object_comments_invalid_params(void);
static int test_object_visit(void);
static int test_object_visit_soft_link(void);
static int test_object_visit_invalid_params(void);
static int test_close_object(void);
static int test_close_object_invalid_params(void);
static int test_close_invalid_objects(void);
static int test_flush_object(void);
static int test_flush_object_invalid_params(void);
static int test_refresh_object(void);
static int test_refresh_object_invalid_params(void);

static herr_t object_copy_attribute_iter_callback(hid_t location_id, const char *attr_name,
                                                  const H5A_info_t *ainfo, void *op_data);
static herr_t object_copy_soft_link_non_expand_callback(hid_t group, const char *name,
                                                        const H5L_info2_t *info, void *op_data);
static herr_t object_copy_soft_link_expand_callback(hid_t group, const char *name, const H5L_info2_t *info,
                                                    void *op_data);
static herr_t object_visit_callback(hid_t o_id, const char *name, const H5O_info2_t *object_info,
                                    void *op_data);
static herr_t object_visit_dset_callback(hid_t o_id, const char *name, const H5O_info2_t *object_info,
                                         void *op_data);
static herr_t object_visit_dtype_callback(hid_t o_id, const char *name, const H5O_info2_t *object_info,
                                          void *op_data);
static herr_t object_visit_soft_link_callback(hid_t o_id, const char *name, const H5O_info2_t *object_info,
                                              void *op_data);
static herr_t object_visit_noop_callback(hid_t o_id, const char *name, const H5O_info2_t *object_info,
                                         void *op_data);

/*
 * The array of object tests to be performed.
 */
static int (*object_tests[])(void) = {
    test_open_object,
    test_open_object_invalid_params,
    test_object_exists,
    test_object_exists_invalid_params,
    test_get_object_info,
    test_get_object_info_invalid_params,
    test_link_object,
    test_link_object_invalid_params,
    test_incr_decr_object_refcount,
    test_incr_decr_object_refcount_invalid_params,
    test_object_copy_basic,
    test_object_copy_already_existing,
    test_object_copy_shallow_group_copy,
    test_object_copy_no_attributes,
    test_object_copy_by_soft_link,
    test_object_copy_group_with_soft_links,
    test_object_copy_between_files,
    test_object_copy_invalid_params,
    test_object_comments,
    test_object_comments_invalid_params,
    test_object_visit,
    test_object_visit_soft_link,
    test_object_visit_invalid_params,
    test_close_object,
    test_close_object_invalid_params,
    test_close_invalid_objects,
    test_flush_object,
    test_flush_object_invalid_params,
    test_refresh_object,
    test_refresh_object_invalid_params,
};

/*
 * A test to check that various objects (group, dataset, datatype)
 * can be opened by using H5Oopen, H5Oopen_by_idx and H5Oopen_by_addr.
 *
 * XXX: create separate objects for each test part.
 *
 * XXX: Add more open by idx tests
 *
 * XXX: test opening through dangling and resolving soft links.
 */
static int
test_open_object(void)
{
    hid_t file_id         = H5I_INVALID_HID;
    hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
    hid_t group_id2  = H5I_INVALID_HID;
    hid_t dset_id    = H5I_INVALID_HID;
    hid_t dset_dtype = H5I_INVALID_HID;
    hid_t type_id    = H5I_INVALID_HID;
    hid_t fspace_id  = H5I_INVALID_HID;

    TESTING_MULTIPART("object opening");

    TESTING_2("test setup");

    /* Make sure the connector supports the API functions being tested */
    if (!(vol_cap_flags_g & (H5VL_CAP_FLAG_FILE_BASIC)) || !(vol_cap_flags_g & H5VL_CAP_FLAG_GROUP_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_DATASET_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_OBJECT_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_STORED_DATATYPES)) {
        SKIPPED();
        HDprintf("    API functions for basic file, group, object, dataset, or stored datatype aren't "
                 "supported with this connector\n");
        return 0;
    }

    if ((file_id = H5Fopen(H5_api_test_filename, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open file '%s'\n", H5_api_test_filename);
        goto error;
    }

    if ((container_group = H5Gopen2(file_id, OBJECT_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open container group '%s'\n", OBJECT_TEST_GROUP_NAME);
        goto error;
    }

    if ((group_id = H5Gcreate2(container_group, OBJECT_OPEN_TEST_GROUP_NAME, H5P_DEFAULT, H5P_DEFAULT,
                               H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create container sub-group '%s'\n", OBJECT_OPEN_TEST_GROUP_NAME);
        goto error;
    }

    if ((fspace_id = generate_random_dataspace(OBJECT_OPEN_TEST_SPACE_RANK, NULL, NULL, FALSE)) < 0)
        TEST_ERROR;

    if ((dset_dtype = generate_random_datatype(H5T_NO_CLASS, FALSE)) < 0)
        TEST_ERROR;

    PASSED();

    BEGIN_MULTIPART
    {
        PART_BEGIN(H5Oopen_group)
        {
            TESTING_2("H5Oopen on a group");

            if ((group_id2 = H5Gcreate2(group_id, OBJECT_OPEN_TEST_GRP_NAME, H5P_DEFAULT, H5P_DEFAULT,
                                        H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't create group '%s'\n", OBJECT_OPEN_TEST_GRP_NAME);
                PART_ERROR(H5Oopen_group);
            }

            H5E_BEGIN_TRY
            {
                H5Gclose(group_id2);
            }
            H5E_END_TRY;

            if ((group_id2 = H5Oopen(group_id, OBJECT_OPEN_TEST_GRP_NAME, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't open group '%s' with H5Oopen\n", OBJECT_OPEN_TEST_GRP_NAME);
                PART_ERROR(H5Oopen_group);
            }

            if (H5Iget_type(group_id2) != H5I_GROUP) {
                H5_FAILED();
                HDprintf("    ID is not a group\n");
                PART_ERROR(H5Oopen_group);
            }

            if (H5Gclose(group_id2) < 0) {
                H5_FAILED();
                HDprintf("    couldn't close group opened with H5Oopen\n");
                PART_ERROR(H5Oopen_group);
            }

            PASSED();
        }
        PART_END(H5Oopen_group);

        PART_BEGIN(H5Oopen_dset)
        {
            TESTING_2("H5Oopen on a dataset");

            if ((dset_id = H5Dcreate2(group_id, OBJECT_OPEN_TEST_DSET_NAME, dset_dtype, fspace_id,
                                      H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't create dataset '%s'\n", OBJECT_OPEN_TEST_DSET_NAME);
                PART_ERROR(H5Oopen_dset);
            }

            H5E_BEGIN_TRY
            {
                H5Dclose(dset_id);
            }
            H5E_END_TRY;

            if ((dset_id = H5Oopen(group_id, OBJECT_OPEN_TEST_DSET_NAME, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't open dataset '%s' with H5Oopen\n", OBJECT_OPEN_TEST_DSET_NAME);
                PART_ERROR(H5Oopen_dset);
            }

            if (H5Iget_type(dset_id) != H5I_DATASET) {
                H5_FAILED();
                HDprintf("    ID is not a dataset\n");
                PART_ERROR(H5Oopen_dset);
            }

            if (H5Dclose(dset_id) < 0) {
                H5_FAILED();
                HDprintf("    couldn't close dataset opened with H5Oopen\n");
                PART_ERROR(H5Oopen_dset);
            }

            PASSED();
        }
        PART_END(H5Oopen_dset);

        PART_BEGIN(H5Oopen_dtype)
        {
            TESTING_2("H5Oopen on a committed datatype");

            if ((type_id = generate_random_datatype(H5T_NO_CLASS, FALSE)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't create datatype '%s'\n", OBJECT_OPEN_TEST_TYPE_NAME);
                PART_ERROR(H5Oopen_dtype);
            }

            if (H5Tcommit2(group_id, OBJECT_OPEN_TEST_TYPE_NAME, type_id, H5P_DEFAULT, H5P_DEFAULT,
                           H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    couldn't commit datatype '%s'\n", OBJECT_OPEN_TEST_TYPE_NAME);
                PART_ERROR(H5Oopen_dtype);
            }

            H5E_BEGIN_TRY
            {
                H5Tclose(type_id);
            }
            H5E_END_TRY;

            if ((type_id = H5Oopen(group_id, OBJECT_OPEN_TEST_TYPE_NAME, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't open datatype '%s' with H5Oopen\n", OBJECT_OPEN_TEST_TYPE_NAME);
                PART_ERROR(H5Oopen_dtype);
            }

            if (H5Iget_type(type_id) != H5I_DATATYPE) {
                H5_FAILED();
                HDprintf("    ID is not a dataset\n");
                PART_ERROR(H5Oopen_dtype);
            }

            if (H5Tclose(type_id) < 0) {
                H5_FAILED();
                HDprintf("    couldn't close committed datatype opened with H5Oopen\n");
                PART_ERROR(H5Oopen_dtype);
            }

            PASSED();
        }
        PART_END(H5Oopen_dtype);

        if (group_id2 >= 0) {
            H5E_BEGIN_TRY
            {
                H5Gclose(group_id2);
            }
            H5E_END_TRY;
            group_id2 = H5I_INVALID_HID;
        }
        if (dset_id >= 0) {
            H5E_BEGIN_TRY
            {
                H5Dclose(dset_id);
            }
            H5E_END_TRY;
            dset_id = H5I_INVALID_HID;
        }
        if (type_id >= 0) {
            H5E_BEGIN_TRY
            {
                H5Tclose(type_id);
            }
            H5E_END_TRY;
            type_id = H5I_INVALID_HID;
        }

        PART_BEGIN(H5Oopen_by_idx_group)
        {
            TESTING_2("H5Oopen_by_idx on a group");

            if ((group_id2 = H5Oopen_by_idx(container_group, OBJECT_OPEN_TEST_GROUP_NAME, H5_INDEX_NAME,
                                            H5_ITER_INC, 1, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't open group '%s' with H5Oopen_by_idx\n", OBJECT_OPEN_TEST_GRP_NAME);
                PART_ERROR(H5Oopen_by_idx_group);
            }

            PASSED();
        }
        PART_END(H5Oopen_by_idx_group);

        PART_BEGIN(H5Oopen_by_idx_dset)
        {
            TESTING_2("H5Oopen_by_idx on a dataset");

            if ((dset_id = H5Oopen_by_idx(container_group, OBJECT_OPEN_TEST_GROUP_NAME, H5_INDEX_NAME,
                                          H5_ITER_INC, 0, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't open dataset '%s' with H5Oopen_by_idx\n", OBJECT_OPEN_TEST_DSET_NAME);
                PART_ERROR(H5Oopen_by_idx_dset);
            }

            PASSED();
        }
        PART_END(H5Oopen_by_idx_dset);

        PART_BEGIN(H5Oopen_by_idx_dtype)
        {
            TESTING_2("H5Oopen_by_idx on a committed datatype");

            if ((type_id = H5Oopen_by_idx(container_group, OBJECT_OPEN_TEST_GROUP_NAME, H5_INDEX_NAME,
                                          H5_ITER_INC, 2, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't open committed datatype '%s' with H5Oopen_by_idx\n",
                         OBJECT_OPEN_TEST_TYPE_NAME);
                PART_ERROR(H5Oopen_by_idx_dtype);
            }

            PASSED();
        }
        PART_END(H5Oopen_by_idx_dtype);

        if (group_id2 >= 0) {
            H5E_BEGIN_TRY
            {
                H5Gclose(group_id2);
            }
            H5E_END_TRY;
            group_id2 = H5I_INVALID_HID;
        }
        if (dset_id >= 0) {
            H5E_BEGIN_TRY
            {
                H5Dclose(dset_id);
            }
            H5E_END_TRY;
            dset_id = H5I_INVALID_HID;
        }
        if (type_id >= 0) {
            H5E_BEGIN_TRY
            {
                H5Tclose(type_id);
            }
            H5E_END_TRY;
            type_id = H5I_INVALID_HID;
        }
    }
    END_MULTIPART;

    TESTING_2("test cleanup");

    if (H5Sclose(fspace_id) < 0)
        TEST_ERROR;
    if (H5Tclose(dset_dtype) < 0)
        TEST_ERROR;
    if (H5Gclose(group_id) < 0)
        TEST_ERROR;
    if (H5Gclose(container_group) < 0)
        TEST_ERROR;
    if (H5Fclose(file_id) < 0)
        TEST_ERROR;

    PASSED();

    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Sclose(fspace_id);
        H5Tclose(dset_dtype);
        H5Tclose(type_id);
        H5Dclose(dset_id);
        H5Gclose(group_id2);
        H5Gclose(group_id);
        H5Gclose(container_group);
        H5Fclose(file_id);
    }
    H5E_END_TRY;

    return 1;
}

/*
 * A test to check that various objects (group, dataset, datatype)
 * can't be opened when H5Oopen, H5Oopen_by_idx and H5Oopen_by_addr
 * are passed invalid parameters.
 */
static int
test_open_object_invalid_params(void)
{
    hid_t file_id         = H5I_INVALID_HID;
    hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
    hid_t group_id2 = H5I_INVALID_HID;
    hid_t gcpl_id   = H5I_INVALID_HID;

    TESTING_MULTIPART("object opening with invalid parameters");

    /* Make sure the connector supports the API functions being tested */
    if (!(vol_cap_flags_g & (H5VL_CAP_FLAG_FILE_BASIC)) || !(vol_cap_flags_g & H5VL_CAP_FLAG_GROUP_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_OBJECT_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_CREATION_ORDER)) {
        SKIPPED();
        HDprintf("    API functions for basic file, group, object, or creation order aren't supported with "
                 "this connector\n");
        return 0;
    }

    TESTING_2("test setup");

    if ((file_id = H5Fopen(H5_api_test_filename, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open file '%s'\n", H5_api_test_filename);
        goto error;
    }

    if ((container_group = H5Gopen2(file_id, OBJECT_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open container group '%s'\n", OBJECT_TEST_GROUP_NAME);
        goto error;
    }

    if ((gcpl_id = H5Pcreate(H5P_GROUP_CREATE)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create a GCPL\n");
        goto error;
    }

    if (H5Pset_link_creation_order(gcpl_id, H5P_CRT_ORDER_TRACKED | H5P_CRT_ORDER_INDEXED) < 0) {
        H5_FAILED();
        HDprintf("    couldn't enable link creation order tracking and indexing on GCPL\n");
        goto error;
    }

    if ((group_id = H5Gcreate2(container_group, OBJECT_OPEN_INVALID_PARAMS_TEST_GROUP_NAME, H5P_DEFAULT,
                               gcpl_id, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create container sub-group '%s'\n",
                 OBJECT_OPEN_INVALID_PARAMS_TEST_GROUP_NAME);
        goto error;
    }

    if ((group_id2 = H5Gcreate2(group_id, OBJECT_OPEN_INVALID_PARAMS_TEST_GRP_NAME, H5P_DEFAULT, H5P_DEFAULT,
                                H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create group '%s'\n", OBJECT_OPEN_INVALID_PARAMS_TEST_GRP_NAME);
        goto error;
    }

    if (H5Gclose(group_id2) < 0)
        TEST_ERROR;

    PASSED();

    BEGIN_MULTIPART
    {
        PART_BEGIN(H5Oopen_invalid_loc_id)
        {
            TESTING_2("H5Oopen with an invalid location ID");

            H5E_BEGIN_TRY
            {
                group_id2 = H5Oopen(H5I_INVALID_HID, OBJECT_OPEN_INVALID_PARAMS_TEST_GRP_NAME, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (group_id2 >= 0) {
                H5_FAILED();
                HDprintf("    H5Oopen succeeded with an invalid location ID!\n");
                H5Gclose(group_id2);
                PART_ERROR(H5Oopen_invalid_loc_id);
            }

            PASSED();
        }
        PART_END(H5Oopen_invalid_loc_id);

        PART_BEGIN(H5Oopen_invalid_obj_name)
        {
            TESTING_2("H5Oopen with an invalid object name");

            H5E_BEGIN_TRY
            {
                group_id2 = H5Oopen(group_id, NULL, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (group_id2 >= 0) {
                H5_FAILED();
                HDprintf("    H5Oopen succeeded with a NULL object name!\n");
                H5Gclose(group_id2);
                PART_ERROR(H5Oopen_invalid_obj_name);
            }

            H5E_BEGIN_TRY
            {
                group_id2 = H5Oopen(group_id, "", H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (group_id2 >= 0) {
                H5_FAILED();
                HDprintf("    H5Oopen succeeded with an invalid object name of ''!\n");
                H5Gclose(group_id2);
                PART_ERROR(H5Oopen_invalid_obj_name);
            }

            PASSED();
        }
        PART_END(H5Oopen_invalid_obj_name);

        PART_BEGIN(H5Oopen_invalid_lapl)
        {
            TESTING_2("H5Oopen with an invalid LAPL");

            H5E_BEGIN_TRY
            {
                group_id2 = H5Oopen(group_id, OBJECT_OPEN_INVALID_PARAMS_TEST_GRP_NAME, H5I_INVALID_HID);
            }
            H5E_END_TRY;

            if (group_id2 >= 0) {
                H5_FAILED();
                HDprintf("    H5Oopen succeeded with an invalid LAPL!\n");
                H5Gclose(group_id2);
                PART_ERROR(H5Oopen_invalid_lapl);
            }

            PASSED();
        }
        PART_END(H5Oopen_invalid_lapl);

        PART_BEGIN(H5Oopen_by_idx_invalid_loc_id)
        {
            TESTING_2("H5Oopen_by_idx with an invalid location ID");

            H5E_BEGIN_TRY
            {
                group_id2 = H5Oopen_by_idx(H5I_INVALID_HID, OBJECT_OPEN_INVALID_PARAMS_TEST_GROUP_NAME,
                                           H5_INDEX_NAME, H5_ITER_INC, 0, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (group_id2 >= 0) {
                H5_FAILED();
                HDprintf("    H5Oopen_by_idx succeeded with an invalid location ID!\n");
                H5Gclose(group_id2);
                PART_ERROR(H5Oopen_by_idx_invalid_loc_id);
            }

            PASSED();
        }
        PART_END(H5Oopen_by_idx_invalid_loc_id);

        PART_BEGIN(H5Oopen_by_idx_invalid_grp_name)
        {
            TESTING_2("H5Oopen_by_idx with an invalid group name");

            H5E_BEGIN_TRY
            {
                group_id2 = H5Oopen_by_idx(container_group, NULL, H5_INDEX_NAME, H5_ITER_INC, 0, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (group_id2 >= 0) {
                H5_FAILED();
                HDprintf("    H5Oopen_by_idx succeeded with a NULL group name!\n");
                H5Gclose(group_id2);
                PART_ERROR(H5Oopen_by_idx_invalid_grp_name);
            }

            H5E_BEGIN_TRY
            {
                group_id2 = H5Oopen_by_idx(container_group, "", H5_INDEX_NAME, H5_ITER_INC, 0, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (group_id2 >= 0) {
                H5_FAILED();
                HDprintf("    H5Oopen_by_idx succeeded with an invalid group name of ''!\n");
                H5Gclose(group_id2);
                PART_ERROR(H5Oopen_by_idx_invalid_grp_name);
            }

            PASSED();
        }
        PART_END(H5Oopen_by_idx_invalid_grp_name);

        PART_BEGIN(H5Oopen_by_idx_invalid_index_type)
        {
            TESTING_2("H5Oopen_by_idx with an invalid index type");

            H5E_BEGIN_TRY
            {
                group_id2 = H5Oopen_by_idx(container_group, OBJECT_OPEN_INVALID_PARAMS_TEST_GROUP_NAME,
                                           H5_INDEX_UNKNOWN, H5_ITER_INC, 0, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (group_id2 >= 0) {
                H5_FAILED();
                HDprintf("    H5Oopen_by_idx succeeded with invalid index type H5_INDEX_UNKNOWN!\n");
                H5Gclose(group_id2);
                PART_ERROR(H5Oopen_by_idx_invalid_index_type);
            }

            H5E_BEGIN_TRY
            {
                group_id2 = H5Oopen_by_idx(container_group, OBJECT_OPEN_INVALID_PARAMS_TEST_GROUP_NAME,
                                           H5_INDEX_N, H5_ITER_INC, 0, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (group_id2 >= 0) {
                H5_FAILED();
                HDprintf("    H5Oopen_by_idx succeeded with invalid index type H5_INDEX_N!\n");
                H5Gclose(group_id2);
                PART_ERROR(H5Oopen_by_idx_invalid_index_type);
            }

            PASSED();
        }
        PART_END(H5Oopen_by_idx_invalid_index_type);

        PART_BEGIN(H5Oopen_by_idx_invalid_iter_order)
        {
            TESTING_2("H5Oopen_by_idx with an invalid iteration order");

            H5E_BEGIN_TRY
            {
                group_id2 = H5Oopen_by_idx(container_group, OBJECT_OPEN_INVALID_PARAMS_TEST_GROUP_NAME,
                                           H5_INDEX_NAME, H5_ITER_UNKNOWN, 0, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (group_id2 >= 0) {
                H5_FAILED();
                HDprintf(
                    "    H5Oopen_by_idx succeeded with an invalid iteration ordering H5_ITER_UNKNOWN!\n");
                H5Gclose(group_id2);
                PART_ERROR(H5Oopen_by_idx_invalid_iter_order);
            }

            H5E_BEGIN_TRY
            {
                group_id2 = H5Oopen_by_idx(container_group, OBJECT_OPEN_INVALID_PARAMS_TEST_GROUP_NAME,
                                           H5_INDEX_NAME, H5_ITER_N, 0, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (group_id2 >= 0) {
                H5_FAILED();
                HDprintf("    H5Oopen_by_idx succeeded with an invalid iteration ordering H5_ITER_N!\n");
                H5Gclose(group_id2);
                PART_ERROR(H5Oopen_by_idx_invalid_iter_order);
            }

            PASSED();
        }
        PART_END(H5Oopen_by_idx_invalid_iter_order);

        PART_BEGIN(H5Oopen_by_idx_invalid_lapl)
        {
            TESTING_2("H5Oopen_by_idx with an invalid LAPL");

            H5E_BEGIN_TRY
            {
                group_id2 = H5Oopen_by_idx(container_group, OBJECT_OPEN_INVALID_PARAMS_TEST_GROUP_NAME,
                                           H5_INDEX_NAME, H5_ITER_INC, 0, H5I_INVALID_HID);
            }
            H5E_END_TRY;

            if (group_id2 >= 0) {
                H5_FAILED();
                HDprintf("    H5Oopen_by_idx succeeded with an invalid LAPL!\n");
                H5Gclose(group_id2);
                PART_ERROR(H5Oopen_by_idx_invalid_lapl);
            }

            PASSED();
        }
        PART_END(H5Oopen_by_idx_invalid_lapl);

        PART_BEGIN(H5Oopen_by_token_invalid_loc_id)
        {
            TESTING_2("H5Oopen_by_token with an invalid location ID");

            H5E_BEGIN_TRY
            {
                group_id2 = H5Oopen_by_token(H5I_INVALID_HID, H5O_TOKEN_UNDEF);
            }
            H5E_END_TRY;

            if (group_id2 >= 0) {
                H5_FAILED();
                HDprintf("    H5Oopen_by_token succeeded with an invalid location ID!\n");
                H5Gclose(group_id2);
                PART_ERROR(H5Oopen_by_token_invalid_loc_id);
            }

            PASSED();
        }
        PART_END(H5Oopen_by_token_invalid_loc_id);

        PART_BEGIN(H5Oopen_by_token_invalid_token)
        {
            TESTING_2("H5Oopen_by_token with an invalid token");

            H5E_BEGIN_TRY
            {
                group_id2 = H5Oopen_by_token(file_id, H5O_TOKEN_UNDEF);
            }
            H5E_END_TRY;

            if (group_id2 >= 0) {
                H5_FAILED();
                HDprintf("    H5Oopen_by_token succeeded with an invalid token!\n");
                H5Gclose(group_id2);
                PART_ERROR(H5Oopen_by_token_invalid_token);
            }

            PASSED();
        }
        PART_END(H5Oopen_by_token_invalid_token);
    }
    END_MULTIPART;

    TESTING_2("test cleanup");

    if (H5Pclose(gcpl_id) < 0)
        TEST_ERROR;
    if (H5Gclose(group_id) < 0)
        TEST_ERROR;
    if (H5Gclose(container_group) < 0)
        TEST_ERROR;
    if (H5Fclose(file_id) < 0)
        TEST_ERROR;

    PASSED();

    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Pclose(gcpl_id);
        H5Gclose(group_id2);
        H5Gclose(group_id);
        H5Gclose(container_group);
        H5Fclose(file_id);
    }
    H5E_END_TRY;

    return 1;
}

/*
 * A test for H5Oexists_by_name.
 */
static int
test_object_exists(void)
{
    htri_t object_exists;
    hid_t  file_id         = H5I_INVALID_HID;
    hid_t  container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
    hid_t  group_id2  = H5I_INVALID_HID;
    hid_t  dset_id    = H5I_INVALID_HID;
    hid_t  dtype_id   = H5I_INVALID_HID;
    hid_t  fspace_id  = H5I_INVALID_HID;
    hid_t  dset_dtype = H5I_INVALID_HID;

    TESTING_MULTIPART("object existence");

    /* Make sure the connector supports the API functions being tested */
    if (!(vol_cap_flags_g & (H5VL_CAP_FLAG_FILE_BASIC)) || !(vol_cap_flags_g & H5VL_CAP_FLAG_GROUP_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_DATASET_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_OBJECT_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_STORED_DATATYPES) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_SOFT_LINKS)) {
        SKIPPED();
        HDprintf("    API functions for basic file, group, object, dataset, stored datatype or soft link "
                 "aren't supported with this connector\n");
        return 0;
    }

    TESTING_2("test setup");

    if ((file_id = H5Fopen(H5_api_test_filename, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open file '%s'\n", H5_api_test_filename);
        goto error;
    }

    if ((container_group = H5Gopen2(file_id, OBJECT_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open container group '%s'\n", OBJECT_TEST_GROUP_NAME);
        goto error;
    }

    if ((group_id = H5Gcreate2(container_group, OBJECT_EXISTS_TEST_SUBGROUP_NAME, H5P_DEFAULT, H5P_DEFAULT,
                               H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create container subgroup '%s'\n", OBJECT_EXISTS_TEST_SUBGROUP_NAME);
        goto error;
    }

    if ((fspace_id = generate_random_dataspace(OBJECT_EXISTS_TEST_DSET_SPACE_RANK, NULL, NULL, FALSE)) < 0)
        TEST_ERROR;

    if ((dset_dtype = generate_random_datatype(H5T_NO_CLASS, FALSE)) < 0)
        TEST_ERROR;

    PASSED();

    /*
     * NOTE: H5Oexists_by_name for hard links should always succeed.
     *       H5Oexists_by_name for a soft link may fail if the link doesn't resolve.
     */
    BEGIN_MULTIPART
    {
        PART_BEGIN(H5Oexists_by_name_group)
        {
            TESTING_2("H5Oexists_by_name on a group");

            if ((group_id2 = H5Gcreate2(group_id, OBJECT_EXISTS_TEST_GRP_NAME, H5P_DEFAULT, H5P_DEFAULT,
                                        H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't create group '%s'\n", OBJECT_EXISTS_TEST_GRP_NAME);
                PART_ERROR(H5Oexists_by_name_group);
            }

            if ((object_exists = H5Oexists_by_name(group_id, OBJECT_EXISTS_TEST_GRP_NAME, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't determine if object '%s' exists\n", OBJECT_EXISTS_TEST_GRP_NAME);
                PART_ERROR(H5Oexists_by_name_group);
            }

            if (!object_exists) {
                H5_FAILED();
                HDprintf("    object '%s' didn't exist!\n", OBJECT_EXISTS_TEST_GRP_NAME);
                PART_ERROR(H5Oexists_by_name_group);
            }

            if (H5Gclose(group_id2) < 0) {
                H5_FAILED();
                HDprintf("    couldn't close group\n");
                PART_ERROR(H5Oexists_by_name_group);
            }

            PASSED();
        }
        PART_END(H5Oexists_by_name_group);

        PART_BEGIN(H5Oexists_by_name_dset)
        {
            TESTING_2("H5Oexists_by_name on a dataset");

            if ((dset_id = H5Dcreate2(group_id, OBJECT_EXISTS_TEST_DSET_NAME, dset_dtype, fspace_id,
                                      H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't create dataset '%s'\n", OBJECT_EXISTS_TEST_DSET_NAME);
                PART_ERROR(H5Oexists_by_name_dset);
            }

            if ((object_exists = H5Oexists_by_name(group_id, OBJECT_EXISTS_TEST_DSET_NAME, H5P_DEFAULT)) <
                0) {
                H5_FAILED();
                HDprintf("    couldn't determine if object '%s' exists\n", OBJECT_EXISTS_TEST_DSET_NAME);
                PART_ERROR(H5Oexists_by_name_dset);
            }

            if (!object_exists) {
                H5_FAILED();
                HDprintf("    object '%s' didn't exist!\n", OBJECT_EXISTS_TEST_DSET_NAME);
                PART_ERROR(H5Oexists_by_name_dset);
            }

            if (H5Dclose(dset_id) < 0) {
                H5_FAILED();
                HDprintf("    couldn't close dataset\n");
                PART_ERROR(H5Oexists_by_name_dset);
            }

            PASSED();
        }
        PART_END(H5Oexists_by_name_dset);

        PART_BEGIN(H5Oexists_by_name_dtype)
        {
            TESTING_2("H5Oexists_by_name on a committed datatype");

            if ((dtype_id = generate_random_datatype(H5T_NO_CLASS, FALSE)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't create datatype '%s'\n", OBJECT_EXISTS_TEST_TYPE_NAME);
                PART_ERROR(H5Oexists_by_name_dtype);
            }

            if (H5Tcommit2(group_id, OBJECT_EXISTS_TEST_TYPE_NAME, dtype_id, H5P_DEFAULT, H5P_DEFAULT,
                           H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    couldn't commit datatype '%s'\n", OBJECT_EXISTS_TEST_TYPE_NAME);
                PART_ERROR(H5Oexists_by_name_dtype);
            }

            if ((object_exists = H5Oexists_by_name(group_id, OBJECT_EXISTS_TEST_TYPE_NAME, H5P_DEFAULT)) <
                0) {
                H5_FAILED();
                HDprintf("    couldn't determine if object '%s' exists\n", OBJECT_EXISTS_TEST_TYPE_NAME);
                PART_ERROR(H5Oexists_by_name_dtype);
            }

            if (!object_exists) {
                H5_FAILED();
                HDprintf("    object '%s' didn't exist!\n", OBJECT_EXISTS_TEST_TYPE_NAME);
                PART_ERROR(H5Oexists_by_name_dtype);
            }

            if (H5Tclose(dtype_id) < 0) {
                H5_FAILED();
                HDprintf("    couldn't close datatype\n");
                PART_ERROR(H5Oexists_by_name_dtype);
            }

            PASSED();
        }
        PART_END(H5Oexists_by_name_dtype);

        PART_BEGIN(H5Oexists_by_name_soft_link)
        {
            TESTING_2("H5Oexists_by_name for a soft link");

            if (H5Lcreate_soft("/" OBJECT_TEST_GROUP_NAME "/" OBJECT_EXISTS_TEST_SUBGROUP_NAME, group_id,
                               OBJECT_EXISTS_TEST_SOFT_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    couldn't create soft link '%s'\n", OBJECT_EXISTS_TEST_SOFT_LINK_NAME);
                PART_ERROR(H5Oexists_by_name_soft_link);
            }

            if ((object_exists =
                     H5Oexists_by_name(group_id, OBJECT_EXISTS_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't determine if object '%s' exists\n", OBJECT_EXISTS_TEST_SOFT_LINK_NAME);
                PART_ERROR(H5Oexists_by_name_soft_link);
            }

            if (!object_exists) {
                H5_FAILED();
                HDprintf("    object '%s' didn't exist!\n", OBJECT_EXISTS_TEST_SOFT_LINK_NAME);
                PART_ERROR(H5Oexists_by_name_soft_link);
            }

            PASSED();
        }
        PART_END(H5Oexists_by_name_soft_link);

        PART_BEGIN(H5Oexists_by_name_dangling_soft_link)
        {
            TESTING_2("H5Oexists_by_name for a dangling soft link");

            if (H5Lcreate_soft(
                    "/" OBJECT_TEST_GROUP_NAME "/" OBJECT_EXISTS_TEST_SUBGROUP_NAME "/non_existent_object",
                    group_id, OBJECT_EXISTS_TEST_DANGLING_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    couldn't create soft link '%s'\n", OBJECT_EXISTS_TEST_DANGLING_LINK_NAME);
                PART_ERROR(H5Oexists_by_name_dangling_soft_link);
            }

            if ((object_exists =
                     H5Oexists_by_name(group_id, OBJECT_EXISTS_TEST_DANGLING_LINK_NAME, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't determine if object '%s' exists\n",
                         "/" OBJECT_TEST_GROUP_NAME "/" OBJECT_EXISTS_TEST_SUBGROUP_NAME
                         "/non_existent_object");
                PART_ERROR(H5Oexists_by_name_dangling_soft_link);
            }

            if (object_exists) {
                H5_FAILED();
                HDprintf("    object pointed to by dangling soft link should not have existed!\n");
                PART_ERROR(H5Oexists_by_name_dangling_soft_link);
            }

            PASSED();
        }
        PART_END(H5Oexists_by_name_dangling_soft_link);
    }
    END_MULTIPART;

    TESTING_2("test cleanup");

    if (H5Sclose(fspace_id) < 0)
        TEST_ERROR;
    if (H5Tclose(dset_dtype) < 0)
        TEST_ERROR;
    if (H5Gclose(group_id) < 0)
        TEST_ERROR;
    if (H5Gclose(container_group) < 0)
        TEST_ERROR;
    if (H5Fclose(file_id) < 0)
        TEST_ERROR;

    PASSED();

    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Sclose(fspace_id);
        H5Tclose(dset_dtype);
        H5Tclose(dtype_id);
        H5Dclose(dset_id);
        H5Gclose(group_id2);
        H5Gclose(group_id);
        H5Gclose(container_group);
        H5Fclose(file_id);
    }
    H5E_END_TRY;

    return 1;
}

/*
 * A test to check that H5Oexists_by_name fails
 * when it is passed invalid parameters.
 */
static int
test_object_exists_invalid_params(void)
{
    htri_t object_exists;
    hid_t  file_id         = H5I_INVALID_HID;
    hid_t  container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
    hid_t  group_id2 = H5I_INVALID_HID;

    TESTING_MULTIPART("object existence with invalid parameters");

    /* Make sure the connector supports the API functions being tested */
    if (!(vol_cap_flags_g & (H5VL_CAP_FLAG_FILE_BASIC)) || !(vol_cap_flags_g & H5VL_CAP_FLAG_GROUP_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_OBJECT_BASIC)) {
        SKIPPED();
        HDprintf("    API functions for basic file, group, or object aren't supported with this connector\n");
        return 0;
    }

    TESTING_2("test setup");

    if ((file_id = H5Fopen(H5_api_test_filename, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open file '%s'\n", H5_api_test_filename);
        goto error;
    }

    if ((container_group = H5Gopen2(file_id, OBJECT_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open container group '%s'\n", OBJECT_TEST_GROUP_NAME);
        goto error;
    }

    if ((group_id = H5Gcreate2(container_group, OBJECT_EXISTS_INVALID_PARAMS_TEST_SUBGROUP_NAME, H5P_DEFAULT,
                               H5P_DEFAULT, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create container subgroup '%s'\n",
                 OBJECT_EXISTS_INVALID_PARAMS_TEST_SUBGROUP_NAME);
        goto error;
    }

    if ((group_id2 = H5Gcreate2(group_id, OBJECT_EXISTS_INVALID_PARAMS_TEST_GRP_NAME, H5P_DEFAULT,
                                H5P_DEFAULT, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create group '%s'\n", OBJECT_EXISTS_INVALID_PARAMS_TEST_GRP_NAME);
        goto error;
    }

    if (H5Gclose(group_id2) < 0)
        TEST_ERROR;

    PASSED();

    BEGIN_MULTIPART
    {
        PART_BEGIN(H5Oexists_by_name_invalid_loc_id)
        {
            TESTING_2("H5Oexists_by_name with an invalid location ID");

            H5E_BEGIN_TRY
            {
                object_exists = H5Oexists_by_name(H5I_INVALID_HID, OBJECT_EXISTS_INVALID_PARAMS_TEST_GRP_NAME,
                                                  H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (object_exists >= 0) {
                H5_FAILED();
                HDprintf("    H5Oexists_by_name succeeded with an invalid location ID!\n");
                PART_ERROR(H5Oexists_by_name_invalid_loc_id);
            }

            PASSED();
        }
        PART_END(H5Oexists_by_name_invalid_loc_id);

        PART_BEGIN(H5Oexists_by_name_invalid_obj_name)
        {
            TESTING_2("H5Oexists_by_name with an invalid object name");

            H5E_BEGIN_TRY
            {
                object_exists = H5Oexists_by_name(group_id, NULL, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (object_exists >= 0) {
                H5_FAILED();
                HDprintf("    H5Oexists_by_name succeeded with a NULL object name!\n");
                PART_ERROR(H5Oexists_by_name_invalid_obj_name);
            }

            H5E_BEGIN_TRY
            {
                object_exists = H5Oexists_by_name(group_id, "", H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (object_exists >= 0) {
                H5_FAILED();
                HDprintf("    H5Oexists_by_name succeeded with an invalid object name of ''!\n");
                PART_ERROR(H5Oexists_by_name_invalid_obj_name);
            }

            PASSED();
        }
        PART_END(H5Oexists_by_name_invalid_obj_name);

        PART_BEGIN(H5Oexists_by_name_invalid_lapl)
        {
            TESTING_2("H5Oexists_by_name with an invalid LAPL");

            H5E_BEGIN_TRY
            {
                object_exists =
                    H5Oexists_by_name(group_id, OBJECT_EXISTS_INVALID_PARAMS_TEST_GRP_NAME, H5I_INVALID_HID);
            }
            H5E_END_TRY;

            if (object_exists >= 0) {
                H5_FAILED();
                HDprintf("    H5Oexists_by_name succeeded with an invalid LAPL!\n");
                PART_ERROR(H5Oexists_by_name_invalid_lapl);
            }

            PASSED();
        }
        PART_END(H5Oexists_by_name_invalid_lapl);
    }
    END_MULTIPART;

    TESTING_2("test cleanup");

    if (H5Gclose(group_id) < 0)
        TEST_ERROR;
    if (H5Gclose(container_group) < 0)
        TEST_ERROR;
    if (H5Fclose(file_id) < 0)
        TEST_ERROR;

    PASSED();

    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Gclose(group_id2);
        H5Gclose(group_id);
        H5Gclose(container_group);
        H5Fclose(file_id);
    }
    H5E_END_TRY;

    return 1;
}

/*
 * A test for H5Oget_info(_by_name/_by_idx).
 */
static int
test_get_object_info(void)
{
    TESTING("object info retrieval");

    SKIPPED();

    return 0;
}

/*
 * A test to check that an object's info can't be retrieved
 * when H5Oget_info(_by_name/_by_idx) are passed invalid
 * parameters.
 */
static int
test_get_object_info_invalid_params(void)
{
    TESTING("object info retrieval with invalid parameters");

    SKIPPED();

    return 0;
}

/*
 * A test for H5Olink.
 */
static int
test_link_object(void)
{
    hid_t file_id         = H5I_INVALID_HID;
    hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
    hid_t group_id2  = H5I_INVALID_HID;
    hid_t dset_id    = H5I_INVALID_HID;
    hid_t dset_dtype = H5I_INVALID_HID;
    hid_t type_id    = H5I_INVALID_HID;
    hid_t fspace_id  = H5I_INVALID_HID;

    TESTING_MULTIPART("object linking");

    /* Make sure the connector supports the API functions being tested */
    if (!(vol_cap_flags_g & (H5VL_CAP_FLAG_FILE_BASIC)) || !(vol_cap_flags_g & H5VL_CAP_FLAG_GROUP_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_DATASET_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_OBJECT_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_STORED_DATATYPES)) {
        SKIPPED();
        HDprintf("    API functions for basic file, group, object, dataset, or stored datatype aren't "
                 "supported with this connector\n");
        return 0;
    }

    TESTING_2("test setup");

    if ((file_id = H5Fopen(H5_api_test_filename, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open file '%s'\n", H5_api_test_filename);
        goto error;
    }

    if ((container_group = H5Gopen2(file_id, OBJECT_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open container group '%s'\n", OBJECT_TEST_GROUP_NAME);
        goto error;
    }

    if ((group_id = H5Gcreate2(container_group, OBJECT_LINK_TEST_GROUP_NAME, H5P_DEFAULT, H5P_DEFAULT,
                               H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create container sub-group '%s'\n", OBJECT_LINK_TEST_GROUP_NAME);
        goto error;
    }

    if ((fspace_id = generate_random_dataspace(OBJECT_LINK_TEST_SPACE_RANK, NULL, NULL, FALSE)) < 0)
        TEST_ERROR;

    if ((dset_dtype = generate_random_datatype(H5T_NO_CLASS, FALSE)) < 0)
        TEST_ERROR;

    PASSED();

    BEGIN_MULTIPART
    {
        PART_BEGIN(H5Olink_group)
        {
            TESTING_2("H5Olink an anonymous group");

            if ((group_id2 = H5Gcreate_anon(group_id, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't create an anonymous group\n");
                PART_ERROR(H5Olink_group);
            }

            if (H5Olink(group_id2, group_id, OBJECT_LINK_TEST_GROUP_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    couldn't link the anonymous group\n");
                PART_ERROR(H5Olink_group);
            }

            PASSED();
        }
        PART_END(H5Olink_group);

        PART_BEGIN(H5Olink_dataset)
        {
            TESTING_2("H5Olink an anonymous dataset");

            if ((dset_id = H5Dcreate_anon(group_id, dset_dtype, fspace_id, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't create an anonymous dataset\n");
                PART_ERROR(H5Olink_dataset);
            }

            if (H5Olink(dset_id, group_id, OBJECT_LINK_TEST_DSET_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    couldn't link the anonymous dataset\n");
                PART_ERROR(H5Olink_dataset);
            }

            PASSED();
        }
        PART_END(H5Olink_dataset);

        PART_BEGIN(H5Olink_datatype)
        {
            TESTING_2("H5Olink an anonymous datatype");

            if (H5Tcommit_anon(group_id, dset_dtype, H5P_DEFAULT, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    couldn't create an anonymous datatype\n");
                PART_ERROR(H5Olink_datatype);
            }

            if (H5Olink(dset_dtype, group_id, OBJECT_LINK_TEST_DTYPE_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    couldn't link the anonymous datatype\n");
                PART_ERROR(H5Olink_datatype);
            }

            PASSED();
        }
        PART_END(H5Olink_datatype);
    }
    END_MULTIPART;

    TESTING_2("test cleanup");

    if (H5Sclose(fspace_id) < 0)
        TEST_ERROR;
    if (H5Tclose(dset_dtype) < 0)
        TEST_ERROR;
    if (H5Dclose(dset_id) < 0)
        TEST_ERROR;
    if (H5Gclose(group_id) < 0)
        TEST_ERROR;
    if (H5Gclose(group_id2) < 0)
        TEST_ERROR;
    if (H5Gclose(container_group) < 0)
        TEST_ERROR;
    if (H5Fclose(file_id) < 0)
        TEST_ERROR;

    PASSED();

    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Sclose(fspace_id);
        H5Tclose(dset_dtype);
        H5Tclose(type_id);
        H5Dclose(dset_id);
        H5Gclose(group_id2);
        H5Gclose(group_id);
        H5Gclose(container_group);
        H5Fclose(file_id);
    }
    H5E_END_TRY;

    return 1;
}

/*
 * A test to check that an object can't be linked into
 * the file structure when H5Olink is passed invalid
 * parameters.
 */
static int
test_link_object_invalid_params(void)
{
    hid_t  file_id         = H5I_INVALID_HID;
    hid_t  container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
    hid_t  group_id2 = H5I_INVALID_HID;
    herr_t status;

    TESTING_MULTIPART("object linking with invalid parameters");

    /* Make sure the connector supports the API functions being tested */
    if (!(vol_cap_flags_g & (H5VL_CAP_FLAG_FILE_BASIC)) || !(vol_cap_flags_g & H5VL_CAP_FLAG_GROUP_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_OBJECT_BASIC)) {
        SKIPPED();
        HDprintf("    API functions for basic file, group, or object aren't supported with this connector\n");
        return 0;
    }

    TESTING_2("test setup");

    if ((file_id = H5Fopen(H5_api_test_filename, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open file '%s'\n", H5_api_test_filename);
        goto error;
    }

    if ((container_group = H5Gopen2(file_id, OBJECT_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open container group '%s'\n", OBJECT_TEST_GROUP_NAME);
        goto error;
    }

    if ((group_id = H5Gcreate2(container_group, OBJECT_LINK_INVALID_PARAMS_TEST_GROUP_NAME, H5P_DEFAULT,
                               H5P_DEFAULT, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create container sub-group '%s'\n", OBJECT_LINK_TEST_GROUP_NAME);
        goto error;
    }

    if ((group_id2 = H5Gcreate_anon(group_id, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create an anonymous group\n");
        goto error;
    }

    PASSED();

    BEGIN_MULTIPART
    {
        PART_BEGIN(H5Olink_invalid_object_id)
        {
            TESTING_2("H5Olink with an invalid object ID");

            H5E_BEGIN_TRY
            {
                status = H5Olink(H5I_INVALID_HID, group_id, OBJECT_LINK_TEST_GROUP_NAME2, H5P_DEFAULT,
                                 H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (status >= 0) {
                H5_FAILED();
                HDprintf("    H5Olink succeeded with an invalid object ID!\n");
                PART_ERROR(H5Olink_invalid_object_id);
            }

            PASSED();
        }
        PART_END(H5Olink_invalid_object_id);

        PART_BEGIN(H5Olink_invalid_location)
        {
            TESTING_2("H5Olink with an invalid location ID");

            H5E_BEGIN_TRY
            {
                status = H5Olink(group_id2, H5I_INVALID_HID, OBJECT_LINK_TEST_GROUP_NAME2, H5P_DEFAULT,
                                 H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (status >= 0) {
                H5_FAILED();
                HDprintf("    H5Olink succeeded with an invalid location ID!\n");
                PART_ERROR(H5Olink_invalid_location);
            }

            PASSED();
        }
        PART_END(H5Olink_invalid_location);

        PART_BEGIN(H5Olink_invalid_name)
        {
            TESTING_2("H5Olink with an invalid name");

            H5E_BEGIN_TRY
            {
                status = H5Olink(group_id2, group_id, NULL, H5P_DEFAULT, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (status >= 0) {
                H5_FAILED();
                HDprintf("    H5Olink succeeded with NULL as the object name!\n");
                PART_ERROR(H5Olink_invalid_name);
            }

            H5E_BEGIN_TRY
            {
                status = H5Olink(group_id2, group_id, "", H5P_DEFAULT, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (status >= 0) {
                H5_FAILED();
                HDprintf("    H5Olink succeeded with an invalid object name of ''!\n");
                PART_ERROR(H5Olink_invalid_name);
            }

            PASSED();
        }
        PART_END(H5Olink_invalid_name);

        PART_BEGIN(H5Olink_invalid_lcpl)
        {
            TESTING_2("H5Olink with an invalid LCPL");

            H5E_BEGIN_TRY
            {
                status =
                    H5Olink(group_id2, group_id, OBJECT_LINK_TEST_GROUP_NAME2, H5I_INVALID_HID, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (status >= 0) {
                H5_FAILED();
                HDprintf("    H5Olink succeeded with an invalid LCPL!\n");
                PART_ERROR(H5Olink_invalid_lcpl);
            }

            PASSED();
        }
        PART_END(H5Olink_invalid_lcpl);

        PART_BEGIN(H5Olink_invalid_lapl)
        {
            TESTING_2("H5Olink with an invalid LAPL");
#ifndef NO_INVALID_PROPERTY_LIST_TESTS
            H5E_BEGIN_TRY
            {
                status =
                    H5Olink(group_id2, group_id, OBJECT_LINK_TEST_GROUP_NAME2, H5P_DEFAULT, H5I_INVALID_HID);
            }
            H5E_END_TRY;

            if (status >= 0) {
                H5_FAILED();
                HDprintf("    H5Olink succeeded with an invalid LAPL!\n");
                PART_ERROR(H5Olink_invalid_lapl);
            }

            PASSED();
#else
            SKIPPED();
            PART_EMPTY(H5Olink_invalid_lapl);
#endif
        }
        PART_END(H5Olink_invalid_lapl);
    }
    END_MULTIPART;

    TESTING_2("test cleanup");

    if (H5Gclose(group_id) < 0)
        TEST_ERROR;
    if (H5Gclose(group_id2) < 0)
        TEST_ERROR;
    if (H5Gclose(container_group) < 0)
        TEST_ERROR;
    if (H5Fclose(file_id) < 0)
        TEST_ERROR;

    PASSED();

    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Gclose(group_id2);
        H5Gclose(group_id);
        H5Gclose(container_group);
        H5Fclose(file_id);
    }
    H5E_END_TRY;

    return 1;
}

/*
 * A test for H5Oincr_refcount/H5Odecr_refcount.
 */
static int
test_incr_decr_object_refcount(void)
{
    H5O_info2_t oinfo; /* Object info struct */
    hid_t       file_id         = H5I_INVALID_HID;
    hid_t       container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
    hid_t       group_id2  = H5I_INVALID_HID;
    hid_t       dset_id    = H5I_INVALID_HID;
    hid_t       fspace_id  = H5I_INVALID_HID;
    hid_t       dset_dtype = H5I_INVALID_HID;

    TESTING_MULTIPART("increment/decrement the reference count of object");

    /* Make sure the connector supports the API functions being tested */
    if (!(vol_cap_flags_g & (H5VL_CAP_FLAG_FILE_BASIC)) || !(vol_cap_flags_g & H5VL_CAP_FLAG_GROUP_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_DATASET_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_OBJECT_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_OBJECT_MORE) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_STORED_DATATYPES)) {
        SKIPPED();
        HDprintf("    API functions for basic file, group, dataset, stored datatype, basic or more object  "
                 "aren't supported with this connector\n");
        return 0;
    }

    TESTING_2("test setup");

    if ((file_id = H5Fopen(H5_api_test_filename, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open file '%s'\n", H5_api_test_filename);
        goto error;
    }

    if ((container_group = H5Gopen2(file_id, OBJECT_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open container group '%s'\n", OBJECT_TEST_GROUP_NAME);
        goto error;
    }

    if ((group_id = H5Gcreate2(container_group, OBJECT_REF_COUNT_TEST_SUBGROUP_NAME, H5P_DEFAULT, H5P_DEFAULT,
                               H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create container subgroup '%s'\n", OBJECT_REF_COUNT_TEST_SUBGROUP_NAME);
        goto error;
    }

    if ((fspace_id = generate_random_dataspace(OBJECT_REF_COUNT_TEST_DSET_SPACE_RANK, NULL, NULL, FALSE)) < 0)
        TEST_ERROR;

    if ((dset_dtype = generate_random_datatype(H5T_NO_CLASS, FALSE)) < 0)
        TEST_ERROR;

    PASSED();

    BEGIN_MULTIPART
    {
        PART_BEGIN(H5Oincr_decr_refcount_group)
        {
            TESTING_2("H5Oincr_refcount/H5Odecr_refcount on a group");

            if ((group_id2 = H5Gcreate2(group_id, OBJECT_REF_COUNT_TEST_GRP_NAME, H5P_DEFAULT, H5P_DEFAULT,
                                        H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't create group '%s'\n", OBJECT_REF_COUNT_TEST_GRP_NAME);
                PART_ERROR(H5Oincr_decr_refcount_group);
            }

            /* Increment the reference count */
            if (H5Oincr_refcount(group_id2) < 0) {
                H5_FAILED();
                HDprintf("    couldn't increment reference count for the group '%s' \n",
                         OBJECT_REF_COUNT_TEST_GRP_NAME);
                PART_ERROR(H5Oincr_decr_refcount_group);
            }

            /* Verify that reference count is 2 now */
            if (H5Oget_info_by_name3(group_id, OBJECT_REF_COUNT_TEST_GRP_NAME, &oinfo, H5O_INFO_BASIC,
                                     H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    couldn't get reference count for the group '%s' \n",
                         OBJECT_REF_COUNT_TEST_GRP_NAME);
                PART_ERROR(H5Oincr_decr_refcount_group);
            }

            if (oinfo.rc != 2) {
                H5_FAILED();
                HDprintf("    the reference count for the group '%s' isn't 2: %d\n",
                         OBJECT_REF_COUNT_TEST_GRP_NAME, oinfo.rc);
                PART_ERROR(H5Oincr_decr_refcount_group);
            }

            /* Decrement the reference count */
            if (H5Odecr_refcount(group_id2) < 0) {
                H5_FAILED();
                HDprintf("    couldn't decrement reference count for the group '%s' \n",
                         OBJECT_REF_COUNT_TEST_GRP_NAME);
                PART_ERROR(H5Oincr_decr_refcount_group);
            }

            /* Verify that reference count is 1 now */
            if (H5Oget_info_by_name3(group_id, OBJECT_REF_COUNT_TEST_GRP_NAME, &oinfo, H5O_INFO_BASIC,
                                     H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    couldn't get reference count for the group '%s' \n",
                         OBJECT_REF_COUNT_TEST_GRP_NAME);
                PART_ERROR(H5Oincr_decr_refcount_group);
            }

            if (oinfo.rc != 1) {
                H5_FAILED();
                HDprintf("    the reference count for the group '%s' isn't 1: %d\n",
                         OBJECT_REF_COUNT_TEST_GRP_NAME, oinfo.rc);
                PART_ERROR(H5Oincr_decr_refcount_group);
            }

            if (H5Gclose(group_id2) < 0) {
                H5_FAILED();
                HDprintf("    couldn't close group\n");
                PART_ERROR(H5Oincr_decr_refcount_group);
            }

            PASSED();
        }
        PART_END(H5Oincr_decr_refcount_group);

        PART_BEGIN(H5Oincr_decr_refcount_dset)
        {
            TESTING_2("H5Oincr_refcount/H5Odecr_refcount on a dataset");

            if ((dset_id = H5Dcreate2(group_id, OBJECT_REF_COUNT_TEST_DSET_NAME, dset_dtype, fspace_id,
                                      H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't create dataset '%s'\n", OBJECT_REF_COUNT_TEST_DSET_NAME);
                PART_ERROR(H5Oincr_decr_refcount_dset);
            }

            /* Increment the reference count */
            if (H5Oincr_refcount(dset_id) < 0) {
                H5_FAILED();
                HDprintf("    couldn't increment reference count for the dataset '%s' \n",
                         OBJECT_REF_COUNT_TEST_DSET_NAME);
                PART_ERROR(H5Oincr_decr_refcount_dset);
            }

            /* Verify that reference count is 2 now */
            if (H5Oget_info_by_name3(group_id, OBJECT_REF_COUNT_TEST_DSET_NAME, &oinfo, H5O_INFO_BASIC,
                                     H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    couldn't get reference count for the dataset '%s' \n",
                         OBJECT_REF_COUNT_TEST_DSET_NAME);
                PART_ERROR(H5Oincr_decr_refcount_dset);
            }

            if (oinfo.rc != 2) {
                H5_FAILED();
                HDprintf("    the reference count for the dataset '%s' isn't 2: %d\n",
                         OBJECT_REF_COUNT_TEST_DSET_NAME, oinfo.rc);
                PART_ERROR(H5Oincr_decr_refcount_dset);
            }

            /* Decrement the reference count */
            if (H5Odecr_refcount(dset_id) < 0) {
                H5_FAILED();
                HDprintf("    couldn't decrement reference count for the dataset '%s' \n",
                         OBJECT_REF_COUNT_TEST_DSET_NAME);
                PART_ERROR(H5Oincr_decr_refcount_dset);
            }

            /* Verify that reference count is 1 now */
            if (H5Oget_info_by_name3(group_id, OBJECT_REF_COUNT_TEST_DSET_NAME, &oinfo, H5O_INFO_BASIC,
                                     H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    couldn't get reference count for the dataset '%s' \n",
                         OBJECT_REF_COUNT_TEST_DSET_NAME);
                PART_ERROR(H5Oincr_decr_refcount_dset);
            }

            if (oinfo.rc != 1) {
                H5_FAILED();
                HDprintf("    the reference count for the dataset '%s' isn't 1: %d\n",
                         OBJECT_REF_COUNT_TEST_DSET_NAME, oinfo.rc);
                PART_ERROR(H5Oincr_decr_refcount_dset);
            }

            if (H5Dclose(dset_id) < 0) {
                H5_FAILED();
                HDprintf("    couldn't close dataset\n");
                PART_ERROR(H5Oincr_decr_refcount_dset);
            }

            PASSED();
        }
        PART_END(H5Oincr_decr_refcount_dset);

        PART_BEGIN(H5Oincr / decr_refcount_dtype)
        {
            TESTING_2("H5Oincr_refcount/H5Odecr_refcount on a committed datatype");

            if (H5Tcommit2(group_id, OBJECT_REF_COUNT_TEST_TYPE_NAME, dset_dtype, H5P_DEFAULT, H5P_DEFAULT,
                           H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    couldn't commit datatype '%s'\n", OBJECT_REF_COUNT_TEST_TYPE_NAME);
                PART_ERROR(H5Oincr_decr_refcount_dtype);
            }

            /* Increment the reference count */
            if (H5Oincr_refcount(dset_dtype) < 0) {
                H5_FAILED();
                HDprintf("    couldn't increment reference count for the datatype '%s' \n",
                         OBJECT_REF_COUNT_TEST_TYPE_NAME);
                PART_ERROR(H5Oincr_decr_refcount_dtype);
            }

            /* Verify that reference count is 2 now */
            if (H5Oget_info_by_name3(group_id, OBJECT_REF_COUNT_TEST_TYPE_NAME, &oinfo, H5O_INFO_BASIC,
                                     H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    couldn't get reference count for the datatype '%s' \n",
                         OBJECT_REF_COUNT_TEST_TYPE_NAME);
                PART_ERROR(H5Oincr_decr_refcount_dtype);
            }

            if (oinfo.rc != 2) {
                H5_FAILED();
                HDprintf("    the reference count for the datatype '%s' isn't 2: %d\n",
                         OBJECT_REF_COUNT_TEST_TYPE_NAME, oinfo.rc);
                PART_ERROR(H5Oincr_decr_refcount_dtype);
            }

            /* Decrement the reference count */
            if (H5Odecr_refcount(dset_dtype) < 0) {
                H5_FAILED();
                HDprintf("    couldn't decrement reference count for the datatype '%s' \n",
                         OBJECT_REF_COUNT_TEST_TYPE_NAME);
                PART_ERROR(H5Oincr_decr_refcount_dtype);
            }

            /* Verify that reference count is 1 now */
            if (H5Oget_info_by_name3(group_id, OBJECT_REF_COUNT_TEST_TYPE_NAME, &oinfo, H5O_INFO_BASIC,
                                     H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    couldn't get reference count for the datatype '%s' \n",
                         OBJECT_REF_COUNT_TEST_TYPE_NAME);
                PART_ERROR(H5Oincr_decr_refcount_dtype);
            }

            if (oinfo.rc != 1) {
                H5_FAILED();
                HDprintf("    the reference count for the datatype '%s' isn't 1: %d\n",
                         OBJECT_REF_COUNT_TEST_TYPE_NAME, oinfo.rc);
                PART_ERROR(H5Oincr_decr_refcount_dtype);
            }

            if (H5Tclose(dset_dtype) < 0) {
                H5_FAILED();
                HDprintf("    couldn't close datatype\n");
                PART_ERROR(H5Oincr_decr_refcount_dtype);
            }

            PASSED();
        }
        PART_END(H5Oincr_decr_refcount_dtype);
    }
    END_MULTIPART;

    TESTING_2("test cleanup");

    if (H5Sclose(fspace_id) < 0)
        TEST_ERROR;
    if (H5Gclose(group_id) < 0)
        TEST_ERROR;
    if (H5Gclose(container_group) < 0)
        TEST_ERROR;
    if (H5Fclose(file_id) < 0)
        TEST_ERROR;

    PASSED();

    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Sclose(fspace_id);
        H5Tclose(dset_dtype);
        H5Dclose(dset_id);
        H5Gclose(group_id2);
        H5Gclose(group_id);
        H5Gclose(container_group);
        H5Fclose(file_id);
    }
    H5E_END_TRY;

    return 1;
} /* test_incr_decr_object_refcount */

/*
 * A test to check that H5Oincr_refcount/H5Odecr_refcount
 * fail when passed invalid parameters.
 */
static int
test_incr_decr_object_refcount_invalid_params(void)
{
    herr_t status;

    TESTING_MULTIPART("object reference count incr./decr. with an invalid parameter");

    /* Make sure the connector supports the API functions being tested */
    if (!(vol_cap_flags_g & H5VL_CAP_FLAG_OBJECT_MORE)) {
        SKIPPED();
        HDprintf("    API functions for more object aren't supported with this connector\n");
        return 0;
    }

    BEGIN_MULTIPART
    {
        PART_BEGIN(H5Oincr_refcount_invalid_param)
        {
            TESTING_2("H5Oincr_refcount with invalid object ID");

            H5E_BEGIN_TRY
            {
                status = H5Oincr_refcount(H5I_INVALID_HID);
            }
            H5E_END_TRY;

            if (status >= 0) {
                H5_FAILED();
                HDprintf("    incremented the reference count for an invalid object ID\n");
                PART_ERROR(H5Oincr_refcount_invalid_param);
            }

            PASSED();
        }
        PART_END(H5Oincr_refcount_invalid_param);

        PART_BEGIN(H5Odecr_refcount_invalid_param)
        {
            TESTING_2("H5Odecr_refcount with invalid object ID");

            H5E_BEGIN_TRY
            {
                status = H5Odecr_refcount(H5I_INVALID_HID);
            }
            H5E_END_TRY;

            if (status >= 0) {
                H5_FAILED();
                HDprintf("    decremented the reference count for an invalid object ID\n");
                PART_ERROR(H5Odecr_refcount_invalid_param);
            }

            PASSED();
        }
        PART_END(H5Odecr_refcount_invalid_param);
    }
    END_MULTIPART;

    return 0;

error:
    return 1;
}

/*
 * Basic tests for H5Ocopy.
 */
static int
test_object_copy_basic(void)
{
    H5O_info2_t object_info;
    H5G_info_t  group_info;
    htri_t      object_link_exists;
    size_t      i;
    hid_t       file_id         = H5I_INVALID_HID;
    hid_t       container_group = H5I_INVALID_HID;
    hid_t       group_id        = H5I_INVALID_HID;
    hid_t       group_id2       = H5I_INVALID_HID;
    hid_t       tmp_group_id    = H5I_INVALID_HID;
    hid_t       dset_id         = H5I_INVALID_HID;
    hid_t       tmp_dset_id     = H5I_INVALID_HID;
    hid_t       dtype_id        = H5I_INVALID_HID;
    hid_t       tmp_dtype_id    = H5I_INVALID_HID;
    hid_t       tmp_attr_id     = H5I_INVALID_HID;
    hid_t       dset_dtype      = H5I_INVALID_HID;
    hid_t       attr_space_id   = H5I_INVALID_HID;
    hid_t       space_id        = H5I_INVALID_HID;

    TESTING_MULTIPART("basic object copying");

    /* Make sure the connector supports the API functions being tested */
    if (!(vol_cap_flags_g & (H5VL_CAP_FLAG_FILE_BASIC)) || !(vol_cap_flags_g & H5VL_CAP_FLAG_GROUP_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_DATASET_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_OBJECT_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_OBJECT_MORE) || !(vol_cap_flags_g & H5VL_CAP_FLAG_LINK_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_ATTR_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_ITERATE) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_STORED_DATATYPES)) {
        SKIPPED();
        HDprintf("    API functions for basic file, group, object, link, dataset, attribute, iterate, or "
                 "stored datatype aren't supported with this connector\n");
        return 0;
    }

    TESTING_2("test setup");

    if ((file_id = H5Fopen(H5_api_test_filename, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open file '%s'\n", H5_api_test_filename);
        goto error;
    }

    if ((container_group = H5Gopen2(file_id, OBJECT_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open container group '%s'\n", OBJECT_TEST_GROUP_NAME);
        goto error;
    }

    if ((group_id = H5Gcreate2(container_group, OBJECT_COPY_BASIC_TEST_SUBGROUP_NAME, H5P_DEFAULT,
                               H5P_DEFAULT, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create container subgroup '%s'\n", OBJECT_COPY_BASIC_TEST_SUBGROUP_NAME);
        goto error;
    }

    if ((space_id = generate_random_dataspace(OBJECT_COPY_BASIC_TEST_SPACE_RANK, NULL, NULL, FALSE)) < 0)
        TEST_ERROR;
    if ((attr_space_id = generate_random_dataspace(OBJECT_COPY_BASIC_TEST_SPACE_RANK, NULL, NULL, TRUE)) < 0)
        TEST_ERROR;

    if ((dset_dtype = generate_random_datatype(H5T_NO_CLASS, FALSE)) < 0)
        TEST_ERROR;

    /* Create the test group object, along with its nested members and the attributes attached to it. */
    if ((group_id2 = H5Gcreate2(group_id, OBJECT_COPY_BASIC_TEST_GROUP_NAME, H5P_DEFAULT, H5P_DEFAULT,
                                H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create group '%s'\n", OBJECT_COPY_BASIC_TEST_GROUP_NAME);
        goto error;
    }

    for (i = 0; i < (size_t)OBJECT_COPY_BASIC_TEST_NUM_NESTED_OBJS; i++) {
        char grp_name[OBJECT_COPY_BASIC_TEST_BUF_SIZE];

        snprintf(grp_name, OBJECT_COPY_BASIC_TEST_BUF_SIZE, "grp%d", (int)i);

        if ((tmp_group_id = H5Gcreate2(group_id2, grp_name, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
            H5_FAILED();
            HDprintf("    couldn't create group '%s' under group '%s'\n", grp_name,
                     OBJECT_COPY_BASIC_TEST_GROUP_NAME);
            goto error;
        }

        /* Create a further nested group under the last group added */
        if (i == (OBJECT_COPY_BASIC_TEST_NUM_NESTED_OBJS - 1)) {
            if (H5Gclose(H5Gcreate2(tmp_group_id, OBJECT_COPY_BASIC_TEST_DEEP_NESTED_GROUP_NAME, H5P_DEFAULT,
                                    H5P_DEFAULT, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't create nested group '%s' under group '%s'\n",
                         OBJECT_COPY_BASIC_TEST_DEEP_NESTED_GROUP_NAME, grp_name);
                goto error;
            }
        }

        if (H5Gclose(tmp_group_id) < 0) {
            H5_FAILED();
            HDprintf("    couldn't close group '%s'\n", grp_name);
            goto error;
        }
    }

    for (i = 0; i < (size_t)OBJECT_COPY_BASIC_TEST_NUM_ATTRS; i++) {
        char attr_name[OBJECT_COPY_BASIC_TEST_BUF_SIZE];

        snprintf(attr_name, OBJECT_COPY_BASIC_TEST_BUF_SIZE, "attr%d", (int)i);

        if ((tmp_attr_id = H5Acreate2(group_id2, attr_name, H5T_NATIVE_INT, attr_space_id, H5P_DEFAULT,
                                      H5P_DEFAULT)) < 0) {
            H5_FAILED();
            HDprintf("    couldn't create attribute '%s' on group '%s'\n", attr_name,
                     OBJECT_COPY_BASIC_TEST_GROUP_NAME);
            goto error;
        }

        if (H5Aclose(tmp_attr_id) < 0) {
            H5_FAILED();
            HDprintf("    couldn't close attribute '%s'\n", attr_name);
            goto error;
        }
    }

    /* Create the test dataset object, along with the attributes attached to it. */
    if ((dset_id = H5Dcreate2(group_id, OBJECT_COPY_BASIC_TEST_DSET_NAME, dset_dtype, space_id, H5P_DEFAULT,
                              H5P_DEFAULT, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create dataset '%s'\n", OBJECT_COPY_BASIC_TEST_DSET_NAME);
        goto error;
    }

    for (i = 0; i < (size_t)OBJECT_COPY_BASIC_TEST_NUM_ATTRS; i++) {
        char attr_name[OBJECT_COPY_BASIC_TEST_BUF_SIZE];

        snprintf(attr_name, OBJECT_COPY_BASIC_TEST_BUF_SIZE, "attr%d", (int)i);

        if ((tmp_attr_id = H5Acreate2(dset_id, attr_name, H5T_NATIVE_INT, attr_space_id, H5P_DEFAULT,
                                      H5P_DEFAULT)) < 0) {
            H5_FAILED();
            HDprintf("    couldn't create attribute '%s' on dataset '%s'\n", attr_name,
                     OBJECT_COPY_BASIC_TEST_DSET_NAME);
            goto error;
        }

        if (H5Aclose(tmp_attr_id) < 0) {
            H5_FAILED();
            HDprintf("    couldn't close attribute '%s'\n", attr_name);
            goto error;
        }
    }

    /* Create the test committed datatype object, along with the attributes attached to it. */
    if ((dtype_id = generate_random_datatype(H5T_NO_CLASS, FALSE)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create datatype\n");
        goto error;
    }

    if (H5Tcommit2(group_id, OBJECT_COPY_BASIC_TEST_DTYPE_NAME, dtype_id, H5P_DEFAULT, H5P_DEFAULT,
                   H5P_DEFAULT) < 0) {
        H5_FAILED();
        HDprintf("    couldn't commit datatype '%s'\n", OBJECT_COPY_BASIC_TEST_DTYPE_NAME);
        goto error;
    }

    for (i = 0; i < (size_t)OBJECT_COPY_BASIC_TEST_NUM_ATTRS; i++) {
        char attr_name[OBJECT_COPY_BASIC_TEST_BUF_SIZE];

        snprintf(attr_name, OBJECT_COPY_BASIC_TEST_BUF_SIZE, "attr%d", (int)i);

        if ((tmp_attr_id = H5Acreate2(dtype_id, attr_name, H5T_NATIVE_INT, attr_space_id, H5P_DEFAULT,
                                      H5P_DEFAULT)) < 0) {
            H5_FAILED();
            HDprintf("    couldn't create attribute '%s' on committed datatype '%s'\n", attr_name,
                     OBJECT_COPY_BASIC_TEST_DTYPE_NAME);
            goto error;
        }

        if (H5Aclose(tmp_attr_id) < 0) {
            H5_FAILED();
            HDprintf("    couldn't close attribute '%s'\n", attr_name);
            goto error;
        }
    }

    PASSED();

    BEGIN_MULTIPART
    {
        PART_BEGIN(H5Ocopy_group)
        {
            TESTING_2("H5Ocopy on a group (default copy options)");

            if (H5Ocopy(group_id, OBJECT_COPY_BASIC_TEST_GROUP_NAME, group_id,
                        OBJECT_COPY_BASIC_TEST_NEW_GROUP_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    failed to copy group '%s' to '%s'\n", OBJECT_COPY_BASIC_TEST_GROUP_NAME,
                         OBJECT_COPY_BASIC_TEST_NEW_GROUP_NAME);
                PART_ERROR(H5Ocopy_group);
            }

            if ((object_link_exists =
                     H5Lexists(group_id, OBJECT_COPY_BASIC_TEST_NEW_GROUP_NAME, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't determine if link '%s' to copied group exists\n",
                         OBJECT_COPY_BASIC_TEST_NEW_GROUP_NAME);
                PART_ERROR(H5Ocopy_group);
            }

            if (!object_link_exists) {
                H5_FAILED();
                HDprintf("    link '%s' to copied group didn't exist!\n",
                         OBJECT_COPY_BASIC_TEST_NEW_GROUP_NAME);
                PART_ERROR(H5Ocopy_group);
            }

            /* Ensure that the new group has all the members of the copied group, and all its attributes */
            if ((tmp_group_id = H5Gopen2(group_id, OBJECT_COPY_BASIC_TEST_NEW_GROUP_NAME, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    failed to open group copy '%s'\n", OBJECT_COPY_BASIC_TEST_NEW_GROUP_NAME);
                PART_ERROR(H5Ocopy_group);
            }

            memset(&group_info, 0, sizeof(group_info));

            /*
             * Set link count to zero in case the connector doesn't support
             * retrieval of group info.
             */
            group_info.nlinks = 0;

            if (H5Gget_info(tmp_group_id, &group_info) < 0) {
                H5_FAILED();
                HDprintf("    failed to retrieve group info\n");
                PART_ERROR(H5Ocopy_group);
            }

            if (group_info.nlinks != OBJECT_COPY_BASIC_TEST_NUM_NESTED_OBJS) {
                H5_FAILED();
                HDprintf("    copied group contained %d members instead of %d members after a deep copy!\n",
                         (int)group_info.nlinks, OBJECT_COPY_BASIC_TEST_NUM_NESTED_OBJS);
                PART_ERROR(H5Ocopy_group);
            }

            memset(&object_info, 0, sizeof(object_info));

            /*
             * Set attribute count to zero in case the connector doesn't
             * support retrieval of object info.
             */
            object_info.num_attrs = 0;

            if (H5Oget_info3(tmp_group_id, &object_info, H5O_INFO_ALL) < 0) {
                H5_FAILED();
                HDprintf("    failed to retrieve object info\n");
                PART_ERROR(H5Ocopy_group);
            }

            if (object_info.num_attrs == 0) {
                H5_FAILED();
                HDprintf("    copied group didn't contain any attributes after copy operation!\n");
                PART_ERROR(H5Ocopy_group);
            }

            /* Check the attribute names, types, etc. */
            i = 0;
            if (H5Aiterate2(tmp_group_id, H5_INDEX_NAME, H5_ITER_INC, NULL,
                            object_copy_attribute_iter_callback, &i) < 0) {
                H5_FAILED();
                HDprintf("    failed to iterate over copied group's attributes\n");
                PART_ERROR(H5Ocopy_group);
            }

            if (i != OBJECT_COPY_BASIC_TEST_NUM_ATTRS) {
                H5_FAILED();
                HDprintf(
                    "    number of attributes on copied group (%llu) didn't match expected number (%llu)!\n",
                    (unsigned long long)i, (unsigned long long)OBJECT_COPY_BASIC_TEST_NUM_ATTRS);
                PART_ERROR(H5Ocopy_group);
            }

            if (H5Gclose(tmp_group_id) < 0) {
                H5_FAILED();
                HDprintf("    failed to close group copy\n");
                PART_ERROR(H5Ocopy_group);
            }

            /*
             * Ensure that the last immediate member of the copied group
             * contains its single member after the deep copy.
             */
            {
                char grp_name[OBJECT_COPY_BASIC_TEST_BUF_SIZE];

                snprintf(grp_name, OBJECT_COPY_BASIC_TEST_BUF_SIZE,
                         OBJECT_COPY_BASIC_TEST_NEW_GROUP_NAME "/grp%d",
                         OBJECT_COPY_BASIC_TEST_NUM_NESTED_OBJS - 1);

                if ((tmp_group_id = H5Gopen2(group_id, grp_name, H5P_DEFAULT)) < 0) {
                    H5_FAILED();
                    HDprintf("    failed to open group '%s'\n",
                             OBJECT_COPY_BASIC_TEST_DEEP_NESTED_GROUP_NAME);
                    PART_ERROR(H5Ocopy_group);
                }

                memset(&group_info, 0, sizeof(group_info));

                /*
                 * Set link count to zero in case the connector doesn't support
                 * retrieval of group info.
                 */
                group_info.nlinks = 0;

                if (H5Gget_info(tmp_group_id, &group_info) < 0) {
                    H5_FAILED();
                    HDprintf("    failed to retrieve group info\n");
                    PART_ERROR(H5Ocopy_group);
                }

                if (group_info.nlinks != 1) {
                    H5_FAILED();
                    HDprintf("    copied group's immediate members didn't contain nested members after a "
                             "deep copy!\n");
                    PART_ERROR(H5Ocopy_group);
                }

                if (H5Gclose(tmp_group_id) < 0) {
                    H5_FAILED();
                    HDprintf("    failed to close group '%s'\n",
                             OBJECT_COPY_BASIC_TEST_DEEP_NESTED_GROUP_NAME);
                    PART_ERROR(H5Ocopy_group);
                }
            }

            PASSED();
        }
        PART_END(H5Ocopy_group);

        if (tmp_group_id >= 0) {
            H5E_BEGIN_TRY
            {
                H5Gclose(tmp_group_id);
            }
            H5E_END_TRY;
            tmp_group_id = H5I_INVALID_HID;
        }

        PART_BEGIN(H5Ocopy_dset)
        {
            TESTING_2("H5Ocopy on a dataset (default copy options)");

            if (H5Ocopy(group_id, OBJECT_COPY_BASIC_TEST_DSET_NAME, group_id,
                        OBJECT_COPY_BASIC_TEST_NEW_DSET_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    failed to copy dataset '%s' to '%s'\n", OBJECT_COPY_BASIC_TEST_DSET_NAME,
                         OBJECT_COPY_BASIC_TEST_NEW_DSET_NAME);
                PART_ERROR(H5Ocopy_dset);
            }

            if ((object_link_exists =
                     H5Lexists(group_id, OBJECT_COPY_BASIC_TEST_NEW_DSET_NAME, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't determine if link '%s' to copied dataset exists\n",
                         OBJECT_COPY_BASIC_TEST_NEW_DSET_NAME);
                PART_ERROR(H5Ocopy_dset);
            }

            if (!object_link_exists) {
                H5_FAILED();
                HDprintf("    link '%s' to copied dataset didn't exist!\n",
                         OBJECT_COPY_BASIC_TEST_NEW_DSET_NAME);
                PART_ERROR(H5Ocopy_dset);
            }

            /* Ensure that the new dataset has all of the attributes of the copied dataset */
            if ((tmp_dset_id = H5Dopen2(group_id, OBJECT_COPY_BASIC_TEST_NEW_DSET_NAME, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    failed to open dataset copy '%s'\n", OBJECT_COPY_BASIC_TEST_NEW_DSET_NAME);
                PART_ERROR(H5Ocopy_dset);
            }

            memset(&object_info, 0, sizeof(object_info));

            /*
             * Set attribute count to zero in case the connector doesn't
             * support retrieval of object info.
             */
            object_info.num_attrs = 0;

            if (H5Oget_info3(tmp_dset_id, &object_info, H5O_INFO_ALL) < 0) {
                H5_FAILED();
                HDprintf("    failed to retrieve object info\n");
                PART_ERROR(H5Ocopy_dset);
            }

            if (object_info.num_attrs == 0) {
                H5_FAILED();
                HDprintf("    copied dataset didn't contain any attributes after copy operation!\n");
                PART_ERROR(H5Ocopy_dset);
            }

            /* Check the attribute names, types, etc. */
            i = 0;
            if (H5Aiterate2(tmp_dset_id, H5_INDEX_NAME, H5_ITER_INC, NULL,
                            object_copy_attribute_iter_callback, &i) < 0) {
                H5_FAILED();
                HDprintf("    failed to iterate over copied dataset's attributes\n");
                PART_ERROR(H5Ocopy_dset);
            }

            if (i != OBJECT_COPY_BASIC_TEST_NUM_ATTRS) {
                H5_FAILED();
                HDprintf("    number of attributes on copied dataset (%llu) didn't match expected number "
                         "(%llu)!\n",
                         (unsigned long long)i, (unsigned long long)OBJECT_COPY_BASIC_TEST_NUM_ATTRS);
                PART_ERROR(H5Ocopy_dset);
            }

            if (H5Dclose(tmp_dset_id) < 0) {
                H5_FAILED();
                HDprintf("    failed to close dataset copy\n");
                PART_ERROR(H5Ocopy_dset);
            }

            PASSED();
        }
        PART_END(H5Ocopy_dset);

        if (tmp_dset_id >= 0) {
            H5E_BEGIN_TRY
            {
                H5Dclose(tmp_dset_id);
            }
            H5E_END_TRY;
            tmp_dset_id = H5I_INVALID_HID;
        }

        PART_BEGIN(H5Ocopy_dtype)
        {
            TESTING_2("H5Ocopy on a committed datatype (default copy options)");

            if (H5Ocopy(group_id, OBJECT_COPY_BASIC_TEST_DTYPE_NAME, group_id,
                        OBJECT_COPY_BASIC_TEST_NEW_DTYPE_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    failed to copy datatype '%s' to '%s'\n", OBJECT_COPY_BASIC_TEST_DTYPE_NAME,
                         OBJECT_COPY_BASIC_TEST_NEW_DTYPE_NAME);
                PART_ERROR(H5Ocopy_dtype);
            }

            if ((object_link_exists =
                     H5Lexists(group_id, OBJECT_COPY_BASIC_TEST_NEW_DTYPE_NAME, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't determine if link '%s' to copied datatype exists\n",
                         OBJECT_COPY_BASIC_TEST_NEW_DTYPE_NAME);
                PART_ERROR(H5Ocopy_dtype);
            }

            if (!object_link_exists) {
                H5_FAILED();
                HDprintf("    link '%s' to copied datatype didn't exist!\n",
                         OBJECT_COPY_BASIC_TEST_NEW_DTYPE_NAME);
                PART_ERROR(H5Ocopy_dtype);
            }

            /* Ensure that the new committed datatype has all the attributes of the copied datatype */
            if ((tmp_dtype_id = H5Topen2(group_id, OBJECT_COPY_BASIC_TEST_NEW_DTYPE_NAME, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    failed to open datatype copy '%s'\n", OBJECT_COPY_BASIC_TEST_NEW_DTYPE_NAME);
                PART_ERROR(H5Ocopy_dtype);
            }

            memset(&object_info, 0, sizeof(object_info));

            /*
             * Set attribute count to zero in case the connector doesn't
             * support retrieval of object info.
             */
            object_info.num_attrs = 0;

            if (H5Oget_info3(tmp_dtype_id, &object_info, H5O_INFO_ALL) < 0) {
                H5_FAILED();
                HDprintf("    failed to retrieve object info\n");
                PART_ERROR(H5Ocopy_dtype);
            }

            if (object_info.num_attrs == 0) {
                H5_FAILED();
                HDprintf(
                    "    copied committed datatype didn't contain any attributes after copy operation!\n");
                PART_ERROR(H5Ocopy_dtype);
            }

            /* Check the attribute names, types, etc. */
            i = 0;
            if (H5Aiterate2(tmp_dtype_id, H5_INDEX_NAME, H5_ITER_INC, NULL,
                            object_copy_attribute_iter_callback, &i) < 0) {
                H5_FAILED();
                HDprintf("    failed to iterate over copied datatype's attributes\n");
                PART_ERROR(H5Ocopy_dtype);
            }

            if (i != OBJECT_COPY_BASIC_TEST_NUM_ATTRS) {
                H5_FAILED();
                HDprintf("    number of attributes on copied datatype (%llu) didn't match expected number "
                         "(%llu)!\n",
                         (unsigned long long)i, (unsigned long long)OBJECT_COPY_BASIC_TEST_NUM_ATTRS);
                PART_ERROR(H5Ocopy_dtype);
            }

            if (H5Tclose(tmp_dtype_id) < 0) {
                H5_FAILED();
                HDprintf("    failed to close datatype copy\n");
                PART_ERROR(H5Ocopy_dtype);
            }

            PASSED();
        }
        PART_END(H5Ocopy_dtype);

        if (tmp_dtype_id >= 0) {
            H5E_BEGIN_TRY
            {
                H5Tclose(tmp_dtype_id);
            }
            H5E_END_TRY;
            tmp_dtype_id = H5I_INVALID_HID;
        }
    }
    END_MULTIPART;

    TESTING_2("test cleanup");

    if (H5Sclose(attr_space_id) < 0)
        TEST_ERROR;
    if (H5Sclose(space_id) < 0)
        TEST_ERROR;
    if (H5Tclose(dset_dtype) < 0)
        TEST_ERROR;
    if (H5Tclose(dtype_id) < 0)
        TEST_ERROR;
    if (H5Dclose(dset_id) < 0)
        TEST_ERROR;
    if (H5Gclose(group_id2) < 0)
        TEST_ERROR;
    if (H5Gclose(group_id) < 0)
        TEST_ERROR;
    if (H5Gclose(container_group) < 0)
        TEST_ERROR;
    if (H5Fclose(file_id) < 0)
        TEST_ERROR;

    PASSED();

    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Sclose(attr_space_id);
        H5Sclose(space_id);
        H5Aclose(tmp_attr_id);
        H5Tclose(dset_dtype);
        H5Tclose(tmp_dtype_id);
        H5Tclose(dtype_id);
        H5Dclose(tmp_dset_id);
        H5Dclose(dset_id);
        H5Gclose(tmp_group_id);
        H5Gclose(group_id2);
        H5Gclose(group_id);
        H5Gclose(container_group);
        H5Fclose(file_id);
    }
    H5E_END_TRY;

    return 1;
}

/*
 * Tests to ensure that H5Ocopy fails when attempting to copy
 * an object to a destination where the object already exists.
 */
static int
test_object_copy_already_existing(void)
{
    herr_t err_ret;
    hid_t  file_id         = H5I_INVALID_HID;
    hid_t  container_group = H5I_INVALID_HID;
    hid_t  group_id        = H5I_INVALID_HID;
    hid_t  group_id2       = H5I_INVALID_HID;
    hid_t  dset_id         = H5I_INVALID_HID;
    hid_t  dtype_id        = H5I_INVALID_HID;
    hid_t  dset_dtype      = H5I_INVALID_HID;
    hid_t  space_id        = H5I_INVALID_HID;

    TESTING_MULTIPART("object copying to location where objects already exist");

    /* Make sure the connector supports the API functions being tested */
    if (!(vol_cap_flags_g & (H5VL_CAP_FLAG_FILE_BASIC)) || !(vol_cap_flags_g & H5VL_CAP_FLAG_GROUP_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_DATASET_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_OBJECT_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_OBJECT_MORE) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_STORED_DATATYPES)) {
        SKIPPED();
        HDprintf("    API functions for basic file, group, object, dataset, or stored datatype aren't "
                 "supported with this connector\n");
        return 0;
    }

    TESTING_2("test setup");

    if ((file_id = H5Fopen(H5_api_test_filename, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open file '%s'\n", H5_api_test_filename);
        goto error;
    }

    if ((container_group = H5Gopen2(file_id, OBJECT_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open container group '%s'\n", OBJECT_TEST_GROUP_NAME);
        goto error;
    }

    if ((group_id = H5Gcreate2(container_group, OBJECT_COPY_ALREADY_EXISTING_TEST_SUBGROUP_NAME, H5P_DEFAULT,
                               H5P_DEFAULT, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create container subgroup '%s'\n",
                 OBJECT_COPY_ALREADY_EXISTING_TEST_SUBGROUP_NAME);
        goto error;
    }

    if ((space_id =
             generate_random_dataspace(OBJECT_COPY_ALREADY_EXISTING_TEST_SPACE_RANK, NULL, NULL, FALSE)) < 0)
        TEST_ERROR;
    if ((dset_dtype = generate_random_datatype(H5T_NO_CLASS, FALSE)) < 0)
        TEST_ERROR;

    /* Create the test group object */
    if ((group_id2 = H5Gcreate2(group_id, OBJECT_COPY_ALREADY_EXISTING_TEST_GROUP_NAME, H5P_DEFAULT,
                                H5P_DEFAULT, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create group '%s'\n", OBJECT_COPY_ALREADY_EXISTING_TEST_GROUP_NAME);
        goto error;
    }

    /* Create the test dataset object */
    if ((dset_id = H5Dcreate2(group_id, OBJECT_COPY_ALREADY_EXISTING_TEST_DSET_NAME, dset_dtype, space_id,
                              H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create dataset '%s'\n", OBJECT_COPY_ALREADY_EXISTING_TEST_DSET_NAME);
        goto error;
    }

    /* Create the test committed datatype object */
    if ((dtype_id = generate_random_datatype(H5T_NO_CLASS, FALSE)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create datatype\n");
        goto error;
    }

    if (H5Tcommit2(group_id, OBJECT_COPY_ALREADY_EXISTING_TEST_DTYPE_NAME, dtype_id, H5P_DEFAULT, H5P_DEFAULT,
                   H5P_DEFAULT) < 0) {
        H5_FAILED();
        HDprintf("    couldn't commit datatype '%s'\n", OBJECT_COPY_ALREADY_EXISTING_TEST_DTYPE_NAME);
        goto error;
    }

    PASSED();

    BEGIN_MULTIPART
    {
        PART_BEGIN(H5Ocopy_already_existing_group)
        {
            TESTING_2("H5Ocopy group to location where group already exists");

            H5E_BEGIN_TRY
            {
                err_ret = H5Ocopy(group_id, OBJECT_COPY_ALREADY_EXISTING_TEST_GROUP_NAME, group_id,
                                  OBJECT_COPY_ALREADY_EXISTING_TEST_GROUP_NAME, H5P_DEFAULT, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (err_ret >= 0) {
                H5_FAILED();
                HDprintf("    group copy succeeded in location where group already exists!\n");
                PART_ERROR(H5Ocopy_already_existing_group);
            }

            PASSED();
        }
        PART_END(H5Ocopy_already_existing_group);

        PART_BEGIN(H5Ocopy_already_existing_dset)
        {
            TESTING_2("H5Ocopy dataset to location where dataset already exists");

            H5E_BEGIN_TRY
            {
                err_ret = H5Ocopy(group_id, OBJECT_COPY_ALREADY_EXISTING_TEST_DSET_NAME, group_id,
                                  OBJECT_COPY_ALREADY_EXISTING_TEST_DSET_NAME, H5P_DEFAULT, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (err_ret >= 0) {
                H5_FAILED();
                HDprintf("    dataset copy succeeded in location where dataset already exists!\n");
                PART_ERROR(H5Ocopy_already_existing_dset);
            }

            PASSED();
        }
        PART_END(H5Ocopy_already_existing_dset);

        PART_BEGIN(H5Ocopy_already_existing_dtype)
        {
            TESTING_2("H5Ocopy committed datatype to location where committed datatype already exists");

            H5E_BEGIN_TRY
            {
                err_ret = H5Ocopy(group_id, OBJECT_COPY_ALREADY_EXISTING_TEST_DTYPE_NAME, group_id,
                                  OBJECT_COPY_ALREADY_EXISTING_TEST_DTYPE_NAME, H5P_DEFAULT, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (err_ret >= 0) {
                H5_FAILED();
                HDprintf("    committed datatype copy succeeded in location where committed datatype already "
                         "exists!\n");
                PART_ERROR(H5Ocopy_already_existing_dtype);
            }

            PASSED();
        }
        PART_END(H5Ocopy_already_existing_dtype);
    }
    END_MULTIPART;

    TESTING_2("test cleanup");

    if (H5Sclose(space_id) < 0)
        TEST_ERROR;
    if (H5Tclose(dset_dtype) < 0)
        TEST_ERROR;
    if (H5Tclose(dtype_id) < 0)
        TEST_ERROR;
    if (H5Dclose(dset_id) < 0)
        TEST_ERROR;
    if (H5Gclose(group_id2) < 0)
        TEST_ERROR;
    if (H5Gclose(group_id) < 0)
        TEST_ERROR;
    if (H5Gclose(container_group) < 0)
        TEST_ERROR;
    if (H5Fclose(file_id) < 0)
        TEST_ERROR;

    PASSED();

    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Sclose(space_id);
        H5Tclose(dset_dtype);
        H5Tclose(dtype_id);
        H5Dclose(dset_id);
        H5Gclose(group_id2);
        H5Gclose(group_id);
        H5Gclose(container_group);
        H5Fclose(file_id);
    }
    H5E_END_TRY;

    return 1;
}

/*
 * A test to exercise the H5O_COPY_SHALLOW_HIERARCHY_FLAG flag
 * for H5Ocopy.
 */
static int
test_object_copy_shallow_group_copy(void)
{
    H5G_info_t group_info;
    htri_t     object_link_exists;
    size_t     i;
    hid_t      file_id         = H5I_INVALID_HID;
    hid_t      container_group = H5I_INVALID_HID;
    hid_t      group_id        = H5I_INVALID_HID;
    hid_t      group_id2       = H5I_INVALID_HID;
    hid_t      tmp_group_id    = H5I_INVALID_HID;
    hid_t      ocpypl_id       = H5I_INVALID_HID;

    TESTING("object copying with H5O_COPY_SHALLOW_HIERARCHY_FLAG flag");

    /* Make sure the connector supports the API functions being tested */
    if (!(vol_cap_flags_g & (H5VL_CAP_FLAG_FILE_BASIC)) || !(vol_cap_flags_g & H5VL_CAP_FLAG_GROUP_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_GROUP_MORE) || !(vol_cap_flags_g & H5VL_CAP_FLAG_OBJECT_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_LINK_BASIC)) {
        SKIPPED();
        HDprintf("    API functions for basic file, group, object, or link aren't supported with this "
                 "connector\n");
        return 0;
    }

    if ((file_id = H5Fopen(H5_api_test_filename, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open file '%s'\n", H5_api_test_filename);
        goto error;
    }

    if ((container_group = H5Gopen2(file_id, OBJECT_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open container group '%s'\n", OBJECT_TEST_GROUP_NAME);
        goto error;
    }

    if ((group_id = H5Gcreate2(container_group, OBJECT_COPY_SHALLOW_TEST_SUBGROUP_NAME, H5P_DEFAULT,
                               H5P_DEFAULT, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create container subgroup '%s'\n", OBJECT_COPY_SHALLOW_TEST_SUBGROUP_NAME);
        goto error;
    }

    /* Create the test group object, along with its nested members. */
    if ((group_id2 = H5Gcreate2(group_id, OBJECT_COPY_SHALLOW_TEST_GROUP_NAME, H5P_DEFAULT, H5P_DEFAULT,
                                H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create group '%s'\n", OBJECT_COPY_SHALLOW_TEST_GROUP_NAME);
        goto error;
    }

    for (i = 0; i < (size_t)OBJECT_COPY_SHALLOW_TEST_NUM_NESTED_OBJS; i++) {
        char grp_name[OBJECT_COPY_SHALLOW_TEST_BUF_SIZE];

        snprintf(grp_name, OBJECT_COPY_SHALLOW_TEST_BUF_SIZE, "grp%d", (int)i);

        if ((tmp_group_id = H5Gcreate2(group_id2, grp_name, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
            H5_FAILED();
            HDprintf("    couldn't create group '%s' under group '%s'\n", grp_name,
                     OBJECT_COPY_SHALLOW_TEST_GROUP_NAME);
            goto error;
        }

        /* Create a further nested group under the last group added */
        if (i == (OBJECT_COPY_SHALLOW_TEST_NUM_NESTED_OBJS - 1)) {
            if (H5Gclose(H5Gcreate2(tmp_group_id, OBJECT_COPY_SHALLOW_TEST_DEEP_NESTED_GROUP_NAME,
                                    H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't create nested group '%s' under group '%s'\n",
                         OBJECT_COPY_SHALLOW_TEST_DEEP_NESTED_GROUP_NAME, grp_name);
                goto error;
            }
        }

        if (H5Gclose(tmp_group_id) < 0) {
            H5_FAILED();
            HDprintf("    couldn't close group '%s'\n", grp_name);
            goto error;
        }
    }

    if ((ocpypl_id = H5Pcreate(H5P_OBJECT_COPY)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create OCopyPL\n");
        goto error;
    }

    if (H5Pset_copy_object(ocpypl_id, H5O_COPY_SHALLOW_HIERARCHY_FLAG) < 0) {
        H5_FAILED();
        HDprintf("    couldn't set object copying options\n");
        goto error;
    }

    if (H5Ocopy(group_id, OBJECT_COPY_SHALLOW_TEST_GROUP_NAME, group_id,
                OBJECT_COPY_SHALLOW_TEST_NEW_GROUP_NAME, ocpypl_id, H5P_DEFAULT) < 0) {
        H5_FAILED();
        HDprintf("    failed to copy group '%s' to '%s'\n", OBJECT_COPY_SHALLOW_TEST_GROUP_NAME,
                 OBJECT_COPY_SHALLOW_TEST_NEW_GROUP_NAME);
        goto error;
    }

    if ((object_link_exists = H5Lexists(group_id, OBJECT_COPY_SHALLOW_TEST_NEW_GROUP_NAME, H5P_DEFAULT)) <
        0) {
        H5_FAILED();
        HDprintf("    couldn't determine if link '%s' to copied group exists\n",
                 OBJECT_COPY_SHALLOW_TEST_NEW_GROUP_NAME);
        goto error;
    }

    if (!object_link_exists) {
        H5_FAILED();
        HDprintf("    link '%s' to copied group didn't exist!\n", OBJECT_COPY_SHALLOW_TEST_NEW_GROUP_NAME);
        goto error;
    }

    /*
     * Ensure that the new group has only the immediate members of the copied group.
     */
    if ((tmp_group_id = H5Gopen2(group_id, OBJECT_COPY_SHALLOW_TEST_NEW_GROUP_NAME, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    failed to open group copy '%s'\n", OBJECT_COPY_SHALLOW_TEST_NEW_GROUP_NAME);
        goto error;
    }

    memset(&group_info, 0, sizeof(group_info));

    /*
     * Set link count to zero in case the connector doesn't support
     * retrieval of group info.
     */
    group_info.nlinks = 0;

    if (H5Gget_info(tmp_group_id, &group_info) < 0) {
        H5_FAILED();
        HDprintf("    failed to retrieve group info\n");
        goto error;
    }

    if (group_info.nlinks != OBJECT_COPY_SHALLOW_TEST_NUM_NESTED_OBJS) {
        H5_FAILED();
        HDprintf("    copied group contained %d members instead of %d members after a shallow copy!\n",
                 (int)group_info.nlinks, OBJECT_COPY_SHALLOW_TEST_NUM_NESTED_OBJS);
        goto error;
    }

    if (H5Gclose(tmp_group_id) < 0)
        TEST_ERROR;

    /*
     * Ensure that the last immediate member of the copied group doesn't
     * contain any members after the shallow copy.
     */
    {
        char grp_name[OBJECT_COPY_SHALLOW_TEST_BUF_SIZE];

        snprintf(grp_name, OBJECT_COPY_SHALLOW_TEST_BUF_SIZE,
                 OBJECT_COPY_SHALLOW_TEST_NEW_GROUP_NAME "/grp%d",
                 OBJECT_COPY_SHALLOW_TEST_NUM_NESTED_OBJS - 1);

        if ((tmp_group_id = H5Gopen2(group_id, grp_name, H5P_DEFAULT)) < 0) {
            H5_FAILED();
            HDprintf("    failed to open group '%s'\n", grp_name);
            goto error;
        }

        memset(&group_info, 0, sizeof(group_info));

        /*
         * Set link count to non-zero in case the connector doesn't support
         * retrieval of group info.
         */
        group_info.nlinks = 1;

        if (H5Gget_info(tmp_group_id, &group_info) < 0) {
            H5_FAILED();
            HDprintf("    failed to retrieve group info\n");
            goto error;
        }

        if (group_info.nlinks != 0) {
            H5_FAILED();
            HDprintf("    copied group's immediate members contained nested members after a shallow copy!\n");
            goto error;
        }

        if (H5Gclose(tmp_group_id) < 0) {
            H5_FAILED();
            HDprintf("    failed to close group '%s'\n", grp_name);
            goto error;
        }
    }

    if (H5Pclose(ocpypl_id) < 0)
        TEST_ERROR;
    if (H5Gclose(group_id2) < 0)
        TEST_ERROR;
    if (H5Gclose(group_id) < 0)
        TEST_ERROR;
    if (H5Gclose(container_group) < 0)
        TEST_ERROR;
    if (H5Fclose(file_id) < 0)
        TEST_ERROR;

    PASSED();

    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Pclose(ocpypl_id);
        H5Gclose(tmp_group_id);
        H5Gclose(group_id2);
        H5Gclose(group_id);
        H5Gclose(container_group);
        H5Fclose(file_id);
    }
    H5E_END_TRY;

    return 1;
}

/*
 * Tests to exercise the H5O_COPY_WITHOUT_ATTR_FLAG flag
 * of H5Ocopy.
 */
static int
test_object_copy_no_attributes(void)
{
    H5O_info2_t object_info;
    htri_t      object_link_exists;
    size_t      i;
    hid_t       file_id         = H5I_INVALID_HID;
    hid_t       container_group = H5I_INVALID_HID;
    hid_t       group_id        = H5I_INVALID_HID;
    hid_t       group_id2       = H5I_INVALID_HID;
    hid_t       tmp_group_id    = H5I_INVALID_HID;
    hid_t       dset_id         = H5I_INVALID_HID;
    hid_t       tmp_dset_id     = H5I_INVALID_HID;
    hid_t       dset_dtype      = H5I_INVALID_HID;
    hid_t       dtype_id        = H5I_INVALID_HID;
    hid_t       tmp_dtype_id    = H5I_INVALID_HID;
    hid_t       attr_id         = H5I_INVALID_HID;
    hid_t       attr_space_id   = H5I_INVALID_HID;
    hid_t       space_id        = H5I_INVALID_HID;
    hid_t       ocpypl_id       = H5I_INVALID_HID;

    TESTING_MULTIPART("object copying with H5O_COPY_WITHOUT_ATTR_FLAG flag");

    /* Make sure the connector supports the API functions being tested */
    if (!(vol_cap_flags_g & (H5VL_CAP_FLAG_FILE_BASIC)) || !(vol_cap_flags_g & H5VL_CAP_FLAG_GROUP_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_DATASET_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_OBJECT_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_OBJECT_MORE) || !(vol_cap_flags_g & H5VL_CAP_FLAG_LINK_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_ATTR_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_STORED_DATATYPES)) {
        SKIPPED();
        HDprintf("    API functions for basic file, group, object, link, dataset, attribute, or stored "
                 "datatype aren't supported with this connector\n");
        return 0;
    }

    TESTING_2("test setup");

    if ((file_id = H5Fopen(H5_api_test_filename, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open file '%s'\n", H5_api_test_filename);
        goto error;
    }

    if ((container_group = H5Gopen2(file_id, OBJECT_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open container group '%s'\n", OBJECT_TEST_GROUP_NAME);
        goto error;
    }

    if ((group_id = H5Gcreate2(container_group, OBJECT_COPY_NO_ATTRS_TEST_SUBGROUP_NAME, H5P_DEFAULT,
                               H5P_DEFAULT, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create container subgroup '%s'\n", OBJECT_COPY_NO_ATTRS_TEST_SUBGROUP_NAME);
        goto error;
    }

    if ((space_id = generate_random_dataspace(OBJECT_COPY_NO_ATTRS_TEST_SPACE_RANK, NULL, NULL, FALSE)) < 0)
        TEST_ERROR;
    if ((attr_space_id = generate_random_dataspace(OBJECT_COPY_NO_ATTRS_TEST_SPACE_RANK, NULL, NULL, TRUE)) <
        0)
        TEST_ERROR;

    if ((dset_dtype = generate_random_datatype(H5T_NO_CLASS, FALSE)) < 0)
        TEST_ERROR;

    /* Create the test group object, along with the attributes attached to it. */
    if ((group_id2 = H5Gcreate2(group_id, OBJECT_COPY_NO_ATTRS_TEST_GROUP_NAME, H5P_DEFAULT, H5P_DEFAULT,
                                H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create group '%s'\n", OBJECT_COPY_NO_ATTRS_TEST_GROUP_NAME);
        goto error;
    }

    for (i = 0; i < (size_t)OBJECT_COPY_NO_ATTRS_TEST_NUM_ATTRS; i++) {
        char attr_name[OBJECT_COPY_NO_ATTRS_TEST_BUF_SIZE];

        snprintf(attr_name, OBJECT_COPY_NO_ATTRS_TEST_BUF_SIZE, "attr%d", (int)i);

        if ((attr_id = H5Acreate2(group_id2, attr_name, H5T_NATIVE_INT, attr_space_id, H5P_DEFAULT,
                                  H5P_DEFAULT)) < 0) {
            H5_FAILED();
            HDprintf("    couldn't create attribute '%s' on group '%s'\n", attr_name,
                     OBJECT_COPY_NO_ATTRS_TEST_GROUP_NAME);
            goto error;
        }

        if (H5Aclose(attr_id) < 0) {
            H5_FAILED();
            HDprintf("    couldn't close attribute '%s'\n", attr_name);
            goto error;
        }
    }

    /* Create the test dataset object, along with the attributes attached to it. */
    if ((dset_id = H5Dcreate2(group_id, OBJECT_COPY_NO_ATTRS_TEST_DSET_NAME, dset_dtype, space_id,
                              H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create dataset '%s'\n", OBJECT_COPY_NO_ATTRS_TEST_DSET_NAME);
        goto error;
    }

    for (i = 0; i < (size_t)OBJECT_COPY_NO_ATTRS_TEST_NUM_ATTRS; i++) {
        char attr_name[OBJECT_COPY_NO_ATTRS_TEST_BUF_SIZE];

        snprintf(attr_name, OBJECT_COPY_NO_ATTRS_TEST_BUF_SIZE, "attr%d", (int)i);

        if ((attr_id = H5Acreate2(dset_id, attr_name, H5T_NATIVE_INT, attr_space_id, H5P_DEFAULT,
                                  H5P_DEFAULT)) < 0) {
            H5_FAILED();
            HDprintf("    couldn't create attribute '%s' on dataset '%s'\n", attr_name,
                     OBJECT_COPY_NO_ATTRS_TEST_DSET_NAME);
            goto error;
        }

        if (H5Aclose(attr_id) < 0) {
            H5_FAILED();
            HDprintf("    couldn't close attribute '%s'\n", attr_name);
            goto error;
        }
    }

    /* Create the test committed datatype object, along with the attributes attached to it. */
    if ((dtype_id = generate_random_datatype(H5T_NO_CLASS, FALSE)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create datatype\n");
        goto error;
    }

    if (H5Tcommit2(group_id, OBJECT_COPY_NO_ATTRS_TEST_DTYPE_NAME, dtype_id, H5P_DEFAULT, H5P_DEFAULT,
                   H5P_DEFAULT) < 0) {
        H5_FAILED();
        HDprintf("    couldn't commit datatype '%s'\n", OBJECT_COPY_NO_ATTRS_TEST_DTYPE_NAME);
        goto error;
    }

    for (i = 0; i < (size_t)OBJECT_COPY_NO_ATTRS_TEST_NUM_ATTRS; i++) {
        char attr_name[OBJECT_COPY_NO_ATTRS_TEST_BUF_SIZE];

        snprintf(attr_name, OBJECT_COPY_NO_ATTRS_TEST_BUF_SIZE, "attr%d", (int)i);

        if ((attr_id = H5Acreate2(dtype_id, attr_name, H5T_NATIVE_INT, attr_space_id, H5P_DEFAULT,
                                  H5P_DEFAULT)) < 0) {
            H5_FAILED();
            HDprintf("    couldn't create attribute '%s' on committed datatype '%s'\n", attr_name,
                     OBJECT_COPY_NO_ATTRS_TEST_DTYPE_NAME);
            goto error;
        }

        if (H5Aclose(attr_id) < 0) {
            H5_FAILED();
            HDprintf("    couldn't close attribute '%s'\n", attr_name);
            goto error;
        }
    }

    PASSED();

    BEGIN_MULTIPART
    {
        PART_BEGIN(H5Ocopy_group_no_attributes)
        {
            TESTING_2("H5Ocopy on a group (without attributes)");

            if ((ocpypl_id = H5Pcreate(H5P_OBJECT_COPY)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't create OCopyPL\n");
                PART_ERROR(H5Ocopy_group_no_attributes);
            }

            if (H5Pset_copy_object(ocpypl_id, H5O_COPY_WITHOUT_ATTR_FLAG) < 0) {
                H5_FAILED();
                HDprintf("    couldn't set object copying options\n");
                PART_ERROR(H5Ocopy_group_no_attributes);
            }

            if (H5Ocopy(group_id, OBJECT_COPY_NO_ATTRS_TEST_GROUP_NAME, group_id,
                        OBJECT_COPY_NO_ATTRS_TEST_NEW_GROUP_NAME, ocpypl_id, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    failed to copy group '%s' to '%s'\n", OBJECT_COPY_NO_ATTRS_TEST_GROUP_NAME,
                         OBJECT_COPY_NO_ATTRS_TEST_NEW_GROUP_NAME);
                PART_ERROR(H5Ocopy_group_no_attributes);
            }

            if ((object_link_exists =
                     H5Lexists(group_id, OBJECT_COPY_NO_ATTRS_TEST_NEW_GROUP_NAME, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't determine if link '%s' to copied group exists\n",
                         OBJECT_COPY_NO_ATTRS_TEST_NEW_GROUP_NAME);
                PART_ERROR(H5Ocopy_group_no_attributes);
            }

            if (!object_link_exists) {
                H5_FAILED();
                HDprintf("    link '%s' to copied group didn't exist!\n",
                         OBJECT_COPY_NO_ATTRS_TEST_NEW_GROUP_NAME);
                PART_ERROR(H5Ocopy_group_no_attributes);
            }

            /* Ensure that the new group has no attributes */
            if ((tmp_group_id = H5Gopen2(group_id, OBJECT_COPY_NO_ATTRS_TEST_NEW_GROUP_NAME, H5P_DEFAULT)) <
                0) {
                H5_FAILED();
                HDprintf("    failed to open group copy '%s'\n", OBJECT_COPY_NO_ATTRS_TEST_NEW_GROUP_NAME);
                PART_ERROR(H5Ocopy_group_no_attributes);
            }

            memset(&object_info, 0, sizeof(object_info));

            /*
             * Set attribute count to non-zero in case the connector doesn't
             * support retrieval of object info.
             */
            object_info.num_attrs = 1;

            if (H5Oget_info3(tmp_group_id, &object_info, H5O_INFO_ALL) < 0) {
                H5_FAILED();
                HDprintf("    failed to retrieve object info\n");
                PART_ERROR(H5Ocopy_group_no_attributes);
            }

            if (object_info.num_attrs != 0) {
                H5_FAILED();
                HDprintf("    copied group contained attributes after a non-attribute copy!\n");
                PART_ERROR(H5Ocopy_group_no_attributes);
            }

            if (H5Pclose(ocpypl_id) < 0) {
                H5_FAILED();
                HDprintf("    failed to close OCopyPL\n");
                PART_ERROR(H5Ocopy_group_no_attributes);
            }

            if (H5Gclose(tmp_group_id) < 0) {
                H5_FAILED();
                HDprintf("    failed to close group copy\n");
                PART_ERROR(H5Ocopy_group_no_attributes);
            }

            PASSED();
        }
        PART_END(H5Ocopy_group_no_attributes);

        if (ocpypl_id >= 0) {
            H5E_BEGIN_TRY
            {
                H5Pclose(ocpypl_id);
            }
            H5E_END_TRY;
            ocpypl_id = H5I_INVALID_HID;
        }
        if (tmp_group_id >= 0) {
            H5E_BEGIN_TRY
            {
                H5Gclose(tmp_group_id);
            }
            H5E_END_TRY;
            tmp_group_id = H5I_INVALID_HID;
        }

        PART_BEGIN(H5Ocopy_dset_no_attributes)
        {
            TESTING_2("H5Ocopy on a dataset (without attributes)");

            if ((ocpypl_id = H5Pcreate(H5P_OBJECT_COPY)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't create OCopyPL\n");
                PART_ERROR(H5Ocopy_dset_no_attributes);
            }

            if (H5Pset_copy_object(ocpypl_id, H5O_COPY_WITHOUT_ATTR_FLAG) < 0) {
                H5_FAILED();
                HDprintf("    couldn't set object copying options\n");
                PART_ERROR(H5Ocopy_dset_no_attributes);
            }

            if (H5Ocopy(group_id, OBJECT_COPY_NO_ATTRS_TEST_DSET_NAME, group_id,
                        OBJECT_COPY_NO_ATTRS_TEST_NEW_DSET_NAME, ocpypl_id, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    failed to copy dataset '%s' to '%s'\n", OBJECT_COPY_NO_ATTRS_TEST_DSET_NAME,
                         OBJECT_COPY_NO_ATTRS_TEST_NEW_DSET_NAME);
                PART_ERROR(H5Ocopy_dset_no_attributes);
            }

            if ((object_link_exists =
                     H5Lexists(group_id, OBJECT_COPY_NO_ATTRS_TEST_NEW_DSET_NAME, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't determine if link '%s' to copied dataset exists\n",
                         OBJECT_COPY_NO_ATTRS_TEST_NEW_DSET_NAME);
                PART_ERROR(H5Ocopy_dset_no_attributes);
            }

            if (!object_link_exists) {
                H5_FAILED();
                HDprintf("    link '%s' to copied dataset didn't exist!\n",
                         OBJECT_COPY_NO_ATTRS_TEST_NEW_DSET_NAME);
                PART_ERROR(H5Ocopy_dset_no_attributes);
            }

            /* Ensure that the new dataset doesn't have any attributes */
            if ((tmp_dset_id = H5Dopen2(group_id, OBJECT_COPY_NO_ATTRS_TEST_NEW_DSET_NAME, H5P_DEFAULT)) <
                0) {
                H5_FAILED();
                HDprintf("    failed to open dataset copy '%s'\n", OBJECT_COPY_NO_ATTRS_TEST_NEW_DSET_NAME);
                PART_ERROR(H5Ocopy_dset_no_attributes);
            }

            memset(&object_info, 0, sizeof(object_info));

            /*
             * Set attribute count to non-zero in case the connector doesn't
             * support retrieval of object info.
             */
            object_info.num_attrs = 1;

            if (H5Oget_info3(tmp_dset_id, &object_info, H5O_INFO_ALL) < 0) {
                H5_FAILED();
                HDprintf("    failed to retrieve object info\n");
                PART_ERROR(H5Ocopy_dset_no_attributes);
            }

            if (object_info.num_attrs != 0) {
                H5_FAILED();
                HDprintf("    copied dataset contained attributes after a non-attribute copy!\n");
                PART_ERROR(H5Ocopy_dset_no_attributes);
            }

            if (H5Pclose(ocpypl_id) < 0) {
                H5_FAILED();
                HDprintf("    failed to close OCopyPL\n");
                PART_ERROR(H5Ocopy_dset_no_attributes);
            }

            if (H5Dclose(tmp_dset_id) < 0) {
                H5_FAILED();
                HDprintf("    failed to close dataset copy\n");
                PART_ERROR(H5Ocopy_dset_no_attributes);
            }

            PASSED();
        }
        PART_END(H5Ocopy_dset_no_attributes);

        if (ocpypl_id >= 0) {
            H5E_BEGIN_TRY
            {
                H5Pclose(ocpypl_id);
            }
            H5E_END_TRY;
            ocpypl_id = H5I_INVALID_HID;
        }
        if (tmp_dset_id >= 0) {
            H5E_BEGIN_TRY
            {
                H5Dclose(tmp_dset_id);
            }
            H5E_END_TRY;
            tmp_dset_id = H5I_INVALID_HID;
        }

        PART_BEGIN(H5Ocopy_dtype_no_attributes)
        {
            TESTING_2("H5Ocopy on a committed datatype (without attributes)");

            if ((ocpypl_id = H5Pcreate(H5P_OBJECT_COPY)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't create OCopyPL\n");
                PART_ERROR(H5Ocopy_dtype_no_attributes);
            }

            if (H5Pset_copy_object(ocpypl_id, H5O_COPY_WITHOUT_ATTR_FLAG) < 0) {
                H5_FAILED();
                HDprintf("    couldn't set object copying options\n");
                PART_ERROR(H5Ocopy_dtype_no_attributes);
            }

            if (H5Ocopy(group_id, OBJECT_COPY_NO_ATTRS_TEST_DTYPE_NAME, group_id,
                        OBJECT_COPY_NO_ATTRS_TEST_NEW_DTYPE_NAME, ocpypl_id, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    failed to copy datatype '%s' to '%s'\n", OBJECT_COPY_NO_ATTRS_TEST_DTYPE_NAME,
                         OBJECT_COPY_NO_ATTRS_TEST_NEW_DTYPE_NAME);
                PART_ERROR(H5Ocopy_dtype_no_attributes);
            }

            if ((object_link_exists =
                     H5Lexists(group_id, OBJECT_COPY_NO_ATTRS_TEST_NEW_DTYPE_NAME, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't determine if link '%s' to copied datatype exists\n",
                         OBJECT_COPY_NO_ATTRS_TEST_NEW_DTYPE_NAME);
                PART_ERROR(H5Ocopy_dtype_no_attributes);
            }

            if (!object_link_exists) {
                H5_FAILED();
                HDprintf("    link '%s' to copied datatype didn't exist!\n",
                         OBJECT_COPY_NO_ATTRS_TEST_NEW_DTYPE_NAME);
                PART_ERROR(H5Ocopy_dtype_no_attributes);
            }

            /* Ensure that the new committed datatype doesn't have any attributes */
            if ((tmp_dtype_id = H5Topen2(group_id, OBJECT_COPY_NO_ATTRS_TEST_NEW_DTYPE_NAME, H5P_DEFAULT)) <
                0) {
                H5_FAILED();
                HDprintf("    failed to open dataset copy '%s'\n", OBJECT_COPY_NO_ATTRS_TEST_NEW_DTYPE_NAME);
                PART_ERROR(H5Ocopy_dtype_no_attributes);
            }

            memset(&object_info, 0, sizeof(object_info));

            /*
             * Set attribute count to non-zero in case the connector doesn't
             * support retrieval of object info.
             */
            object_info.num_attrs = 1;

            if (H5Oget_info3(tmp_dtype_id, &object_info, H5O_INFO_ALL) < 0) {
                H5_FAILED();
                HDprintf("    failed to retrieve object info\n");
                PART_ERROR(H5Ocopy_dtype_no_attributes);
            }

            if (object_info.num_attrs != 0) {
                H5_FAILED();
                HDprintf("    copied committed datatype contained attributes after a non-attribute copy!\n");
                PART_ERROR(H5Ocopy_dtype_no_attributes);
            }

            if (H5Pclose(ocpypl_id) < 0) {
                H5_FAILED();
                HDprintf("    failed to close OCopyPL\n");
                PART_ERROR(H5Ocopy_dtype_no_attributes);
            }

            if (H5Tclose(tmp_dtype_id) < 0) {
                H5_FAILED();
                HDprintf("    failed to close datatype copy\n");
                PART_ERROR(H5Ocopy_dtype_no_attributes);
            }

            PASSED();
        }
        PART_END(H5Ocopy_dtype_no_attributes);

        if (ocpypl_id >= 0) {
            H5E_BEGIN_TRY
            {
                H5Pclose(ocpypl_id);
            }
            H5E_END_TRY;
            ocpypl_id = H5I_INVALID_HID;
        }
        if (tmp_dtype_id >= 0) {
            H5E_BEGIN_TRY
            {
                H5Tclose(tmp_dtype_id);
            }
            H5E_END_TRY;
            tmp_dtype_id = H5I_INVALID_HID;
        }
    }
    END_MULTIPART;

    TESTING_2("test cleanup");

    if (H5Sclose(attr_space_id) < 0)
        TEST_ERROR;
    if (H5Sclose(space_id) < 0)
        TEST_ERROR;
    if (H5Tclose(dset_dtype) < 0)
        TEST_ERROR;
    if (H5Tclose(dtype_id) < 0)
        TEST_ERROR;
    if (H5Dclose(dset_id) < 0)
        TEST_ERROR;
    if (H5Gclose(group_id2) < 0)
        TEST_ERROR;
    if (H5Gclose(group_id) < 0)
        TEST_ERROR;
    if (H5Gclose(container_group) < 0)
        TEST_ERROR;
    if (H5Fclose(file_id) < 0)
        TEST_ERROR;

    PASSED();

    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Pclose(ocpypl_id);
        H5Sclose(attr_space_id);
        H5Sclose(space_id);
        H5Aclose(attr_id);
        H5Tclose(dset_dtype);
        H5Tclose(tmp_dtype_id);
        H5Tclose(dtype_id);
        H5Dclose(tmp_dset_id);
        H5Dclose(dset_id);
        H5Gclose(tmp_group_id);
        H5Gclose(group_id2);
        H5Gclose(group_id);
        H5Gclose(container_group);
        H5Fclose(file_id);
    }
    H5E_END_TRY;

    return 1;
}

/*
 * Tests to exercise the behavior of H5Ocopy when the source
 * object specified is a soft link or dangling soft link.
 */
static int
test_object_copy_by_soft_link(void)
{
    H5O_info2_t object_info;
    H5G_info_t  group_info;
    H5L_info2_t link_info;
    htri_t      object_link_exists;
    size_t      i;
    hid_t       file_id         = H5I_INVALID_HID;
    hid_t       container_group = H5I_INVALID_HID;
    hid_t       group_id        = H5I_INVALID_HID;
    hid_t       group_id2       = H5I_INVALID_HID;
    hid_t       tmp_group_id    = H5I_INVALID_HID;
    hid_t       attr_id         = H5I_INVALID_HID;
    hid_t       attr_space_id   = H5I_INVALID_HID;

    TESTING_MULTIPART("object copying through use of soft links");

    /* Make sure the connector supports the API functions being tested */
    if (!(vol_cap_flags_g & (H5VL_CAP_FLAG_FILE_BASIC)) || !(vol_cap_flags_g & H5VL_CAP_FLAG_GROUP_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_OBJECT_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_OBJECT_MORE) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_LINK_MORE) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_ATTR_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_ITERATE) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_SOFT_LINKS)) {
        SKIPPED();
        HDprintf("    API functions for basic file, group, object, link, dataset, attribute, iterate, or "
                 "soft link aren't supported with this connector\n");
        return 0;
    }

    TESTING_2("test setup");

    if ((file_id = H5Fopen(H5_api_test_filename, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open file '%s'\n", H5_api_test_filename);
        goto error;
    }

    if ((container_group = H5Gopen2(file_id, OBJECT_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open container group '%s'\n", OBJECT_TEST_GROUP_NAME);
        goto error;
    }

    if ((group_id = H5Gcreate2(container_group, OBJECT_COPY_SOFT_LINK_TEST_SUBGROUP_NAME, H5P_DEFAULT,
                               H5P_DEFAULT, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create container subgroup '%s'\n", OBJECT_COPY_SOFT_LINK_TEST_SUBGROUP_NAME);
        goto error;
    }

    if ((attr_space_id = generate_random_dataspace(OBJECT_COPY_SOFT_LINK_TEST_SPACE_RANK, NULL, NULL, TRUE)) <
        0)
        TEST_ERROR;

    /* Create the test group object, along with its nested members and the attributes attached to it. */
    if ((group_id2 = H5Gcreate2(group_id, OBJECT_COPY_SOFT_LINK_TEST_GROUP_NAME, H5P_DEFAULT, H5P_DEFAULT,
                                H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create group '%s'\n", OBJECT_COPY_SOFT_LINK_TEST_GROUP_NAME);
        goto error;
    }

    for (i = 0; i < (size_t)OBJECT_COPY_SOFT_LINK_TEST_NUM_NESTED_OBJS; i++) {
        char grp_name[OBJECT_COPY_SOFT_LINK_TEST_BUF_SIZE];

        snprintf(grp_name, OBJECT_COPY_SOFT_LINK_TEST_BUF_SIZE, "grp%d", (int)i);

        if ((tmp_group_id = H5Gcreate2(group_id2, grp_name, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
            H5_FAILED();
            HDprintf("    couldn't create group '%s' under group '%s'\n", grp_name,
                     OBJECT_COPY_SOFT_LINK_TEST_GROUP_NAME);
            goto error;
        }

        /* Create a further nested group under the last group added */
        if (i == (OBJECT_COPY_SOFT_LINK_TEST_NUM_NESTED_OBJS - 1)) {
            if (H5Gclose(H5Gcreate2(tmp_group_id, OBJECT_COPY_SOFT_LINK_TEST_DEEP_NESTED_GROUP_NAME,
                                    H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't create nested group '%s' under group '%s'\n",
                         OBJECT_COPY_SOFT_LINK_TEST_DEEP_NESTED_GROUP_NAME, grp_name);
                goto error;
            }
        }

        if (H5Gclose(tmp_group_id) < 0) {
            H5_FAILED();
            HDprintf("    couldn't close group '%s'\n", grp_name);
            goto error;
        }
    }

    for (i = 0; i < (size_t)OBJECT_COPY_SOFT_LINK_TEST_NUM_ATTRS; i++) {
        char attr_name[OBJECT_COPY_SOFT_LINK_TEST_BUF_SIZE];

        snprintf(attr_name, OBJECT_COPY_SOFT_LINK_TEST_BUF_SIZE, "attr%d", (int)i);

        if ((attr_id = H5Acreate2(group_id2, attr_name, H5T_NATIVE_INT, attr_space_id, H5P_DEFAULT,
                                  H5P_DEFAULT)) < 0) {
            H5_FAILED();
            HDprintf("    couldn't create attribute '%s' on group '%s'\n", attr_name,
                     OBJECT_COPY_SOFT_LINK_TEST_GROUP_NAME);
            goto error;
        }

        if (H5Aclose(attr_id) < 0) {
            H5_FAILED();
            HDprintf("    couldn't close attribute '%s'\n", attr_name);
            goto error;
        }
    }

    PASSED();

    BEGIN_MULTIPART
    {
        PART_BEGIN(H5Ocopy_through_soft_link)
        {
            TESTING_2("H5Ocopy through use of a soft link");

            if (H5Lcreate_soft("/" OBJECT_TEST_GROUP_NAME "/" OBJECT_COPY_SOFT_LINK_TEST_SUBGROUP_NAME
                               "/" OBJECT_COPY_SOFT_LINK_TEST_GROUP_NAME,
                               group_id, OBJECT_COPY_SOFT_LINK_TEST_SOFT_LINK_NAME, H5P_DEFAULT,
                               H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    failed to create soft link '%s' to group for copying\n",
                         OBJECT_COPY_SOFT_LINK_TEST_SOFT_LINK_NAME);
                PART_ERROR(H5Ocopy_through_soft_link);
            }

            if (H5Ocopy(group_id, OBJECT_COPY_SOFT_LINK_TEST_SOFT_LINK_NAME, group_id,
                        OBJECT_COPY_SOFT_LINK_TEST_NEW_GROUP_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    failed to copy group '%s' to '%s'\n", OBJECT_COPY_SOFT_LINK_TEST_GROUP_NAME,
                         OBJECT_COPY_SOFT_LINK_TEST_NEW_GROUP_NAME);
                PART_ERROR(H5Ocopy_through_soft_link);
            }

            if ((object_link_exists =
                     H5Lexists(group_id, OBJECT_COPY_SOFT_LINK_TEST_NEW_GROUP_NAME, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't determine if link '%s' to copied group exists\n",
                         OBJECT_COPY_SOFT_LINK_TEST_NEW_GROUP_NAME);
                PART_ERROR(H5Ocopy_through_soft_link);
            }

            if (!object_link_exists) {
                H5_FAILED();
                HDprintf("    link '%s' to copied group didn't exist!\n",
                         OBJECT_COPY_SOFT_LINK_TEST_NEW_GROUP_NAME);
                PART_ERROR(H5Ocopy_through_soft_link);
            }

            /* Make sure the new object is an actual group and not another soft link */
            memset(&link_info, 0, sizeof(link_info));
            if (H5Lget_info2(group_id, OBJECT_COPY_SOFT_LINK_TEST_NEW_GROUP_NAME, &link_info, H5P_DEFAULT) <
                0) {
                H5_FAILED();
                HDprintf("    failed to retrieve info for link '%s'\n",
                         OBJECT_COPY_SOFT_LINK_TEST_NEW_GROUP_NAME);
                PART_ERROR(H5Ocopy_through_soft_link);
            }

            if (link_info.type != H5L_TYPE_HARD) {
                H5_FAILED();
                HDprintf(
                    "    after group copy through soft link, group's new link type wasn't H5L_TYPE_HARD!\n");
                PART_ERROR(H5Ocopy_through_soft_link);
            }

            /*
             * Ensure that the new group doesn't have any attributes and only the
             * immediate members of the copied group.
             */
            if ((tmp_group_id = H5Gopen2(group_id, OBJECT_COPY_SOFT_LINK_TEST_NEW_GROUP_NAME, H5P_DEFAULT)) <
                0) {
                H5_FAILED();
                HDprintf("    failed to open group copy '%s'\n", OBJECT_COPY_SOFT_LINK_TEST_NEW_GROUP_NAME);
                PART_ERROR(H5Ocopy_through_soft_link);
            }

            memset(&group_info, 0, sizeof(group_info));

            /*
             * Set link count to zero in case the connector doesn't support
             * retrieval of group info.
             */
            group_info.nlinks = 0;

            if (H5Gget_info(tmp_group_id, &group_info) < 0) {
                H5_FAILED();
                HDprintf("    failed to retrieve group info\n");
                PART_ERROR(H5Ocopy_through_soft_link);
            }

            if (group_info.nlinks != OBJECT_COPY_SOFT_LINK_TEST_NUM_NESTED_OBJS) {
                H5_FAILED();
                HDprintf(
                    "    copied group contained %d members instead of %d members after a shallow copy!\n",
                    (int)group_info.nlinks, OBJECT_COPY_SOFT_LINK_TEST_NUM_NESTED_OBJS);
                PART_ERROR(H5Ocopy_through_soft_link);
            }

            memset(&object_info, 0, sizeof(object_info));

            /*
             * Set attribute count to zero in case the connector doesn't
             * support retrieval of object info.
             */
            object_info.num_attrs = 0;

            if (H5Oget_info3(tmp_group_id, &object_info, H5O_INFO_ALL) < 0) {
                H5_FAILED();
                HDprintf("    failed to retrieve object info\n");
                PART_ERROR(H5Ocopy_through_soft_link);
            }

            if (object_info.num_attrs == 0) {
                H5_FAILED();
                HDprintf("    copied group didn't contain any attributes after copy operation!\n");
                PART_ERROR(H5Ocopy_through_soft_link);
            }

            /* Check the attribute names, types, etc. */
            i = 0;
            if (H5Aiterate2(tmp_group_id, H5_INDEX_NAME, H5_ITER_INC, NULL,
                            object_copy_attribute_iter_callback, &i) < 0) {
                H5_FAILED();
                HDprintf("    failed to iterate over copied group's attributes\n");
                PART_ERROR(H5Ocopy_through_soft_link);
            }

            if (i != OBJECT_COPY_SOFT_LINK_TEST_NUM_ATTRS) {
                H5_FAILED();
                HDprintf(
                    "    number of attributes on copied group (%llu) didn't match expected number (%llu)!\n",
                    (unsigned long long)i, (unsigned long long)OBJECT_COPY_SOFT_LINK_TEST_NUM_ATTRS);
                PART_ERROR(H5Ocopy_through_soft_link);
            }

            if (H5Gclose(tmp_group_id) < 0) {
                H5_FAILED();
                HDprintf("    failed to close group copy\n");
                PART_ERROR(H5Ocopy_through_soft_link);
            }

            PASSED();
        }
        PART_END(H5Ocopy_through_soft_link);

        if (tmp_group_id >= 0) {
            H5E_BEGIN_TRY
            {
                H5Gclose(tmp_group_id);
            }
            H5E_END_TRY;
            tmp_group_id = H5I_INVALID_HID;
        }

        PART_BEGIN(H5Ocopy_through_dangling_soft_link)
        {
            herr_t err_ret;

            TESTING_2("H5Ocopy through use of a dangling soft link");

            if (H5Lcreate_soft("/" OBJECT_TEST_GROUP_NAME "/" OBJECT_COPY_SOFT_LINK_TEST_SUBGROUP_NAME
                               "/nonexistent_object",
                               group_id, OBJECT_COPY_SOFT_LINK_TEST_DANGLING_LINK_NAME, H5P_DEFAULT,
                               H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    failed to create dangling soft link '%s'\n",
                         OBJECT_COPY_SOFT_LINK_TEST_DANGLING_LINK_NAME);
                PART_ERROR(H5Ocopy_through_dangling_soft_link);
            }

            H5E_BEGIN_TRY
            {
                err_ret =
                    H5Ocopy(group_id, OBJECT_COPY_SOFT_LINK_TEST_DANGLING_LINK_NAME, group_id,
                            OBJECT_COPY_SOFT_LINK_TEST_DANGLING_LINK_NAME "2", H5P_DEFAULT, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (err_ret >= 0) {
                H5_FAILED();
                HDprintf("    copied non-existent object through use of a dangling soft link!\n");
                PART_ERROR(H5Ocopy_through_dangling_soft_link);
            }

            PASSED();
        }
        PART_END(H5Ocopy_through_dangling_soft_link);
    }
    END_MULTIPART;

    TESTING_2("test cleanup");

    if (H5Sclose(attr_space_id) < 0)
        TEST_ERROR;
    if (H5Gclose(group_id2) < 0)
        TEST_ERROR;
    if (H5Gclose(group_id) < 0)
        TEST_ERROR;
    if (H5Gclose(container_group) < 0)
        TEST_ERROR;
    if (H5Fclose(file_id) < 0)
        TEST_ERROR;

    PASSED();

    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Sclose(attr_space_id);
        H5Aclose(attr_id);
        H5Gclose(tmp_group_id);
        H5Gclose(group_id2);
        H5Gclose(group_id);
        H5Gclose(container_group);
        H5Fclose(file_id);
    }
    H5E_END_TRY;

    return 1;
}

/*
 * Tests for copying groups that contain soft links with
 * H5Ocopy. Also tested is the H5O_COPY_EXPAND_SOFT_LINK_FLAG
 * flag.
 */
static int
test_object_copy_group_with_soft_links(void)
{
    H5G_info_t group_info;
    htri_t     object_link_exists;
    size_t     i;
    hid_t      file_id         = H5I_INVALID_HID;
    hid_t      container_group = H5I_INVALID_HID;
    hid_t      group_id        = H5I_INVALID_HID;
    hid_t      group_id2       = H5I_INVALID_HID;
    hid_t      tmp_group_id    = H5I_INVALID_HID;
    hid_t      ocpypl_id       = H5I_INVALID_HID;

    TESTING_MULTIPART("group copying when group contains soft links");

    /* Make sure the connector supports the API functions being tested */
    if (!(vol_cap_flags_g & (H5VL_CAP_FLAG_FILE_BASIC)) || !(vol_cap_flags_g & H5VL_CAP_FLAG_GROUP_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_OBJECT_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_OBJECT_MORE) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_LINK_MORE) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_ITERATE) || !(vol_cap_flags_g & H5VL_CAP_FLAG_SOFT_LINKS)) {
        SKIPPED();
        HDprintf("    API functions for basic file, group, object, link, or soft link aren't supported with "
                 "this connector\n");
        return 0;
    }

    TESTING_2("test setup");

    if ((file_id = H5Fopen(H5_api_test_filename, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open file '%s'\n", H5_api_test_filename);
        goto error;
    }

    if ((container_group = H5Gopen2(file_id, OBJECT_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open container group '%s'\n", OBJECT_TEST_GROUP_NAME);
        goto error;
    }

    if ((group_id = H5Gcreate2(container_group, OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_SUBGROUP_NAME,
                               H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create container subgroup '%s'\n",
                 OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_SUBGROUP_NAME);
        goto error;
    }

    /* Create the test group object. */
    if ((group_id2 = H5Gcreate2(group_id, OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_GROUP_NAME, H5P_DEFAULT,
                                H5P_DEFAULT, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create group '%s'\n", OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_GROUP_NAME);
        goto error;
    }

    /* Create several groups at the root level and add soft links pointing to them inside
     * the test group object.
     */
    for (i = 0; i < (size_t)OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_NUM_NESTED_OBJS; i++) {
        char grp_name[OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_BUF_SIZE];
        char lnk_name[OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_BUF_SIZE];
        char lnk_target[2 * OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_BUF_SIZE];

        snprintf(grp_name, OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_BUF_SIZE, "grp%d", (int)i);
        snprintf(lnk_name, OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_BUF_SIZE, "link%d", (int)i);
        snprintf(lnk_target, 2 * OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_BUF_SIZE,
                 "/" OBJECT_TEST_GROUP_NAME "/" OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_SUBGROUP_NAME "/%s",
                 grp_name);

        if ((tmp_group_id = H5Gcreate2(group_id, grp_name, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
            H5_FAILED();
            HDprintf("    couldn't create group '%s' under group '%s'\n", grp_name,
                     OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_SUBGROUP_NAME);
            goto error;
        }

        if (H5Lcreate_soft(lnk_target, group_id2, lnk_name, H5P_DEFAULT, H5P_DEFAULT) < 0) {
            H5_FAILED();
            HDprintf("    failed to create soft link '%s'\n", lnk_name);
            goto error;
        }

        if (H5Gclose(tmp_group_id) < 0) {
            H5_FAILED();
            HDprintf("    couldn't close group '%s'\n", grp_name);
            goto error;
        }
    }

    PASSED();

    BEGIN_MULTIPART
    {
        PART_BEGIN(H5Ocopy_dont_expand_soft_links)
        {
            TESTING_2("H5Ocopy on group with soft links (soft links not expanded)");

            if (H5Ocopy(group_id, OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_GROUP_NAME, group_id,
                        OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_NON_EXPAND_GROUP_NAME, H5P_DEFAULT,
                        H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    failed to copy group '%s' to '%s'\n",
                         OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_GROUP_NAME,
                         OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_NON_EXPAND_GROUP_NAME);
                PART_ERROR(H5Ocopy_dont_expand_soft_links);
            }

            if ((object_link_exists =
                     H5Lexists(group_id, OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_NON_EXPAND_GROUP_NAME,
                               H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't determine if link '%s' to copied group exists\n",
                         OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_NON_EXPAND_GROUP_NAME);
                PART_ERROR(H5Ocopy_dont_expand_soft_links);
            }

            if (!object_link_exists) {
                H5_FAILED();
                HDprintf("    link '%s' to copied group didn't exist!\n",
                         OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_NON_EXPAND_GROUP_NAME);
                PART_ERROR(H5Ocopy_dont_expand_soft_links);
            }

            /* Ensure that the number of links is the same */
            if ((tmp_group_id =
                     H5Gopen2(group_id, OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_NON_EXPAND_GROUP_NAME,
                              H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    failed to open group copy '%s'\n",
                         OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_NON_EXPAND_GROUP_NAME);
                PART_ERROR(H5Ocopy_dont_expand_soft_links);
            }

            memset(&group_info, 0, sizeof(group_info));

            /*
             * Set link count to zero in case the connector doesn't support
             * retrieval of group info.
             */
            group_info.nlinks = 0;

            if (H5Gget_info(tmp_group_id, &group_info) < 0) {
                H5_FAILED();
                HDprintf("    failed to retrieve group info\n");
                PART_ERROR(H5Ocopy_dont_expand_soft_links);
            }

            if (group_info.nlinks != OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_NUM_NESTED_OBJS) {
                H5_FAILED();
                HDprintf("    copied group contained %d members instead of %d members after copy!\n",
                         (int)group_info.nlinks, OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_NUM_NESTED_OBJS);
                PART_ERROR(H5Ocopy_dont_expand_soft_links);
            }

            /*
             * Iterate over the links in the copied group and ensure that they're all
             * still soft links with their original values.
             */
            i = 0;
            if (H5Literate2(tmp_group_id, H5_INDEX_NAME, H5_ITER_INC, NULL,
                            object_copy_soft_link_non_expand_callback, &i) < 0) {
                H5_FAILED();
                HDprintf("    failed to iterate over links in group '%s'\n",
                         OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_NON_EXPAND_GROUP_NAME);
                PART_ERROR(H5Ocopy_dont_expand_soft_links);
            }

            if (i != OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_NUM_NESTED_OBJS) {
                H5_FAILED();
                HDprintf("    number of links in copied group (%llu) didn't match expected number (%llu)!\n",
                         (unsigned long long)i,
                         (unsigned long long)OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_NUM_NESTED_OBJS);
                PART_ERROR(H5Ocopy_dont_expand_soft_links);
            }

            if (H5Gclose(tmp_group_id) < 0) {
                H5_FAILED();
                HDprintf("    failed to close group copy\n");
                PART_ERROR(H5Ocopy_dont_expand_soft_links);
            }

            PASSED();
        }
        PART_END(H5Ocopy_dont_expand_soft_links);

        if (tmp_group_id >= 0) {
            H5E_BEGIN_TRY
            {
                H5Gclose(tmp_group_id);
            }
            H5E_END_TRY;
            tmp_group_id = H5I_INVALID_HID;
        }

        PART_BEGIN(H5Ocopy_expand_soft_links)
        {
            TESTING_2("H5Ocopy on group with soft links (soft links expanded)");

            if ((ocpypl_id = H5Pcreate(H5P_OBJECT_COPY)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't create OCopyPL\n");
                PART_ERROR(H5Ocopy_expand_soft_links);
            }

            if (H5Pset_copy_object(ocpypl_id, H5O_COPY_EXPAND_SOFT_LINK_FLAG) < 0) {
                H5_FAILED();
                HDprintf("    couldn't set object copying options\n");
                PART_ERROR(H5Ocopy_expand_soft_links);
            }

            if (H5Ocopy(group_id, OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_GROUP_NAME, group_id,
                        OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_EXPAND_GROUP_NAME, ocpypl_id,
                        H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    failed to copy group '%s' to '%s'\n",
                         OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_GROUP_NAME,
                         OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_EXPAND_GROUP_NAME);
                PART_ERROR(H5Ocopy_expand_soft_links);
            }

            if ((object_link_exists = H5Lexists(
                     group_id, OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_EXPAND_GROUP_NAME, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't determine if link '%s' to copied group exists\n",
                         OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_EXPAND_GROUP_NAME);
                PART_ERROR(H5Ocopy_expand_soft_links);
            }

            if (!object_link_exists) {
                H5_FAILED();
                HDprintf("    link '%s' to copied group didn't exist!\n",
                         OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_EXPAND_GROUP_NAME);
                PART_ERROR(H5Ocopy_expand_soft_links);
            }

            /* Ensure that the number of links is the same */
            if ((tmp_group_id = H5Gopen2(group_id, OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_EXPAND_GROUP_NAME,
                                         H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    failed to open group copy '%s'\n",
                         OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_EXPAND_GROUP_NAME);
                PART_ERROR(H5Ocopy_expand_soft_links);
            }

            memset(&group_info, 0, sizeof(group_info));

            /*
             * Set link count to zero in case the connector doesn't support
             * retrieval of group info.
             */
            group_info.nlinks = 0;

            if (H5Gget_info(tmp_group_id, &group_info) < 0) {
                H5_FAILED();
                HDprintf("    failed to retrieve group info\n");
                PART_ERROR(H5Ocopy_expand_soft_links);
            }

            if (group_info.nlinks != OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_NUM_NESTED_OBJS) {
                H5_FAILED();
                HDprintf("    copied group contained %d members instead of %d members after copy!\n",
                         (int)group_info.nlinks, OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_NUM_NESTED_OBJS);
                PART_ERROR(H5Ocopy_expand_soft_links);
            }

            /*
             * Iterate over the links in the copied group and ensure that they've all
             * been expanded into hard links corresponding to the top-level groups
             * created.
             */
            i = 0;
            if (H5Literate2(tmp_group_id, H5_INDEX_NAME, H5_ITER_INC, NULL,
                            object_copy_soft_link_expand_callback, &i) < 0) {
                H5_FAILED();
                HDprintf("    failed to iterate over links in group '%s'\n",
                         OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_EXPAND_GROUP_NAME);
                PART_ERROR(H5Ocopy_expand_soft_links);
            }

            if (i != OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_NUM_NESTED_OBJS) {
                H5_FAILED();
                HDprintf("    number of links in copied group (%llu) didn't match expected number (%llu)!\n",
                         (unsigned long long)i,
                         (unsigned long long)OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_NUM_NESTED_OBJS);
                PART_ERROR(H5Ocopy_expand_soft_links);
            }

            if (H5Pclose(ocpypl_id) < 0) {
                H5_FAILED();
                HDprintf("    failed to close OCopyPL\n");
                PART_ERROR(H5Ocopy_expand_soft_links);
            }

            if (H5Gclose(tmp_group_id) < 0) {
                H5_FAILED();
                HDprintf("    failed to close group copy\n");
                PART_ERROR(H5Ocopy_expand_soft_links);
            }

            PASSED();
        }
        PART_END(H5Ocopy_expand_soft_links);

        if (ocpypl_id >= 0) {
            H5E_BEGIN_TRY
            {
                H5Gclose(ocpypl_id);
            }
            H5E_END_TRY;
            ocpypl_id = H5I_INVALID_HID;
        }
        if (tmp_group_id >= 0) {
            H5E_BEGIN_TRY
            {
                H5Gclose(tmp_group_id);
            }
            H5E_END_TRY;
            tmp_group_id = H5I_INVALID_HID;
        }
    }
    END_MULTIPART;

    TESTING_2("test cleanup");

    if (H5Gclose(group_id2) < 0)
        TEST_ERROR;
    if (H5Gclose(group_id) < 0)
        TEST_ERROR;
    if (H5Gclose(container_group) < 0)
        TEST_ERROR;
    if (H5Fclose(file_id) < 0)
        TEST_ERROR;

    PASSED();

    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Pclose(ocpypl_id);
        H5Gclose(tmp_group_id);
        H5Gclose(group_id2);
        H5Gclose(group_id);
        H5Gclose(container_group);
        H5Fclose(file_id);
    }
    H5E_END_TRY;

    return 1;
}

/*
 * Tests for copying objects between two different files using
 * H5Ocopy.
 */
static int
test_object_copy_between_files(void)
{
    H5O_info2_t object_info;
    H5G_info_t  group_info;
    htri_t      object_link_exists;
    size_t      i;
    hid_t       file_id         = H5I_INVALID_HID;
    hid_t       file_id2        = H5I_INVALID_HID;
    hid_t       container_group = H5I_INVALID_HID;
    hid_t       group_id        = H5I_INVALID_HID;
    hid_t       group_id2       = H5I_INVALID_HID;
    hid_t       tmp_group_id    = H5I_INVALID_HID;
    hid_t       dset_id         = H5I_INVALID_HID;
    hid_t       tmp_dset_id     = H5I_INVALID_HID;
    hid_t       dset_dtype      = H5I_INVALID_HID;
    hid_t       dtype_id        = H5I_INVALID_HID;
    hid_t       tmp_dtype_id    = H5I_INVALID_HID;
    hid_t       attr_id         = H5I_INVALID_HID;
    hid_t       attr_space_id   = H5I_INVALID_HID;
    hid_t       space_id        = H5I_INVALID_HID;
    hid_t       ocpypl_id       = H5I_INVALID_HID;

    TESTING_MULTIPART("object copying between files");

    /* Make sure the connector supports the API functions being tested */
    if (!(vol_cap_flags_g & (H5VL_CAP_FLAG_FILE_BASIC)) || !(vol_cap_flags_g & H5VL_CAP_FLAG_GROUP_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_OBJECT_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_OBJECT_MORE) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_LINK_MORE) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_DATASET_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_ATTR_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_GROUP_MORE) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_STORED_DATATYPES)) {
        SKIPPED();
        HDprintf("    API functions for basic file, group, object, link, dataset, attribute, stored "
                 "datatype, or iterate aren't supported with this connector\n");
        return 0;
    }

    TESTING_2("test setup");

    /*
     * Create the second file for the between file copying tests.
     */
    if ((file_id2 = H5Fcreate(OBJECT_COPY_BETWEEN_FILES_TEST_FILE_NAME, H5F_ACC_TRUNC, H5P_DEFAULT,
                              H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create file '%s'\n", H5_api_test_filename);
        goto error;
    }

    if ((file_id = H5Fopen(H5_api_test_filename, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open file '%s'\n", H5_api_test_filename);
        goto error;
    }

    if ((container_group = H5Gopen2(file_id, OBJECT_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open container group '%s'\n", OBJECT_TEST_GROUP_NAME);
        goto error;
    }

    if ((group_id = H5Gcreate2(container_group, OBJECT_COPY_BETWEEN_FILES_TEST_SUBGROUP_NAME, H5P_DEFAULT,
                               H5P_DEFAULT, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create container subgroup '%s'\n",
                 OBJECT_COPY_BETWEEN_FILES_TEST_SUBGROUP_NAME);
        goto error;
    }

    if ((space_id = generate_random_dataspace(OBJECT_COPY_BETWEEN_FILES_TEST_SPACE_RANK, NULL, NULL, FALSE)) <
        0)
        TEST_ERROR;
    if ((attr_space_id =
             generate_random_dataspace(OBJECT_COPY_BETWEEN_FILES_TEST_SPACE_RANK, NULL, NULL, TRUE)) < 0)
        TEST_ERROR;

    if ((dset_dtype = generate_random_datatype(H5T_NO_CLASS, FALSE)) < 0)
        TEST_ERROR;

    /* Create the test group object, along with its nested members and the attributes attached to it. */
    if ((group_id2 = H5Gcreate2(group_id, OBJECT_COPY_BETWEEN_FILES_TEST_GROUP_NAME, H5P_DEFAULT, H5P_DEFAULT,
                                H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create group '%s'\n", OBJECT_COPY_BETWEEN_FILES_TEST_GROUP_NAME);
        goto error;
    }

    for (i = 0; i < (size_t)OBJECT_COPY_BETWEEN_FILES_TEST_NUM_NESTED_OBJS; i++) {
        char grp_name[OBJECT_COPY_BETWEEN_FILES_TEST_BUF_SIZE];

        snprintf(grp_name, OBJECT_COPY_BETWEEN_FILES_TEST_BUF_SIZE, "grp%d", (int)i);

        if ((tmp_group_id = H5Gcreate2(group_id2, grp_name, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
            H5_FAILED();
            HDprintf("    couldn't create group '%s' under group '%s'\n", grp_name,
                     OBJECT_COPY_BETWEEN_FILES_TEST_GROUP_NAME);
            goto error;
        }

        /* Create a further nested group under the last group added */
        if (i == (OBJECT_COPY_BETWEEN_FILES_TEST_NUM_NESTED_OBJS - 1)) {
            if (H5Gclose(H5Gcreate2(tmp_group_id, OBJECT_COPY_BETWEEN_FILES_TEST_DEEP_NESTED_GROUP_NAME,
                                    H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't create nested group '%s' under group '%s'\n",
                         OBJECT_COPY_BETWEEN_FILES_TEST_DEEP_NESTED_GROUP_NAME, grp_name);
                goto error;
            }
        }

        if (H5Gclose(tmp_group_id) < 0) {
            H5_FAILED();
            HDprintf("    couldn't close group '%s'\n", grp_name);
            goto error;
        }
    }

    for (i = 0; i < (size_t)OBJECT_COPY_BETWEEN_FILES_TEST_NUM_ATTRS; i++) {
        char attr_name[OBJECT_COPY_BETWEEN_FILES_TEST_BUF_SIZE];

        snprintf(attr_name, OBJECT_COPY_BETWEEN_FILES_TEST_BUF_SIZE, "attr%d", (int)i);

        if ((attr_id = H5Acreate2(group_id2, attr_name, H5T_NATIVE_INT, attr_space_id, H5P_DEFAULT,
                                  H5P_DEFAULT)) < 0) {
            H5_FAILED();
            HDprintf("    couldn't create attribute '%s' on group '%s'\n", attr_name,
                     OBJECT_COPY_BETWEEN_FILES_TEST_GROUP_NAME);
            goto error;
        }

        if (H5Aclose(attr_id) < 0) {
            H5_FAILED();
            HDprintf("    couldn't close attribute '%s'\n", attr_name);
            goto error;
        }
    }

    /* Create the test dataset object, along with the attributes attached to it. */
    if ((dset_id = H5Dcreate2(group_id, OBJECT_COPY_BETWEEN_FILES_TEST_DSET_NAME, dset_dtype, space_id,
                              H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create dataset '%s'\n", OBJECT_COPY_BETWEEN_FILES_TEST_DSET_NAME);
        goto error;
    }

    for (i = 0; i < (size_t)OBJECT_COPY_BETWEEN_FILES_TEST_NUM_ATTRS; i++) {
        char attr_name[OBJECT_COPY_BETWEEN_FILES_TEST_BUF_SIZE];

        snprintf(attr_name, OBJECT_COPY_BETWEEN_FILES_TEST_BUF_SIZE, "attr%d", (int)i);

        if ((attr_id = H5Acreate2(dset_id, attr_name, H5T_NATIVE_INT, attr_space_id, H5P_DEFAULT,
                                  H5P_DEFAULT)) < 0) {
            H5_FAILED();
            HDprintf("    couldn't create attribute '%s' on dataset '%s'\n", attr_name,
                     OBJECT_COPY_BETWEEN_FILES_TEST_DSET_NAME);
            goto error;
        }

        if (H5Aclose(attr_id) < 0) {
            H5_FAILED();
            HDprintf("    couldn't close attribute '%s'\n", attr_name);
            goto error;
        }
    }

    /* Create the test committed datatype object, along with the attributes attached to it. */
    if ((dtype_id = generate_random_datatype(H5T_NO_CLASS, FALSE)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create datatype\n");
        goto error;
    }

    if (H5Tcommit2(group_id, OBJECT_COPY_BETWEEN_FILES_TEST_DTYPE_NAME, dtype_id, H5P_DEFAULT, H5P_DEFAULT,
                   H5P_DEFAULT) < 0) {
        H5_FAILED();
        HDprintf("    couldn't commit datatype '%s'\n", OBJECT_COPY_BETWEEN_FILES_TEST_DTYPE_NAME);
        goto error;
    }

    for (i = 0; i < (size_t)OBJECT_COPY_BETWEEN_FILES_TEST_NUM_ATTRS; i++) {
        char attr_name[OBJECT_COPY_BETWEEN_FILES_TEST_BUF_SIZE];

        snprintf(attr_name, OBJECT_COPY_BETWEEN_FILES_TEST_BUF_SIZE, "attr%d", (int)i);

        if ((attr_id = H5Acreate2(dtype_id, attr_name, H5T_NATIVE_INT, attr_space_id, H5P_DEFAULT,
                                  H5P_DEFAULT)) < 0) {
            H5_FAILED();
            HDprintf("    couldn't create attribute '%s' on committed datatype '%s'\n", attr_name,
                     OBJECT_COPY_BETWEEN_FILES_TEST_DTYPE_NAME);
            goto error;
        }

        if (H5Aclose(attr_id) < 0) {
            H5_FAILED();
            HDprintf("    couldn't close attribute '%s'\n", attr_name);
            goto error;
        }
    }

    PASSED();

    BEGIN_MULTIPART
    {
        PART_BEGIN(H5Ocopy_group_between_files)
        {
            TESTING_2("H5Ocopy on group between different files");

            if (H5Ocopy(group_id, OBJECT_COPY_BETWEEN_FILES_TEST_GROUP_NAME, file_id2,
                        OBJECT_COPY_BETWEEN_FILES_TEST_NEW_GROUP_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    failed to copy group '%s' to second file '%s'\n",
                         OBJECT_COPY_BETWEEN_FILES_TEST_GROUP_NAME,
                         OBJECT_COPY_BETWEEN_FILES_TEST_NEW_GROUP_NAME);
                PART_ERROR(H5Ocopy_group_between_files);
            }

            if ((object_link_exists =
                     H5Lexists(file_id2, OBJECT_COPY_BETWEEN_FILES_TEST_NEW_GROUP_NAME, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't determine if link '%s' to copied group exists\n",
                         OBJECT_COPY_BETWEEN_FILES_TEST_NEW_GROUP_NAME);
                PART_ERROR(H5Ocopy_group_between_files);
            }

            if (!object_link_exists) {
                H5_FAILED();
                HDprintf("    link '%s' to copied group in second file '%s' didn't exist!\n",
                         OBJECT_COPY_BETWEEN_FILES_TEST_NEW_GROUP_NAME,
                         OBJECT_COPY_BETWEEN_FILES_TEST_FILE_NAME);
                PART_ERROR(H5Ocopy_group_between_files);
            }

            /* Ensure that the new group has all the members of the copied group, and all its attributes */
            if ((tmp_group_id =
                     H5Gopen2(file_id2, OBJECT_COPY_BETWEEN_FILES_TEST_NEW_GROUP_NAME, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    failed to open group copy '%s'\n",
                         OBJECT_COPY_BETWEEN_FILES_TEST_NEW_GROUP_NAME);
                PART_ERROR(H5Ocopy_group_between_files);
            }

            memset(&group_info, 0, sizeof(group_info));

            /*
             * Set link count to zero in case the connector doesn't support
             * retrieval of group info.
             */
            group_info.nlinks = 0;

            if (H5Gget_info(tmp_group_id, &group_info) < 0) {
                H5_FAILED();
                HDprintf("    failed to retrieve group info\n");
                PART_ERROR(H5Ocopy_group_between_files);
            }

            if (group_info.nlinks != OBJECT_COPY_BETWEEN_FILES_TEST_NUM_NESTED_OBJS) {
                H5_FAILED();
                HDprintf("    copied group contained %d members instead of %d members after a deep copy!\n",
                         (int)group_info.nlinks, OBJECT_COPY_BETWEEN_FILES_TEST_NUM_NESTED_OBJS);
                PART_ERROR(H5Ocopy_group_between_files);
            }

            memset(&object_info, 0, sizeof(object_info));

            /*
             * Set attribute count to zero in case the connector doesn't
             * support retrieval of object info.
             */
            object_info.num_attrs = 0;

            if (H5Oget_info3(tmp_group_id, &object_info, H5O_INFO_ALL) < 0) {
                H5_FAILED();
                HDprintf("    failed to retrieve object info\n");
                PART_ERROR(H5Ocopy_group_between_files);
            }

            if (object_info.num_attrs == 0) {
                H5_FAILED();
                HDprintf("    copied group didn't contain any attributes after copy operation!\n");
                PART_ERROR(H5Ocopy_group_between_files);
            }

            /* Check the attribute names, types, etc. */
            i = 0;
            if (H5Aiterate2(tmp_group_id, H5_INDEX_NAME, H5_ITER_INC, NULL,
                            object_copy_attribute_iter_callback, &i) < 0) {
                H5_FAILED();
                HDprintf("    failed to iterate over copied group's attributes\n");
                PART_ERROR(H5Ocopy_group_between_files);
            }

            if (i != OBJECT_COPY_BETWEEN_FILES_TEST_NUM_ATTRS) {
                H5_FAILED();
                HDprintf(
                    "    number of attributes on copied group (%llu) didn't match expected number (%llu)!\n",
                    (unsigned long long)i, (unsigned long long)OBJECT_COPY_BETWEEN_FILES_TEST_NUM_ATTRS);
                PART_ERROR(H5Ocopy_group_between_files);
            }

            if (H5Gclose(tmp_group_id) < 0) {
                H5_FAILED();
                HDprintf("    failed to close group copy\n");
                PART_ERROR(H5Ocopy_group_between_files);
            }

            /*
             * Ensure that the last immediate member of the copied group
             * contains its single member after the deep copy.
             */
            {
                char grp_name[OBJECT_COPY_BETWEEN_FILES_TEST_BUF_SIZE];

                snprintf(grp_name, OBJECT_COPY_BETWEEN_FILES_TEST_BUF_SIZE,
                         "/" OBJECT_COPY_BETWEEN_FILES_TEST_NEW_GROUP_NAME "/grp%d",
                         OBJECT_COPY_BETWEEN_FILES_TEST_NUM_NESTED_OBJS - 1);

                if ((tmp_group_id = H5Gopen2(file_id2, grp_name, H5P_DEFAULT)) < 0) {
                    H5_FAILED();
                    HDprintf("    failed to open group '%s'\n", grp_name);
                    PART_ERROR(H5Ocopy_group_between_files);
                }

                memset(&group_info, 0, sizeof(group_info));

                /*
                 * Set link count to zero in case the connector doesn't support
                 * retrieval of group info.
                 */
                group_info.nlinks = 0;

                if (H5Gget_info(tmp_group_id, &group_info) < 0) {
                    H5_FAILED();
                    HDprintf("    failed to retrieve group info\n");
                    PART_ERROR(H5Ocopy_group_between_files);
                }

                if (group_info.nlinks != 1) {
                    H5_FAILED();
                    HDprintf("    copied group's immediate members didn't contain nested members after a "
                             "deep copy!\n");
                    PART_ERROR(H5Ocopy_group_between_files);
                }

                if (H5Gclose(tmp_group_id) < 0) {
                    H5_FAILED();
                    HDprintf("    failed to close group '%s'\n", grp_name);
                    PART_ERROR(H5Ocopy_group_between_files);
                }
            }

            PASSED();
        }
        PART_END(H5Ocopy_group_between_files);

        if (tmp_group_id >= 0) {
            H5E_BEGIN_TRY
            {
                H5Gclose(tmp_group_id);
            }
            H5E_END_TRY;
            tmp_group_id = H5I_INVALID_HID;
        }

        PART_BEGIN(H5Ocopy_dset_between_files)
        {
            TESTING_2("H5Ocopy on dataset between different files");

            if (H5Ocopy(group_id, OBJECT_COPY_BETWEEN_FILES_TEST_DSET_NAME, file_id2,
                        OBJECT_COPY_BETWEEN_FILES_TEST_NEW_DSET_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    failed to copy dataset '%s' to second file '%s'\n",
                         OBJECT_COPY_BETWEEN_FILES_TEST_DSET_NAME,
                         OBJECT_COPY_BETWEEN_FILES_TEST_NEW_DSET_NAME);
                PART_ERROR(H5Ocopy_dset_between_files);
            }

            if ((object_link_exists =
                     H5Lexists(file_id2, OBJECT_COPY_BETWEEN_FILES_TEST_NEW_DSET_NAME, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't determine if link '%s' to copied dataset exists\n",
                         OBJECT_COPY_BETWEEN_FILES_TEST_NEW_DSET_NAME);
                PART_ERROR(H5Ocopy_dset_between_files);
            }

            if (!object_link_exists) {
                H5_FAILED();
                HDprintf("    link '%s' to copied dataset in second file '%s' didn't exist!\n",
                         OBJECT_COPY_BETWEEN_FILES_TEST_NEW_DSET_NAME,
                         OBJECT_COPY_BETWEEN_FILES_TEST_FILE_NAME);
                PART_ERROR(H5Ocopy_dset_between_files);
            }

            /* Ensure that the new dataset has all the attributes of the copied dataset */
            if ((tmp_dset_id =
                     H5Dopen2(file_id2, OBJECT_COPY_BETWEEN_FILES_TEST_NEW_DSET_NAME, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    failed to open dataset copy '%s'\n",
                         OBJECT_COPY_BETWEEN_FILES_TEST_NEW_DSET_NAME);
                PART_ERROR(H5Ocopy_dset_between_files);
            }

            memset(&object_info, 0, sizeof(object_info));

            /*
             * Set attribute count to zero in case the connector doesn't
             * support retrieval of object info.
             */
            object_info.num_attrs = 0;

            if (H5Oget_info3(tmp_dset_id, &object_info, H5O_INFO_ALL) < 0) {
                H5_FAILED();
                HDprintf("    failed to retrieve object info\n");
                PART_ERROR(H5Ocopy_dset_between_files);
            }

            if (object_info.num_attrs == 0) {
                H5_FAILED();
                HDprintf("    copied dataset didn't contain any attributes after copy operation!\n");
                PART_ERROR(H5Ocopy_dset_between_files);
            }

            /* Check the attribute names, types, etc. */
            i = 0;
            if (H5Aiterate2(tmp_dset_id, H5_INDEX_NAME, H5_ITER_INC, NULL,
                            object_copy_attribute_iter_callback, &i) < 0) {
                H5_FAILED();
                HDprintf("    failed to iterate over copied dataset's attributes\n");
                PART_ERROR(H5Ocopy_dset_between_files);
            }

            if (i != OBJECT_COPY_BETWEEN_FILES_TEST_NUM_ATTRS) {
                H5_FAILED();
                HDprintf("    number of attributes on copied dataset (%llu) didn't match expected number "
                         "(%llu)!\n",
                         (unsigned long long)i, (unsigned long long)OBJECT_COPY_BETWEEN_FILES_TEST_NUM_ATTRS);
                PART_ERROR(H5Ocopy_dset_between_files);
            }

            if (H5Dclose(tmp_dset_id) < 0) {
                H5_FAILED();
                HDprintf("    failed to close dataset copy\n");
                PART_ERROR(H5Ocopy_dset_between_files);
            }

            PASSED();
        }
        PART_END(H5Ocopy_dset_between_files);

        if (tmp_dset_id >= 0) {
            H5E_BEGIN_TRY
            {
                H5Dclose(tmp_dset_id);
            }
            H5E_END_TRY;
            tmp_dset_id = H5I_INVALID_HID;
        }

        PART_BEGIN(H5Ocopy_dtype_between_files)
        {
            TESTING_2("H5Ocopy on committed datatype between different files");

            if (H5Ocopy(group_id, OBJECT_COPY_BETWEEN_FILES_TEST_DTYPE_NAME, file_id2,
                        OBJECT_COPY_BETWEEN_FILES_TEST_NEW_DTYPE_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    failed to copy committed datatype '%s' to second file '%s'\n",
                         OBJECT_COPY_BETWEEN_FILES_TEST_DTYPE_NAME,
                         OBJECT_COPY_BETWEEN_FILES_TEST_NEW_DTYPE_NAME);
                PART_ERROR(H5Ocopy_dtype_between_files);
            }

            if ((object_link_exists =
                     H5Lexists(file_id2, OBJECT_COPY_BETWEEN_FILES_TEST_NEW_DTYPE_NAME, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't determine if link '%s' to copied committed datatype exists\n",
                         OBJECT_COPY_BETWEEN_FILES_TEST_NEW_DTYPE_NAME);
                PART_ERROR(H5Ocopy_dtype_between_files);
            }

            if (!object_link_exists) {
                H5_FAILED();
                HDprintf("    link '%s' to copied committed datatype in second file '%s' didn't exist!\n",
                         OBJECT_COPY_BETWEEN_FILES_TEST_NEW_DTYPE_NAME,
                         OBJECT_COPY_BETWEEN_FILES_TEST_FILE_NAME);
                PART_ERROR(H5Ocopy_dtype_between_files);
            }

            /* Ensure that the new committed datatype has all the attributes of the copied committed datatype
             */
            if ((tmp_dtype_id =
                     H5Topen2(file_id2, OBJECT_COPY_BETWEEN_FILES_TEST_NEW_DTYPE_NAME, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    failed to open committed datatype copy '%s'\n",
                         OBJECT_COPY_BETWEEN_FILES_TEST_NEW_DTYPE_NAME);
                PART_ERROR(H5Ocopy_dtype_between_files);
            }

            memset(&object_info, 0, sizeof(object_info));

            /*
             * Set attribute count to zero in case the connector doesn't
             * support retrieval of object info.
             */
            object_info.num_attrs = 0;

            if (H5Oget_info3(tmp_dtype_id, &object_info, H5O_INFO_ALL) < 0) {
                H5_FAILED();
                HDprintf("    failed to retrieve object info\n");
                PART_ERROR(H5Ocopy_dtype_between_files);
            }

            if (object_info.num_attrs == 0) {
                H5_FAILED();
                HDprintf(
                    "    copied committed datatype didn't contain any attributes after copy operation!\n");
                PART_ERROR(H5Ocopy_dtype_between_files);
            }

            /* Check the attribute names, types, etc. */
            i = 0;
            if (H5Aiterate2(tmp_dtype_id, H5_INDEX_NAME, H5_ITER_INC, NULL,
                            object_copy_attribute_iter_callback, &i) < 0) {
                H5_FAILED();
                HDprintf("    failed to iterate over copied datatype's attributes\n");
                PART_ERROR(H5Ocopy_dtype_between_files);
            }

            if (i != OBJECT_COPY_BETWEEN_FILES_TEST_NUM_ATTRS) {
                H5_FAILED();
                HDprintf("    number of attributes on copied datatype (%llu) didn't match expected number "
                         "(%llu)!\n",
                         (unsigned long long)i, (unsigned long long)OBJECT_COPY_BETWEEN_FILES_TEST_NUM_ATTRS);
                PART_ERROR(H5Ocopy_dtype_between_files);
            }

            if (H5Tclose(tmp_dtype_id) < 0) {
                H5_FAILED();
                HDprintf("    failed to close committed datatype copy\n");
                PART_ERROR(H5Ocopy_dtype_between_files);
            }

            PASSED();
        }
        PART_END(H5Ocopy_dtype_between_files);

        if (tmp_dtype_id >= 0) {
            H5E_BEGIN_TRY
            {
                H5Tclose(tmp_dtype_id);
            }
            H5E_END_TRY;
            tmp_dtype_id = H5I_INVALID_HID;
        }
    }
    END_MULTIPART;

    TESTING_2("test cleanup");

    if (H5Sclose(attr_space_id) < 0)
        TEST_ERROR;
    if (H5Sclose(space_id) < 0)
        TEST_ERROR;
    if (H5Tclose(dset_dtype) < 0)
        TEST_ERROR;
    if (H5Tclose(dtype_id) < 0)
        TEST_ERROR;
    if (H5Dclose(dset_id) < 0)
        TEST_ERROR;
    if (H5Gclose(group_id2) < 0)
        TEST_ERROR;
    if (H5Gclose(group_id) < 0)
        TEST_ERROR;
    if (H5Gclose(container_group) < 0)
        TEST_ERROR;
    if (H5Fclose(file_id2) < 0)
        TEST_ERROR;
    if (H5Fclose(file_id) < 0)
        TEST_ERROR;

    PASSED();

    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Pclose(ocpypl_id);
        H5Sclose(attr_space_id);
        H5Sclose(space_id);
        H5Aclose(attr_id);
        H5Tclose(dset_dtype);
        H5Tclose(tmp_dtype_id);
        H5Tclose(dtype_id);
        H5Dclose(tmp_dset_id);
        H5Dclose(dset_id);
        H5Gclose(tmp_group_id);
        H5Gclose(group_id2);
        H5Gclose(group_id);
        H5Gclose(container_group);
        H5Fclose(file_id2);
        H5Fclose(file_id);
    }
    H5E_END_TRY;

    return 1;
}

/*
 * A test to check that H5Ocopy fails when it
 * is passed invalid parameters.
 */
static int
test_object_copy_invalid_params(void)
{
    herr_t err_ret         = -1;
    hid_t  file_id         = H5I_INVALID_HID;
    hid_t  container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
    hid_t  group_id2 = H5I_INVALID_HID;

    TESTING_MULTIPART("object copying with invalid parameters");

    /* Make sure the connector supports the API functions being tested */
    if (!(vol_cap_flags_g & (H5VL_CAP_FLAG_FILE_BASIC)) || !(vol_cap_flags_g & H5VL_CAP_FLAG_GROUP_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_OBJECT_MORE)) {
        SKIPPED();
        HDprintf("    API functions for basic file, group, or object aren't supported with this connector\n");
        return 0;
    }

    TESTING_2("test setup");

    if ((file_id = H5Fopen(H5_api_test_filename, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open file '%s'\n", H5_api_test_filename);
        goto error;
    }

    if ((container_group = H5Gopen2(file_id, OBJECT_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open container group '%s'\n", OBJECT_TEST_GROUP_NAME);
        goto error;
    }

    if ((group_id = H5Gcreate2(container_group, OBJECT_COPY_INVALID_PARAMS_TEST_SUBGROUP_NAME, H5P_DEFAULT,
                               H5P_DEFAULT, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create container subgroup '%s'\n",
                 OBJECT_COPY_INVALID_PARAMS_TEST_SUBGROUP_NAME);
        goto error;
    }

    if ((group_id2 = H5Gcreate2(group_id, OBJECT_COPY_INVALID_PARAMS_TEST_GROUP_NAME, H5P_DEFAULT,
                                H5P_DEFAULT, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create group '%s'\n", OBJECT_COPY_INVALID_PARAMS_TEST_GROUP_NAME);
        goto error;
    }

    PASSED();

    BEGIN_MULTIPART
    {
        PART_BEGIN(H5Ocopy_invalid_src_loc_id)
        {
            TESTING_2("H5Ocopy with an invalid source location ID");

            H5E_BEGIN_TRY
            {
                err_ret = H5Ocopy(H5I_INVALID_HID, OBJECT_COPY_INVALID_PARAMS_TEST_GROUP_NAME, group_id,
                                  OBJECT_COPY_INVALID_PARAMS_TEST_GROUP_NAME2, H5P_DEFAULT, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (err_ret >= 0) {
                H5_FAILED();
                HDprintf("    H5Ocopy succeeded with an invalid source location ID!\n");
                PART_ERROR(H5Ocopy_invalid_src_loc_id);
            }

            PASSED();
        }
        PART_END(H5Ocopy_invalid_src_loc_id);

        PART_BEGIN(H5Ocopy_invalid_src_obj_name)
        {
            TESTING_2("H5Ocopy with an invalid source object name");

            H5E_BEGIN_TRY
            {
                err_ret = H5Ocopy(group_id, NULL, group_id, OBJECT_COPY_INVALID_PARAMS_TEST_GROUP_NAME2,
                                  H5P_DEFAULT, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (err_ret >= 0) {
                H5_FAILED();
                HDprintf("    H5Ocopy succeeded with a NULL source object name!\n");
                PART_ERROR(H5Ocopy_invalid_src_obj_name);
            }

            H5E_BEGIN_TRY
            {
                err_ret = H5Ocopy(group_id, "", group_id, OBJECT_COPY_INVALID_PARAMS_TEST_GROUP_NAME2,
                                  H5P_DEFAULT, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (err_ret >= 0) {
                H5_FAILED();
                HDprintf("    H5Ocopy succeeded with an invalid source object name of ''!\n");
                PART_ERROR(H5Ocopy_invalid_src_obj_name);
            }

            PASSED();
        }
        PART_END(H5Ocopy_invalid_src_obj_name);

        PART_BEGIN(H5Ocopy_invalid_dst_loc_id)
        {
            TESTING_2("H5Ocopy with an invalid destination location ID");

            H5E_BEGIN_TRY
            {
                err_ret = H5Ocopy(group_id, OBJECT_COPY_INVALID_PARAMS_TEST_GROUP_NAME, H5I_INVALID_HID,
                                  OBJECT_COPY_INVALID_PARAMS_TEST_GROUP_NAME2, H5P_DEFAULT, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (err_ret >= 0) {
                H5_FAILED();
                HDprintf("    H5Ocopy succeeded with an invalid destination location ID!\n");
                PART_ERROR(H5Ocopy_invalid_dst_loc_id);
            }

            PASSED();
        }
        PART_END(H5Ocopy_invalid_dst_loc_id);

        PART_BEGIN(H5Ocopy_invalid_dst_obj_name)
        {
            TESTING_2("H5Ocopy with an invalid destination object name");

            H5E_BEGIN_TRY
            {
                err_ret = H5Ocopy(group_id, OBJECT_COPY_INVALID_PARAMS_TEST_GROUP_NAME, group_id, NULL,
                                  H5P_DEFAULT, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (err_ret >= 0) {
                H5_FAILED();
                HDprintf("    H5Ocopy succeeded with a NULL destination object name!\n");
                PART_ERROR(H5Ocopy_invalid_dst_obj_name);
            }

            H5E_BEGIN_TRY
            {
                err_ret = H5Ocopy(group_id, OBJECT_COPY_INVALID_PARAMS_TEST_GROUP_NAME, group_id, "",
                                  H5P_DEFAULT, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (err_ret >= 0) {
                H5_FAILED();
                HDprintf("    H5Ocopy succeeded with an invalid destination object name of ''!\n");
                PART_ERROR(H5Ocopy_invalid_dst_obj_name);
            }

            PASSED();
        }
        PART_END(H5Ocopy_invalid_dst_obj_name);

        PART_BEGIN(H5Ocopy_invalid_ocpypl)
        {
            TESTING_2("H5Ocopy with an invalid OcpyPL");

            H5E_BEGIN_TRY
            {
                err_ret = H5Ocopy(group_id, OBJECT_COPY_INVALID_PARAMS_TEST_GROUP_NAME, group_id,
                                  OBJECT_COPY_INVALID_PARAMS_TEST_GROUP_NAME2, H5I_INVALID_HID, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (err_ret >= 0) {
                H5_FAILED();
                HDprintf("    H5Ocopy succeeded with an invalid OcpyPL!\n");
                PART_ERROR(H5Ocopy_invalid_ocpypl);
            }

            PASSED();
        }
        PART_END(H5Ocopy_invalid_ocpypl);

        PART_BEGIN(H5Ocopy_invalid_lcpl)
        {
            TESTING_2("H5Ocopy with an invalid LCPL");

            H5E_BEGIN_TRY
            {
                err_ret = H5Ocopy(group_id, OBJECT_COPY_INVALID_PARAMS_TEST_GROUP_NAME, group_id,
                                  OBJECT_COPY_INVALID_PARAMS_TEST_GROUP_NAME2, H5P_DEFAULT, H5I_INVALID_HID);
            }
            H5E_END_TRY;

            if (err_ret >= 0) {
                H5_FAILED();
                HDprintf("    H5Ocopy succeeded with an invalid LCPL!\n");
                PART_ERROR(H5Ocopy_invalid_lcpl);
            }

            PASSED();
        }
        PART_END(H5Ocopy_invalid_lcpl);
    }
    END_MULTIPART;

    TESTING_2("test cleanup");

    if (H5Gclose(group_id2) < 0)
        TEST_ERROR;
    if (H5Gclose(group_id) < 0)
        TEST_ERROR;
    if (H5Gclose(container_group) < 0)
        TEST_ERROR;
    if (H5Fclose(file_id) < 0)
        TEST_ERROR;

    PASSED();

    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Gclose(group_id2);
        H5Gclose(group_id);
        H5Gclose(container_group);
        H5Fclose(file_id);
    }
    H5E_END_TRY;

    return 1;
}

/*
 * A test for H5Oset_comment(_by_name)/H5Oget_comment(_by_name).
 */
static int
test_object_comments(void)
{
    TESTING("object comments");

    SKIPPED();

    return 0;
}

/*
 * A test to check that H5Oset_comment(_by_name)/H5Oget_comment(_by_name)
 * fail when passed invalid parameters.
 */
static int
test_object_comments_invalid_params(void)
{
    TESTING("object comment ");

    SKIPPED();

    return 0;
}

/*
 * A test for H5Ovisit(_by_name).
 *
 * XXX: Should have test for checking nested object's names/paths.
 */
static int
test_object_visit(void)
{
    size_t i;
    hid_t  file_id         = H5I_INVALID_HID;
    hid_t  container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
    hid_t  group_id2  = H5I_INVALID_HID;
    hid_t  gcpl_id    = H5I_INVALID_HID;
    hid_t  type_id    = H5I_INVALID_HID;
    hid_t  dset_id    = H5I_INVALID_HID;
    hid_t  dset_dtype = H5I_INVALID_HID;
    hid_t  fspace_id  = H5I_INVALID_HID;

    TESTING_MULTIPART("object visiting");

    /* Make sure the connector supports the API functions being tested */
    if (!(vol_cap_flags_g & (H5VL_CAP_FLAG_FILE_BASIC)) || !(vol_cap_flags_g & H5VL_CAP_FLAG_GROUP_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_OBJECT_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_STORED_DATATYPES) || !(vol_cap_flags_g & H5VL_CAP_FLAG_ITERATE) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_CREATION_ORDER) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_DATASET_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_ATTR_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_STORED_DATATYPES)) {
        SKIPPED();
        HDprintf("    API functions for basic file, group, object, dataset, attribute, stored datatype, "
                 "iterate, or creation order aren't supported with this connector\n");
        return 0;
    }

    TESTING_2("test setup");

    if ((file_id = H5Fopen(H5_api_test_filename, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open file '%s'\n", H5_api_test_filename);
        goto error;
    }

    if ((container_group = H5Gopen2(file_id, OBJECT_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open container group '%s'\n", OBJECT_TEST_GROUP_NAME);
        goto error;
    }

    if ((gcpl_id = H5Pcreate(H5P_GROUP_CREATE)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create a GCPL\n");
        goto error;
    }

    if (H5Pset_link_creation_order(gcpl_id, H5P_CRT_ORDER_TRACKED | H5P_CRT_ORDER_INDEXED) < 0) {
        H5_FAILED();
        HDprintf("    couldn't enable link creation order tracking and indexing on GCPL\n");
        goto error;
    }

    if ((group_id = H5Gcreate2(container_group, OBJECT_VISIT_TEST_SUBGROUP_NAME, H5P_DEFAULT, gcpl_id,
                               H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create container sub-group '%s'\n", OBJECT_VISIT_TEST_SUBGROUP_NAME);
        goto error;
    }

    if ((fspace_id = generate_random_dataspace(OBJECT_VISIT_TEST_SPACE_RANK, NULL, NULL, FALSE)) < 0)
        TEST_ERROR;

    if ((dset_dtype = generate_random_datatype(H5T_NO_CLASS, FALSE)) < 0)
        TEST_ERROR;

    if ((type_id = generate_random_datatype(H5T_NO_CLASS, FALSE)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create datatype '%s'\n", OBJECT_VISIT_TEST_TYPE_NAME);
        goto error;
    }

    if ((group_id2 = H5Gcreate2(group_id, OBJECT_VISIT_TEST_GROUP_NAME, H5P_DEFAULT, gcpl_id, H5P_DEFAULT)) <
        0) {
        H5_FAILED();
        HDprintf("    couldn't create group '%s'\n", OBJECT_VISIT_TEST_GROUP_NAME);
        goto error;
    }

    if ((dset_id = H5Dcreate2(group_id, OBJECT_VISIT_TEST_DSET_NAME, dset_dtype, fspace_id, H5P_DEFAULT,
                              H5P_DEFAULT, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create dataset '%s'\n", OBJECT_VISIT_TEST_DSET_NAME);
        goto error;
    }

    if (H5Tcommit2(group_id, OBJECT_VISIT_TEST_TYPE_NAME, type_id, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT) <
        0) {
        H5_FAILED();
        HDprintf("    couldn't commit datatype '%s'\n", OBJECT_VISIT_TEST_TYPE_NAME);
        goto error;
    }

    PASSED();

    BEGIN_MULTIPART
    {
        /*
         * NOTE: A counter is passed to the iteration callback to try to match up
         * the expected objects with a given step throughout all of the following
         * iterations. This is to try and check that the objects are indeed being
         * returned in the correct order.
         */

        PART_BEGIN(H5Ovisit_obj_name_increasing)
        {
            TESTING_2("H5Ovisit by object name in increasing order");

            i = 0;

            if (H5Ovisit3(group_id, H5_INDEX_NAME, H5_ITER_INC, object_visit_callback, &i, H5O_INFO_ALL) <
                0) {
                H5_FAILED();
                HDprintf("    H5Ovisit by object name in increasing order failed\n");
                PART_ERROR(H5Ovisit_obj_name_increasing);
            }

            if (i != OBJECT_VISIT_TEST_NUM_OBJS_VISITED) {
                H5_FAILED();
                HDprintf("    some objects were not visited!\n");
                PART_ERROR(H5Ovisit_obj_name_increasing);
            }

            PASSED();
        }
        PART_END(H5Ovisit_obj_name_increasing);

        PART_BEGIN(H5Ovisit_obj_name_decreasing)
        {
            TESTING_2("H5Ovisit by object name in decreasing order");
#ifndef NO_DECREASING_ALPHA_ITER_ORDER
            /* Reset the counter to the appropriate value for the next test */
            i = OBJECT_VISIT_TEST_NUM_OBJS_VISITED;

            if (H5Ovisit3(group_id, H5_INDEX_NAME, H5_ITER_DEC, object_visit_callback, &i, H5O_INFO_ALL) <
                0) {
                H5_FAILED();
                HDprintf("    H5Ovisit by object name in decreasing order failed\n");
                PART_ERROR(H5Ovisit_obj_name_decreasing);
            }

            if (i != 2 * OBJECT_VISIT_TEST_NUM_OBJS_VISITED) {
                H5_FAILED();
                HDprintf("    some objects were not visited!\n");
                PART_ERROR(H5Ovisit_obj_name_decreasing);
            }

            PASSED();
#else
            SKIPPED();
            PART_EMPTY(H5Ovisit_obj_name_decreasing);
#endif
        }
        PART_END(H5Ovisit_obj_name_decreasing);

        PART_BEGIN(H5Ovisit_create_order_increasing)
        {
            TESTING_2("H5Ovisit by creation order in increasing order");

            /* Reset the counter to the appropriate value for the next test */
            i = 2 * OBJECT_VISIT_TEST_NUM_OBJS_VISITED;

            if (H5Ovisit3(group_id, H5_INDEX_CRT_ORDER, H5_ITER_INC, object_visit_callback, &i,
                          H5O_INFO_ALL) < 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit by creation order in increasing order failed\n");
                PART_ERROR(H5Ovisit_create_order_increasing);
            }

            if (i != 3 * OBJECT_VISIT_TEST_NUM_OBJS_VISITED) {
                H5_FAILED();
                HDprintf("    some objects were not visited!\n");
                PART_ERROR(H5Ovisit_create_order_increasing);
            }

            PASSED();
        }
        PART_END(H5Ovisit_create_order_increasing);

        PART_BEGIN(H5Ovisit_create_order_decreasing)
        {
            TESTING_2("H5Ovisit by creation order in decreasing order");

            /* Reset the counter to the appropriate value for the next test */
            i = 3 * OBJECT_VISIT_TEST_NUM_OBJS_VISITED;

            if (H5Ovisit3(group_id, H5_INDEX_CRT_ORDER, H5_ITER_DEC, object_visit_callback, &i,
                          H5O_INFO_ALL) < 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit by creation order in decreasing order failed\n");
                PART_ERROR(H5Ovisit_create_order_decreasing);
            }

            if (i != 4 * OBJECT_VISIT_TEST_NUM_OBJS_VISITED) {
                H5_FAILED();
                HDprintf("    some objects were not visited!\n");
                PART_ERROR(H5Ovisit_create_order_decreasing);
            }

            PASSED();
        }
        PART_END(H5Ovisit_create_order_decreasing);

        PART_BEGIN(H5Ovisit_file)
        {
            TESTING_2("H5Ovisit on a file ID");

            /*
             * XXX:
             */

            SKIPPED();
            PART_EMPTY(H5Ovisit_file);
        }
        PART_END(H5Ovisit_file);

        PART_BEGIN(H5Ovisit_dset)
        {
            TESTING_2("H5Ovisit on a dataset ID");

            if (H5Ovisit3(dset_id, H5_INDEX_NAME, H5_ITER_INC, object_visit_dset_callback, NULL,
                          H5O_INFO_ALL) < 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit failed\n");
                PART_ERROR(H5Ovisit_dset);
            }

            PASSED();
        }
        PART_END(H5Ovisit_dset);

        PART_BEGIN(H5Ovisit_dtype)
        {
            TESTING_2("H5Ovisit on a committed datatype ID");

            if (H5Ovisit3(type_id, H5_INDEX_NAME, H5_ITER_INC, object_visit_dtype_callback, NULL,
                          H5O_INFO_ALL) < 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit failed\n");
                PART_ERROR(H5Ovisit_dtype);
            }

            PASSED();
        }
        PART_END(H5Ovisit_dtype);

        PART_BEGIN(H5Ovisit_by_name_obj_name_increasing)
        {
            TESTING_2("H5Ovisit_by_name by object name in increasing order");

            /* Reset the counter to the appropriate value for the next test */
            i = 0;

            /* First, test visiting using "." for the object name */
            if (H5Ovisit_by_name3(group_id, ".", H5_INDEX_NAME, H5_ITER_INC, object_visit_callback, &i,
                                  H5O_INFO_ALL, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit_by_name by object name in increasing order failed\n");
                PART_ERROR(H5Ovisit_by_name_obj_name_increasing);
            }

            if (i != OBJECT_VISIT_TEST_NUM_OBJS_VISITED) {
                H5_FAILED();
                HDprintf("    some objects were not visited!\n");
                PART_ERROR(H5Ovisit_by_name_obj_name_increasing);
            }

            /* Reset the special counter and repeat the test using an indirect object name. */
            i = 0;

            if (H5Ovisit_by_name3(container_group, OBJECT_VISIT_TEST_SUBGROUP_NAME, H5_INDEX_NAME,
                                  H5_ITER_INC, object_visit_callback, &i, H5O_INFO_ALL, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit_by_name by object name in increasing order failed\n");
                PART_ERROR(H5Ovisit_by_name_obj_name_increasing);
            }

            if (i != OBJECT_VISIT_TEST_NUM_OBJS_VISITED) {
                H5_FAILED();
                HDprintf("    some objects were not visited!\n");
                PART_ERROR(H5Ovisit_by_name_obj_name_increasing);
            }

            PASSED();
        }
        PART_END(H5Ovisit_by_name_obj_name_increasing);

        PART_BEGIN(H5Ovisit_by_name_obj_name_decreasing)
        {
            TESTING_2("H5Ovisit_by_name by object name in decreasing order");
#ifndef NO_DECREASING_ALPHA_ITER_ORDER
            /* Reset the counter to the appropriate value for the next test */
            i = OBJECT_VISIT_TEST_NUM_OBJS_VISITED;

            /* First, test visiting using "." for the object name */
            if (H5Ovisit_by_name3(group_id, ".", H5_INDEX_NAME, H5_ITER_DEC, object_visit_callback, &i,
                                  H5O_INFO_ALL, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit_by_name by object name in decreasing order failed\n");
                PART_ERROR(H5Ovisit_by_name_obj_name_decreasing);
            }

            if (i != 2 * OBJECT_VISIT_TEST_NUM_OBJS_VISITED) {
                H5_FAILED();
                HDprintf("    some objects were not visited!\n");
                PART_ERROR(H5Ovisit_by_name_obj_name_decreasing);
            }

            /* Reset the special counter and repeat the test using an indirect object name. */
            i = OBJECT_VISIT_TEST_NUM_OBJS_VISITED;

            if (H5Ovisit_by_name3(container_group, OBJECT_VISIT_TEST_SUBGROUP_NAME, H5_INDEX_NAME,
                                  H5_ITER_DEC, object_visit_callback, &i, H5O_INFO_ALL, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit_by_name by object name in decreasing order failed\n");
                PART_ERROR(H5Ovisit_by_name_obj_name_decreasing);
            }

            if (i != 2 * OBJECT_VISIT_TEST_NUM_OBJS_VISITED) {
                H5_FAILED();
                HDprintf("    some objects were not visited!\n");
                PART_ERROR(H5Ovisit_by_name_obj_name_decreasing);
            }

            PASSED();
#else
            SKIPPED();
            PART_EMPTY(H5Ovisit_by_name_obj_name_decreasing);
#endif
        }
        PART_END(H5Ovisit_by_name_obj_name_decreasing);

        PART_BEGIN(H5Ovisit_by_name_create_order_increasing)
        {
            TESTING_2("H5Ovisit_by_name by creation order in increasing order");

            /* Reset the counter to the appropriate value for the next test */
            i = 2 * OBJECT_VISIT_TEST_NUM_OBJS_VISITED;

            /* First, test visiting using "." for the object name */
            if (H5Ovisit_by_name3(group_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, object_visit_callback, &i,
                                  H5O_INFO_ALL, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit_by_name by creation order in increasing order failed\n");
                PART_ERROR(H5Ovisit_by_name_create_order_increasing);
            }

            if (i != 3 * OBJECT_VISIT_TEST_NUM_OBJS_VISITED) {
                H5_FAILED();
                HDprintf("    some objects were not visited!\n");
                PART_ERROR(H5Ovisit_by_name_create_order_increasing);
            }

            /* Reset the special counter and repeat the test using an indirect object name. */
            i = 2 * OBJECT_VISIT_TEST_NUM_OBJS_VISITED;

            if (H5Ovisit_by_name3(container_group, OBJECT_VISIT_TEST_SUBGROUP_NAME, H5_INDEX_CRT_ORDER,
                                  H5_ITER_INC, object_visit_callback, &i, H5O_INFO_ALL, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit_by_name by creation order in increasing order failed\n");
                PART_ERROR(H5Ovisit_by_name_create_order_increasing);
            }

            if (i != 3 * OBJECT_VISIT_TEST_NUM_OBJS_VISITED) {
                H5_FAILED();
                HDprintf("    some objects were not visited!\n");
                PART_ERROR(H5Ovisit_by_name_create_order_increasing);
            }

            PASSED();
        }
        PART_END(H5Ovisit_by_name_create_order_increasing);

        PART_BEGIN(H5Ovisit_by_name_create_order_decreasing)
        {
            TESTING_2("H5Ovisit_by_name by creation order in decreasing order");

            /* Reset the counter to the appropriate value for the next test */
            i = 3 * OBJECT_VISIT_TEST_NUM_OBJS_VISITED;

            /* First, test visiting using "." for the object name */
            if (H5Ovisit_by_name3(group_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, object_visit_callback, &i,
                                  H5O_INFO_ALL, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit_by_name by creation order in decreasing order failed\n");
                PART_ERROR(H5Ovisit_by_name_create_order_decreasing);
            }

            if (i != 4 * OBJECT_VISIT_TEST_NUM_OBJS_VISITED) {
                H5_FAILED();
                HDprintf("    some objects were not visited!\n");
                PART_ERROR(H5Ovisit_by_name_create_order_decreasing);
            }

            /* Reset the special counter and repeat the test using an indirect object name. */
            i = 3 * OBJECT_VISIT_TEST_NUM_OBJS_VISITED;

            if (H5Ovisit_by_name3(container_group, OBJECT_VISIT_TEST_SUBGROUP_NAME, H5_INDEX_CRT_ORDER,
                                  H5_ITER_DEC, object_visit_callback, &i, H5O_INFO_ALL, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit_by_name by creation order in decreasing order failed\n");
                PART_ERROR(H5Ovisit_by_name_create_order_decreasing);
            }

            if (i != 4 * OBJECT_VISIT_TEST_NUM_OBJS_VISITED) {
                H5_FAILED();
                HDprintf("    some objects were not visited!\n");
                PART_ERROR(H5Ovisit_by_name_create_order_decreasing);
            }

            PASSED();
        }
        PART_END(H5Ovisit_by_name_create_order_decreasing);

        PART_BEGIN(H5Ovisit_by_name_file)
        {
            TESTING_2("H5Ovisit_by_name on a file ID");

            /*
             * XXX:
             */

            SKIPPED();
            PART_EMPTY(H5Ovisit_by_name_file);
        }
        PART_END(H5Ovisit_by_name_file);

        PART_BEGIN(H5Ovisit_by_name_dset)
        {
            TESTING_2("H5Ovisit_by_name on a dataset ID");

            if (H5Ovisit_by_name3(group_id, OBJECT_VISIT_TEST_DSET_NAME, H5_INDEX_NAME, H5_ITER_INC,
                                  object_visit_dset_callback, NULL, H5O_INFO_ALL, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit_by_name failed\n");
                PART_ERROR(H5Ovisit_by_name_dset);
            }

            PASSED();
        }
        PART_END(H5Ovisit_by_name_dset);

        PART_BEGIN(H5Ovisit_by_name_dtype)
        {
            TESTING_2("H5Ovisit_by_name on a committed datatype ID");

            if (H5Ovisit_by_name3(group_id, OBJECT_VISIT_TEST_TYPE_NAME, H5_INDEX_NAME, H5_ITER_INC,
                                  object_visit_dtype_callback, NULL, H5O_INFO_ALL, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit_by_name failed\n");
                PART_ERROR(H5Ovisit_by_name_dtype);
            }

            PASSED();
        }
        PART_END(H5Ovisit_by_name_dtype);
    }
    END_MULTIPART;

    TESTING_2("test cleanup");

    if (H5Sclose(fspace_id) < 0)
        TEST_ERROR;
    if (H5Tclose(dset_dtype) < 0)
        TEST_ERROR;
    if (H5Tclose(type_id) < 0)
        TEST_ERROR;
    if (H5Dclose(dset_id) < 0)
        TEST_ERROR;
    if (H5Pclose(gcpl_id) < 0)
        TEST_ERROR;
    if (H5Gclose(group_id2) < 0)
        TEST_ERROR;
    if (H5Gclose(group_id) < 0)
        TEST_ERROR;
    if (H5Gclose(container_group) < 0)
        TEST_ERROR;
    if (H5Fclose(file_id) < 0)
        TEST_ERROR;

    PASSED();

    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Sclose(fspace_id);
        H5Tclose(dset_dtype);
        H5Tclose(type_id);
        H5Dclose(dset_id);
        H5Pclose(gcpl_id);
        H5Gclose(group_id2);
        H5Gclose(group_id);
        H5Gclose(container_group);
        H5Fclose(file_id);
    }
    H5E_END_TRY;

    return 1;
}

/*
 * A test for H5Ovisit(_by_name) on soft links. Since
 * H5Ovisit(_by_name) ignores soft links, this test is
 * meant to verify that behavior by placing objects and
 * the soft links pointing to those objects in separate
 * groups. Visiting is done only on the group containing
 * the links to ensure that the objects in the other group
 * do not get visited.
 */
static int
test_object_visit_soft_link(void)
{
    size_t i;
    hid_t  file_id         = H5I_INVALID_HID;
    hid_t  container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
    hid_t  subgroup_id = H5I_INVALID_HID, subgroup_id2 = H5I_INVALID_HID;
    hid_t  linked_group_id = H5I_INVALID_HID;
    hid_t  gcpl_id         = H5I_INVALID_HID;

    TESTING_MULTIPART("object visiting with soft links");

    /* Make sure the connector supports the API functions being tested */
    if (!(vol_cap_flags_g & (H5VL_CAP_FLAG_FILE_BASIC)) || !(vol_cap_flags_g & H5VL_CAP_FLAG_GROUP_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_OBJECT_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_ITERATE) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_CREATION_ORDER) || !(vol_cap_flags_g & H5VL_CAP_FLAG_SOFT_LINKS)) {
        SKIPPED();
        HDprintf("    API functions for basic file, group, object, soft link, iterate, or creation order "
                 "aren't supported with this connector\n");
        return 0;
    }

    TESTING_2("test setup");

    if ((file_id = H5Fopen(H5_api_test_filename, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open file '%s'\n", H5_api_test_filename);
        goto error;
    }

    if ((container_group = H5Gopen2(file_id, OBJECT_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open container group '%s'\n", OBJECT_TEST_GROUP_NAME);
        goto error;
    }

    if ((gcpl_id = H5Pcreate(H5P_GROUP_CREATE)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create a GCPL\n");
        goto error;
    }

    if (H5Pset_link_creation_order(gcpl_id, H5P_CRT_ORDER_TRACKED | H5P_CRT_ORDER_INDEXED) < 0) {
        H5_FAILED();
        HDprintf("    couldn't enable link creation order tracking and indexing on GCPL\n");
        goto error;
    }

    if ((group_id = H5Gcreate2(container_group, OBJECT_VISIT_SOFT_LINK_TEST_SUBGROUP_NAME, H5P_DEFAULT,
                               gcpl_id, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create container sub-group '%s'\n", OBJECT_VISIT_SOFT_LINK_TEST_SUBGROUP_NAME);
        goto error;
    }

    /* Create group to hold soft links */
    if ((subgroup_id = H5Gcreate2(group_id, OBJECT_VISIT_SOFT_LINK_TEST_GROUP_NAME1, H5P_DEFAULT, gcpl_id,
                                  H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create group '%s'\n", OBJECT_VISIT_SOFT_LINK_TEST_GROUP_NAME1);
        goto error;
    }

    /* Create group to hold objects pointed to by soft links */
    if ((subgroup_id2 = H5Gcreate2(group_id, OBJECT_VISIT_SOFT_LINK_TEST_GROUP_NAME2, H5P_DEFAULT, gcpl_id,
                                   H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create group '%s'\n", OBJECT_VISIT_SOFT_LINK_TEST_GROUP_NAME2);
        goto error;
    }

    /* Create objects under subgroup 2 */
    if ((linked_group_id = H5Gcreate2(subgroup_id2, OBJECT_VISIT_SOFT_LINK_TEST_OBJ_NAME1, H5P_DEFAULT,
                                      gcpl_id, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create group '%s'\n", OBJECT_VISIT_SOFT_LINK_TEST_OBJ_NAME1);
        goto error;
    }

    if (H5Gclose(linked_group_id) < 0) {
        H5_FAILED();
        HDprintf("    couldn't close group '%s'\n", OBJECT_VISIT_SOFT_LINK_TEST_OBJ_NAME1);
        goto error;
    }

    if ((linked_group_id = H5Gcreate2(subgroup_id2, OBJECT_VISIT_SOFT_LINK_TEST_OBJ_NAME2, H5P_DEFAULT,
                                      gcpl_id, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create group '%s'\n", OBJECT_VISIT_SOFT_LINK_TEST_OBJ_NAME2);
        goto error;
    }

    if (H5Gclose(linked_group_id) < 0) {
        H5_FAILED();
        HDprintf("    couldn't close group '%s'\n", OBJECT_VISIT_SOFT_LINK_TEST_OBJ_NAME2);
        goto error;
    }

    if ((linked_group_id = H5Gcreate2(subgroup_id2, OBJECT_VISIT_SOFT_LINK_TEST_OBJ_NAME3, H5P_DEFAULT,
                                      gcpl_id, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create group '%s'\n", OBJECT_VISIT_SOFT_LINK_TEST_OBJ_NAME3);
        goto error;
    }

    if (H5Gclose(linked_group_id) < 0) {
        H5_FAILED();
        HDprintf("    couldn't close group '%s'\n", OBJECT_VISIT_SOFT_LINK_TEST_OBJ_NAME3);
        goto error;
    }

    if (H5Gclose(subgroup_id2) < 0) {
        H5_FAILED();
        HDprintf("    couldn't close group '%s'\n", OBJECT_VISIT_SOFT_LINK_TEST_GROUP_NAME2);
        goto error;
    }

    /* Create soft links under subgroup 1 to point to the previously-created objects */
    if (H5Lcreate_soft("/" OBJECT_TEST_GROUP_NAME "/" OBJECT_VISIT_SOFT_LINK_TEST_SUBGROUP_NAME
                       "/" OBJECT_VISIT_SOFT_LINK_TEST_GROUP_NAME2 "/" OBJECT_VISIT_SOFT_LINK_TEST_OBJ_NAME1,
                       subgroup_id, OBJECT_VISIT_SOFT_LINK_TEST_LINK_NAME1, H5P_DEFAULT, H5P_DEFAULT) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create soft link '%s'\n", OBJECT_VISIT_SOFT_LINK_TEST_LINK_NAME1);
        goto error;
    }

    if (H5Lcreate_soft("/" OBJECT_TEST_GROUP_NAME "/" OBJECT_VISIT_SOFT_LINK_TEST_SUBGROUP_NAME
                       "/" OBJECT_VISIT_SOFT_LINK_TEST_GROUP_NAME2 "/" OBJECT_VISIT_SOFT_LINK_TEST_OBJ_NAME2,
                       subgroup_id, OBJECT_VISIT_SOFT_LINK_TEST_LINK_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create soft link '%s'\n", OBJECT_VISIT_SOFT_LINK_TEST_LINK_NAME2);
        goto error;
    }

    if (H5Lcreate_soft("/" OBJECT_TEST_GROUP_NAME "/" OBJECT_VISIT_SOFT_LINK_TEST_SUBGROUP_NAME
                       "/" OBJECT_VISIT_SOFT_LINK_TEST_GROUP_NAME2 "/" OBJECT_VISIT_SOFT_LINK_TEST_OBJ_NAME3,
                       subgroup_id, OBJECT_VISIT_SOFT_LINK_TEST_LINK_NAME3, H5P_DEFAULT, H5P_DEFAULT) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create soft link '%s'\n", OBJECT_VISIT_SOFT_LINK_TEST_LINK_NAME3);
        goto error;
    }

    PASSED();

    BEGIN_MULTIPART
    {
        /*
         * NOTE: A counter is passed to the iteration callback to try to match up
         * the expected objects with a given step throughout all of the following
         * iterations. This is to try and check that the objects are indeed being
         * returned in the correct order.
         */

        PART_BEGIN(H5Ovisit_obj_name_increasing)
        {
            TESTING_2("H5Ovisit by object name in increasing order");

            i = 0;

            if (H5Ovisit3(subgroup_id, H5_INDEX_NAME, H5_ITER_INC, object_visit_soft_link_callback, &i,
                          H5O_INFO_ALL) < 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit by object name in increasing order failed\n");
                PART_ERROR(H5Ovisit_obj_name_increasing);
            }

            if (i != OBJECT_VISIT_SOFT_LINK_TEST_NUM_OBJS_VISITED) {
                H5_FAILED();
                HDprintf("    some objects were not visited!\n");
                PART_ERROR(H5Ovisit_obj_name_increasing);
            }

            PASSED();
        }
        PART_END(H5Ovisit_obj_name_increasing);

        PART_BEGIN(H5Ovisit_obj_name_decreasing)
        {
            TESTING_2("H5Ovisit by object name in decreasing order");
#ifndef NO_DECREASING_ALPHA_ITER_ORDER
            /* Reset the counter to the appropriate value for the next test */
            i = OBJECT_VISIT_SOFT_LINK_TEST_NUM_OBJS_VISITED;

            if (H5Ovisit3(subgroup_id, H5_INDEX_NAME, H5_ITER_DEC, object_visit_soft_link_callback, &i,
                          H5O_INFO_ALL) < 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit by object name in decreasing order failed\n");
                PART_ERROR(H5Ovisit_obj_name_decreasing);
            }

            if (i != 2 * OBJECT_VISIT_SOFT_LINK_TEST_NUM_OBJS_VISITED) {
                H5_FAILED();
                HDprintf("    some objects were not visited!\n");
                PART_ERROR(H5Ovisit_obj_name_decreasing);
            }

            PASSED();
#else
            SKIPPED();
            PART_EMPTY(H5Ovisit_obj_name_decreasing);
#endif
        }
        PART_END(H5Ovisit_obj_name_decreasing);

        PART_BEGIN(H5Ovisit_create_order_increasing)
        {
            TESTING_2("H5Ovisit by creation order in increasing order");

            /* Reset the counter to the appropriate value for the next test */
            i = 2 * OBJECT_VISIT_SOFT_LINK_TEST_NUM_OBJS_VISITED;

            if (H5Ovisit3(subgroup_id, H5_INDEX_CRT_ORDER, H5_ITER_INC, object_visit_soft_link_callback, &i,
                          H5O_INFO_ALL) < 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit by creation order in increasing order failed\n");
                PART_ERROR(H5Ovisit_create_order_increasing);
            }

            if (i != 3 * OBJECT_VISIT_SOFT_LINK_TEST_NUM_OBJS_VISITED) {
                H5_FAILED();
                HDprintf("    some objects were not visited!\n");
                PART_ERROR(H5Ovisit_create_order_increasing);
            }

            PASSED();
        }
        PART_END(H5Ovisit_create_order_increasing);

        PART_BEGIN(H5Ovisit_create_order_decreasing)
        {
            TESTING_2("H5Ovisit by creation order in decreasing order");

            /* Reset the counter to the appropriate value for the next test */
            i = 3 * OBJECT_VISIT_SOFT_LINK_TEST_NUM_OBJS_VISITED;

            if (H5Ovisit3(subgroup_id, H5_INDEX_CRT_ORDER, H5_ITER_DEC, object_visit_soft_link_callback, &i,
                          H5O_INFO_ALL) < 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit by creation order in decreasing order failed\n");
                PART_ERROR(H5Ovisit_create_order_decreasing);
            }

            if (i != 4 * OBJECT_VISIT_SOFT_LINK_TEST_NUM_OBJS_VISITED) {
                H5_FAILED();
                HDprintf("    some objects were not visited!\n");
                PART_ERROR(H5Ovisit_create_order_decreasing);
            }

            PASSED();
        }
        PART_END(H5Ovisit_create_order_decreasing);

        PART_BEGIN(H5Ovisit_by_name_obj_name_increasing)
        {
            TESTING_2("H5Ovisit_by_name by object name in increasing order");

            /* Reset the counter to the appropriate value for the next test */
            i = 0;

            /* First, test visiting using "." for the object name */
            if (H5Ovisit_by_name3(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC,
                                  object_visit_soft_link_callback, &i, H5O_INFO_ALL, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit_by_name by object name in increasing order failed\n");
                PART_ERROR(H5Ovisit_by_name_obj_name_increasing);
            }

            if (i != OBJECT_VISIT_SOFT_LINK_TEST_NUM_OBJS_VISITED) {
                H5_FAILED();
                HDprintf("    some objects were not visited!\n");
                PART_ERROR(H5Ovisit_by_name_obj_name_increasing);
            }

            /* Reset the special counter and repeat the test using an indirect object name. */
            i = 0;

            /* Repeat the test using an indirect object name */
            if (H5Ovisit_by_name3(group_id, OBJECT_VISIT_SOFT_LINK_TEST_GROUP_NAME1, H5_INDEX_NAME,
                                  H5_ITER_INC, object_visit_soft_link_callback, &i, H5O_INFO_ALL,
                                  H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit_by_name by object name in increasing order failed\n");
                PART_ERROR(H5Ovisit_by_name_obj_name_increasing);
            }

            if (i != OBJECT_VISIT_SOFT_LINK_TEST_NUM_OBJS_VISITED) {
                H5_FAILED();
                HDprintf("    some objects were not visited!\n");
                PART_ERROR(H5Ovisit_by_name_obj_name_increasing);
            }

            PASSED();
        }
        PART_END(H5Ovisit_by_name_obj_name_increasing);

        PART_BEGIN(H5Ovisit_by_name_obj_name_decreasing)
        {
            TESTING_2("H5Ovisit_by_name by object name in decreasing order");
#ifndef NO_DECREASING_ALPHA_ITER_ORDER
            /* Reset the counter to the appropriate value for the next test */
            i = OBJECT_VISIT_SOFT_LINK_TEST_NUM_OBJS_VISITED;

            /* First, test visiting using "." for the object name */
            if (H5Ovisit_by_name3(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC,
                                  object_visit_soft_link_callback, &i, H5O_INFO_ALL, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit_by_name by object name in decreasing order failed\n");
                PART_ERROR(H5Ovisit_by_name_obj_name_decreasing);
            }

            if (i != 2 * OBJECT_VISIT_SOFT_LINK_TEST_NUM_OBJS_VISITED) {
                H5_FAILED();
                HDprintf("    some objects were not visited!\n");
                PART_ERROR(H5Ovisit_by_name_obj_name_decreasing);
            }

            /* Reset the special counter and repeat the test using an indirect object name. */
            i = OBJECT_VISIT_SOFT_LINK_TEST_NUM_OBJS_VISITED;

            /* Repeat the test using an indirect object name */
            if (H5Ovisit_by_name3(group_id, OBJECT_VISIT_SOFT_LINK_TEST_GROUP_NAME1, H5_INDEX_NAME,
                                  H5_ITER_DEC, object_visit_soft_link_callback, &i, H5O_INFO_ALL,
                                  H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit_by_name by object name in decreasing order failed\n");
                PART_ERROR(H5Ovisit_by_name_obj_name_decreasing);
            }

            if (i != 2 * OBJECT_VISIT_SOFT_LINK_TEST_NUM_OBJS_VISITED) {
                H5_FAILED();
                HDprintf("    some objects were not visited!\n");
                PART_ERROR(H5Ovisit_by_name_obj_name_decreasing);
            }

            PASSED();
#else
            SKIPPED();
            PART_EMPTY(H5Ovisit_by_name_obj_name_decreasing);
#endif
        }
        PART_END(H5Ovisit_by_name_obj_name_decreasing);

        PART_BEGIN(H5Ovisit_by_name_create_order_increasing)
        {
            TESTING_2("H5Ovisit_by_name by creation order in increasing order");

            /* Reset the counter to the appropriate value for the next test */
            i = 2 * OBJECT_VISIT_SOFT_LINK_TEST_NUM_OBJS_VISITED;

            /* First, test visiting using "." for the object name */
            if (H5Ovisit_by_name3(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC,
                                  object_visit_soft_link_callback, &i, H5O_INFO_ALL, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit_by_name by creation order in increasing order failed\n");
                PART_ERROR(H5Ovisit_by_name_create_order_increasing);
            }

            if (i != 3 * OBJECT_VISIT_SOFT_LINK_TEST_NUM_OBJS_VISITED) {
                H5_FAILED();
                HDprintf("    some objects were not visited!\n");
                PART_ERROR(H5Ovisit_by_name_create_order_increasing);
            }

            /* Reset the special counter and repeat the test using an indirect object name. */
            i = 2 * OBJECT_VISIT_SOFT_LINK_TEST_NUM_OBJS_VISITED;

            /* Repeat the test using an indirect object name */
            if (H5Ovisit_by_name3(group_id, OBJECT_VISIT_SOFT_LINK_TEST_GROUP_NAME1, H5_INDEX_CRT_ORDER,
                                  H5_ITER_INC, object_visit_soft_link_callback, &i, H5O_INFO_ALL,
                                  H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit_by_name by creation order in increasing order failed\n");
                PART_ERROR(H5Ovisit_by_name_create_order_increasing);
            }

            if (i != 3 * OBJECT_VISIT_SOFT_LINK_TEST_NUM_OBJS_VISITED) {
                H5_FAILED();
                HDprintf("    some objects were not visited!\n");
                PART_ERROR(H5Ovisit_by_name_create_order_increasing);
            }

            PASSED();
        }
        PART_END(H5Ovisit_by_name_create_order_increasing);

        PART_BEGIN(H5Ovisit_by_name_create_order_decreasing)
        {
            TESTING_2("H5Ovisit_by_name by creation order in decreasing order");

            /* Reset the counter to the appropriate value for the next test */
            i = 3 * OBJECT_VISIT_SOFT_LINK_TEST_NUM_OBJS_VISITED;

            /* First, test visiting using "." for the object name */
            if (H5Ovisit_by_name3(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC,
                                  object_visit_soft_link_callback, &i, H5O_INFO_ALL, H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit_by_name by creation order in decreasing order failed\n");
                PART_ERROR(H5Ovisit_by_name_create_order_decreasing);
            }

            if (i != 4 * OBJECT_VISIT_SOFT_LINK_TEST_NUM_OBJS_VISITED) {
                H5_FAILED();
                HDprintf("    some objects were not visited!\n");
                PART_ERROR(H5Ovisit_by_name_create_order_decreasing);
            }

            /* Reset the special counter and repeat the test using an indirect object name. */
            i = 3 * OBJECT_VISIT_SOFT_LINK_TEST_NUM_OBJS_VISITED;

            /* Repeat the test using an indirect object name */
            if (H5Ovisit_by_name3(group_id, OBJECT_VISIT_SOFT_LINK_TEST_GROUP_NAME1, H5_INDEX_CRT_ORDER,
                                  H5_ITER_DEC, object_visit_soft_link_callback, &i, H5O_INFO_ALL,
                                  H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit_by_name by creation order in decreasing order failed\n");
                PART_ERROR(H5Ovisit_by_name_create_order_decreasing);
            }

            if (i != 4 * OBJECT_VISIT_SOFT_LINK_TEST_NUM_OBJS_VISITED) {
                H5_FAILED();
                HDprintf("    some objects were not visited!\n");
                PART_ERROR(H5Ovisit_by_name_create_order_decreasing);
            }

            PASSED();
        }
        PART_END(H5Ovisit_by_name_create_order_decreasing);
    }
    END_MULTIPART;

    TESTING_2("test cleanup");

    if (H5Pclose(gcpl_id) < 0)
        TEST_ERROR;
    if (H5Gclose(subgroup_id) < 0)
        TEST_ERROR;
    if (H5Gclose(group_id) < 0)
        TEST_ERROR;
    if (H5Gclose(container_group) < 0)
        TEST_ERROR;
    if (H5Fclose(file_id) < 0)
        TEST_ERROR;

    PASSED();

    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Pclose(gcpl_id);
        H5Gclose(linked_group_id);
        H5Gclose(subgroup_id);
        H5Gclose(subgroup_id2);
        H5Gclose(group_id);
        H5Gclose(container_group);
        H5Fclose(file_id);
    }
    H5E_END_TRY;

    return 1;
}

/*
 * A test to check that H5Ovisit(_by_name) fails when
 * it is passed invalid parameters.
 */
static int
test_object_visit_invalid_params(void)
{
    herr_t err_ret         = -1;
    hid_t  file_id         = H5I_INVALID_HID;
    hid_t  container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
    hid_t  group_id2 = H5I_INVALID_HID;

    TESTING_MULTIPART("object visiting with invalid parameters");

    /* Make sure the connector supports the API functions being tested */
    if (!(vol_cap_flags_g & H5VL_CAP_FLAG_FILE_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_GROUP_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_ITERATE)) {
        SKIPPED();
        HDprintf(
            "    API functions for basic file, group, or iterate aren't supported with this connector\n");
        return 0;
    }

    TESTING_2("test setup");

    if ((file_id = H5Fopen(H5_api_test_filename, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open file '%s'\n", H5_api_test_filename);
        goto error;
    }

    if ((container_group = H5Gopen2(file_id, OBJECT_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open container group '%s'\n", OBJECT_TEST_GROUP_NAME);
        goto error;
    }

    if ((group_id = H5Gcreate2(container_group, OBJECT_VISIT_INVALID_PARAMS_TEST_SUBGROUP_NAME, H5P_DEFAULT,
                               H5P_DEFAULT, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create container sub-group '%s'\n",
                 OBJECT_VISIT_INVALID_PARAMS_TEST_SUBGROUP_NAME);
        goto error;
    }

    if ((group_id2 = H5Gcreate2(group_id, OBJECT_VISIT_INVALID_PARAMS_TEST_GROUP_NAME, H5P_DEFAULT,
                                H5P_DEFAULT, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create group '%s'\n", OBJECT_VISIT_INVALID_PARAMS_TEST_GROUP_NAME);
        goto error;
    }

    PASSED();

    BEGIN_MULTIPART
    {
        PART_BEGIN(H5Ovisit_invalid_obj_id)
        {
            TESTING_2("H5Ovisit with an invalid object ID");

            H5E_BEGIN_TRY
            {
                err_ret = H5Ovisit3(H5I_INVALID_HID, H5_INDEX_NAME, H5_ITER_INC, object_visit_noop_callback,
                                    NULL, H5O_INFO_ALL);
            }
            H5E_END_TRY;

            if (err_ret >= 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit succeeded with an invalid object ID!\n");
                PART_ERROR(H5Ovisit_invalid_obj_id);
            }

            PASSED();
        }
        PART_END(H5Ovisit_invalid_obj_id);

        PART_BEGIN(H5Ovisit_invalid_index_type)
        {
            TESTING_2("H5Ovisit with an invalid index type");

            H5E_BEGIN_TRY
            {
                err_ret = H5Ovisit3(group_id, H5_INDEX_UNKNOWN, H5_ITER_INC, object_visit_noop_callback, NULL,
                                    H5O_INFO_ALL);
            }
            H5E_END_TRY;

            if (err_ret >= 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit succeeded with invalid index type H5_INDEX_UNKNOWN!\n");
                PART_ERROR(H5Ovisit_invalid_index_type);
            }

            H5E_BEGIN_TRY
            {
                err_ret = H5Ovisit3(group_id, H5_INDEX_N, H5_ITER_INC, object_visit_noop_callback, NULL,
                                    H5O_INFO_ALL);
            }
            H5E_END_TRY;

            if (err_ret >= 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit succeeded with invalid index type H5_INDEX_N!\n");
                PART_ERROR(H5Ovisit_invalid_index_type);
            }

            PASSED();
        }
        PART_END(H5Ovisit_invalid_index_type);

        PART_BEGIN(H5Ovisit_invalid_iter_order)
        {
            TESTING_2("H5Ovisit with an invalid iteration ordering");

            H5E_BEGIN_TRY
            {
                err_ret = H5Ovisit3(group_id, H5_INDEX_NAME, H5_ITER_UNKNOWN, object_visit_noop_callback,
                                    NULL, H5O_INFO_ALL);
            }
            H5E_END_TRY;

            if (err_ret >= 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit succeeded with invalid iteration ordering H5_ITER_UNKNOWN!\n");
                PART_ERROR(H5Ovisit_invalid_iter_order);
            }

            H5E_BEGIN_TRY
            {
                err_ret = H5Ovisit3(group_id, H5_INDEX_NAME, H5_ITER_N, object_visit_noop_callback, NULL,
                                    H5O_INFO_ALL);
            }
            H5E_END_TRY;

            if (err_ret >= 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit succeeded with invalid iteration ordering H5_ITER_N!\n");
                PART_ERROR(H5Ovisit_invalid_iter_order);
            }

            PASSED();
        }
        PART_END(H5Ovisit_invalid_iter_order);

        PART_BEGIN(H5Ovisit_by_name_invalid_loc_id)
        {
            TESTING_2("H5Ovisit_by_name with an invalid location ID");

            H5E_BEGIN_TRY
            {
                err_ret = H5Ovisit_by_name3(H5I_INVALID_HID, ".", H5_INDEX_NAME, H5_ITER_N,
                                            object_visit_noop_callback, NULL, H5O_INFO_ALL, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (err_ret >= 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit_by_name succeeded with an invalid location ID!\n");
                PART_ERROR(H5Ovisit_by_name_invalid_loc_id);
            }

            PASSED();
        }
        PART_END(H5Ovisit_by_name_invalid_loc_id);

        PART_BEGIN(H5Ovisit_by_name_invalid_obj_name)
        {
            TESTING_2("H5Ovisit_by_name with an invalid object name");

            H5E_BEGIN_TRY
            {
                err_ret = H5Ovisit_by_name3(group_id, NULL, H5_INDEX_NAME, H5_ITER_N,
                                            object_visit_noop_callback, NULL, H5O_INFO_ALL, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (err_ret >= 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit_by_name succeeded with a NULL object name!\n");
                PART_ERROR(H5Ovisit_by_name_invalid_obj_name);
            }

            H5E_BEGIN_TRY
            {
                err_ret = H5Ovisit_by_name3(group_id, "", H5_INDEX_NAME, H5_ITER_N,
                                            object_visit_noop_callback, NULL, H5O_INFO_ALL, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (err_ret >= 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit_by_name succeeded with an invalid object name of ''!\n");
                PART_ERROR(H5Ovisit_by_name_invalid_obj_name);
            }

            PASSED();
        }
        PART_END(H5Ovisit_by_name_invalid_obj_name);

        PART_BEGIN(H5Ovisit_by_name_invalid_index_type)
        {
            TESTING_2("H5Ovisit_by_name with an invalid index type");

            H5E_BEGIN_TRY
            {
                err_ret = H5Ovisit_by_name3(group_id, ".", H5_INDEX_UNKNOWN, H5_ITER_N,
                                            object_visit_noop_callback, NULL, H5O_INFO_ALL, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (err_ret >= 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit_by_name succeeded with invalid index type H5_INDEX_UNKNOWN!\n");
                PART_ERROR(H5Ovisit_by_name_invalid_index_type);
            }

            H5E_BEGIN_TRY
            {
                err_ret = H5Ovisit_by_name3(group_id, ".", H5_INDEX_N, H5_ITER_N, object_visit_noop_callback,
                                            NULL, H5O_INFO_ALL, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (err_ret >= 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit_by_name succeeded with invalid index type H5_INDEX_N!\n");
                PART_ERROR(H5Ovisit_by_name_invalid_index_type);
            }

            PASSED();
        }
        PART_END(H5Ovisit_by_name_invalid_index_type);

        PART_BEGIN(H5Ovisit_by_name_invalid_iter_order)
        {
            TESTING_2("H5Ovisit_by_name with an invalid iteration ordering");

            H5E_BEGIN_TRY
            {
                err_ret = H5Ovisit_by_name3(group_id, ".", H5_INDEX_NAME, H5_ITER_UNKNOWN,
                                            object_visit_noop_callback, NULL, H5O_INFO_ALL, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (err_ret >= 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit_by_name succeeded with invalid iteration ordering H5_ITER_UNKNOWN!\n");
                PART_ERROR(H5Ovisit_by_name_invalid_iter_order);
            }

            H5E_BEGIN_TRY
            {
                err_ret = H5Ovisit_by_name3(group_id, ".", H5_INDEX_NAME, H5_ITER_N,
                                            object_visit_noop_callback, NULL, H5O_INFO_ALL, H5P_DEFAULT);
            }
            H5E_END_TRY;

            if (err_ret >= 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit_by_name succeeded with invalid iteration ordering H5_ITER_N!\n");
                PART_ERROR(H5Ovisit_by_name_invalid_iter_order);
            }

            PASSED();
        }
        PART_END(H5Ovisit_by_name_invalid_iter_order);

        PART_BEGIN(H5Ovisit_by_name_invalid_lapl)
        {
            TESTING_2("H5Ovisit_by_name with an invalid LAPL");

            H5E_BEGIN_TRY
            {
                err_ret = H5Ovisit_by_name3(group_id, ".", H5_INDEX_NAME, H5_ITER_INC,
                                            object_visit_noop_callback, NULL, H5O_INFO_ALL, H5I_INVALID_HID);
            }
            H5E_END_TRY;

            if (err_ret >= 0) {
                H5_FAILED();
                HDprintf("    H5Ovisit_by_name succeeded with an invalid LAPL!\n");
                PART_ERROR(H5Ovisit_by_name_invalid_lapl);
            }

            PASSED();
        }
        PART_END(H5Ovisit_by_name_invalid_lapl);
    }
    END_MULTIPART;

    TESTING_2("test cleanup");

    if (H5Gclose(group_id2) < 0)
        TEST_ERROR;
    if (H5Gclose(group_id) < 0)
        TEST_ERROR;
    if (H5Gclose(container_group) < 0)
        TEST_ERROR;
    if (H5Fclose(file_id) < 0)
        TEST_ERROR;

    PASSED();

    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Gclose(group_id2);
        H5Gclose(group_id);
        H5Gclose(container_group);
        H5Fclose(file_id);
    }
    H5E_END_TRY;

    return 1;
}

/*
 * A test for H5Oclose.
 */
static int
test_close_object(void)
{
    hid_t file_id         = H5I_INVALID_HID;
    hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
    hid_t group_id2  = H5I_INVALID_HID;
    hid_t dtype_id   = H5I_INVALID_HID;
    hid_t dset_id    = H5I_INVALID_HID;
    hid_t dset_dtype = H5I_INVALID_HID;
    hid_t fspace_id  = H5I_INVALID_HID;

    TESTING_MULTIPART("H5Oclose");

    /* Make sure the connector supports the API functions being tested */
    if (!(vol_cap_flags_g & (H5VL_CAP_FLAG_FILE_BASIC)) || !(vol_cap_flags_g & H5VL_CAP_FLAG_GROUP_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_OBJECT_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_DATASET_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_ATTR_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_STORED_DATATYPES)) {
        SKIPPED();
        HDprintf("    API functions for basic file, group, object, dataset, attribute, or stored datatype "
                 "aren't supported with this connector\n");
        return 0;
    }

    TESTING_2("test setup");

    if ((file_id = H5Fopen(H5_api_test_filename, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open file '%s'\n", H5_api_test_filename);
        goto error;
    }

    if ((container_group = H5Gopen2(file_id, OBJECT_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open container group '%s'\n", OBJECT_TEST_GROUP_NAME);
        goto error;
    }

    if ((group_id = H5Gcreate2(container_group, OBJECT_CLOSE_TEST_GROUP_NAME, H5P_DEFAULT, H5P_DEFAULT,
                               H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create container subgroup '%s'\n", OBJECT_CLOSE_TEST_GROUP_NAME);
        goto error;
    }

    if ((fspace_id = generate_random_dataspace(OBJECT_CLOSE_TEST_SPACE_RANK, NULL, NULL, FALSE)) < 0)
        TEST_ERROR;

    if ((dset_dtype = generate_random_datatype(H5T_NO_CLASS, FALSE)) < 0)
        TEST_ERROR;

    PASSED();

    BEGIN_MULTIPART
    {
        PART_BEGIN(H5Oclose_group)
        {
            TESTING_2("H5Oclose on a group");

            if ((group_id2 = H5Gcreate2(group_id, OBJECT_CLOSE_TEST_GRP_NAME, H5P_DEFAULT, H5P_DEFAULT,
                                        H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't create group '%s'\n", OBJECT_CLOSE_TEST_GRP_NAME);
                PART_ERROR(H5Oclose_group);
            }

            H5E_BEGIN_TRY
            {
                H5Gclose(group_id2);
            }
            H5E_END_TRY;

            if ((group_id2 = H5Oopen(group_id, OBJECT_CLOSE_TEST_GRP_NAME, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't open group '%s' with H5Oopen\n", OBJECT_CLOSE_TEST_GRP_NAME);
                PART_ERROR(H5Oclose_group);
            }

            if (H5Oclose(group_id2) < 0) {
                H5_FAILED();
                HDprintf("    couldn't close group '%s' with H5Oclose\n", OBJECT_CLOSE_TEST_GRP_NAME);
                PART_ERROR(H5Oclose_group);
            }

            PASSED();
        }
        PART_END(H5Oclose_group);

        PART_BEGIN(H5Oclose_dset)
        {
            TESTING_2("H5Oclose on a dataset");

            if ((dset_id = H5Dcreate2(group_id, OBJECT_CLOSE_TEST_DSET_NAME, dset_dtype, fspace_id,
                                      H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't create dataset '%s'\n", OBJECT_CLOSE_TEST_DSET_NAME);
                PART_ERROR(H5Oclose_dset);
            }

            H5E_BEGIN_TRY
            {
                H5Dclose(dset_id);
            }
            H5E_END_TRY;

            if ((dset_id = H5Oopen(group_id, OBJECT_CLOSE_TEST_DSET_NAME, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't open dataset '%s' with H5Oopen\n", OBJECT_CLOSE_TEST_DSET_NAME);
                PART_ERROR(H5Oclose_dset);
            }

            if (H5Oclose(dset_id) < 0) {
                H5_FAILED();
                HDprintf("    couldn't close dataset '%s' with H5Oclose\n", OBJECT_CLOSE_TEST_DSET_NAME);
                PART_ERROR(H5Oclose_dset);
            }

            PASSED();
        }
        PART_END(H5Oclose_dset);

        PART_BEGIN(H5Oclose_dtype)
        {
            TESTING_2("H5Oclose on a committed datatype");

            if ((dtype_id = generate_random_datatype(H5T_NO_CLASS, FALSE)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't create datatype '%s'\n", OBJECT_CLOSE_TEST_TYPE_NAME);
                PART_ERROR(H5Oclose_dtype);
            }

            if (H5Tcommit2(group_id, OBJECT_CLOSE_TEST_TYPE_NAME, dtype_id, H5P_DEFAULT, H5P_DEFAULT,
                           H5P_DEFAULT) < 0) {
                H5_FAILED();
                HDprintf("    couldn't commit datatype '%s'\n", OBJECT_CLOSE_TEST_TYPE_NAME);
                PART_ERROR(H5Oclose_dtype);
            }

            H5E_BEGIN_TRY
            {
                H5Tclose(dtype_id);
            }
            H5E_END_TRY;

            if ((dtype_id = H5Oopen(group_id, OBJECT_CLOSE_TEST_TYPE_NAME, H5P_DEFAULT)) < 0) {
                H5_FAILED();
                HDprintf("    couldn't open datatype '%s' with H5Oopen\n", OBJECT_CLOSE_TEST_TYPE_NAME);
                PART_ERROR(H5Oclose_dtype);
            }

            if (H5Oclose(dtype_id) < 0) {
                H5_FAILED();
                HDprintf("    couldn't close datatype '%s' with H5Oclose\n", OBJECT_CLOSE_TEST_TYPE_NAME);
                PART_ERROR(H5Oclose_dtype);
            }

            PASSED();
        }
        PART_END(H5Oclose_dtype);
    }
    END_MULTIPART;

    TESTING_2("test cleanup");

    if (H5Sclose(fspace_id) < 0)
        TEST_ERROR;
    if (H5Tclose(dset_dtype) < 0)
        TEST_ERROR;
    if (H5Gclose(group_id) < 0)
        TEST_ERROR;
    if (H5Gclose(container_group) < 0)
        TEST_ERROR;
    if (H5Fclose(file_id) < 0)
        TEST_ERROR;

    PASSED();

    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Sclose(fspace_id);
        H5Tclose(dset_dtype);
        H5Tclose(dtype_id);
        H5Dclose(dset_id);
        H5Gclose(group_id2);
        H5Gclose(group_id);
        H5Gclose(container_group);
        H5Fclose(file_id);
    }
    H5E_END_TRY;

    return 1;
}

/*
 * A test to check that H5Oclose fails when it
 * is passed invalid parameters.
 */
static int
test_close_object_invalid_params(void)
{
    herr_t err_ret = -1;
    hid_t  file_id = H5I_INVALID_HID;

    TESTING("H5Oclose with an invalid object ID");

    /* Make sure the connector supports the API functions being tested */
    if (!(vol_cap_flags_g & (H5VL_CAP_FLAG_FILE_BASIC)) || !(vol_cap_flags_g & H5VL_CAP_FLAG_OBJECT_BASIC)) {
        SKIPPED();
        HDprintf("    API functions for basic file or object aren't supported with this connector\n");
        return 0;
    }

    if ((file_id = H5Fopen(H5_api_test_filename, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open file '%s'\n", H5_api_test_filename);
        goto error;
    }

    H5E_BEGIN_TRY
    {
        err_ret = H5Oclose(H5I_INVALID_HID);
    }
    H5E_END_TRY;

    if (err_ret >= 0) {
        H5_FAILED();
        HDprintf("    H5Oclose succeeded with an invalid object ID!\n");
        goto error;
    }

    if (H5Fclose(file_id) < 0)
        TEST_ERROR;

    PASSED();

    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Fclose(file_id);
    }
    H5E_END_TRY;

    return 1;
}

/*
 * A test to check that various objects (file, dataspace, property list,
 * and attribute) can't be closed with H5Oclose.
 */
static int
test_close_invalid_objects(void)
{
    hid_t  file_id         = H5I_INVALID_HID;
    hid_t  container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
    hid_t  attr_dtype    = H5I_INVALID_HID;
    hid_t  attr_space_id = H5I_INVALID_HID;
    hid_t  fapl_id       = H5I_INVALID_HID;
    hid_t  attr_id       = H5I_INVALID_HID;
    herr_t status;

    TESTING_MULTIPART("H5Oclose invalid objects");

    /* Make sure the connector supports the API functions being tested */
    if (!(vol_cap_flags_g & (H5VL_CAP_FLAG_FILE_BASIC)) || !(vol_cap_flags_g & H5VL_CAP_FLAG_GROUP_BASIC) ||
        !(vol_cap_flags_g & H5VL_CAP_FLAG_OBJECT_BASIC)) {
        SKIPPED();
        HDprintf("    API functions for basic file, group, object, dataset, attribute, or stored datatype "
                 "aren't supported with this connector\n");
        return 0;
    }

    TESTING_2("test setup");

    if ((fapl_id = H5Pcreate(H5P_FILE_ACCESS)) < 0)
        TEST_ERROR;

    if ((file_id = H5Fopen(H5_api_test_filename, H5F_ACC_RDWR, fapl_id)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open file '%s'\n", H5_api_test_filename);
        goto error;
    }

    if ((container_group = H5Gopen2(file_id, OBJECT_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't open container group '%s'\n", OBJECT_TEST_GROUP_NAME);
        goto error;
    }

    if ((group_id = H5Gcreate2(container_group, OBJECT_CLOSE_INVALID_TEST_GROUP_NAME, H5P_DEFAULT,
                               H5P_DEFAULT, H5P_DEFAULT)) < 0) {
        H5_FAILED();
        HDprintf("    couldn't create container sub-group '%s'\n", OBJECT_OPEN_TEST_GROUP_NAME);
        goto error;
    }

    if ((attr_space_id = generate_random_dataspace(OBJECT_CLOSE_INVALID_TEST_SPACE_RANK, NULL, NULL, TRUE)) <
        0)
        TEST_ERROR;

    if ((attr_dtype = generate_random_datatype(H5T_NO_CLASS, TRUE)) < 0)
        TEST_ERROR;

    if ((attr_id = H5Acreate2(group_id, OBJECT_CLOSE_INVALID_TEST_ATTRIBUTE_NAME, attr_dtype, attr_space_id,
                              H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    PASSED();

    BEGIN_MULTIPART
    {
        PART_BEGIN(H5Oclose_file)
        {
            TESTING_2("H5Oclose with an invalid object - file");

            H5E_BEGIN_TRY
            {
                status = H5Oclose(file_id);
            }
            H5E_END_TRY;

            if (status >= 0) {
                H5_FAILED();
                HDprintf("    H5Oclose succeeded with an invalid object (file)!\n");
                PART_ERROR(H5Oclose_file);
            }

            PASSED();
        }
        PART_END(H5Oclose_file);

        PART_BEGIN(H5Oclose_plist)
        {
            TESTING_2("H5Oclose with an invalid object - property list");

            H5E_BEGIN_TRY
            {
                status = H5Oclose(fapl_id);
            }
            H5E_END_TRY;

            if (status >= 0) {
                H5_FAILED();
                HDprintf("    H5Oclose succeeded with an invalid object (property list)!\n");
                PART_ERROR(H5Oclose_plist);
            }

            PASSED();
        }
        PART_END(H5Oclose_plist);

        PART_BEGIN(H5Oclose_dspace)
        {
            TESTING_2("H5Oclose with an invalid object - data space");

            H5E_BEGIN_TRY
            {
                status = H5Oclose(attr_space_id);
            }
            H5E_END_TRY;

            if (status >= 0) {
                H5_FAILED();
                HDprintf("    H5Oclose succeeded with an invalid object (data space)!\n");
                PART_ERROR(H5Oclose_dspace);
            }

            PASSED();
        }
        PART_END(H5Oclose_dspace);

        PART_BEGIN(H5Oclose_attribute)
        {
            TESTING_2("H5Oclose with an invalid object - attribute");

            H5E_BEGIN_TRY
            {
                status = H5Oclose(attr_id);
            }
            H5E_END_TRY;

            if (status >= 0) {
                H5_FAILED();
                HDprintf("    H5Oclose succeeded with an invalid object (attribute)!\n");
                PART_ERROR(H5Oclose_attribute);
            }

            PASSED();
        }
        PART_END(H5Oclose_attribute);
    }
    END_MULTIPART;

    TESTING_2("test cleanup");

    if (H5Tclose(attr_dtype) < 0)
        TEST_ERROR;
    if (H5Aclose(attr_id) < 0)
        TEST_ERROR;
    if (H5Sclose(attr_space_id) < 0)
        TEST_ERROR;
    if (H5Gclose(group_id) < 0)
        TEST_ERROR;
    if (H5Gclose(container_group) < 0)
        TEST_ERROR;
    if (H5Fclose(file_id) < 0)
        TEST_ERROR;
    if (H5Pclose(fapl_id) < 0)
        TEST_ERROR;

    PASSED();

    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Tclose(attr_dtype);
        H5Sclose(attr_space_id);
        H5Aclose(attr_id);
        H5Gclose(group_id);
        H5Gclose(container_group);
        H5Fclose(file_id);
        H5Pclose(fapl_id);
    }
    H5E_END_TRY;

    return 1;
} /* test_close_invalid_objects */

/*
 * A test for H5Oflush.
 */
static int
test_flush_object(void)
{
    TESTING("H5Oflush");

    SKIPPED();

    return 0;
}

/*
 * A test to check that H5Oflush fails when
 * it is passed invalid parameters.
 */
static int
test_flush_object_invalid_params(void)
{
    TESTING("H5Oflush with invalid parameters");

    SKIPPED();

    return 0;
}

/*
 * A test for H5Orefresh.
 */
static int
test_refresh_object(void)
{
    TESTING("H5Orefresh");

    SKIPPED();

    return 0;
}

/*
 * A test to check that H5Orefresh fails when
 * it is passed invalid parameters.
 */
static int
test_refresh_object_invalid_params(void)
{
    TESTING("H5Orefresh with invalid parameters");

    SKIPPED();

    return 0;
}

/*
 * H5Ocopy test callback to check that an object's attributes got copied
 * over successfully to the new object.
 */
static herr_t
object_copy_attribute_iter_callback(hid_t location_id, const char *attr_name, const H5A_info_t *ainfo,
                                    void *op_data)
{
    size_t *counter = (size_t *)op_data;
    htri_t  types_equal;
    char    expected_name[256];
    hid_t   attr_id   = H5I_INVALID_HID;
    hid_t   attr_type = H5I_INVALID_HID;
    herr_t  ret_value = H5_ITER_CONT;

    UNUSED(ainfo);
    UNUSED(op_data);

    snprintf(expected_name, 256, "attr%d", (int)(*counter));

    if (HDstrncmp(attr_name, expected_name, 256)) {
        HDprintf("    attribute name '%s' did not match expected name '%s'\n", attr_name, expected_name);
        ret_value = H5_ITER_ERROR;
        goto done;
    }

    if ((attr_id = H5Aopen(location_id, attr_name, H5P_DEFAULT)) < 0) {
        HDprintf("    failed to open attribute '%s'\n", attr_name);
        ret_value = H5_ITER_ERROR;
        goto done;
    }

    if ((attr_type = H5Aget_type(attr_id)) < 0) {
        HDprintf("    failed to retrieve attribute's datatype\n");
        ret_value = H5_ITER_ERROR;
        goto done;
    }

    if ((types_equal = H5Tequal(attr_type, H5T_NATIVE_INT)) < 0) {
        HDprintf("    failed to determine if attribute's datatype matched what is expected\n");
        ret_value = H5_ITER_ERROR;
        goto done;
    }

    if (!types_equal) {
        HDprintf("    attribute datatype did not match expected H5T_NATIVE_INT\n");
        ret_value = H5_ITER_ERROR;
        goto done;
    }

done:
    if (attr_type >= 0)
        H5Tclose(attr_type);
    if (attr_id >= 0)
        H5Aclose(attr_id);

    (*counter)++;

    return ret_value;
}

/*
 * H5Ocopy callback to check that a copied group's soft links
 * have not been expanded when the default copy options are
 * used.
 */
static herr_t
object_copy_soft_link_non_expand_callback(hid_t group, const char *name, const H5L_info2_t *info,
                                          void *op_data)
{
    size_t *counter      = (size_t *)op_data;
    void   *link_val_buf = NULL;
    char    expected_link_val[OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_BUF_SIZE];
    herr_t  ret_value = H5_ITER_CONT;

    /* Make sure the link type is soft */
    if (H5L_TYPE_SOFT != info->type) {
        HDprintf("    link type was not H5L_TYPE_SOFT; link must have been expanded!\n");
        ret_value = H5_ITER_ERROR;
        goto done;
    }

    if (NULL == (link_val_buf = calloc(1, info->u.val_size))) {
        HDprintf("    failed to allocate buffer for link value\n");
        ret_value = H5_ITER_ERROR;
        goto done;
    }

    /* Retrieve the link's value */
    if (H5Lget_val(group, name, link_val_buf, info->u.val_size, H5P_DEFAULT) < 0) {
        HDprintf("    failed to retrieve value of link '%s'\n", name);
        ret_value = H5_ITER_ERROR;
        goto done;
    }

    /* Make sure link's value matches what is expected */
    snprintf(expected_link_val, OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_BUF_SIZE,
             "/" OBJECT_TEST_GROUP_NAME "/" OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_SUBGROUP_NAME "/grp%d",
             (int)(*counter));

    if (strncmp(link_val_buf, expected_link_val, OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_BUF_SIZE)) {
        HDprintf("    value '%s' for link '%s' did not match expected value '%s'\n", (char *)link_val_buf,
                 name, expected_link_val);
        ret_value = H5_ITER_ERROR;
        goto done;
    }

done:
    if (link_val_buf)
        free(link_val_buf);

    (*counter)++;

    return ret_value;
}

/*
 * H5Ocopy callback to check that a copied group's soft links
 * have been expanded when the H5O_COPY_EXPAND_SOFT_LINK_FLAG
 * flag is specified.
 */
static herr_t
object_copy_soft_link_expand_callback(hid_t group, const char *name, const H5L_info2_t *info, void *op_data)
{
    size_t *counter = (size_t *)op_data;
    char    expected_link_name[OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_BUF_SIZE];
    herr_t  ret_value = H5_ITER_CONT;

    UNUSED(group);

    /* Make sure the link type is hard */
    if (H5L_TYPE_HARD != info->type) {
        HDprintf("    link type was not H5L_TYPE_HARD; link must not have been expanded!\n");
        ret_value = H5_ITER_ERROR;
        goto done;
    }

    /* Ensure that the link's name still follows the 'link1', 'link2', etc. pattern */
    snprintf(expected_link_name, OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_BUF_SIZE, "link%d", (int)(*counter));

    if (strncmp(name, expected_link_name, OBJECT_COPY_GROUP_WITH_SOFT_LINKS_TEST_BUF_SIZE)) {
        HDprintf("    link name '%s' did not match expected name '%s'\n", name, expected_link_name);
        ret_value = H5_ITER_ERROR;
        goto done;
    }

done:
    (*counter)++;

    return ret_value;
}

/*
 * H5Ovisit callback to simply iterate recursively through all of the objects in a
 * group and check to make sure their names match what is expected.
 */
static herr_t
object_visit_callback(hid_t o_id, const char *name, const H5O_info2_t *object_info, void *op_data)
{
    size_t *i           = (size_t *)op_data;
    size_t  counter_val = *((size_t *)op_data);
    herr_t  ret_val     = 0;

    UNUSED(o_id);

    if (!HDstrncmp(name, ".", strlen(".") + 1) &&
        (counter_val == 0 || counter_val == 4 || counter_val == 8 || counter_val == 12)) {
        if (H5O_TYPE_GROUP == object_info->type)
            goto done;
        else
            HDprintf("    type for object '%s' was not H5O_TYPE_GROUP\n", name);
    }
    else if (!HDstrncmp(name, OBJECT_VISIT_TEST_GROUP_NAME, strlen(OBJECT_VISIT_TEST_GROUP_NAME) + 1) &&
             (counter_val == 2 || counter_val == 6 || counter_val == 9 || counter_val == 15)) {
        if (H5O_TYPE_GROUP == object_info->type)
            goto done;
        else
            HDprintf("    type for object '%s' was not H5O_TYPE_GROUP\n", name);
    }
    else if (!HDstrncmp(name, OBJECT_VISIT_TEST_DSET_NAME, strlen(OBJECT_VISIT_TEST_DSET_NAME) + 1) &&
             (counter_val == 1 || counter_val == 7 || counter_val == 10 || counter_val == 14)) {
        if (H5O_TYPE_DATASET == object_info->type)
            goto done;
        else
            HDprintf("    type for object '%s' was not H5O_TYPE_DATASET\n", name);
    }
    else if (!HDstrncmp(name, OBJECT_VISIT_TEST_TYPE_NAME, strlen(OBJECT_VISIT_TEST_TYPE_NAME) + 1) &&
             (counter_val == 3 || counter_val == 5 || counter_val == 11 || counter_val == 13)) {
        if (H5O_TYPE_NAMED_DATATYPE == object_info->type)
            goto done;
        else
            HDprintf("    type for object '%s' was not H5O_TYPE_NAMED_DATATYPE\n", name);
    }
    else
        HDprintf("    object '%s' didn't match known names or came in an incorrect order\n", name);

    ret_val = -1;

done:
    (*i)++;

    return ret_val;
}

/*
 * H5Ovisit callback for visiting a singular dataset.
 */
static herr_t
object_visit_dset_callback(hid_t o_id, const char *name, const H5O_info2_t *object_info, void *op_data)
{
    herr_t ret_val = 0;

    UNUSED(o_id);
    UNUSED(op_data);

    if (HDstrncmp(name, ".", strlen(".") + 1)) {
        HDprintf("    object '%s' didn't match known names\n", name);
        return -1;
    }

    if (H5O_TYPE_DATASET != object_info->type) {
        HDprintf("    object type was not H5O_TYPE_DATASET\n");
        return -1;
    }

    return ret_val;
}

/*
 * H5Ovisit callback for visiting a singular committed datatype.
 */
static herr_t
object_visit_dtype_callback(hid_t o_id, const char *name, const H5O_info2_t *object_info, void *op_data)
{
    herr_t ret_val = 0;

    UNUSED(o_id);
    UNUSED(op_data);

    if (HDstrncmp(name, ".", strlen(".") + 1)) {
        HDprintf("    object '%s' didn't match known names\n", name);
        return -1;
    }

    if (H5O_TYPE_NAMED_DATATYPE != object_info->type) {
        HDprintf("    object type was not H5O_TYPE_NAMED_DATATYPE\n");
        return -1;
    }

    return ret_val;
}

/*
 * H5Ovisit callback for testing ignoring of
 * soft links during object visiting.
 */
static herr_t
object_visit_soft_link_callback(hid_t o_id, const char *name, const H5O_info2_t *object_info, void *op_data)
{
    size_t *i           = (size_t *)op_data;
    size_t  counter_val = *((size_t *)op_data);
    herr_t  ret_val     = 0;

    UNUSED(o_id);

    if (!HDstrncmp(name, ".", strlen(".") + 1) && (counter_val <= 5)) {
        if (H5O_TYPE_GROUP == object_info->type)
            goto done;
        else
            HDprintf("    type for object '%s' was not H5O_TYPE_GROUP\n", name);
    }
    else
        HDprintf("    object '%s' didn't match known names or came in an incorrect order\n", name);

    ret_val = -1;

done:
    (*i)++;

    return ret_val;
}

/*
 * H5Ovisit callback to simply iterate through all of the objects in a given
 * group.
 */
static herr_t
object_visit_noop_callback(hid_t o_id, const char *name, const H5O_info2_t *object_info, void *op_data)
{
    UNUSED(o_id);
    UNUSED(name);
    UNUSED(object_info);
    UNUSED(op_data);

    return 0;
}

/*
 * Cleanup temporary test files
 */
static void
cleanup_files(void)
{
    H5Fdelete(OBJECT_COPY_BETWEEN_FILES_TEST_FILE_NAME, H5P_DEFAULT);
}

int
H5_api_object_test(void)
{
    size_t i;
    int    nerrors;

    HDprintf("**********************************************\n");
    HDprintf("*                                            *\n");
    HDprintf("*              API Object Tests              *\n");
    HDprintf("*                                            *\n");
    HDprintf("**********************************************\n\n");

    for (i = 0, nerrors = 0; i < ARRAY_LENGTH(object_tests); i++) {
        nerrors += (*object_tests[i])() ? 1 : 0;
    }

    HDprintf("\n");

    HDprintf("Cleaning up testing files\n");
    cleanup_files();

    return nerrors;
}
