summaryrefslogtreecommitdiffstats
path: root/test/API/H5_api_link_test.c
diff options
context:
space:
mode:
Diffstat (limited to 'test/API/H5_api_link_test.c')
-rw-r--r--test/API/H5_api_link_test.c27072
1 files changed, 27072 insertions, 0 deletions
diff --git a/test/API/H5_api_link_test.c b/test/API/H5_api_link_test.c
new file mode 100644
index 0000000..9a8c65a
--- /dev/null
+++ b/test/API/H5_api_link_test.c
@@ -0,0 +1,27072 @@
+/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+ * 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_link_test.h"
+
+/*
+ * TODO: add link tests for short-circuit success in operator callback
+ */
+
+static int test_create_hard_link(void);
+static int test_create_hard_link_long_name(void);
+static int test_create_hard_link_many(void);
+static int test_create_hard_link_same_loc(void);
+static int test_create_hard_link_invalid_params(void);
+static int test_create_soft_link_existing_relative(void);
+static int test_create_soft_link_existing_absolute(void);
+static int test_create_soft_link_dangling_relative(void);
+static int test_create_soft_link_dangling_absolute(void);
+static int test_create_soft_link_long_name(void);
+static int test_create_soft_link_many(void);
+static int test_create_soft_link_invalid_params(void);
+static int test_create_external_link(void);
+static int test_create_external_link_dangling(void);
+static int test_create_external_link_multi(void);
+static int test_create_external_link_ping_pong(void);
+static int test_create_external_link_invalid_params(void);
+static int test_create_user_defined_link(void);
+static int test_create_user_defined_link_invalid_params(void);
+static int test_delete_link(void);
+static int test_delete_link_reset_grp_max_crt_order(void);
+static int test_delete_link_invalid_params(void);
+static int test_copy_link(void);
+static int test_copy_links_into_group_with_links(void);
+static int test_copy_link_across_files(void);
+static int test_copy_link_invalid_params(void);
+static int test_move_link(void);
+static int test_move_links_into_group_with_links(void);
+static int test_move_link_across_files(void);
+static int test_move_link_reset_grp_max_crt_order(void);
+static int test_move_link_invalid_params(void);
+static int test_get_link_val(void);
+static int test_get_link_val_invalid_params(void);
+static int test_get_link_info(void);
+static int test_get_link_info_invalid_params(void);
+static int test_get_link_name(void);
+static int test_get_link_name_invalid_params(void);
+static int test_link_iterate_hard_links(void);
+static int test_link_iterate_soft_links(void);
+static int test_link_iterate_external_links(void);
+static int test_link_iterate_ud_links(void);
+static int test_link_iterate_mixed_links(void);
+static int test_link_iterate_invalid_params(void);
+static int test_link_iterate_0_links(void);
+static int test_link_visit_hard_links_no_cycles(void);
+static int test_link_visit_soft_links_no_cycles(void);
+static int test_link_visit_external_links_no_cycles(void);
+static int test_link_visit_ud_links_no_cycles(void);
+static int test_link_visit_mixed_links_no_cycles(void);
+static int test_link_visit_hard_links_cycles(void);
+static int test_link_visit_soft_links_cycles(void);
+static int test_link_visit_external_links_cycles(void);
+static int test_link_visit_ud_links_cycles(void);
+static int test_link_visit_mixed_links_cycles(void);
+static int test_link_visit_invalid_params(void);
+static int test_link_visit_0_links(void);
+
+static herr_t link_iter_hard_links_cb(hid_t group_id, const char *name, const H5L_info2_t *info,
+ void *op_data);
+static herr_t link_iter_soft_links_cb(hid_t group_id, const char *name, const H5L_info2_t *info,
+ void *op_data);
+#ifndef NO_EXTERNAL_LINKS
+static herr_t link_iter_external_links_cb(hid_t group_id, const char *name, const H5L_info2_t *info,
+ void *op_data);
+#endif
+#ifndef NO_USER_DEFINED_LINKS
+static herr_t link_iter_ud_links_cb(hid_t group_id, const char *name, const H5L_info2_t *info, void *op_data);
+#endif
+#if !defined(NO_EXTERNAL_LINKS) && !defined(NO_USER_DEFINED_LINKS)
+static herr_t link_iter_mixed_links_cb(hid_t group_id, const char *name, const H5L_info2_t *info,
+ void *op_data);
+#endif
+static herr_t link_iter_invalid_params_cb(hid_t group_id, const char *name, const H5L_info2_t *info,
+ void *op_data);
+static herr_t link_iter_0_links_cb(hid_t group_id, const char *name, const H5L_info2_t *info, void *op_data);
+#if !defined(NO_EXTERNAL_LINKS) && !defined(NO_USER_DEFINED_LINKS)
+static herr_t link_iter_idx_saving_cb(hid_t group_id, const char *name, const H5L_info2_t *info,
+ void *op_data);
+#endif
+
+static herr_t link_visit_hard_links_no_cycles_cb(hid_t group_id, const char *name, const H5L_info2_t *info,
+ void *op_data);
+static herr_t link_visit_soft_links_no_cycles_cb(hid_t group_id, const char *name, const H5L_info2_t *info,
+ void *op_data);
+#ifndef NO_EXTERNAL_LINKS
+static herr_t link_visit_external_links_no_cycles_cb(hid_t group_id, const char *name,
+ const H5L_info2_t *info, void *op_data);
+#endif
+#ifndef NO_USER_DEFINED_LINKS
+static herr_t link_visit_ud_links_no_cycles_cb(hid_t group_id, const char *name, const H5L_info2_t *info,
+ void *op_data);
+#endif
+#if !defined(NO_EXTERNAL_LINKS) && !defined(NO_USER_DEFINED_LINKS)
+static herr_t link_visit_mixed_links_no_cycles_cb(hid_t group_id, const char *name, const H5L_info2_t *info,
+ void *op_data);
+#endif
+static herr_t link_visit_hard_links_cycles_cb(hid_t group_id, const char *name, const H5L_info2_t *info,
+ void *op_data);
+static herr_t link_visit_soft_links_cycles_cb(hid_t group_id, const char *name, const H5L_info2_t *info,
+ void *op_data);
+#ifndef NO_EXTERNAL_LINKS
+static herr_t link_visit_external_links_cycles_cb(hid_t group_id, const char *name, const H5L_info2_t *info,
+ void *op_data);
+#endif
+#ifndef NO_USER_DEFINED_LINKS
+static herr_t link_visit_ud_links_cycles_cb(hid_t group_id, const char *name, const H5L_info2_t *info,
+ void *op_data);
+#endif
+#if !defined(NO_EXTERNAL_LINKS) && !defined(NO_USER_DEFINED_LINKS)
+static herr_t link_visit_mixed_links_cycles_cb(hid_t group_id, const char *name, const H5L_info2_t *info,
+ void *op_data);
+#endif
+static herr_t link_visit_invalid_params_cb(hid_t group_id, const char *name, const H5L_info2_t *info,
+ void *op_data);
+static herr_t link_visit_0_links_cb(hid_t group_id, const char *name, const H5L_info2_t *info, void *op_data);
+
+/*
+ * The array of link tests to be performed.
+ */
+static int (*link_tests[])(void) = {
+ test_create_hard_link,
+ test_create_hard_link_long_name,
+ test_create_hard_link_many,
+ test_create_hard_link_same_loc,
+ test_create_hard_link_invalid_params,
+ test_create_soft_link_existing_relative,
+ test_create_soft_link_existing_absolute,
+ test_create_soft_link_dangling_relative,
+ test_create_soft_link_dangling_absolute,
+ test_create_soft_link_long_name,
+ test_create_soft_link_many,
+ test_create_soft_link_invalid_params,
+ test_create_external_link,
+ test_create_external_link_dangling,
+ test_create_external_link_multi,
+ test_create_external_link_ping_pong,
+ test_create_external_link_invalid_params,
+ test_create_user_defined_link,
+ test_create_user_defined_link_invalid_params,
+ test_delete_link,
+ test_delete_link_reset_grp_max_crt_order,
+ test_delete_link_invalid_params,
+ test_copy_link,
+ test_copy_links_into_group_with_links,
+ test_copy_link_across_files,
+ test_copy_link_invalid_params,
+ test_move_link,
+ test_move_links_into_group_with_links,
+ test_move_link_across_files,
+ test_move_link_reset_grp_max_crt_order,
+ test_move_link_invalid_params,
+ test_get_link_val,
+ test_get_link_val_invalid_params,
+ test_get_link_info,
+ test_get_link_info_invalid_params,
+ test_get_link_name,
+ test_get_link_name_invalid_params,
+ test_link_iterate_hard_links,
+ test_link_iterate_soft_links,
+ test_link_iterate_external_links,
+ test_link_iterate_ud_links,
+ test_link_iterate_mixed_links,
+ test_link_iterate_invalid_params,
+ test_link_iterate_0_links,
+ test_link_visit_hard_links_no_cycles,
+ test_link_visit_soft_links_no_cycles,
+ test_link_visit_external_links_no_cycles,
+ test_link_visit_ud_links_no_cycles,
+ test_link_visit_mixed_links_no_cycles,
+ test_link_visit_hard_links_cycles,
+ test_link_visit_soft_links_cycles,
+ test_link_visit_external_links_cycles,
+ test_link_visit_ud_links_cycles,
+ test_link_visit_mixed_links_cycles,
+ test_link_visit_invalid_params,
+ test_link_visit_0_links,
+};
+
+/*
+ * A test to check that a hard link can be created
+ * using H5Lcreate_hard.
+ */
+static int
+test_create_hard_link(void)
+{
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+
+ TESTING("hard link creation");
+
+ /* 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_HARD_LINKS)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file or group, basic or hard 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, HARD_LINK_TEST_GROUP_NAME, H5P_DEFAULT, H5P_DEFAULT,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container sub-group '%s'\n", HARD_LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if (H5Lcreate_hard(file_id, "/", group_id, HARD_LINK_TEST_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", HARD_LINK_TEST_LINK_NAME);
+ goto error;
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(group_id, HARD_LINK_TEST_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", HARD_LINK_TEST_LINK_NAME);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link did not exist\n");
+ goto 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_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check that a hard link with a long name can be created
+ * using H5Lcreate_hard.
+ */
+static int
+test_create_hard_link_long_name(void)
+{
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID;
+ char vol_name[5];
+ size_t name_len = MAX_NAME_LEN;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ char *objname = NULL; /* Name of object [Long] */
+ size_t u; /* Local index variable */
+
+ TESTING("hard link creation with a long name");
+
+ /* 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_HARD_LINKS)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file or group, basic or hard 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, HARD_LINK_TEST_GROUP_LONG_NAME, H5P_DEFAULT, H5P_DEFAULT,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container sub-group '%s'\n", HARD_LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if (H5VLget_connector_name(file_id, vol_name, 5) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get VOL connector name\n");
+ goto error;
+ }
+
+ /** for DAOS VOL, max link name supported is 99 (Lexical key) */
+ if (strcmp(vol_name, "daos") == 0)
+ name_len = 99;
+
+ /* Construct very long file name */
+ if ((objname = (char *)HDmalloc((size_t)(name_len + 1))) == NULL)
+ TEST_ERROR;
+
+ for (u = 0; u < name_len; u++)
+ objname[u] = 'a';
+ objname[name_len] = '\0';
+
+ if (H5Lcreate_hard(file_id, "/", group_id, objname, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link with a long name\n");
+ goto error;
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(group_id, objname, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if the link with a long name exists\n");
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link did not exist\n");
+ goto error;
+ }
+
+ if (H5Gclose(group_id) < 0)
+ TEST_ERROR;
+ if (H5Gclose(container_group) < 0)
+ TEST_ERROR;
+ if (H5Fclose(file_id) < 0)
+ TEST_ERROR;
+
+ /* Release memory */
+ if (objname)
+ HDfree(objname);
+
+ PASSED();
+
+ return 0;
+
+error:
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ if (objname)
+ HDfree(objname);
+
+ return 1;
+}
+
+/*
+ * A test to check that many hard links can be created
+ * using H5Lcreate_hard.
+ */
+static int
+test_create_hard_link_many(void)
+{
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID;
+ hid_t group_id = H5I_INVALID_HID, group_id2 = H5I_INVALID_HID;
+#ifndef NO_OBJECT_GET_NAME
+ char objname[HARD_LINK_TEST_GROUP_MANY_NAME_BUF_SIZE]; /* Object name */
+#endif
+
+ TESTING("hard link creation of many 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_HARD_LINKS)) {
+ SKIPPED();
+ HDprintf(
+ " API functions for basic file or group, or hard 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, HARD_LINK_TEST_GROUP_MANY_NAME, H5P_DEFAULT, H5P_DEFAULT,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container sub-group '%s'\n", HARD_LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((group_id2 = H5Gcreate2(group_id, HARD_LINK_TEST_GROUP_MANY_FINAL_NAME, H5P_DEFAULT, H5P_DEFAULT,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container sub-group '%s'\n", HARD_LINK_TEST_GROUP_MANY_FINAL_NAME);
+ goto error;
+ }
+
+ if (H5Lcreate_hard(group_id, HARD_LINK_TEST_GROUP_MANY_FINAL_NAME, group_id, "hard1", H5P_DEFAULT,
+ H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_hard(group_id, "hard1", group_id, "hard2", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_hard(group_id, "hard2", group_id, "hard3", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_hard(group_id, "hard3", group_id, "hard4", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_hard(group_id, "hard4", group_id, "hard5", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_hard(group_id, "hard5", group_id, "hard6", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_hard(group_id, "hard6", group_id, "hard7", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_hard(group_id, "hard7", group_id, "hard8", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_hard(group_id, "hard8", group_id, "hard9", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_hard(group_id, "hard9", group_id, "hard10", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_hard(group_id, "hard10", group_id, "hard11", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_hard(group_id, "hard11", group_id, "hard12", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_hard(group_id, "hard12", group_id, "hard13", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_hard(group_id, "hard13", group_id, "hard14", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_hard(group_id, "hard14", group_id, "hard15", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_hard(group_id, "hard15", group_id, "hard16", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_hard(group_id, "hard16", group_id, "hard17", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_hard(group_id, "hard17", group_id, "hard18", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_hard(group_id, "hard18", group_id, "hard19", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_hard(group_id, "hard19", group_id, "hard20", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_hard(group_id, "hard20", group_id, "hard21", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(group_id, "hard21", H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link 'hard21' exists\n");
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link 'hard21' did not exist\n");
+ goto 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;
+
+ /* Reopen the file and group and verify the hard link */
+ 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((group_id = H5Gopen2(container_group, HARD_LINK_TEST_GROUP_MANY_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container sub-group '%s'\n", HARD_LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ /* Open the object through last hard link */
+ if ((group_id2 = H5Gopen2(group_id, "hard21", H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open the group '%s' with the last hard link 'hard21'\n",
+ HARD_LINK_TEST_GROUP_MANY_FINAL_NAME);
+ goto error;
+ }
+#ifndef NO_OBJECT_GET_NAME
+ /* Check name */
+ if (H5Iget_name(group_id2, objname, (size_t)HARD_LINK_TEST_GROUP_MANY_NAME_BUF_SIZE) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get the name of the object '%s'\n", HARD_LINK_TEST_GROUP_MANY_FINAL_NAME);
+ goto error;
+ }
+
+ if (HDstrcmp(objname, "/" LINK_TEST_GROUP_NAME "/" HARD_LINK_TEST_GROUP_MANY_NAME "/hard21")) {
+ H5_FAILED();
+ HDprintf(" wrong name of the object '%s'\n", objname);
+ goto error;
+ }
+#endif
+
+ 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_id);
+ H5Gclose(group_id2);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check that behavior is correct when using
+ * the H5L_SAME_LOC macro for H5Lcreate_hard().
+ */
+static int
+test_create_hard_link_same_loc(void)
+{
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+
+ TESTING_MULTIPART("hard link creation with H5L_SAME_LOC");
+
+ /* 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_HARD_LINKS)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file or group, basic or hard 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, H5L_SAME_LOC_TEST_GROUP_NAME, H5P_DEFAULT, H5P_DEFAULT,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create group '%s'\n", H5L_SAME_LOC_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ PART_BEGIN(H5L_SAME_LOC_first_param)
+ {
+ TESTING_2("usage of H5L_SAME_LOC for first parameter of H5Lcreate_hard");
+
+ /* Library functionality for this part of the test is broken */
+ if (H5Lcreate_hard(H5L_SAME_LOC, ".", group_id, H5L_SAME_LOC_TEST_LINK_NAME1, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create first link '%s'\n", H5L_SAME_LOC_TEST_LINK_NAME1);
+ PART_ERROR(H5L_SAME_LOC_first_param);
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(group_id, H5L_SAME_LOC_TEST_LINK_NAME1, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link exists\n");
+ PART_ERROR(H5L_SAME_LOC_first_param);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link did not exist\n");
+ PART_ERROR(H5L_SAME_LOC_first_param);
+ }
+
+ PASSED();
+ }
+ PART_END(H5L_SAME_LOC_first_param);
+
+ PART_BEGIN(H5L_SAME_LOC_third_param)
+ {
+ TESTING_2("usage of H5L_SAME_LOC for third parameter of H5Lcreate_hard");
+
+ if (H5Lcreate_hard(group_id, ".", H5L_SAME_LOC, H5L_SAME_LOC_TEST_LINK_NAME2, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create second link '%s'\n", H5L_SAME_LOC_TEST_LINK_NAME2);
+ PART_ERROR(H5L_SAME_LOC_third_param);
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(group_id, H5L_SAME_LOC_TEST_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", H5L_SAME_LOC_TEST_LINK_NAME2);
+ PART_ERROR(H5L_SAME_LOC_third_param);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link did not exist\n");
+ PART_ERROR(H5L_SAME_LOC_third_param);
+ }
+
+ PASSED();
+ }
+ PART_END(H5L_SAME_LOC_third_param);
+ }
+ 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_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check that a hard link can't be created when
+ * H5Lcreate_hard is passed invalid parameters.
+ */
+static int
+test_create_hard_link_invalid_params(void)
+{
+ herr_t err_ret = -1;
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+#ifndef NO_PREVENT_HARD_LINKS_ACROSS_FILES
+ char ext_link_filename[H5_API_TEST_FILENAME_MAX_LENGTH];
+#endif
+ hid_t ext_file_id = H5I_INVALID_HID;
+
+ TESTING_MULTIPART("hard link creation 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_HARD_LINKS)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file or group, basic or hard 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, HARD_LINK_INVALID_PARAMS_TEST_GROUP_NAME, H5P_DEFAULT,
+ H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container sub-group '%s'\n", HARD_LINK_INVALID_PARAMS_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ PART_BEGIN(H5Lcreate_hard_invalid_cur_loc_id)
+ {
+ TESTING_2("H5Lcreate_hard with an invalid cur_loc_id");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_hard(H5I_INVALID_HID, "/", group_id,
+ HARD_LINK_INVALID_PARAMS_TEST_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created hard link with an invalid cur_loc_id!\n");
+ PART_ERROR(H5Lcreate_hard_invalid_cur_loc_id);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_hard_invalid_cur_loc_id);
+
+ PART_BEGIN(H5Lcreate_hard_invalid_cur_name)
+ {
+ TESTING_2("H5Lcreate_hard with an invalid cur_name");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_hard(file_id, NULL, group_id, HARD_LINK_INVALID_PARAMS_TEST_LINK_NAME,
+ H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created hard link with a NULL cur_name!\n");
+ PART_ERROR(H5Lcreate_hard_invalid_cur_name);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_hard(file_id, "", group_id, HARD_LINK_INVALID_PARAMS_TEST_LINK_NAME,
+ H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created hard link with an invalid cur_name of ''!\n");
+ PART_ERROR(H5Lcreate_hard_invalid_cur_name);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_hard_invalid_cur_name);
+
+ PART_BEGIN(H5Lcreate_hard_invalid_new_loc_id)
+ {
+ TESTING_2("H5Lcreate_hard with an invalid new_loc_id");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_hard(file_id, "/", H5I_INVALID_HID,
+ HARD_LINK_INVALID_PARAMS_TEST_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created hard link with an invalid new_loc_id!\n");
+ PART_ERROR(H5Lcreate_hard_invalid_new_loc_id);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_hard_invalid_new_loc_id);
+
+ PART_BEGIN(H5Lcreate_hard_invalid_new_name)
+ {
+ TESTING_2("H5Lcreate_hard with an invalid new_name");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_hard(file_id, "/", group_id, NULL, H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created hard link with a NULL new_name!\n");
+ PART_ERROR(H5Lcreate_hard_invalid_new_name);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_hard(file_id, "/", group_id, "", H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created hard link with an invalid new_name of ''!\n");
+ PART_ERROR(H5Lcreate_hard_invalid_new_name);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_hard_invalid_new_name);
+
+ PART_BEGIN(H5Lcreate_hard_invalid_lcpl)
+ {
+ TESTING_2("H5Lcreate_hard with an invalid LCPL");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_hard(file_id, "/", group_id, HARD_LINK_INVALID_PARAMS_TEST_LINK_NAME,
+ H5I_INVALID_HID, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created hard link with an invalid LCPL!\n");
+ PART_ERROR(H5Lcreate_hard_invalid_lcpl);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_hard_invalid_lcpl);
+
+ PART_BEGIN(H5Lcreate_hard_invalid_lapl)
+ {
+ TESTING_2("H5Lcreate_hard with an invalid LAPL");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_hard(file_id, "/", group_id, HARD_LINK_INVALID_PARAMS_TEST_LINK_NAME,
+ H5P_DEFAULT, H5I_INVALID_HID);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created hard link with an invalid LAPL!\n");
+ PART_ERROR(H5Lcreate_hard_invalid_lapl);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_hard_invalid_lapl);
+
+ PART_BEGIN(H5Lcreate_hard_invalid_same_loc)
+ {
+ TESTING_2("H5Lcreate_hard with the invalid same location");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_hard(H5L_SAME_LOC, "/", H5L_SAME_LOC,
+ HARD_LINK_INVALID_PARAMS_TEST_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created hard link with the invalid same location!\n");
+ PART_ERROR(H5Lcreate_hard_invalid_same_loc);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_hard_invalid_same_loc);
+
+ PART_BEGIN(H5Lcreate_hard_across_files)
+ {
+ TESTING_2("H5Lcreate_hard across files");
+#ifndef NO_PREVENT_HARD_LINKS_ACROSS_FILES
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Lcreate_hard_across_files);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_hard(file_id, "/", ext_file_id, HARD_LINK_INVALID_PARAMS_TEST_LINK_NAME,
+ H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created hard link across files!\n");
+ PART_ERROR(H5Lcreate_hard_across_files);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_hard(ext_file_id, "/", group_id, HARD_LINK_INVALID_PARAMS_TEST_LINK_NAME,
+ H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created hard link across files!\n");
+ PART_ERROR(H5Lcreate_hard_across_files);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lcreate_hard_across_files);
+#endif
+ }
+ PART_END(H5Lcreate_hard_across_files);
+
+ PART_BEGIN(H5Lcreate_hard_invalid_existence)
+ {
+ TESTING_2("invalid link existence after previous invalid H5Lcreate_hard calls");
+
+ /* Verify the link hasn't been created */
+ if ((link_exists = H5Lexists(group_id, HARD_LINK_INVALID_PARAMS_TEST_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n",
+ HARD_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_hard_invalid_existence);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" link existed!\n");
+ PART_ERROR(H5Lcreate_hard_invalid_existence);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_hard_invalid_existence);
+ }
+ END_MULTIPART;
+
+ TESTING_2("test cleanup");
+#ifndef NO_PREVENT_HARD_LINKS_ACROSS_FILES
+ if (H5Fclose(ext_file_id) < 0)
+ TEST_ERROR;
+#endif
+ 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_id);
+ H5Gclose(container_group);
+ H5Fclose(ext_file_id);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+} /* test_create_hard_link_invalid_params */
+
+/*
+ * A test to check that a soft link, which points to an
+ * existing object with a relative path, can be created.
+ */
+static int
+test_create_soft_link_existing_relative(void)
+{
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ hid_t object_id = H5I_INVALID_HID;
+
+ TESTING("soft link creation to existing object by relative path");
+
+ /* 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_SOFT_LINKS)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file or group, basic or soft 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, SOFT_LINK_EXISTING_RELATIVE_TEST_SUBGROUP_NAME, H5P_DEFAULT,
+ H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ SOFT_LINK_EXISTING_RELATIVE_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ if ((object_id = H5Gcreate2(group_id, SOFT_LINK_EXISTING_RELATIVE_TEST_OBJECT_NAME, H5P_DEFAULT,
+ H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create object '%s' for soft link's target\n",
+ SOFT_LINK_EXISTING_RELATIVE_TEST_OBJECT_NAME);
+ goto error;
+ }
+
+ if (H5Gclose(object_id) < 0)
+ TEST_ERROR;
+
+ if (H5Lcreate_soft(SOFT_LINK_EXISTING_RELATIVE_TEST_OBJECT_NAME, group_id,
+ SOFT_LINK_EXISTING_RELATIVE_TEST_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", SOFT_LINK_EXISTING_RELATIVE_TEST_LINK_NAME);
+ goto error;
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(group_id, SOFT_LINK_EXISTING_RELATIVE_TEST_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", SOFT_LINK_EXISTING_RELATIVE_TEST_LINK_NAME);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link did not exist\n");
+ goto error;
+ }
+
+ if ((object_id = H5Gopen2(group_id, SOFT_LINK_EXISTING_RELATIVE_TEST_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open object '%s' through the soft link\n",
+ SOFT_LINK_EXISTING_RELATIVE_TEST_OBJECT_NAME);
+ goto error;
+ }
+
+ if (H5Gclose(object_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
+ {
+ H5Gclose(object_id);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check that a soft link, which points to an
+ * existing object using an absolute path, can be created.
+ */
+static int
+test_create_soft_link_existing_absolute(void)
+{
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID, root_id = H5I_INVALID_HID;
+
+ TESTING("soft link creation to existing object by absolute path");
+
+ /* 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_SOFT_LINKS)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file or group, basic or soft 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, SOFT_LINK_EXISTING_ABSOLUTE_TEST_SUBGROUP_NAME, H5P_DEFAULT,
+ H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ SOFT_LINK_EXISTING_ABSOLUTE_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ if (H5Lcreate_soft("/", group_id, SOFT_LINK_EXISTING_ABSOLUTE_TEST_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", SOFT_LINK_EXISTING_ABSOLUTE_TEST_LINK_NAME);
+ goto error;
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(group_id, SOFT_LINK_EXISTING_ABSOLUTE_TEST_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", SOFT_LINK_EXISTING_ABSOLUTE_TEST_LINK_NAME);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link did not exist\n");
+ goto error;
+ }
+
+ if ((root_id = H5Gopen2(group_id, SOFT_LINK_EXISTING_ABSOLUTE_TEST_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open object pointed to by soft link '%s'\n",
+ SOFT_LINK_EXISTING_ABSOLUTE_TEST_LINK_NAME);
+ goto error;
+ }
+
+ if (H5Gclose(root_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
+ {
+ H5Gclose(root_id);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check that a soft link, which points to
+ * an object that doesn't exist by using a relative
+ * path, can be created.
+ */
+static int
+test_create_soft_link_dangling_relative(void)
+{
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ hid_t object_id = H5I_INVALID_HID;
+
+ TESTING("dangling soft link creation to object by relative path");
+
+ /* 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_SOFT_LINKS)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file or group, basic or soft 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, SOFT_LINK_DANGLING_RELATIVE_TEST_SUBGROUP_NAME, H5P_DEFAULT,
+ H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ SOFT_LINK_DANGLING_RELATIVE_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ if (H5Lcreate_soft(SOFT_LINK_DANGLING_RELATIVE_TEST_OBJECT_NAME, group_id,
+ SOFT_LINK_DANGLING_RELATIVE_TEST_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", SOFT_LINK_DANGLING_RELATIVE_TEST_LINK_NAME);
+ goto error;
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(group_id, SOFT_LINK_DANGLING_RELATIVE_TEST_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", SOFT_LINK_DANGLING_RELATIVE_TEST_LINK_NAME);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link did not exist\n");
+ goto error;
+ }
+
+ H5E_BEGIN_TRY
+ {
+ object_id = H5Gopen2(group_id, SOFT_LINK_DANGLING_RELATIVE_TEST_LINK_NAME, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (object_id >= 0) {
+ H5_FAILED();
+ HDprintf(" opened target of dangling link '%s'!\n", SOFT_LINK_DANGLING_RELATIVE_TEST_LINK_NAME);
+ H5Gclose(object_id);
+ goto error;
+ }
+
+ if ((object_id = H5Gcreate2(group_id, SOFT_LINK_DANGLING_RELATIVE_TEST_OBJECT_NAME, H5P_DEFAULT,
+ H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create object '%s' for soft link's target\n",
+ SOFT_LINK_DANGLING_RELATIVE_TEST_OBJECT_NAME);
+ goto error;
+ }
+
+ if (H5Gclose(object_id) < 0)
+ TEST_ERROR;
+
+ if ((object_id = H5Gopen2(group_id, SOFT_LINK_DANGLING_RELATIVE_TEST_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to open object pointed to by soft link '%s'\n",
+ SOFT_LINK_DANGLING_RELATIVE_TEST_LINK_NAME);
+ goto error;
+ }
+
+ if (H5Gclose(object_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
+ {
+ H5Gclose(object_id);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check that a soft link, which points to an
+ * object that doesn't exist by using an absolute path,
+ * can be created.
+ */
+static int
+test_create_soft_link_dangling_absolute(void)
+{
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ hid_t object_id = H5I_INVALID_HID;
+
+ TESTING("dangling soft link creation to object by absolute path");
+
+ /* 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_SOFT_LINKS)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file or group, basic or soft 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, SOFT_LINK_DANGLING_ABSOLUTE_TEST_SUBGROUP_NAME, H5P_DEFAULT,
+ H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ SOFT_LINK_DANGLING_ABSOLUTE_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" SOFT_LINK_DANGLING_ABSOLUTE_TEST_SUBGROUP_NAME
+ "/" SOFT_LINK_DANGLING_ABSOLUTE_TEST_OBJECT_NAME,
+ group_id, SOFT_LINK_DANGLING_ABSOLUTE_TEST_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", SOFT_LINK_DANGLING_ABSOLUTE_TEST_LINK_NAME);
+ goto error;
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(group_id, SOFT_LINK_DANGLING_ABSOLUTE_TEST_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", SOFT_LINK_DANGLING_ABSOLUTE_TEST_LINK_NAME);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link did not exist\n");
+ goto error;
+ }
+
+ H5E_BEGIN_TRY
+ {
+ object_id = H5Gopen2(group_id, SOFT_LINK_DANGLING_ABSOLUTE_TEST_LINK_NAME, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (object_id >= 0) {
+ H5_FAILED();
+ HDprintf(" opened target of dangling link '%s'!\n", SOFT_LINK_DANGLING_ABSOLUTE_TEST_LINK_NAME);
+ H5Gclose(object_id);
+ goto error;
+ }
+
+ if ((object_id = H5Gcreate2(group_id, SOFT_LINK_DANGLING_ABSOLUTE_TEST_OBJECT_NAME, H5P_DEFAULT,
+ H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create object '%s' for soft link's target\n",
+ SOFT_LINK_DANGLING_ABSOLUTE_TEST_OBJECT_NAME);
+ goto error;
+ }
+
+ if (H5Gclose(object_id) < 0)
+ TEST_ERROR;
+
+ if ((object_id = H5Gopen2(group_id, SOFT_LINK_DANGLING_ABSOLUTE_TEST_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to open object pointed to by soft link '%s'\n",
+ SOFT_LINK_DANGLING_ABSOLUTE_TEST_LINK_NAME);
+ goto error;
+ }
+
+ if (H5Gclose(object_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
+ {
+ H5Gclose(object_id);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check that a soft link with a long name can be created
+ * using H5Lcreate_soft.
+ */
+static int
+test_create_soft_link_long_name(void)
+{
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID;
+ char vol_name[5];
+ size_t name_len = MAX_NAME_LEN;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ char *objname = NULL; /* Name of object [Long] */
+ size_t u; /* Local index variable */
+
+ TESTING("soft link creation with a long name");
+
+ /* 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_SOFT_LINKS)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file or group, basic or soft 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, SOFT_LINK_TEST_GROUP_LONG_NAME, H5P_DEFAULT, H5P_DEFAULT,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container sub-group '%s'\n", SOFT_LINK_TEST_GROUP_LONG_NAME);
+ goto error;
+ }
+
+ if (H5VLget_connector_name(file_id, vol_name, 5) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get VOL connector name\n");
+ goto error;
+ }
+
+ /** for DAOS VOL, max link name supported is 99 (Lexical key) */
+ if (strcmp(vol_name, "daos") == 0)
+ name_len = 99;
+
+ /* Construct very long file name */
+ if ((objname = (char *)HDmalloc((size_t)(name_len + 1))) == NULL)
+ TEST_ERROR;
+
+ for (u = 0; u < name_len; u++)
+ objname[u] = 'b';
+ objname[name_len] = '\0';
+
+ if (H5Lcreate_soft(SOFT_LINK_TEST_LONG_OBJECT_NAME, group_id, objname, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link with a long name\n");
+ goto error;
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(group_id, objname, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if the link with a long name exists\n");
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link did not exist\n");
+ goto error;
+ }
+
+ if (H5Gclose(group_id) < 0)
+ TEST_ERROR;
+ if (H5Gclose(container_group) < 0)
+ TEST_ERROR;
+ if (H5Fclose(file_id) < 0)
+ TEST_ERROR;
+
+ /* Release memory */
+ if (objname)
+ HDfree(objname);
+
+ PASSED();
+
+ return 0;
+
+error:
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ if (objname)
+ HDfree(objname);
+
+ return 1;
+}
+
+/*
+ * A test to check that many soft links can be created
+ * using H5Lcreate_soft.
+ */
+static int
+test_create_soft_link_many(void)
+{
+#ifndef NO_SOFT_LINK_MANY_DANGLING
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID;
+ hid_t group_id = H5I_INVALID_HID;
+ hid_t object_id = H5I_INVALID_HID;
+#ifndef NO_OBJECT_GET_NAME
+ char objname[SOFT_LINK_TEST_GROUP_MANY_NAME_BUF_SIZE]; /* Object name */
+#endif
+#endif
+
+ TESTING("soft link creation of many 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_SOFT_LINKS)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file or group, basic or soft link aren't supported with this "
+ "connector\n");
+ return 0;
+ }
+
+#ifndef NO_SOFT_LINK_MANY_DANGLING
+ 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, SOFT_LINK_TEST_GROUP_MANY_NAME, H5P_DEFAULT, H5P_DEFAULT,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container sub-group '%s'\n", SOFT_LINK_TEST_GROUP_MANY_NAME);
+ goto error;
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" SOFT_LINK_TEST_GROUP_MANY_NAME
+ "/" SOFT_LINK_TEST_GROUP_MANY_FINAL_NAME,
+ group_id, "soft1", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_soft("soft1", group_id, "soft2", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_soft("soft2", group_id, "soft3", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_soft("soft3", group_id, "soft4", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_soft("soft4", group_id, "soft5", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_soft("soft5", group_id, "soft6", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_soft("soft6", group_id, "soft7", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_soft("soft7", group_id, "soft8", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_soft("soft8", group_id, "soft9", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_soft("soft9", group_id, "soft10", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_soft("soft10", group_id, "soft11", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_soft("soft11", group_id, "soft12", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_soft("soft12", group_id, "soft13", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_soft("soft13", group_id, "soft14", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_soft("soft14", group_id, "soft15", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+ if (H5Lcreate_soft("soft15", group_id, "soft16", H5P_DEFAULT, H5P_DEFAULT) < 0)
+ TEST_ERROR;
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(group_id, "soft16", H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link 'soft16' exists\n");
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link 'soft16' did not exist\n");
+ goto error;
+ }
+
+ if (H5Gclose(group_id) < 0)
+ TEST_ERROR;
+ if (H5Gclose(container_group) < 0)
+ TEST_ERROR;
+ if (H5Fclose(file_id) < 0)
+ TEST_ERROR;
+
+ /* Reopen the file and group and verify the hard link */
+ 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((group_id = H5Gopen2(container_group, SOFT_LINK_TEST_GROUP_MANY_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container sub-group '%s'\n", SOFT_LINK_TEST_GROUP_MANY_NAME);
+ goto error;
+ }
+
+ /*
+ * XXX: Try to open the object through last soft link. If should fail because it doesn't exist. If
+ * H5Oopen is available, use that.
+ */
+ H5E_BEGIN_TRY
+ {
+ object_id = H5Gopen2(group_id, "soft16", H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (object_id >= 0) {
+ H5_FAILED();
+ HDprintf(" opened target of dangling soft link '%s'!\n", SOFT_LINK_TEST_GROUP_MANY_NAME);
+ H5Gclose(object_id);
+ goto error;
+ }
+
+ if ((object_id = H5Gcreate2(group_id, SOFT_LINK_TEST_GROUP_MANY_FINAL_NAME, H5P_DEFAULT, H5P_DEFAULT,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create object '%s' for soft link's target\n", SOFT_LINK_TEST_GROUP_MANY_NAME);
+ goto error;
+ }
+
+ if (H5Gclose(object_id) < 0)
+ TEST_ERROR;
+
+ /*
+ * XXX: Open the object through last soft link. It should work this time. If H5Oopen is available, use
+ * that.
+ */
+ if ((object_id = H5Gopen2(group_id, "soft16", H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to open object pointed to by soft link '%s'\n", SOFT_LINK_TEST_GROUP_MANY_NAME);
+ goto error;
+ }
+#ifndef NO_OBJECT_GET_NAME
+ /* Check name */
+ if (H5Iget_name(object_id, objname, (size_t)SOFT_LINK_TEST_GROUP_MANY_NAME_BUF_SIZE) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get the name of the object 'soft16'\n");
+ goto error;
+ }
+
+ if (HDstrcmp(objname, "/" LINK_TEST_GROUP_NAME "/" SOFT_LINK_TEST_GROUP_MANY_NAME "/soft16")) {
+ H5_FAILED();
+ HDprintf(" wrong name of the object '%s'\n", objname);
+ goto error;
+ }
+#endif
+
+ if (H5Gclose(object_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
+ {
+ H5Gclose(object_id);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+#else
+ SKIPPED();
+ return 0;
+#endif
+}
+
+/*
+ * A test to check that a soft link can't be created
+ * when H5Lcreate_soft is passed invalid parameters.
+ */
+static int
+test_create_soft_link_invalid_params(void)
+{
+ herr_t err_ret = -1;
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+
+ TESTING_MULTIPART("soft link creation 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_SOFT_LINKS)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, or 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, SOFT_LINK_INVALID_PARAMS_TEST_GROUP_NAME, H5P_DEFAULT,
+ H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container sub-group '%s'\n", SOFT_LINK_INVALID_PARAMS_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ PART_BEGIN(H5Lcreate_soft_invalid_link_target)
+ {
+ TESTING_2("H5Lcreate_soft with an invalid link target");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_soft(NULL, group_id, SOFT_LINK_INVALID_PARAMS_TEST_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created soft link '%s' with an invalid link target!\n",
+ SOFT_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_soft_invalid_link_target);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_soft("", group_id, SOFT_LINK_INVALID_PARAMS_TEST_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created soft link '%s' with an invalid link target!\n",
+ SOFT_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_soft_invalid_link_target);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_soft_invalid_link_target);
+
+ PART_BEGIN(H5Lcreate_soft_invalid_link_loc_id)
+ {
+ TESTING_2("H5Lcreate_soft with an invalid link_loc_id");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_soft("/", H5I_INVALID_HID, SOFT_LINK_INVALID_PARAMS_TEST_LINK_NAME,
+ H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created soft link '%s' with an invalid link_loc_id!\n",
+ SOFT_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_soft_invalid_link_loc_id);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_soft_invalid_link_loc_id);
+
+ PART_BEGIN(H5Lcreate_soft_invalid_link_name)
+ {
+ TESTING_2("H5Lcreate_soft with an invalid link name");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_soft("/", group_id, NULL, H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created soft link '%s' with a NULL link name!\n",
+ SOFT_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_soft_invalid_link_name);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_soft("/", group_id, "", H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created soft link '%s' with an invalid link name of ''!\n",
+ SOFT_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_soft_invalid_link_name);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_soft_invalid_link_name);
+
+ PART_BEGIN(H5Lcreate_soft_invalid_lcpl)
+ {
+ TESTING_2("H5Lcreate_soft with an invalid LCPL");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_soft("/", group_id, SOFT_LINK_INVALID_PARAMS_TEST_LINK_NAME,
+ H5I_INVALID_HID, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created soft link '%s' with an invalid LCPL!\n",
+ SOFT_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_soft_invalid_lcpl);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_soft_invalid_lcpl);
+
+ PART_BEGIN(H5Lcreate_soft_invalid_lapl)
+ {
+ TESTING_2("H5Lcreate_soft with an invalid LAPL");
+#ifndef NO_INVALID_PROPERTY_LIST_TESTS
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_soft("/", group_id, SOFT_LINK_INVALID_PARAMS_TEST_LINK_NAME, H5P_DEFAULT,
+ H5I_INVALID_HID);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created soft link '%s' with an invalid LAPL!\n",
+ SOFT_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_soft_invalid_lapl);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lcreate_soft_invalid_lapl);
+#endif
+ }
+ PART_END(H5Lcreate_soft_invalid_lapl);
+
+ PART_BEGIN(H5Lcreate_soft_invalid_existence)
+ {
+ TESTING_2("invalid link existence after previous invalid H5Lcreate_soft calls");
+
+ /* Verify the link hasn't been created */
+ if ((link_exists = H5Lexists(group_id, SOFT_LINK_INVALID_PARAMS_TEST_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n",
+ SOFT_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_soft_invalid_existence);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' existed!\n", SOFT_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_soft_invalid_existence);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_soft_invalid_existence);
+ }
+ 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_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check that an external link can be created
+ * using H5Lcreate_external.
+ */
+static int
+test_create_external_link(void)
+{
+#ifndef NO_EXTERNAL_LINKS
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ hid_t root_id = H5I_INVALID_HID;
+ char ext_link_filename[H5_API_TEST_FILENAME_MAX_LENGTH];
+#endif
+
+ TESTING("external link creation to existing 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_EXTERNAL_LINKS)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, basic link, or external link aren't supported "
+ "with this connector\n");
+ return 0;
+ }
+
+#ifndef NO_EXTERNAL_LINKS
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s", EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ goto error;
+ }
+
+ if (H5Fclose(file_id) < 0)
+ TEST_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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, EXTERNAL_LINK_TEST_SUBGROUP_NAME, H5P_DEFAULT, H5P_DEFAULT,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n", EXTERNAL_LINK_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ if (H5Lcreate_external(ext_link_filename, "/", group_id, EXTERNAL_LINK_TEST_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", EXTERNAL_LINK_TEST_LINK_NAME);
+ goto error;
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(group_id, EXTERNAL_LINK_TEST_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", EXTERNAL_LINK_TEST_LINK_NAME);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link did not exist\n");
+ goto error;
+ }
+
+ if ((root_id = H5Gopen2(group_id, EXTERNAL_LINK_TEST_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open root group of other file using external link '%s'\n",
+ EXTERNAL_LINK_TEST_LINK_NAME);
+ goto error;
+ }
+
+ if (H5Gclose(root_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
+ {
+ H5Gclose(root_id);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+#else
+ SKIPPED();
+ return 0;
+#endif
+}
+
+/*
+ * A test to check that an external link, which points to an
+ * object that doesn't exist by using an absolute path, can
+ * be created.
+ */
+static int
+test_create_external_link_dangling(void)
+{
+#ifndef NO_EXTERNAL_LINKS
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID, ext_file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ hid_t object_id = H5I_INVALID_HID;
+ char ext_link_filename[H5_API_TEST_FILENAME_MAX_LENGTH];
+#endif
+
+ TESTING("dangling external link creation");
+
+#ifndef NO_EXTERNAL_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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_EXTERNAL_LINKS)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, basic link, or external link aren't supported "
+ "with this connector\n");
+ return 0;
+ }
+
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s", EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, EXTERNAL_LINK_TEST_DANGLING_SUBGROUP_NAME, H5P_DEFAULT,
+ H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n", EXTERNAL_LINK_TEST_DANGLING_SUBGROUP_NAME);
+ goto error;
+ }
+
+ if (H5Lcreate_external(ext_link_filename, "/" EXTERNAL_LINK_TEST_DANGLING_OBJECT_NAME, group_id,
+ EXTERNAL_LINK_TEST_DANGLING_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create dangling external link '%s'\n", EXTERNAL_LINK_TEST_DANGLING_LINK_NAME);
+ goto error;
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(group_id, EXTERNAL_LINK_TEST_DANGLING_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", EXTERNAL_LINK_TEST_DANGLING_LINK_NAME);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link did not exist\n");
+ goto error;
+ }
+
+ H5E_BEGIN_TRY
+ {
+ object_id = H5Gopen2(group_id, EXTERNAL_LINK_TEST_DANGLING_LINK_NAME, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (object_id >= 0) {
+ H5_FAILED();
+ HDprintf(" opened non-existent object in other file using dangling external link '%s'!\n",
+ EXTERNAL_LINK_TEST_DANGLING_LINK_NAME);
+ H5Gclose(object_id);
+ goto error;
+ }
+
+ if ((object_id = H5Gcreate2(ext_file_id, EXTERNAL_LINK_TEST_DANGLING_OBJECT_NAME, H5P_DEFAULT,
+ H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create object '%s' for external link's target\n",
+ EXTERNAL_LINK_TEST_DANGLING_OBJECT_NAME);
+ goto error;
+ }
+
+ if (H5Gclose(object_id) < 0)
+ TEST_ERROR;
+
+ if ((object_id = H5Gopen2(group_id, EXTERNAL_LINK_TEST_DANGLING_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to open object pointed to by external link '%s'\n",
+ EXTERNAL_LINK_TEST_DANGLING_LINK_NAME);
+ goto error;
+ }
+
+ if (H5Gclose(object_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 (H5Fclose(ext_file_id) < 0)
+ TEST_ERROR;
+
+ PASSED();
+
+ return 0;
+
+error:
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(object_id);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ H5Fclose(ext_file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+#else
+ SKIPPED();
+ return 0;
+#endif
+}
+
+/*
+ * A test to check that an external link to an object
+ * that crosses several files using H5Lcreate_external.
+ */
+static int
+test_create_external_link_multi(void)
+{
+#ifndef NO_EXTERNAL_LINKS
+ 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, group_id3 = H5I_INVALID_HID;
+ hid_t root_id = H5I_INVALID_HID;
+ char ext_link_filename1[H5_API_TEST_FILENAME_MAX_LENGTH];
+ char ext_link_filename2[H5_API_TEST_FILENAME_MAX_LENGTH];
+ char ext_link_filename3[H5_API_TEST_FILENAME_MAX_LENGTH];
+ char objname[EXTERNAL_LINK_TEST_MULTI_NAME_BUF_SIZE];
+#endif
+
+ TESTING_MULTIPART("external link creation to an object across several files");
+
+#ifndef NO_EXTERNAL_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_EXTERNAL_LINKS)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, or external link aren't supported with this "
+ "connector\n");
+ return 0;
+ }
+
+ BEGIN_MULTIPART
+ {
+ PART_BEGIN(H5Lcreate_external_first_file)
+ {
+ TESTING_2("Create the first external file to be pointed to");
+
+ HDsnprintf(ext_link_filename1, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((file_id = H5Fcreate(ext_link_filename1, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n",
+ ext_link_filename1);
+ PART_ERROR(H5Lcreate_external_first_file);
+ }
+
+ /* Create object down a path */
+ if ((group_id = H5Gcreate2(file_id, "A", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create a group\n");
+ PART_ERROR(H5Lcreate_external_first_file);
+ }
+
+ if (H5Gclose(group_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close a group\n");
+ PART_ERROR(H5Lcreate_external_first_file);
+ }
+
+ if ((group_id = H5Gcreate2(file_id, "A/B", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create a group\n");
+ PART_ERROR(H5Lcreate_external_first_file);
+ }
+
+ if (H5Gclose(group_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close a group\n");
+ PART_ERROR(H5Lcreate_external_first_file);
+ }
+
+ if ((group_id = H5Gcreate2(file_id, "A/B/C", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create a group\n");
+ PART_ERROR(H5Lcreate_external_first_file);
+ }
+
+ if (H5Gclose(group_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close a group\n");
+ PART_ERROR(H5Lcreate_external_first_file);
+ }
+
+ /* Close file */
+ if (H5Fclose(file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close a group\n");
+ PART_ERROR(H5Lcreate_external_first_file);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_external_first_file);
+
+ PART_BEGIN(H5Lcreate_external_second_file)
+ {
+ TESTING_2("Create the second external file to be pointed to");
+
+ HDsnprintf(ext_link_filename2, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME2);
+
+ if ((file_id = H5Fcreate(ext_link_filename2, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n",
+ ext_link_filename2);
+ PART_ERROR(H5Lcreate_external_second_file);
+ }
+
+ /* Create object down a path */
+ if ((group_id = H5Gcreate2(file_id, "D", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create a group\n");
+ PART_ERROR(H5Lcreate_external_second_file);
+ }
+
+ if (H5Gclose(group_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close a group\n");
+ PART_ERROR(H5Lcreate_external_second_file);
+ }
+
+ if ((group_id = H5Gcreate2(file_id, "D/E", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create a group\n");
+ PART_ERROR(H5Lcreate_external_second_file);
+ }
+
+ /* Create external link to object in first file */
+ if (H5Lcreate_external(ext_link_filename1, "/A/B/C", group_id, "F", H5P_DEFAULT, H5P_DEFAULT) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link 'F'\n");
+ PART_ERROR(H5Lcreate_external_second_file);
+ }
+
+ if (H5Gclose(group_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close a group\n");
+ PART_ERROR(H5Lcreate_external_second_file);
+ }
+
+ /* Close file */
+ if (H5Fclose(file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close a file\n");
+ PART_ERROR(H5Lcreate_external_second_file);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_external_second_file);
+
+ PART_BEGIN(H5Lcreate_external_third_file)
+ {
+ TESTING_2("Create the third external file to be pointed to");
+
+ HDsnprintf(ext_link_filename3, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME3);
+
+ if ((file_id = H5Fcreate(ext_link_filename3, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n",
+ ext_link_filename3);
+ PART_ERROR(H5Lcreate_external_third_file);
+ }
+
+ /* Create object down a path */
+ if ((group_id = H5Gcreate2(file_id, "G", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create a group\n");
+ PART_ERROR(H5Lcreate_external_third_file);
+ }
+
+ if (H5Gclose(group_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close a group\n");
+ PART_ERROR(H5Lcreate_external_third_file);
+ }
+
+ if ((group_id = H5Gcreate2(file_id, "G/H", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create a group\n");
+ PART_ERROR(H5Lcreate_external_third_file);
+ }
+
+ /* Create external link to object in second file */
+ if (H5Lcreate_external(ext_link_filename2, "/D/E/F", group_id, "I", H5P_DEFAULT, H5P_DEFAULT) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link 'I'\n");
+ PART_ERROR(H5Lcreate_external_third_file);
+ }
+
+ if (H5Gclose(group_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close a group\n");
+ PART_ERROR(H5Lcreate_external_third_file);
+ }
+
+ /* Close file */
+ if (H5Fclose(file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close a file\n");
+ PART_ERROR(H5Lcreate_external_third_file);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_external_third_file);
+
+ PART_BEGIN(H5Lcreate_external_final_file)
+ {
+ TESTING_2("Open the file and create the final external link");
+
+ 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);
+ PART_ERROR(H5Lcreate_external_final_file);
+ }
+
+ if ((container_group = H5Gopen2(file_id, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ PART_ERROR(H5Lcreate_external_final_file);
+ }
+
+ if ((group_id = H5Gcreate2(container_group, EXTERNAL_LINK_TEST_MULTI_NAME, H5P_DEFAULT,
+ H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n", EXTERNAL_LINK_TEST_MULTI_NAME);
+ PART_ERROR(H5Lcreate_external_final_file);
+ }
+
+ if (H5Lcreate_external(ext_link_filename3, "/G/H/I", group_id, "ext_link", H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link 'ext_link'\n");
+ PART_ERROR(H5Lcreate_external_final_file);
+ }
+
+ if ((group_id2 = H5Gopen2(group_id, "ext_link", H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open the group that is the external link\n");
+ PART_ERROR(H5Lcreate_external_final_file);
+ }
+
+ /* Check name */
+ if (H5Iget_name(group_id2, objname, (size_t)EXTERNAL_LINK_TEST_MULTI_NAME_BUF_SIZE) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get the name of the object '%s'\n",
+ HARD_LINK_TEST_GROUP_MANY_FINAL_NAME);
+ PART_ERROR(H5Lcreate_external_final_file);
+ }
+
+ if (HDstrcmp(objname, "/A/B/C")) {
+ H5_FAILED();
+ HDprintf(" wrong name of the object '%s'\n", objname);
+ PART_ERROR(H5Lcreate_external_final_file);
+ }
+
+ /* Create an object in the external file */
+ if ((group_id3 = H5Gcreate2(group_id2, "new_group", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create a group 'new_group' in the external file\n");
+ PART_ERROR(H5Lcreate_external_final_file);
+ }
+
+ if (H5Gclose(group_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close a group\n");
+ PART_ERROR(H5Lcreate_external_final_file);
+ }
+
+ if (H5Gclose(group_id2) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close a group\n");
+ PART_ERROR(H5Lcreate_external_final_file);
+ }
+
+ if (H5Gclose(group_id3) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close a group\n");
+ PART_ERROR(H5Lcreate_external_final_file);
+ }
+
+ if (H5Gclose(container_group) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close a group\n");
+ PART_ERROR(H5Lcreate_external_final_file);
+ }
+
+ if (H5Fclose(file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close a file\n");
+ PART_ERROR(H5Lcreate_external_final_file);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_external_final_file);
+
+ PART_BEGIN(H5Lcreate_external_object_created)
+ {
+ TESTING_2("Check the group being created through the external link");
+
+ if ((file_id = H5Fopen(ext_link_filename1, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open file '%s'\n", ext_link_filename1);
+ PART_ERROR(H5Lcreate_external_object_created);
+ }
+
+ if ((group_id = H5Gopen2(file_id, "/A/B/C/new_group", H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open a group 'new_group' in the external file\n");
+ PART_ERROR(H5Lcreate_external_object_created);
+ }
+
+ /* Check name */
+ if (H5Iget_name(group_id, objname, (size_t)EXTERNAL_LINK_TEST_MULTI_NAME_BUF_SIZE) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get the name of the object '/A/B/C/new_group'\n");
+ PART_ERROR(H5Lcreate_external_object_created);
+ }
+
+ if (HDstrcmp(objname, "/A/B/C/new_group")) {
+ H5_FAILED();
+ HDprintf(" wrong name of the object '%s'\n", objname);
+ PART_ERROR(H5Lcreate_external_object_created);
+ }
+
+ if (H5Gclose(group_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close the group\n");
+ PART_ERROR(H5Lcreate_external_object_created);
+ }
+
+ if (H5Fclose(file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close the file\n");
+ PART_ERROR(H5Lcreate_external_object_created);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_external_object_created);
+ }
+ END_MULTIPART;
+
+ return 0;
+
+error:
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(root_id);
+ H5Gclose(group_id);
+ H5Gclose(group_id2);
+ H5Gclose(group_id3);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+#else
+ SKIPPED();
+ return 0;
+#endif
+}
+
+/*
+ * A test to build a file with external link to object that
+ * goes back and forth between two files a couple of times:
+ *
+ * file1:/link1 -> file2: /link2
+ * file2:/link2 -> file1: /link3
+ * file1:/link3 -> file2: /link4
+ * file2:/link4 -> file1: /link5
+ * file1:/link5 -> file2: /link6
+ * file2:/link6 -> file1: /final
+ */
+static int
+test_create_external_link_ping_pong(void)
+{
+#ifndef NO_EXTERNAL_LINKS
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t group_id = H5I_INVALID_HID;
+ hid_t group_id2 = H5I_INVALID_HID;
+ char ext_link_filename1[H5_API_TEST_FILENAME_MAX_LENGTH];
+ char ext_link_filename2[H5_API_TEST_FILENAME_MAX_LENGTH];
+ char objname[EXTERNAL_LINK_TEST_MULTI_NAME_BUF_SIZE];
+#endif
+
+ TESTING_MULTIPART("external link creation to an object in ping pong style");
+
+#ifndef NO_EXTERNAL_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_EXTERNAL_LINKS)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, or external link aren't supported with this "
+ "connector\n");
+ return 0;
+ }
+
+ HDsnprintf(ext_link_filename1, H5_API_TEST_FILENAME_MAX_LENGTH, "%s", EXTERNAL_LINK_TEST_PING_PONG_NAME1);
+ HDsnprintf(ext_link_filename2, H5_API_TEST_FILENAME_MAX_LENGTH, "%s", EXTERNAL_LINK_TEST_PING_PONG_NAME2);
+
+ BEGIN_MULTIPART
+ {
+ PART_BEGIN(H5Lcreate_external_first_file)
+ {
+ TESTING_2("Create the first external file");
+
+ /* Create the first file */
+ if ((file_id = H5Fcreate(ext_link_filename1, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n",
+ ext_link_filename1);
+ PART_ERROR(H5Lcreate_external_first_file);
+ }
+
+ /* Create external links for chain */
+ if (H5Lcreate_external(ext_link_filename2, "/link2", file_id, "link1", H5P_DEFAULT, H5P_DEFAULT) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link\n");
+ PART_ERROR(H5Lcreate_external_first_file);
+ }
+
+ if (H5Lcreate_external(ext_link_filename2, "/link4", file_id, "link3", H5P_DEFAULT, H5P_DEFAULT) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link\n");
+ PART_ERROR(H5Lcreate_external_first_file);
+ }
+
+ if (H5Lcreate_external(ext_link_filename2, "/link6", file_id, "link5", H5P_DEFAULT, H5P_DEFAULT) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link\n");
+ PART_ERROR(H5Lcreate_external_first_file);
+ }
+
+ /* Create final object */
+ if ((group_id = H5Gcreate2(file_id, "final", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create a group\n");
+ PART_ERROR(H5Lcreate_external_first_file);
+ }
+
+ if (H5Gclose(group_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close a group\n");
+ PART_ERROR(H5Lcreate_external_first_file);
+ }
+
+ /* Close file */
+ if (H5Fclose(file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close a group\n");
+ PART_ERROR(H5Lcreate_external_first_file);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_external_first_file);
+
+ PART_BEGIN(H5Lcreate_external_second_file)
+ {
+ TESTING_2("Create the second external file");
+
+ /* Create the second file */
+ if ((file_id = H5Fcreate(ext_link_filename2, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link\n", ext_link_filename2);
+ PART_ERROR(H5Lcreate_external_second_file);
+ }
+
+ /* Create external links for chain */
+ if (H5Lcreate_external(ext_link_filename1, "/link3", file_id, "link2", H5P_DEFAULT, H5P_DEFAULT) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link\n");
+ PART_ERROR(H5Lcreate_external_second_file);
+ }
+
+ if (H5Lcreate_external(ext_link_filename1, "/link5", file_id, "link4", H5P_DEFAULT, H5P_DEFAULT) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link\n");
+ PART_ERROR(H5Lcreate_external_second_file);
+ }
+
+ if (H5Lcreate_external(ext_link_filename1, "/final", file_id, "link6", H5P_DEFAULT, H5P_DEFAULT) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link\n");
+ PART_ERROR(H5Lcreate_external_second_file);
+ }
+
+ /* Close file */
+ if (H5Fclose(file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close the file\n");
+ PART_ERROR(H5Lcreate_external_second_file);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_external_second_file);
+
+ PART_BEGIN(H5Lcreate_external_verify)
+ {
+ TESTING_2("Open the first file to verify the object being pointed to");
+
+ if ((file_id = H5Fopen(ext_link_filename1, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open file '%s'\n", ext_link_filename1);
+ PART_ERROR(H5Lcreate_external_verify);
+ }
+
+ /* Open object through external link */
+ if ((group_id = H5Gopen2(file_id, "link1", H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open the group that is the external link 'link1'\n");
+ PART_ERROR(H5Lcreate_external_verify);
+ }
+
+ /* Check the name of the object being pointed to */
+ if (H5Iget_name(group_id, objname, (size_t)EXTERNAL_LINK_TEST_PING_PONG_NAME_BUF_SIZE) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get the name of the object\n");
+ PART_ERROR(H5Lcreate_external_verify);
+ }
+
+ if (HDstrcmp(objname, "/final")) {
+ H5_FAILED();
+ HDprintf(" wrong name of the object '%s'\n", objname);
+ PART_ERROR(H5Lcreate_external_verify);
+ }
+
+ /* Create an object in the external file */
+ if ((group_id2 = H5Gcreate2(group_id, "new_group", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create a new group 'new_group'\n");
+ PART_ERROR(H5Lcreate_external_verify);
+ }
+
+ if (H5Gclose(group_id2) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close a group\n");
+ PART_ERROR(H5Lcreate_external_verify);
+ }
+
+ if (H5Gclose(group_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close a group\n");
+ PART_ERROR(H5Lcreate_external_verify);
+ }
+
+ /* Close file */
+ if (H5Fclose(file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close the file\n");
+ PART_ERROR(H5Lcreate_external_verify);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_external_verify);
+
+ PART_BEGIN(H5Lcreate_external_verify_again)
+ {
+ TESTING_2("Open the first file to verify the object being created");
+
+ if ((file_id = H5Fopen(ext_link_filename1, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open file '%s'\n", ext_link_filename1);
+ PART_ERROR(H5Lcreate_external_verify_again);
+ }
+
+ /* Open object through external link */
+ if ((group_id = H5Gopen2(file_id, "/final/new_group", H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open the group that is the external link\n");
+ PART_ERROR(H5Lcreate_external_verify_again);
+ }
+
+ /* Check the name of the object being pointed to */
+ if (H5Iget_name(group_id, objname, (size_t)EXTERNAL_LINK_TEST_PING_PONG_NAME_BUF_SIZE) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get the name of the object\n");
+ PART_ERROR(H5Lcreate_external_verify_again);
+ }
+
+ if (HDstrcmp(objname, "/final/new_group")) {
+ H5_FAILED();
+ HDprintf(" wrong name of the object '%s'\n", objname);
+ PART_ERROR(H5Lcreate_external_verify_again);
+ }
+
+ if (H5Gclose(group_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close a group\n");
+ PART_ERROR(H5Lcreate_external_verify_again);
+ }
+
+ /* Close file */
+ if (H5Fclose(file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close the file\n");
+ PART_ERROR(H5Lcreate_external_verify_again);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_external_verify_again);
+ }
+ END_MULTIPART;
+
+ return 0;
+
+error:
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(group_id);
+ H5Gclose(group_id2);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+#else
+ SKIPPED();
+ return 0;
+#endif
+}
+
+/*
+ * A test to check that an external link can't be created
+ * when H5Lcreate_external is passed invalid parameters.
+ */
+static int
+test_create_external_link_invalid_params(void)
+{
+ herr_t err_ret = -1;
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ char ext_link_filename[H5_API_TEST_FILENAME_MAX_LENGTH];
+
+ TESTING_MULTIPART("H5Lcreate_external 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_EXTERNAL_LINKS)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, or basic link or external link aren't supported "
+ "with this connector\n");
+ return 0;
+ }
+
+ TESTING_2("test setup");
+
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_INVALID_PARAMS_TEST_FILE_NAME);
+
+ if ((file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ goto error;
+ }
+
+ if (H5Fclose(file_id) < 0)
+ TEST_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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, EXTERNAL_LINK_INVALID_PARAMS_TEST_GROUP_NAME, H5P_DEFAULT,
+ H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ EXTERNAL_LINK_INVALID_PARAMS_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ PART_BEGIN(H5Lcreate_external_invalid_file_name)
+ {
+ TESTING_2("H5Lcreate_external with an invalid file name");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_external(NULL, "/", group_id, EXTERNAL_LINK_INVALID_PARAMS_TEST_LINK_NAME,
+ H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created external link '%s' using a NULL file name!\n",
+ EXTERNAL_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_external_invalid_file_name);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_external("", "/", group_id, EXTERNAL_LINK_INVALID_PARAMS_TEST_LINK_NAME,
+ H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created external link '%s' using an invalid file name of ''!\n",
+ EXTERNAL_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_external_invalid_file_name);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_external_invalid_file_name);
+
+ PART_BEGIN(H5Lcreate_external_invalid_ext_obj_name)
+ {
+ TESTING_2("H5Lcreate_external with an invalid external object name");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret =
+ H5Lcreate_external(ext_link_filename, NULL, group_id,
+ EXTERNAL_LINK_INVALID_PARAMS_TEST_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created external link '%s' using a NULL external object name!\n",
+ EXTERNAL_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_external_invalid_ext_obj_name);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret =
+ H5Lcreate_external(ext_link_filename, "", group_id,
+ EXTERNAL_LINK_INVALID_PARAMS_TEST_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created external link '%s' using an invalid external object name of ''!\n",
+ EXTERNAL_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_external_invalid_ext_obj_name);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_external_invalid_ext_obj_name);
+
+ PART_BEGIN(H5Lcreate_external_invalid_link_loc_id)
+ {
+ TESTING_2("H5Lcreate_external with an invalid link_loc_id");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret =
+ H5Lcreate_external(ext_link_filename, "/", H5I_INVALID_HID,
+ EXTERNAL_LINK_INVALID_PARAMS_TEST_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created external link '%s' using an invalid link_loc_id!\n",
+ EXTERNAL_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_external_invalid_link_loc_id);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_external_invalid_link_loc_id);
+
+ PART_BEGIN(H5Lcreate_external_invalid_link_name)
+ {
+ TESTING_2("H5Lcreate_external with an invalid link name");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret =
+ H5Lcreate_external(ext_link_filename, "/", group_id, NULL, H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created external link '%s' using a NULL link_loc_id!\n",
+ EXTERNAL_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_external_invalid_link_name);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_external(ext_link_filename, "/", group_id, "", H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created external link '%s' using an invalid link name of ''!\n",
+ EXTERNAL_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_external_invalid_link_name);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_external_invalid_link_name);
+
+ PART_BEGIN(H5Lcreate_external_invalid_lcpl)
+ {
+ TESTING_2("H5Lcreate_external with an invalid LCPL");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_external(ext_link_filename, "/", group_id,
+ EXTERNAL_LINK_INVALID_PARAMS_TEST_LINK_NAME, H5I_INVALID_HID,
+ H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created external link '%s' using an invalid LCPL!\n",
+ EXTERNAL_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_external_invalid_lcpl);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_external_invalid_lcpl);
+
+ PART_BEGIN(H5Lcreate_external_invalid_lapl)
+ {
+ TESTING_2("H5Lcreate_external with an invalid LAPL");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_external(ext_link_filename, "/", group_id,
+ EXTERNAL_LINK_INVALID_PARAMS_TEST_LINK_NAME, H5P_DEFAULT,
+ H5I_INVALID_HID);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created external link '%s' using an invalid LAPL!\n",
+ EXTERNAL_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_external_invalid_lapl);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_external_invalid_lapl);
+
+ PART_BEGIN(H5Lcreate_external_invalid_existence)
+ {
+ TESTING_2("invalid link existence after previous invalid H5Lcreate_external calls");
+
+ /* Verify the link hasn't been created */
+ if ((link_exists =
+ H5Lexists(group_id, EXTERNAL_LINK_INVALID_PARAMS_TEST_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n",
+ EXTERNAL_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_external_invalid_existence);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' existed!\n", EXTERNAL_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_external_invalid_existence);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_external_invalid_existence);
+ }
+ 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_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check that a user-defined link can be created.
+ */
+static int
+test_create_user_defined_link(void)
+{
+#ifndef NO_USER_DEFINED_LINKS
+ ssize_t udata_size;
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ char udata[UD_LINK_TEST_UDATA_MAX_SIZE];
+#endif
+
+ TESTING("user-defined link creation");
+
+#ifndef NO_USER_DEFINED_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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_UD_LINKS)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, or user-defined 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, UD_LINK_TEST_GROUP_NAME, H5P_DEFAULT, H5P_DEFAULT,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n", UD_LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((udata_size = HDsnprintf(udata, UD_LINK_TEST_UDATA_MAX_SIZE, "udata")) < 0)
+ TEST_ERROR;
+
+ if (H5Lcreate_ud(group_id, UD_LINK_TEST_LINK_NAME, H5L_TYPE_EXTERNAL, udata, (size_t)udata_size,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create user-defined link '%s'\n", UD_LINK_TEST_LINK_NAME);
+ goto error;
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(group_id, UD_LINK_TEST_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", UD_LINK_TEST_LINK_NAME);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' didn't exist!\n", UD_LINK_TEST_LINK_NAME);
+ goto 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_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+#else
+ SKIPPED();
+ return 0;
+#endif
+}
+
+/*
+ * A test to check that H5Lcreate_ud fails when
+ * it is given invalid parameters.
+ */
+static int
+test_create_user_defined_link_invalid_params(void)
+{
+ ssize_t udata_size;
+ htri_t link_exists;
+ herr_t err_ret = -1;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ char udata[UD_LINK_INVALID_PARAMS_TEST_UDATA_MAX_SIZE];
+
+ TESTING_MULTIPART("H5Lcreate_ud 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_UD_LINKS)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, or 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, UD_LINK_INVALID_PARAMS_TEST_GROUP_NAME, H5P_DEFAULT,
+ H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n", UD_LINK_INVALID_PARAMS_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((udata_size = HDsnprintf(udata, UD_LINK_INVALID_PARAMS_TEST_UDATA_MAX_SIZE, "udata")) < 0)
+ TEST_ERROR;
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ PART_BEGIN(H5Lcreate_ud_invalid_link_loc_id)
+ {
+ TESTING_2("H5Lcreate_ud with an invalid link location ID");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret =
+ H5Lcreate_ud(H5I_INVALID_HID, UD_LINK_INVALID_PARAMS_TEST_LINK_NAME, H5L_TYPE_EXTERNAL,
+ udata, (size_t)udata_size, H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created user-defined link '%s' with an invalid link location ID!\n",
+ UD_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_ud_invalid_link_loc_id);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_ud_invalid_link_loc_id);
+
+ PART_BEGIN(H5Lcreate_ud_invalid_link_name)
+ {
+ TESTING_2("H5Lcreate_ud with an invalid link name");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_ud(group_id, NULL, H5L_TYPE_EXTERNAL, udata, (size_t)udata_size,
+ H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created user-defined link '%s' with a NULL link name!\n",
+ UD_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_ud_invalid_link_name);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_ud(group_id, "", H5L_TYPE_EXTERNAL, udata, (size_t)udata_size,
+ H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created user-defined link '%s' with an invalid link name of ''!\n",
+ UD_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_ud_invalid_link_name);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_ud_invalid_link_name);
+
+ PART_BEGIN(H5Lcreate_ud_invalid_link_type)
+ {
+ TESTING_2("H5Lcreate_ud with an invalid link type");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_ud(group_id, UD_LINK_INVALID_PARAMS_TEST_LINK_NAME, H5L_TYPE_HARD, udata,
+ (size_t)udata_size, H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created user-defined link '%s' with an invalid link type!\n",
+ UD_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_ud_invalid_link_type);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_ud_invalid_link_type);
+
+ PART_BEGIN(H5Lcreate_ud_invalid_udata_pointer)
+ {
+ TESTING_2("H5Lcreate_ud with an invalid udata pointer");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_ud(group_id, UD_LINK_INVALID_PARAMS_TEST_LINK_NAME, H5L_TYPE_EXTERNAL,
+ NULL, (size_t)udata_size, H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created user-defined link '%s' with an invalid udata pointer!\n",
+ UD_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_ud_invalid_udata_pointer);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_ud_invalid_udata_pointer);
+
+ PART_BEGIN(H5Lcreate_ud_invalid_lcpl)
+ {
+ TESTING_2("H5Lcreate_ud with an invalid LCPL");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_ud(group_id, UD_LINK_INVALID_PARAMS_TEST_LINK_NAME, H5L_TYPE_EXTERNAL,
+ udata, (size_t)udata_size, H5I_INVALID_HID, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created user-defined link '%s' with an invalid LCPL!\n",
+ UD_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_ud_invalid_lcpl);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_ud_invalid_lcpl);
+
+ PART_BEGIN(H5Lcreate_ud_invalid_lapl)
+ {
+ TESTING_2("H5Lcreate_ud with an invalid LAPL");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcreate_ud(group_id, UD_LINK_INVALID_PARAMS_TEST_LINK_NAME, H5L_TYPE_EXTERNAL,
+ udata, (size_t)udata_size, H5P_DEFAULT, H5I_INVALID_HID);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" created user-defined link '%s' with an invalid LAPL!\n",
+ UD_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_ud_invalid_lapl);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_ud_invalid_lapl);
+
+ PART_BEGIN(H5Lcreate_ud_invalid_existence)
+ {
+ TESTING_2("invalid link existence after previous invalid H5Lcreate_ud calls");
+
+ /* Verify the link hasn't been created */
+ if ((link_exists = H5Lexists(group_id, UD_LINK_INVALID_PARAMS_TEST_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n",
+ UD_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_ud_invalid_existence);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' existed!\n", UD_LINK_INVALID_PARAMS_TEST_LINK_NAME);
+ PART_ERROR(H5Lcreate_ud_invalid_existence);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcreate_ud_invalid_existence);
+ }
+ 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_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check that a link can be deleted
+ * using H5Ldelete and H5Ldelete_by_idx.
+ */
+static int
+test_delete_link(void)
+{
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID, ext_file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ hid_t subgroup_id = H5I_INVALID_HID;
+ hid_t nested_grp_id = H5I_INVALID_HID;
+ hid_t gcpl_id = H5I_INVALID_HID;
+#ifndef NO_EXTERNAL_LINKS
+ char ext_link_filename[H5_API_TEST_FILENAME_MAX_LENGTH];
+#endif
+
+ TESTING_MULTIPART("link deletion");
+
+ /* 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_LINK_MORE) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_HARD_LINKS) || !(vol_cap_flags_g & H5VL_CAP_FLAG_EXTERNAL_LINKS) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_SOFT_LINKS) || !(vol_cap_flags_g & H5VL_CAP_FLAG_CREATION_ORDER)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, or link, hard, soft, or external 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((gcpl_id = H5Pcreate(H5P_GROUP_CREATE)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create GCPL for link creation order tracking\n");
+ goto error;
+ }
+
+ if (H5Pset_link_creation_order(gcpl_id, H5P_CRT_ORDER_TRACKED) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't set link creation order tracking\n");
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, LINK_DELETE_TEST_SUBGROUP_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n", LINK_DELETE_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ PART_BEGIN(H5Ldelete_hard)
+ {
+ TESTING_2("H5Ldelete on hard link");
+
+ if ((subgroup_id = H5Gcreate2(group_id, LINK_DELETE_TEST_SUBGROUP1_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", LINK_DELETE_TEST_SUBGROUP1_NAME);
+ PART_ERROR(H5Ldelete_hard);
+ }
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create first hard link '%s'\n", LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_hard);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if first hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_hard);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" first hard link did not exist\n");
+ PART_ERROR(H5Ldelete_hard);
+ }
+
+ if (H5Ldelete(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete hard link '%s' using H5Ldelete\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_hard);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if first hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_hard);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" first hard link exists!\n");
+ PART_ERROR(H5Ldelete_hard);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", LINK_DELETE_TEST_SUBGROUP1_NAME);
+ PART_ERROR(H5Ldelete_hard);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Ldelete_hard);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Ldelete_hard_indirect)
+ {
+ TESTING_2("H5Ldelete on nested hard link");
+
+ if ((subgroup_id = H5Gcreate2(group_id, LINK_DELETE_TEST_NESTED_SUBGROUP_NAME1, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", LINK_DELETE_TEST_NESTED_SUBGROUP_NAME1);
+ PART_ERROR(H5Ldelete_hard_indirect);
+ }
+
+ if ((nested_grp_id = H5Gcreate2(subgroup_id, LINK_DELETE_TEST_NESTED_GRP_NAME, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", LINK_DELETE_TEST_NESTED_GRP_NAME);
+ PART_ERROR(H5Ldelete_hard_indirect);
+ }
+
+ if (H5Lcreate_hard(nested_grp_id, ".", nested_grp_id, LINK_DELETE_TEST_HARD_LINK_NAME,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create first hard link '%s'\n", LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_hard_indirect);
+ }
+
+ if ((link_exists = H5Lexists(nested_grp_id, LINK_DELETE_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if first hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_hard_indirect);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" first hard link did not exist\n");
+ PART_ERROR(H5Ldelete_hard_indirect);
+ }
+
+ if (H5Ldelete(subgroup_id, LINK_DELETE_TEST_NESTED_HARD_LINK_NAME, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete hard link '%s' using H5Ldelete\n",
+ LINK_DELETE_TEST_NESTED_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_hard_indirect);
+ }
+
+ if ((link_exists = H5Lexists(nested_grp_id, LINK_DELETE_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if first hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_hard_indirect);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" first hard link exists!\n");
+ PART_ERROR(H5Ldelete_hard_indirect);
+ }
+
+ if (H5Gclose(nested_grp_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", LINK_DELETE_TEST_NESTED_GRP_NAME);
+ PART_ERROR(H5Ldelete_hard_indirect);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", LINK_DELETE_TEST_SUBGROUP1_NAME);
+ PART_ERROR(H5Ldelete_hard_indirect);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Ldelete_hard_indirect);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(nested_grp_id);
+ nested_grp_id = H5I_INVALID_HID;
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Ldelete_soft)
+ {
+ TESTING_2("H5Ldelete on soft link");
+
+ if ((subgroup_id = H5Gcreate2(group_id, LINK_DELETE_TEST_SUBGROUP2_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", LINK_DELETE_TEST_SUBGROUP2_NAME);
+ PART_ERROR(H5Ldelete_soft);
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" LINK_DELETE_TEST_SUBGROUP_NAME
+ "/" LINK_DELETE_TEST_SUBGROUP2_NAME,
+ subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create first soft link '%s'\n", LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_soft);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if first soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_soft);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" first soft link did not exist\n");
+ PART_ERROR(H5Ldelete_soft);
+ }
+
+ if (H5Ldelete(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete soft link '%s' using H5Ldelete\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_soft);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if first soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_soft);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" first soft link exists!\n");
+ PART_ERROR(H5Ldelete_soft);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", LINK_DELETE_TEST_SUBGROUP2_NAME);
+ PART_ERROR(H5Ldelete_soft);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Ldelete_soft);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Ldelete_external)
+ {
+ TESTING_2("H5Ldelete on external link");
+#ifndef NO_EXTERNAL_LINKS
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Ldelete_external);
+ }
+
+ if (H5Fclose(ext_file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close file '%s'\n", ext_link_filename);
+ PART_ERROR(H5Ldelete_external);
+ }
+
+ if ((subgroup_id = H5Gcreate2(group_id, LINK_DELETE_TEST_SUBGROUP3_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", LINK_DELETE_TEST_SUBGROUP3_NAME);
+ PART_ERROR(H5Ldelete_external);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create first external link '%s'\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_external);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if first external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_external);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" first external link did not exist\n");
+ PART_ERROR(H5Ldelete_external);
+ }
+
+ if (H5Ldelete(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete external link '%s' using H5Ldelete\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_external);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if first external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_external);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" first external link exists!\n");
+ PART_ERROR(H5Ldelete_external);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", LINK_DELETE_TEST_SUBGROUP3_NAME);
+ PART_ERROR(H5Ldelete_external);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Ldelete_external);
+#endif
+ }
+ PART_END(H5Ldelete_external);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ H5Fclose(ext_file_id);
+ ext_file_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Ldelete_ud)
+ {
+ TESTING_2("H5Ldelete on user-defined link");
+
+ /* TODO */
+
+ SKIPPED();
+ PART_EMPTY(H5Ldelete_ud);
+ }
+ PART_END(H5Ldelete_ud);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Ldelete_by_idx_hard_crt_order_increasing)
+ {
+ TESTING_2("H5Ldelete_by_idx on hard link by creation order in increasing order");
+
+ if ((subgroup_id = H5Gcreate2(group_id, LINK_DELETE_TEST_SUBGROUP5_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", LINK_DELETE_TEST_SUBGROUP5_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ /* Create several hard links */
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME2, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME3, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ /* Delete a link */
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 0, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete hard link '%s' using H5Ldelete_by_idx by creation order in "
+ "increasing order\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ /* Ensure that the link is gone and others remain */
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' exists after deletion!\n", LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ /* Repeat until all links have been deleted */
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 0, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete hard link '%s' using H5Ldelete_by_idx by creation order in "
+ "increasing order\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' exists after deletion!\n", LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' exists after deletion!\n", LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 0, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete hard link '%s' using H5Ldelete_by_idx by creation order in "
+ "increasing order\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' exists after deletion!\n", LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' exists after deletion!\n", LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' exists after deletion!\n", LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", LINK_DELETE_TEST_SUBGROUP5_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Ldelete_by_idx_hard_crt_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Ldelete_by_idx_hard_crt_order_decreasing)
+ {
+ TESTING_2("H5Ldelete_by_idx on hard link by creation order in decreasing order");
+
+ if ((subgroup_id = H5Gcreate2(group_id, LINK_DELETE_TEST_SUBGROUP6_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", LINK_DELETE_TEST_SUBGROUP6_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ /* Create several hard links */
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME2, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME3, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ /* Delete a link */
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 2, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete hard link '%s' using H5Ldelete_by_idx by creation order in "
+ "decreasing order\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ /* Ensure that the link is gone and others remain */
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' exists after deletion!\n", LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ /* Repeat until all links have been deleted */
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete hard link '%s' using H5Ldelete_by_idx by creation order in "
+ "decreasing order\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' exists after deletion!\n", LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' exists after deletion!\n", LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 0, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete hard link '%s' using H5Ldelete_by_idx by creation order in "
+ "decreasing order\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' exists after deletion!\n", LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' exists after deletion!\n", LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' exists after deletion!\n", LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", LINK_DELETE_TEST_SUBGROUP6_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_crt_order_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Ldelete_by_idx_hard_crt_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Ldelete_by_idx_hard_name_order_increasing)
+ {
+ TESTING_2("H5Ldelete_by_idx on hard link by alphabetical order in increasing order");
+
+ if ((subgroup_id = H5Gcreate2(group_id, LINK_DELETE_TEST_SUBGROUP7_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", LINK_DELETE_TEST_SUBGROUP7_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ /* Create several hard links */
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME2, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME3, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ /* Delete a link */
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 0, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete hard link '%s' using H5Ldelete_by_idx by alphabetical order in "
+ "increasing order\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ /* Ensure that the link is gone and others remain */
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' exists after deletion!\n", LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ /* Repeat until all links have been deleted */
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 0, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete hard link '%s' using H5Ldelete_by_idx by alphabetical order in "
+ "increasing order\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' exists after deletion!\n", LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' exists after deletion!\n", LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 0, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete hard link '%s' using H5Ldelete_by_idx by alphabetical order in "
+ "increasing order\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' exists after deletion!\n", LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' exists after deletion!\n", LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' exists after deletion!\n", LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", LINK_DELETE_TEST_SUBGROUP7_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Ldelete_by_idx_hard_name_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Ldelete_by_idx_hard_name_order_decreasing)
+ {
+ TESTING_2("H5Ldelete_by_idx on hard link by alphabetical order in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ if ((subgroup_id = H5Gcreate2(group_id, LINK_DELETE_TEST_SUBGROUP8_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", LINK_DELETE_TEST_SUBGROUP8_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ /* Create several hard links */
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME2, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME3, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ /* Delete a link */
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 2, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete hard link '%s' using H5Ldelete_by_idx by alphabetical order in "
+ "decreasing order\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ /* Ensure that the link is gone and others remain */
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' exists after deletion!\n", LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ /* Repeat until all links have been deleted */
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete hard link '%s' using H5Ldelete_by_idx by alphabetical order in "
+ "decreasing order\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' exists after deletion!\n", LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' exists after deletion!\n", LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 0, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete hard link '%s' using H5Ldelete_by_idx by alphabetical order in "
+ "decreasing order\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' exists after deletion!\n", LINK_DELETE_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' exists after deletion!\n", LINK_DELETE_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' exists after deletion!\n", LINK_DELETE_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", LINK_DELETE_TEST_SUBGROUP8_NAME);
+ PART_ERROR(H5Ldelete_by_idx_hard_name_order_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Ldelete_by_idx_hard_name_order_decreasing);
+#endif
+ }
+ PART_END(H5Ldelete_by_idx_hard_name_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Ldelete_by_idx_soft_crt_order_increasing)
+ {
+ TESTING_2("H5Ldelete_by_idx on soft link by creation order in increasing order");
+
+ if ((subgroup_id = H5Gcreate2(group_id, LINK_DELETE_TEST_SUBGROUP9_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", LINK_DELETE_TEST_SUBGROUP9_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ /* Create several soft links */
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" LINK_DELETE_TEST_SUBGROUP_NAME
+ "/" LINK_DELETE_TEST_SUBGROUP9_NAME,
+ subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" LINK_DELETE_TEST_SUBGROUP_NAME
+ "/" LINK_DELETE_TEST_SUBGROUP9_NAME,
+ subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" LINK_DELETE_TEST_SUBGROUP_NAME
+ "/" LINK_DELETE_TEST_SUBGROUP9_NAME,
+ subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME3, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ /* Delete a link */
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 0, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete soft link '%s' using H5Ldelete_by_idx by creation order in "
+ "increasing order\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ /* Ensure that the link is gone and others remain */
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' exists after deletion!\n", LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ /* Repeat until all links have been deleted */
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 0, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete soft link '%s' using H5Ldelete_by_idx by creation order in "
+ "increasing order\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' exists after deletion!\n", LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' exists after deletion!\n", LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 0, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete soft link '%s' using H5Ldelete_by_idx by creation order in "
+ "increasing order\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' exists after deletion!\n", LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' exists after deletion!\n", LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' exists after deletion!\n", LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", LINK_DELETE_TEST_SUBGROUP9_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Ldelete_by_idx_soft_crt_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Ldelete_by_idx_soft_crt_order_decreasing)
+ {
+ TESTING_2("H5Ldelete_by_idx on soft link by creation order in decreasing order");
+
+ if ((subgroup_id = H5Gcreate2(group_id, LINK_DELETE_TEST_SUBGROUP10_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", LINK_DELETE_TEST_SUBGROUP10_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ /* Create several soft links */
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" LINK_DELETE_TEST_SUBGROUP_NAME
+ "/" LINK_DELETE_TEST_SUBGROUP10_NAME,
+ subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" LINK_DELETE_TEST_SUBGROUP_NAME
+ "/" LINK_DELETE_TEST_SUBGROUP10_NAME,
+ subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" LINK_DELETE_TEST_SUBGROUP_NAME
+ "/" LINK_DELETE_TEST_SUBGROUP10_NAME,
+ subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME3, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ /* Delete a link */
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 2, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete soft link '%s' using H5Ldelete_by_idx by creation order in "
+ "decreasing order\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ /* Ensure that the link is gone and others remain */
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' exists after deletion!\n", LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ /* Repeat until all links have been deleted */
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete soft link '%s' using H5Ldelete_by_idx by creation order in "
+ "decreasing order\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' exists after deletion!\n", LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' exists after deletion!\n", LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 0, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete soft link '%s' using H5Ldelete_by_idx by creation order in "
+ "decreasing order\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' exists after deletion!\n", LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' exists after deletion!\n", LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' exists after deletion!\n", LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", LINK_DELETE_TEST_SUBGROUP10_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_crt_order_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Ldelete_by_idx_soft_crt_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Ldelete_by_idx_soft_name_order_increasing)
+ {
+ TESTING_2("H5Ldelete_by_idx on soft link by alphabetical order in increasing order");
+
+ if ((subgroup_id = H5Gcreate2(group_id, LINK_DELETE_TEST_SUBGROUP11_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", LINK_DELETE_TEST_SUBGROUP11_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ /* Create several soft links */
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" LINK_DELETE_TEST_SUBGROUP_NAME
+ "/" LINK_DELETE_TEST_SUBGROUP11_NAME,
+ subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" LINK_DELETE_TEST_SUBGROUP_NAME
+ "/" LINK_DELETE_TEST_SUBGROUP11_NAME,
+ subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" LINK_DELETE_TEST_SUBGROUP_NAME
+ "/" LINK_DELETE_TEST_SUBGROUP11_NAME,
+ subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME3, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ /* Delete a link */
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 0, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete soft link '%s' using H5Ldelete_by_idx by alphabetical order in "
+ "increasing order\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ /* Ensure that the link is gone and others remain */
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' exists after deletion!\n", LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ /* Repeat until all links have been deleted */
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 0, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete soft link '%s' using H5Ldelete_by_idx by alphabetical order in "
+ "increasing order\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' exists after deletion!\n", LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' exists after deletion!\n", LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 0, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete soft link '%s' using H5Ldelete_by_idx by alphabetical order in "
+ "increasing order\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' exists after deletion!\n", LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' exists after deletion!\n", LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' exists after deletion!\n", LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", LINK_DELETE_TEST_SUBGROUP11_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Ldelete_by_idx_soft_name_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Ldelete_by_idx_soft_name_order_decreasing)
+ {
+ TESTING_2("H5Ldelete_by_idx on soft link by alphabetical order in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ if ((subgroup_id = H5Gcreate2(group_id, LINK_DELETE_TEST_SUBGROUP12_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", LINK_DELETE_TEST_SUBGROUP12_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ /* Create several soft links */
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" LINK_DELETE_TEST_SUBGROUP_NAME
+ "/" LINK_DELETE_TEST_SUBGROUP12_NAME,
+ subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" LINK_DELETE_TEST_SUBGROUP_NAME
+ "/" LINK_DELETE_TEST_SUBGROUP12_NAME,
+ subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" LINK_DELETE_TEST_SUBGROUP_NAME
+ "/" LINK_DELETE_TEST_SUBGROUP12_NAME,
+ subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME3, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ /* Delete a link */
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 2, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete soft link '%s' using H5Ldelete_by_idx by alphabetical order in "
+ "decreasing order\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ /* Ensure that the link is gone and others remain */
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' exists after deletion!\n", LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ /* Repeat until all links have been deleted */
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete soft link '%s' using H5Ldelete_by_idx by alphabetical order in "
+ "decreasing order\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' exists after deletion!\n", LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' exists after deletion!\n", LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 0, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete soft link '%s' using H5Ldelete_by_idx by alphabetical order in "
+ "decreasing order\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' exists after deletion!\n", LINK_DELETE_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' exists after deletion!\n", LINK_DELETE_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' exists after deletion!\n", LINK_DELETE_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", LINK_DELETE_TEST_SUBGROUP12_NAME);
+ PART_ERROR(H5Ldelete_by_idx_soft_name_order_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Ldelete_by_idx_soft_name_order_decreasing);
+#endif
+ }
+ PART_END(H5Ldelete_by_idx_soft_name_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Ldelete_by_idx_external_crt_order_increasing)
+ {
+ TESTING_2("H5Ldelete_by_idx on external link by creation order in increasing order");
+#ifndef NO_EXTERNAL_LINKS
+ /* Create file for external link to reference */
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ if (H5Fclose(ext_file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close file '%s'\n", ext_link_filename);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ if ((subgroup_id = H5Gcreate2(group_id, LINK_DELETE_TEST_SUBGROUP13_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", LINK_DELETE_TEST_SUBGROUP13_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ /* Create several external links */
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME2,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME3,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME2, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME3, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ /* Delete a link */
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 0, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete external link '%s' using H5Ldelete_by_idx by creation order in "
+ "increasing order\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ /* Ensure that the link is gone and others remain */
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' exists after deletion!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME2, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME3, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ /* Repeat until all links have been deleted */
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 0, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete external link '%s' using H5Ldelete_by_idx by creation order in "
+ "increasing order\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' exists after deletion!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME2, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' exists after deletion!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME3, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 0, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete external link '%s' using H5Ldelete_by_idx by creation order in "
+ "increasing order\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' exists after deletion!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME2, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' exists after deletion!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME3, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' exists after deletion!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", LINK_DELETE_TEST_SUBGROUP13_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_increasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Ldelete_by_idx_external_crt_order_increasing);
+#endif
+ }
+ PART_END(H5Ldelete_by_idx_external_crt_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ H5Fclose(ext_file_id);
+ ext_file_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Ldelete_by_idx_external_crt_order_decreasing)
+ {
+ TESTING_2("H5Ldelete_by_idx on external link by creation order in decreasing order");
+#ifndef NO_EXTERNAL_LINKS
+ /* Create file for external link to reference */
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ if (H5Fclose(ext_file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close file '%s'\n", ext_link_filename);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ if ((subgroup_id = H5Gcreate2(group_id, LINK_DELETE_TEST_SUBGROUP14_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", LINK_DELETE_TEST_SUBGROUP14_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ /* Create several external links */
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME2,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME3,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME2, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME3, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ /* Delete a link */
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 2, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete external link '%s' using H5Ldelete_by_idx by creation order in "
+ "decreasing order\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ /* Ensure that the link is gone and others remain */
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' exists after deletion!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME2, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME3, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ /* Repeat until all links have been deleted */
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete external link '%s' using H5Ldelete_by_idx by creation order in "
+ "decreasing order\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' exists after deletion!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME2, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' exists after deletion!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME3, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 0, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete external link '%s' using H5Ldelete_by_idx by creation order in "
+ "decreasing order\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' exists after deletion!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME2, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' exists after deletion!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME3, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' exists after deletion!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", LINK_DELETE_TEST_SUBGROUP14_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_crt_order_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Ldelete_by_idx_external_crt_order_decreasing);
+#endif
+ }
+ PART_END(H5Ldelete_by_idx_external_crt_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ H5Fclose(ext_file_id);
+ ext_file_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Ldelete_by_idx_external_name_order_increasing)
+ {
+ TESTING_2("H5Ldelete_by_idx on external link by alphabetical order in increasing order");
+#ifndef NO_EXTERNAL_LINKS
+ /* Create file for external link to reference */
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ if (H5Fclose(ext_file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close file '%s'\n", ext_link_filename);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ if ((subgroup_id = H5Gcreate2(group_id, LINK_DELETE_TEST_SUBGROUP15_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", LINK_DELETE_TEST_SUBGROUP15_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ /* Create several external links */
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME2,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME3,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME2, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME3, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ /* Delete a link */
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 0, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete external link '%s' using H5Ldelete_by_idx by alphabetical "
+ "order in increasing order\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ /* Ensure that the link is gone and others remain */
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' exists after deletion!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME2, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME3, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ /* Repeat until all links have been deleted */
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 0, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete external link '%s' using H5Ldelete_by_idx by alphabetical "
+ "order in increasing order\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' exists after deletion!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME2, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' exists after deletion!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME3, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 0, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete external link '%s' using H5Ldelete_by_idx by alphabetical "
+ "order in increasing order\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' exists after deletion!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME2, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' exists after deletion!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME3, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' exists after deletion!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", LINK_DELETE_TEST_SUBGROUP15_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_increasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Ldelete_by_idx_external_name_order_increasing);
+#endif
+ }
+ PART_END(H5Ldelete_by_idx_external_name_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ H5Fclose(ext_file_id);
+ ext_file_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Ldelete_by_idx_external_name_order_decreasing)
+ {
+ TESTING_2("H5Ldelete_by_idx on external link by alphabetical order in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ /* Create file for external link to reference */
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ if (H5Fclose(ext_file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close file '%s'\n", ext_link_filename);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ if ((subgroup_id = H5Gcreate2(group_id, LINK_DELETE_TEST_SUBGROUP16_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", LINK_DELETE_TEST_SUBGROUP16_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ /* Create several external links */
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME2,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME3,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME2, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME3, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before deletion\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ /* Delete a link */
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 2, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete external link '%s' using H5Ldelete_by_idx by alphabetical "
+ "order in decreasing order\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ /* Ensure that the link is gone and others remain */
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' exists after deletion!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME2, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME3, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ /* Repeat until all links have been deleted */
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete external link '%s' using H5Ldelete_by_idx by alphabetical "
+ "order in decreasing order\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' exists after deletion!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME2, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' exists after deletion!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME3, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist after deletion of a different link!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ if (H5Ldelete_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 0, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't delete external link '%s' using H5Ldelete_by_idx by alphabetical "
+ "order in decreasing order\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' exists after deletion!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME2, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' exists after deletion!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, LINK_DELETE_TEST_EXTERNAL_LINK_NAME3, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' exists after deletion!\n",
+ LINK_DELETE_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", LINK_DELETE_TEST_SUBGROUP16_NAME);
+ PART_ERROR(H5Ldelete_by_idx_external_name_order_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Ldelete_by_idx_external_name_order_decreasing);
+#endif
+ }
+ PART_END(H5Ldelete_by_idx_external_name_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ H5Fclose(ext_file_id);
+ ext_file_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Ldelete_by_idx_ud_crt_order_increasing)
+ {
+ TESTING_2("H5Ldelete_by_idx on user-defined link by creation order in increasing order");
+
+ /* TODO */
+
+ SKIPPED();
+ PART_EMPTY(H5Ldelete_by_idx_ud_crt_order_increasing);
+ }
+ PART_END(H5Ldelete_by_idx_ud_crt_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Ldelete_by_idx_ud_crt_order_decreasing)
+ {
+ TESTING_2("H5Ldelete_by_idx on user-defined link by creation order in decreasing order");
+
+ /* TODO */
+
+ SKIPPED();
+ PART_EMPTY(H5Ldelete_by_idx_ud_crt_order_decreasing);
+ }
+ PART_END(H5Ldelete_by_idx_ud_crt_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Ldelete_by_idx_ud_name_order_increasing)
+ {
+ TESTING_2("H5Ldelete_by_idx on user-defined link by alphabetical order in increasing order");
+
+ /* TODO */
+
+ SKIPPED();
+ PART_EMPTY(H5Ldelete_by_idx_ud_name_order_increasing);
+ }
+ PART_END(H5Ldelete_by_idx_ud_name_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Ldelete_by_idx_ud_name_order_decreasing)
+ {
+ TESTING_2("H5Ldelete_by_idx on user-defined link by alphabetical order in decreasing order");
+
+ /* TODO */
+
+ SKIPPED();
+ PART_EMPTY(H5Ldelete_by_idx_ud_name_order_decreasing);
+ }
+ PART_END(H5Ldelete_by_idx_ud_name_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+ }
+ 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(subgroup_id);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(ext_file_id);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check that a group's always-increasing
+ * maximum link creation order value gets reset once
+ * all the links have been deleted from the group.
+ */
+static int
+test_delete_link_reset_grp_max_crt_order(void)
+{
+#ifndef NO_MAX_LINK_CRT_ORDER_RESET
+ H5G_info_t grp_info;
+ 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;
+ hid_t gcpl_id = H5I_INVALID_HID;
+ char link_name[LINK_DELETE_RESET_MAX_CRT_ORDER_TEST_BUF_SIZE];
+#endif
+
+ TESTING_MULTIPART("H5Ldelete of all links in group resets group's maximum link creation order value");
+
+ /* 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_GROUP_MORE)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, basic and more group, or basic link aren't supported "
+ "with this connector\n");
+ return 0;
+ }
+
+#ifndef NO_MAX_LINK_CRT_ORDER_RESET
+ 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((gcpl_id = H5Pcreate(H5P_GROUP_CREATE)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create GCPL for link creation order tracking\n");
+ goto error;
+ }
+
+ if (H5Pset_link_creation_order(gcpl_id, H5P_CRT_ORDER_TRACKED) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't set link creation order tracking\n");
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, LINK_DELETE_RESET_MAX_CRT_ORDER_TEST_SUBGROUP_NAME,
+ H5P_DEFAULT, gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container sub-group '%s'\n",
+ LINK_DELETE_RESET_MAX_CRT_ORDER_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ PART_BEGIN(H5Ldelete_links_bottom_up)
+ {
+ TESTING_2("H5Ldelete from least-recently created link to most-recently created link");
+
+ if ((subgroup_id = H5Gcreate2(group_id, LINK_DELETE_RESET_MAX_CRT_ORDER_TEST_SUBGROUP1_NAME,
+ H5P_DEFAULT, gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n",
+ LINK_DELETE_RESET_MAX_CRT_ORDER_TEST_SUBGROUP1_NAME);
+ PART_ERROR(H5Ldelete_links_bottom_up);
+ }
+
+ /* Create several links inside the group */
+ for (i = 0; i < LINK_DELETE_RESET_MAX_CRT_ORDER_TEST_NUM_LINKS; i++) {
+ snprintf(link_name, LINK_DELETE_RESET_MAX_CRT_ORDER_TEST_BUF_SIZE, "link%d", (int)i);
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, link_name, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", link_name);
+ PART_ERROR(H5Ldelete_links_bottom_up);
+ }
+ }
+
+ /* Delete the links, checking the group's maximum creation order value each time */
+ for (i = 0; i < LINK_DELETE_RESET_MAX_CRT_ORDER_TEST_NUM_LINKS; i++) {
+ memset(&grp_info, 0, sizeof(grp_info));
+
+ if (H5Gget_info(subgroup_id, &grp_info) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve group's info\n");
+ PART_ERROR(H5Ldelete_links_bottom_up);
+ }
+
+ if (grp_info.max_corder != LINK_DELETE_RESET_MAX_CRT_ORDER_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" group's maximum creation order value got adjusted to %lld during link "
+ "deletion; value should have remained at %lld\n",
+ (long long)grp_info.max_corder, LINK_DELETE_RESET_MAX_CRT_ORDER_TEST_NUM_LINKS);
+ PART_ERROR(H5Ldelete_links_bottom_up);
+ }
+
+ snprintf(link_name, LINK_DELETE_RESET_MAX_CRT_ORDER_TEST_BUF_SIZE, "link%d", (int)i);
+
+ if (H5Ldelete(subgroup_id, link_name, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to delete link '%s'\n", link_name);
+ PART_ERROR(H5Ldelete_links_bottom_up);
+ }
+ }
+
+ /* Ensure the group's maximum creation order value has now reset to 0 after all the links are gone
+ */
+ memset(&grp_info, 0, sizeof(grp_info));
+
+ if (H5Gget_info(subgroup_id, &grp_info) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve group's info\n");
+ PART_ERROR(H5Ldelete_links_bottom_up);
+ }
+
+ if (grp_info.max_corder != 0) {
+ H5_FAILED();
+ HDprintf(" group's maximum creation order value didn't reset to 0 after deleting all "
+ "links from group; value is still %lld\n",
+ (long long)grp_info.max_corder);
+ PART_ERROR(H5Ldelete_links_bottom_up);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Ldelete_links_bottom_up);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Ldelete_links_top_down)
+ {
+ TESTING_2("H5Ldelete from most-recently created link to least-recently created link");
+
+ if ((subgroup_id = H5Gcreate2(group_id, LINK_DELETE_RESET_MAX_CRT_ORDER_TEST_SUBGROUP2_NAME,
+ H5P_DEFAULT, gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n",
+ LINK_DELETE_RESET_MAX_CRT_ORDER_TEST_SUBGROUP2_NAME);
+ PART_ERROR(H5Ldelete_links_top_down);
+ }
+
+ /* Create several links inside the group */
+ for (i = 0; i < LINK_DELETE_RESET_MAX_CRT_ORDER_TEST_NUM_LINKS; i++) {
+ snprintf(link_name, LINK_DELETE_RESET_MAX_CRT_ORDER_TEST_BUF_SIZE, "link%d", (int)i);
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, link_name, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", link_name);
+ PART_ERROR(H5Ldelete_links_top_down);
+ }
+ }
+
+ /* Delete the links, checking the group's maximum creation order value each time */
+ for (i = 0; i < LINK_DELETE_RESET_MAX_CRT_ORDER_TEST_NUM_LINKS; i++) {
+ memset(&grp_info, 0, sizeof(grp_info));
+
+ if (H5Gget_info(subgroup_id, &grp_info) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve group's info\n");
+ PART_ERROR(H5Ldelete_links_top_down);
+ }
+
+ if (grp_info.max_corder != LINK_DELETE_RESET_MAX_CRT_ORDER_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" group's maximum creation order value got adjusted to %lld during link "
+ "deletion; value should have remained at %lld\n",
+ (long long)grp_info.max_corder, LINK_DELETE_RESET_MAX_CRT_ORDER_TEST_NUM_LINKS);
+ PART_ERROR(H5Ldelete_links_top_down);
+ }
+
+ snprintf(link_name, LINK_DELETE_RESET_MAX_CRT_ORDER_TEST_BUF_SIZE, "link%d",
+ (int)(LINK_DELETE_RESET_MAX_CRT_ORDER_TEST_NUM_LINKS - i - 1));
+
+ if (H5Ldelete(subgroup_id, link_name, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to delete link '%s'\n", link_name);
+ PART_ERROR(H5Ldelete_links_top_down);
+ }
+ }
+
+ /* Ensure the group's maximum creation order value has now reset to 0 after all the links are gone
+ */
+ memset(&grp_info, 0, sizeof(grp_info));
+
+ if (H5Gget_info(subgroup_id, &grp_info) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve group's info\n");
+ PART_ERROR(H5Ldelete_links_top_down);
+ }
+
+ if (grp_info.max_corder != 0) {
+ H5_FAILED();
+ HDprintf(" group's maximum creation order value didn't reset to 0 after deleting all "
+ "links from group; value is still %lld\n",
+ (long long)grp_info.max_corder);
+ PART_ERROR(H5Ldelete_links_top_down);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Ldelete_links_top_down);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+ }
+ 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(subgroup_id);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+#else
+ SKIPPED();
+ return 0;
+#endif
+}
+
+static int
+test_delete_link_invalid_params(void)
+{
+ htri_t link_exists;
+ herr_t err_ret = -1;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+
+ TESTING_MULTIPART("H5Ldelete 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_BY_IDX) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_HARD_LINKS)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, or 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, LINK_DELETE_INVALID_PARAMS_TEST_GROUP_NAME, H5P_DEFAULT,
+ H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n", LINK_DELETE_INVALID_PARAMS_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if (H5Lcreate_hard(group_id, ".", group_id, LINK_DELETE_INVALID_PARAMS_TEST_HARD_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", LINK_DELETE_INVALID_PARAMS_TEST_HARD_LINK_NAME);
+ goto error;
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(group_id, LINK_DELETE_INVALID_PARAMS_TEST_HARD_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if first hard link '%s' exists\n",
+ LINK_DELETE_INVALID_PARAMS_TEST_HARD_LINK_NAME);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" first hard link did not exist\n");
+ goto error;
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ PART_BEGIN(H5Ldelete_invalid_loc_id)
+ {
+ TESTING_2("H5Ldelete with an invalid location ID");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret =
+ H5Ldelete(H5I_INVALID_HID, LINK_DELETE_INVALID_PARAMS_TEST_HARD_LINK_NAME, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Ldelete succeeded with an invalid location ID!\n");
+ PART_ERROR(H5Ldelete_invalid_loc_id);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Ldelete_invalid_loc_id);
+
+ PART_BEGIN(H5Ldelete_invalid_link_name)
+ {
+ TESTING_2("H5Ldelete with an invalid link name");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Ldelete(group_id, NULL, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Ldelete succeeded with a NULL link name!\n");
+ PART_ERROR(H5Ldelete_invalid_link_name);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Ldelete(group_id, "", H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Ldelete succeeded with an invalid link name of ''!\n");
+ PART_ERROR(H5Ldelete_invalid_link_name);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Ldelete_invalid_link_name);
+
+ PART_BEGIN(H5Ldelete_invalid_lapl)
+ {
+ TESTING_2("H5Ldelete with an invalid LAPL");
+#ifndef NO_INVALID_PROPERTY_LIST_TESTS
+ H5E_BEGIN_TRY
+ {
+ err_ret =
+ H5Ldelete(group_id, LINK_DELETE_INVALID_PARAMS_TEST_HARD_LINK_NAME, H5I_INVALID_HID);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Ldelete succeeded with an invalid LAPL!\n");
+ PART_ERROR(H5Ldelete_invalid_lapl);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Ldelete_invalid_lapl);
+#endif
+ }
+ PART_END(H5Ldelete_invalid_lapl);
+
+ PART_BEGIN(H5Ldelete_by_idx_invalid_loc_id)
+ {
+ TESTING_2("H5Ldelete_by_idx with an invalid location ID");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Ldelete_by_idx(H5I_INVALID_HID, ".", H5_INDEX_NAME, H5_ITER_INC, 0, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Ldelete_by_idx succeeded with an invalid location ID!\n");
+ PART_ERROR(H5Ldelete_by_idx_invalid_loc_id);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Ldelete_by_idx_invalid_loc_id);
+
+ PART_BEGIN(H5Ldelete_by_idx_invalid_grp_name)
+ {
+ TESTING_2("H5Ldelete_by_idx with an invalid group name");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Ldelete_by_idx(group_id, NULL, H5_INDEX_NAME, H5_ITER_INC, 0, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Ldelete_by_idx succeeded with a NULL group name!\n");
+ PART_ERROR(H5Ldelete_by_idx_invalid_grp_name);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Ldelete_by_idx(group_id, "", H5_INDEX_NAME, H5_ITER_INC, 0, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Ldelete_by_idx succeeded with an invalid group name of ''!\n");
+ PART_ERROR(H5Ldelete_by_idx_invalid_grp_name);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Ldelete_by_idx_invalid_grp_name);
+
+ PART_BEGIN(H5Ldelete_by_idx_invalid_index_type)
+ {
+ TESTING_2("H5Ldelete_by_idx with an invalid index type");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Ldelete_by_idx(group_id, ".", H5_INDEX_UNKNOWN, H5_ITER_INC, 0, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Ldelete_by_idx succeeded with invalid index type H5_INDEX_UNKNOWN!\n");
+ PART_ERROR(H5Ldelete_by_idx_invalid_index_type);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Ldelete_by_idx(group_id, ".", H5_INDEX_N, H5_ITER_INC, 0, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Ldelete_by_idx succeeded with invalid index type H5_INDEX_N!\n");
+ PART_ERROR(H5Ldelete_by_idx_invalid_index_type);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Ldelete_by_idx_invalid_index_type);
+
+ PART_BEGIN(H5Ldelete_by_idx_invalid_index_order)
+ {
+ TESTING_2("H5Ldelete_by_idx with an invalid iteration ordering");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Ldelete_by_idx(group_id, ".", H5_INDEX_NAME, H5_ITER_UNKNOWN, 0, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Ldelete_by_idx succeeded with invalid iteration ordering H5_ITER_UNKNOWN!\n");
+ PART_ERROR(H5Ldelete_by_idx_invalid_index_order);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Ldelete_by_idx(group_id, ".", H5_INDEX_NAME, H5_ITER_N, 0, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Ldelete_by_idx succeeded with invalid iteration ordering H5_ITER_N!\n");
+ PART_ERROR(H5Ldelete_by_idx_invalid_index_order);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Ldelete_by_idx_invalid_index_order);
+
+ PART_BEGIN(H5Ldelete_by_idx_invalid_lapl)
+ {
+ TESTING_2("H5Ldelete_by_idx with an invalid LAPL");
+#ifndef NO_INVALID_PROPERTY_LIST_TESTS
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Ldelete_by_idx(group_id, ".", H5_INDEX_NAME, H5_ITER_INC, 0, H5I_INVALID_HID);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Ldelete_by_idx succeeded with an invalid LAPL!\n");
+ PART_ERROR(H5Ldelete_by_idx_invalid_lapl);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Ldelete_by_idx_invalid_lapl);
+#endif
+ }
+ PART_END(H5Ldelete_by_idx_invalid_lapl);
+
+ PART_BEGIN(H5Ldelete_by_idx_link_existence)
+ {
+ TESTING_2("valid link existence after previous invalid H5Ldelete(_by_idx) calls");
+
+ /* Verify that the link hasn't been deleted */
+ if ((link_exists =
+ H5Lexists(group_id, LINK_DELETE_INVALID_PARAMS_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ LINK_DELETE_INVALID_PARAMS_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Ldelete_by_idx_link_existence);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link didn't exist!\n");
+ PART_ERROR(H5Ldelete_by_idx_link_existence);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Ldelete_by_idx_link_existence);
+ }
+ 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_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check that a link can be copied using H5Lcopy.
+ */
+static int
+test_copy_link(void)
+{
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID, ext_file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ hid_t src_grp_id = H5I_INVALID_HID, dst_grp_id = H5I_INVALID_HID;
+#ifndef NO_EXTERNAL_LINKS
+ char ext_link_filename[H5_API_TEST_FILENAME_MAX_LENGTH];
+#endif
+
+ TESTING_MULTIPART("link 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_LINK_MORE) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_HARD_LINKS) || !(vol_cap_flags_g & H5VL_CAP_FLAG_EXTERNAL_LINKS) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_SOFT_LINKS)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, or link, hard, soft, or external 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't opewn container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, COPY_LINK_TEST_SUBGROUP_NAME, H5P_DEFAULT, H5P_DEFAULT,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create group '%s'\n", COPY_LINK_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ if ((src_grp_id = H5Gcreate2(group_id, COPY_LINK_TEST_SRC_GROUP_NAME, H5P_DEFAULT, H5P_DEFAULT,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create group '%s'\n", COPY_LINK_TEST_SRC_GROUP_NAME);
+ goto error;
+ }
+
+ if ((dst_grp_id = H5Gcreate2(group_id, COPY_LINK_TEST_DST_GROUP_NAME, H5P_DEFAULT, H5P_DEFAULT,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create group '%s'\n", COPY_LINK_TEST_DST_GROUP_NAME);
+ goto error;
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ PART_BEGIN(H5Lcopy_hard_no_check)
+ {
+ TESTING_2("H5Lcopy on hard link (copied link's properties not checked)");
+
+ /* Try to copy a hard link */
+ if (H5Lcreate_hard(group_id, ".", src_grp_id, COPY_LINK_TEST_HARD_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", COPY_LINK_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lcopy_hard_no_check);
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(src_grp_id, COPY_LINK_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n", COPY_LINK_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lcopy_hard_no_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link did not exist\n");
+ PART_ERROR(H5Lcopy_hard_no_check);
+ }
+
+ /* Verify the link doesn't currently exist in the target group */
+ if ((link_exists = H5Lexists(dst_grp_id, COPY_LINK_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n", COPY_LINK_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lcopy_hard_no_check);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link existed in target group before copy!\n");
+ PART_ERROR(H5Lcopy_hard_no_check);
+ }
+
+ /* Copy the link */
+ if (H5Lcopy(src_grp_id, COPY_LINK_TEST_HARD_LINK_NAME, dst_grp_id,
+ COPY_LINK_TEST_HARD_LINK_COPY_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to copy hard link '%s'\n", COPY_LINK_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lcopy_hard_no_check);
+ }
+
+ /* Verify the link has been copied and still exists in the source group */
+ if ((link_exists = H5Lexists(dst_grp_id, COPY_LINK_TEST_HARD_LINK_COPY_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link copy '%s' exists\n",
+ COPY_LINK_TEST_HARD_LINK_COPY_NAME);
+ PART_ERROR(H5Lcopy_hard_no_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link copy did not exist\n");
+ PART_ERROR(H5Lcopy_hard_no_check);
+ }
+
+ if ((link_exists = H5Lexists(src_grp_id, COPY_LINK_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if original hard link '%s' exists\n",
+ COPY_LINK_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lcopy_hard_no_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" original hard link did not exist\n");
+ PART_ERROR(H5Lcopy_hard_no_check);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcopy_hard_no_check);
+
+ PART_BEGIN(H5Lcopy_hard_check)
+ {
+ H5L_info2_t orig_info, new_info;
+ int cmp_value;
+
+ TESTING_2("H5Lcopy on hard link (copied link's properties checked)");
+
+ /* Try to copy a hard link */
+ if (H5Lcreate_hard(group_id, ".", src_grp_id, COPY_LINK_TEST_HARD_LINK_NAME2, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", COPY_LINK_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lcopy_hard_check);
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(src_grp_id, COPY_LINK_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n", COPY_LINK_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lcopy_hard_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link did not exist\n");
+ PART_ERROR(H5Lcopy_hard_check);
+ }
+
+ /* Retrieve the link's info */
+ if (H5Lget_info2(src_grp_id, COPY_LINK_TEST_HARD_LINK_NAME2, &orig_info, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't retrieve info for link '%s'\n", COPY_LINK_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lcopy_hard_check);
+ }
+
+ /* Verify the link doesn't currently exist in the target group */
+ if ((link_exists = H5Lexists(dst_grp_id, COPY_LINK_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n", COPY_LINK_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lcopy_hard_check);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link existed in target group before copy!\n");
+ PART_ERROR(H5Lcopy_hard_check);
+ }
+
+ /* Copy the link */
+ if (H5Lcopy(src_grp_id, COPY_LINK_TEST_HARD_LINK_NAME2, dst_grp_id,
+ COPY_LINK_TEST_HARD_LINK_COPY_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to copy hard link '%s'\n", COPY_LINK_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lcopy_hard_check);
+ }
+
+ /* Verify the link has been copied and still exists in the source group */
+ if ((link_exists = H5Lexists(dst_grp_id, COPY_LINK_TEST_HARD_LINK_COPY_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link copy '%s' exists\n",
+ COPY_LINK_TEST_HARD_LINK_COPY_NAME2);
+ PART_ERROR(H5Lcopy_hard_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link copy did not exist\n");
+ PART_ERROR(H5Lcopy_hard_check);
+ }
+
+ if ((link_exists = H5Lexists(src_grp_id, COPY_LINK_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if original hard link '%s' exists\n",
+ COPY_LINK_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lcopy_hard_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" original hard link did not exist\n");
+ PART_ERROR(H5Lcopy_hard_check);
+ }
+
+ /* Retrieve the new link's info */
+ if (H5Lget_info2(dst_grp_id, COPY_LINK_TEST_HARD_LINK_COPY_NAME2, &new_info, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't retrieve info for link '%s'\n", COPY_LINK_TEST_HARD_LINK_COPY_NAME2);
+ PART_ERROR(H5Lcopy_hard_check);
+ }
+
+ if (new_info.type != orig_info.type) {
+ H5_FAILED();
+ HDprintf(" copied link's link type doesn't match original link's type\n");
+ PART_ERROR(H5Lcopy_hard_check);
+ }
+
+ if (H5Otoken_cmp(dst_grp_id, &new_info.u.token, &orig_info.u.token, &cmp_value) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to compare link target tokens\n");
+ PART_ERROR(H5Lcopy_hard_check);
+ }
+
+ if (cmp_value != 0) {
+ H5_FAILED();
+ HDprintf(" copied hard link's object token doesn't match original link's object token\n");
+ PART_ERROR(H5Lcopy_hard_check);
+ }
+
+ if (new_info.corder_valid != orig_info.corder_valid) {
+ H5_FAILED();
+ HDprintf(" copied link's 'corder_valid' field doesn't match original link's "
+ "'corder_valid' field\n");
+ PART_ERROR(H5Lcopy_hard_check);
+ }
+
+ if (new_info.corder_valid && orig_info.corder_valid && (new_info.corder != orig_info.corder)) {
+ H5_FAILED();
+ HDprintf(" copied link's creation order value %" PRId64
+ " doesn't match original link's creation order value %" PRId64 "\n",
+ new_info.corder, orig_info.corder);
+ PART_ERROR(H5Lcopy_hard_check);
+ }
+
+ if (new_info.cset != orig_info.cset) {
+ H5_FAILED();
+ HDprintf(" copied link's character set doesn't match original link's character set\n");
+ PART_ERROR(H5Lcopy_hard_check);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcopy_hard_check);
+
+ PART_BEGIN(H5Lcopy_hard_same_loc)
+ {
+ TESTING_2("H5Lcopy on hard link using H5L_SAME_LOC");
+
+ /* Try to copy a hard link */
+ if (H5Lcreate_hard(group_id, ".", src_grp_id, COPY_LINK_TEST_HARD_LINK_NAME3, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", COPY_LINK_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lcopy_hard_same_loc);
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(src_grp_id, COPY_LINK_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n", COPY_LINK_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lcopy_hard_same_loc);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link did not exist\n");
+ PART_ERROR(H5Lcopy_hard_same_loc);
+ }
+
+ /* Verify the links don't currently exist in the target group */
+ if ((link_exists = H5Lexists(src_grp_id, COPY_LINK_TEST_HARD_LINK_SAME_LOC_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ COPY_LINK_TEST_HARD_LINK_SAME_LOC_NAME);
+ PART_ERROR(H5Lcopy_hard_same_loc);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link existed in target group before copy!\n");
+ PART_ERROR(H5Lcopy_hard_same_loc);
+ }
+
+ if ((link_exists = H5Lexists(src_grp_id, COPY_LINK_TEST_HARD_LINK_SAME_LOC_NAME2, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ COPY_LINK_TEST_HARD_LINK_SAME_LOC_NAME2);
+ PART_ERROR(H5Lcopy_hard_same_loc);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link existed in target group before copy!\n");
+ PART_ERROR(H5Lcopy_hard_same_loc);
+ }
+
+ /* Copy the link using H5L_SAME_LOC as the first parameter to H5Lcopy */
+ if (H5Lcopy(H5L_SAME_LOC, COPY_LINK_TEST_HARD_LINK_NAME3, src_grp_id,
+ COPY_LINK_TEST_HARD_LINK_SAME_LOC_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(
+ " failed to copy hard link '%s' using H5L_SAME_LOC as first parameter to H5Lcopy\n",
+ COPY_LINK_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lcopy_hard_same_loc);
+ }
+
+ /* Copy the link using H5L_SAME_LOC as the third parameter to H5Lcopy */
+ if (H5Lcopy(src_grp_id, COPY_LINK_TEST_HARD_LINK_NAME3, H5L_SAME_LOC,
+ COPY_LINK_TEST_HARD_LINK_SAME_LOC_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(
+ " failed to copy hard link '%s' using H5L_SAME_LOC as third parameter to H5Lcopy\n",
+ COPY_LINK_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lcopy_hard_same_loc);
+ }
+
+ /* Verify the links have been copied and the original still exist in the source group */
+ if ((link_exists = H5Lexists(src_grp_id, COPY_LINK_TEST_HARD_LINK_SAME_LOC_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link copy '%s' exists\n",
+ COPY_LINK_TEST_HARD_LINK_SAME_LOC_NAME);
+ PART_ERROR(H5Lcopy_hard_same_loc);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link copy did not exist\n");
+ PART_ERROR(H5Lcopy_hard_same_loc);
+ }
+
+ if ((link_exists = H5Lexists(src_grp_id, COPY_LINK_TEST_HARD_LINK_SAME_LOC_NAME2, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link copy '%s' exists\n",
+ COPY_LINK_TEST_HARD_LINK_SAME_LOC_NAME2);
+ PART_ERROR(H5Lcopy_hard_same_loc);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link copy did not exist\n");
+ PART_ERROR(H5Lcopy_hard_same_loc);
+ }
+
+ if ((link_exists = H5Lexists(src_grp_id, COPY_LINK_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if original hard link '%s' exists\n",
+ COPY_LINK_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lcopy_hard_same_loc);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" original hard link did not exist\n");
+ PART_ERROR(H5Lcopy_hard_same_loc);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcopy_hard_same_loc);
+
+ PART_BEGIN(H5Lcopy_soft_no_check)
+ {
+ TESTING_2("H5Lcopy on soft link (copied link's properties not checked)");
+
+ /* Try to copy a soft link */
+ if (H5Lcreate_soft(COPY_LINK_TEST_SOFT_LINK_TARGET_PATH, src_grp_id,
+ COPY_LINK_TEST_SOFT_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", COPY_LINK_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lcopy_soft_no_check);
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(src_grp_id, COPY_LINK_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n", COPY_LINK_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lcopy_soft_no_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link did not exist\n");
+ PART_ERROR(H5Lcopy_soft_no_check);
+ }
+
+ /* Verify the link doesn't currently exist in the target group */
+ if ((link_exists = H5Lexists(dst_grp_id, COPY_LINK_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n", COPY_LINK_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lcopy_soft_no_check);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link existed in target group before copy!\n");
+ PART_ERROR(H5Lcopy_soft_no_check);
+ }
+
+ /* Copy the link */
+ if (H5Lcopy(src_grp_id, COPY_LINK_TEST_SOFT_LINK_NAME, dst_grp_id,
+ COPY_LINK_TEST_SOFT_LINK_COPY_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to copy soft link '%s'\n", COPY_LINK_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lcopy_soft_no_check);
+ }
+
+ /* Verify the link has been copied and still exists in the source group */
+ if ((link_exists = H5Lexists(dst_grp_id, COPY_LINK_TEST_SOFT_LINK_COPY_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' copy exists\n",
+ COPY_LINK_TEST_SOFT_LINK_COPY_NAME);
+ PART_ERROR(H5Lcopy_soft_no_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link copy did not exist\n");
+ PART_ERROR(H5Lcopy_soft_no_check);
+ }
+
+ if ((link_exists = H5Lexists(src_grp_id, COPY_LINK_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if original soft link '%s' exists\n",
+ COPY_LINK_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lcopy_soft_no_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" original soft link did not exist\n");
+ PART_ERROR(H5Lcopy_soft_no_check);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcopy_soft_no_check);
+
+ PART_BEGIN(H5Lcopy_soft_check)
+ {
+ H5L_info2_t orig_info, new_info;
+ char orig_link_val[COPY_LINK_TEST_LINK_VAL_BUF_SIZE];
+ char new_link_val[COPY_LINK_TEST_LINK_VAL_BUF_SIZE];
+
+ TESTING_2("H5Lcopy on soft link (copied link's properties checked)");
+
+ /* Try to copy a soft link */
+ if (H5Lcreate_soft(COPY_LINK_TEST_SOFT_LINK_TARGET_PATH, src_grp_id,
+ COPY_LINK_TEST_SOFT_LINK_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", COPY_LINK_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lcopy_soft_check);
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(src_grp_id, COPY_LINK_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n", COPY_LINK_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lcopy_soft_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link did not exist\n");
+ PART_ERROR(H5Lcopy_soft_check);
+ }
+
+ /* Retrieve the link's info */
+ if (H5Lget_info2(src_grp_id, COPY_LINK_TEST_SOFT_LINK_NAME2, &orig_info, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't retrieve info for link '%s'\n", COPY_LINK_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lcopy_soft_check);
+ }
+
+ /* Retrieve the link's value */
+ if (H5Lget_val(src_grp_id, COPY_LINK_TEST_SOFT_LINK_NAME2, orig_link_val,
+ COPY_LINK_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't retrieve value for soft link '%s'\n", COPY_LINK_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lcopy_soft_check);
+ }
+
+ /* Verify the link doesn't currently exist in the target group */
+ if ((link_exists = H5Lexists(dst_grp_id, COPY_LINK_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n", COPY_LINK_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lcopy_soft_check);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link existed in target group before copy!\n");
+ PART_ERROR(H5Lcopy_soft_check);
+ }
+
+ /* Copy the link */
+ if (H5Lcopy(src_grp_id, COPY_LINK_TEST_SOFT_LINK_NAME2, dst_grp_id,
+ COPY_LINK_TEST_SOFT_LINK_COPY_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to copy soft link '%s'\n", COPY_LINK_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lcopy_soft_check);
+ }
+
+ /* Verify the link has been copied and still exists in the source group */
+ if ((link_exists = H5Lexists(dst_grp_id, COPY_LINK_TEST_SOFT_LINK_COPY_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' copy exists\n",
+ COPY_LINK_TEST_SOFT_LINK_COPY_NAME2);
+ PART_ERROR(H5Lcopy_soft_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link copy did not exist\n");
+ PART_ERROR(H5Lcopy_soft_check);
+ }
+
+ if ((link_exists = H5Lexists(src_grp_id, COPY_LINK_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if original soft link '%s' exists\n",
+ COPY_LINK_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lcopy_soft_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" original soft link did not exist\n");
+ PART_ERROR(H5Lcopy_soft_check);
+ }
+
+ /* Retrieve the new link's info */
+ if (H5Lget_info2(dst_grp_id, COPY_LINK_TEST_SOFT_LINK_COPY_NAME2, &new_info, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't retrieve info for link '%s'\n", COPY_LINK_TEST_SOFT_LINK_COPY_NAME2);
+ PART_ERROR(H5Lcopy_soft_check);
+ }
+
+ if (new_info.type != orig_info.type) {
+ H5_FAILED();
+ HDprintf(" copied link's link type doesn't match original link's type\n");
+ PART_ERROR(H5Lcopy_soft_check);
+ }
+
+ if (new_info.u.val_size != orig_info.u.val_size) {
+ H5_FAILED();
+ HDprintf(" copied soft link's value size of %llu doesn't match original link's value size "
+ "of %llu\n",
+ (unsigned long long)new_info.u.val_size, (unsigned long long)orig_info.u.val_size);
+ PART_ERROR(H5Lcopy_soft_check);
+ }
+
+ if (new_info.corder_valid != orig_info.corder_valid) {
+ H5_FAILED();
+ HDprintf(" copied link's 'corder_valid' field doesn't match original link's "
+ "'corder_valid' field\n");
+ PART_ERROR(H5Lcopy_soft_check);
+ }
+
+ if (new_info.corder_valid && orig_info.corder_valid && (new_info.corder != orig_info.corder)) {
+ H5_FAILED();
+ HDprintf(" copied link's creation order value %" PRId64
+ " doesn't match original link's creation order value %" PRId64 "\n",
+ new_info.corder, orig_info.corder);
+ PART_ERROR(H5Lcopy_soft_check);
+ }
+
+ if (new_info.cset != orig_info.cset) {
+ H5_FAILED();
+ HDprintf(" copied link's character set doesn't match original link's character set\n");
+ PART_ERROR(H5Lcopy_soft_check);
+ }
+
+ /* Check the soft link's value */
+ if (H5Lget_val(dst_grp_id, COPY_LINK_TEST_SOFT_LINK_COPY_NAME2, new_link_val,
+ COPY_LINK_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't retrieve value for soft link '%s'\n",
+ COPY_LINK_TEST_SOFT_LINK_COPY_NAME2);
+ PART_ERROR(H5Lcopy_soft_check);
+ }
+
+ if (HDstrncmp(orig_link_val, new_link_val, COPY_LINK_TEST_LINK_VAL_BUF_SIZE)) {
+ H5_FAILED();
+ HDprintf(" copied soft link's value '%s' doesn't match original link's value '%s'\n",
+ new_link_val, orig_link_val);
+ PART_ERROR(H5Lcopy_soft_check);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcopy_soft_check);
+
+ PART_BEGIN(H5Lcopy_soft_same_loc)
+ {
+ TESTING_2("H5Lcopy on soft link using H5L_SAME_LOC");
+
+ /* Try to copy a soft link */
+ if (H5Lcreate_soft(COPY_LINK_TEST_SOFT_LINK_TARGET_PATH, src_grp_id,
+ COPY_LINK_TEST_SOFT_LINK_NAME3, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", COPY_LINK_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lcopy_soft_same_loc);
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(src_grp_id, COPY_LINK_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n", COPY_LINK_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lcopy_soft_same_loc);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link did not exist\n");
+ PART_ERROR(H5Lcopy_soft_same_loc);
+ }
+
+ /* Verify the links don't currently exist in the target group */
+ if ((link_exists = H5Lexists(src_grp_id, COPY_LINK_TEST_SOFT_LINK_SAME_LOC_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ COPY_LINK_TEST_SOFT_LINK_SAME_LOC_NAME);
+ PART_ERROR(H5Lcopy_soft_same_loc);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link existed in target group before copy!\n");
+ PART_ERROR(H5Lcopy_soft_same_loc);
+ }
+
+ if ((link_exists = H5Lexists(src_grp_id, COPY_LINK_TEST_SOFT_LINK_SAME_LOC_NAME2, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ COPY_LINK_TEST_SOFT_LINK_SAME_LOC_NAME2);
+ PART_ERROR(H5Lcopy_soft_same_loc);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link existed in target group before copy!\n");
+ PART_ERROR(H5Lcopy_soft_same_loc);
+ }
+
+ /* Copy the link using H5L_SAME_LOC as the first parameter to H5Lcopy */
+ if (H5Lcopy(H5L_SAME_LOC, COPY_LINK_TEST_SOFT_LINK_NAME3, src_grp_id,
+ COPY_LINK_TEST_SOFT_LINK_SAME_LOC_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(
+ " failed to copy soft link '%s' using H5L_SAME_LOC as first parameter to H5Lcopy\n",
+ COPY_LINK_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lcopy_soft_same_loc);
+ }
+
+ /* Copy the link using H5L_SAME_LOC as the third parameter to H5Lcopy */
+ if (H5Lcopy(src_grp_id, COPY_LINK_TEST_SOFT_LINK_NAME3, H5L_SAME_LOC,
+ COPY_LINK_TEST_SOFT_LINK_SAME_LOC_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(
+ " failed to copy soft link '%s' using H5L_SAME_LOC as third parameter to H5Lcopy\n",
+ COPY_LINK_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lcopy_soft_same_loc);
+ }
+
+ /* Verify the links have been copied and the original still exists in the source group */
+ if ((link_exists = H5Lexists(src_grp_id, COPY_LINK_TEST_SOFT_LINK_SAME_LOC_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' copy exists\n",
+ COPY_LINK_TEST_SOFT_LINK_SAME_LOC_NAME);
+ PART_ERROR(H5Lcopy_soft_same_loc);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link copy did not exist\n");
+ PART_ERROR(H5Lcopy_soft_same_loc);
+ }
+
+ if ((link_exists = H5Lexists(src_grp_id, COPY_LINK_TEST_SOFT_LINK_SAME_LOC_NAME2, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' copy exists\n",
+ COPY_LINK_TEST_SOFT_LINK_SAME_LOC_NAME2);
+ PART_ERROR(H5Lcopy_soft_same_loc);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link copy did not exist\n");
+ PART_ERROR(H5Lcopy_soft_same_loc);
+ }
+
+ if ((link_exists = H5Lexists(src_grp_id, COPY_LINK_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if original soft link '%s' exists\n",
+ COPY_LINK_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lcopy_soft_same_loc);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" original soft link did not exist\n");
+ PART_ERROR(H5Lcopy_soft_same_loc);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcopy_soft_same_loc);
+
+ PART_BEGIN(H5Lcopy_external_no_check)
+ {
+ TESTING_2("H5Lcopy on external link (copied link's properties not checked)");
+#ifndef NO_EXTERNAL_LINKS
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Lcopy_external_no_check);
+ }
+
+ if (H5Fclose(ext_file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close file '%s'\n", ext_link_filename);
+ PART_ERROR(H5Lcopy_external_no_check);
+ }
+
+ /* Try to copy an external link */
+ if (H5Lcreate_external(ext_link_filename, "/", src_grp_id, COPY_LINK_TEST_EXTERNAL_LINK_NAME,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", COPY_LINK_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Lcopy_external_no_check);
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(src_grp_id, COPY_LINK_TEST_EXTERNAL_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ COPY_LINK_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Lcopy_external_no_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link did not exist\n");
+ PART_ERROR(H5Lcopy_external_no_check);
+ }
+
+ /* Verify the link doesn't currently exist in the target group */
+ if ((link_exists = H5Lexists(dst_grp_id, COPY_LINK_TEST_EXTERNAL_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ COPY_LINK_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Lcopy_external_no_check);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link existed in target group before copy!\n");
+ PART_ERROR(H5Lcopy_external_no_check);
+ }
+
+ /* Copy the link */
+ if (H5Lcopy(src_grp_id, COPY_LINK_TEST_EXTERNAL_LINK_NAME, dst_grp_id,
+ COPY_LINK_TEST_EXTERNAL_LINK_COPY_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to copy external link '%s'\n", COPY_LINK_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Lcopy_external_no_check);
+ }
+
+ /* Verify the link has been copied and still exists in the source group */
+ if ((link_exists = H5Lexists(dst_grp_id, COPY_LINK_TEST_EXTERNAL_LINK_COPY_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link copy '%s' exists\n",
+ COPY_LINK_TEST_EXTERNAL_LINK_COPY_NAME);
+ PART_ERROR(H5Lcopy_external_no_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link copy did not exist\n");
+ PART_ERROR(H5Lcopy_external_no_check);
+ }
+
+ if ((link_exists = H5Lexists(src_grp_id, COPY_LINK_TEST_EXTERNAL_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if original external link '%s' exists\n",
+ COPY_LINK_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Lcopy_external_no_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" original external link did not exist\n");
+ PART_ERROR(H5Lcopy_external_no_check);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lcopy_external_no_check);
+#endif
+ }
+ PART_END(H5Lcopy_external_no_check);
+
+ H5E_BEGIN_TRY
+ {
+ H5Fclose(ext_file_id);
+ ext_file_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lcopy_external_check)
+ {
+#ifndef NO_EXTERNAL_LINKS
+ H5L_info2_t orig_info, new_info;
+ const char *orig_filename, *new_filename;
+ const char *orig_objname, *new_objname;
+ unsigned unpack_flags = 0;
+ char orig_link_val[COPY_LINK_TEST_LINK_VAL_BUF_SIZE];
+ char new_link_val[COPY_LINK_TEST_LINK_VAL_BUF_SIZE];
+#endif
+
+ TESTING_2("H5Lcopy on external link (copied link's properties checked)");
+#ifndef NO_EXTERNAL_LINKS
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Lcopy_external_check);
+ }
+
+ if (H5Fclose(ext_file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close file '%s'\n", ext_link_filename);
+ PART_ERROR(H5Lcopy_external_check);
+ }
+
+ /* Try to copy an external link */
+ if (H5Lcreate_external(ext_link_filename, "/", src_grp_id, COPY_LINK_TEST_EXTERNAL_LINK_NAME2,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", COPY_LINK_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Lcopy_external_check);
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(src_grp_id, COPY_LINK_TEST_EXTERNAL_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ COPY_LINK_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Lcopy_external_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link did not exist\n");
+ PART_ERROR(H5Lcopy_external_check);
+ }
+
+ /* Retrieve the link's info */
+ if (H5Lget_info2(src_grp_id, COPY_LINK_TEST_EXTERNAL_LINK_NAME2, &orig_info, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't retrieve info for link '%s'\n", COPY_LINK_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Lcopy_external_check);
+ }
+
+ /* Retrieve the link's value */
+ if (H5Lget_val(src_grp_id, COPY_LINK_TEST_EXTERNAL_LINK_NAME2, orig_link_val,
+ COPY_LINK_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't retrieve value for external link '%s'\n",
+ COPY_LINK_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Lcopy_external_check);
+ }
+
+ if (H5Lunpack_elink_val(orig_link_val, orig_info.u.val_size, &unpack_flags, &orig_filename,
+ &orig_objname) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't unpack original external link's value buffer\n");
+ PART_ERROR(H5Lcopy_external_check);
+ }
+
+ /* Verify the link doesn't currently exist in the target group */
+ if ((link_exists = H5Lexists(dst_grp_id, COPY_LINK_TEST_EXTERNAL_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ COPY_LINK_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Lcopy_external_check);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link existed in target group before copy!\n");
+ PART_ERROR(H5Lcopy_external_check);
+ }
+
+ /* Copy the link */
+ if (H5Lcopy(src_grp_id, COPY_LINK_TEST_EXTERNAL_LINK_NAME2, dst_grp_id,
+ COPY_LINK_TEST_EXTERNAL_LINK_COPY_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to copy external link '%s'\n", COPY_LINK_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Lcopy_external_check);
+ }
+
+ /* Verify the link has been copied and still exists in the source group */
+ if ((link_exists = H5Lexists(dst_grp_id, COPY_LINK_TEST_EXTERNAL_LINK_COPY_NAME2, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link copy '%s' exists\n",
+ COPY_LINK_TEST_EXTERNAL_LINK_COPY_NAME2);
+ PART_ERROR(H5Lcopy_external_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link copy did not exist\n");
+ PART_ERROR(H5Lcopy_external_check);
+ }
+
+ if ((link_exists = H5Lexists(src_grp_id, COPY_LINK_TEST_EXTERNAL_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if original external link '%s' exists\n",
+ COPY_LINK_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Lcopy_external_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" original external link did not exist\n");
+ PART_ERROR(H5Lcopy_external_check);
+ }
+
+ /* Retrieve the new link's info */
+ if (H5Lget_info2(dst_grp_id, COPY_LINK_TEST_EXTERNAL_LINK_COPY_NAME2, &new_info, H5P_DEFAULT) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't retrieve info for link '%s'\n",
+ COPY_LINK_TEST_EXTERNAL_LINK_COPY_NAME2);
+ PART_ERROR(H5Lcopy_external_check);
+ }
+
+ if (new_info.type != orig_info.type) {
+ H5_FAILED();
+ HDprintf(" copied link's link type doesn't match original link's type\n");
+ PART_ERROR(H5Lcopy_external_check);
+ }
+
+ if (new_info.u.val_size != orig_info.u.val_size) {
+ H5_FAILED();
+ HDprintf(" copied external link's value size of %llu doesn't match original link's value "
+ "size of %llu\n",
+ (unsigned long long)new_info.u.val_size, (unsigned long long)orig_info.u.val_size);
+ PART_ERROR(H5Lcopy_external_check);
+ }
+
+ if (new_info.corder_valid != orig_info.corder_valid) {
+ H5_FAILED();
+ HDprintf(" copied link's 'corder_valid' field doesn't match original link's "
+ "'corder_valid' field\n");
+ PART_ERROR(H5Lcopy_external_check);
+ }
+
+ if (new_info.corder_valid && orig_info.corder_valid && (new_info.corder != orig_info.corder)) {
+ H5_FAILED();
+ HDprintf(" copied link's creation order value %lld doesn't match original link's creation "
+ "order value %lld\n",
+ new_info.corder, orig_info.corder);
+ PART_ERROR(H5Lcopy_external_check);
+ }
+
+ if (new_info.cset != orig_info.cset) {
+ H5_FAILED();
+ HDprintf(" copied link's character set doesn't match original link's character set\n");
+ PART_ERROR(H5Lcopy_external_check);
+ }
+
+ /* Check the external link's value */
+ if (H5Lget_val(dst_grp_id, COPY_LINK_TEST_EXTERNAL_LINK_COPY_NAME2, new_link_val,
+ COPY_LINK_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't retrieve value for external link '%s'\n",
+ COPY_LINK_TEST_EXTERNAL_LINK_COPY_NAME2);
+ PART_ERROR(H5Lcopy_external_check);
+ }
+
+ if (H5Lunpack_elink_val(new_link_val, new_info.u.val_size, &unpack_flags, &new_filename,
+ &new_objname) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't unpack copied external link's value buffer\n");
+ PART_ERROR(H5Lcopy_external_check);
+ }
+
+ if (HDstrncmp(new_filename, orig_filename, strlen(orig_filename)) < 0) {
+ H5_FAILED();
+ HDprintf(" copied external link's filename '%s' doesn't match original external link's "
+ "filename '%s'\n",
+ new_filename, orig_filename);
+ PART_ERROR(H5Lcopy_external_check);
+ }
+
+ if (HDstrncmp(new_objname, orig_objname, strlen(orig_objname)) < 0) {
+ H5_FAILED();
+ HDprintf(" copied external link's object name '%s' doesn't match original external link's "
+ "object name '%s'\n",
+ new_objname, orig_objname);
+ PART_ERROR(H5Lcopy_external_check);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lcopy_external_check);
+#endif
+ }
+ PART_END(H5Lcopy_external_check);
+
+ H5E_BEGIN_TRY
+ {
+ H5Fclose(ext_file_id);
+ ext_file_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lcopy_external_same_loc)
+ {
+ TESTING_2("H5Lcopy on external link using H5L_SAME_LOC");
+#ifndef NO_EXTERNAL_LINKS
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Lcopy_external_same_loc);
+ }
+
+ if (H5Fclose(ext_file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close file '%s'\n", ext_link_filename);
+ PART_ERROR(H5Lcopy_external_same_loc);
+ }
+
+ /* Try to copy an external link */
+ if (H5Lcreate_external(ext_link_filename, "/", src_grp_id, COPY_LINK_TEST_EXTERNAL_LINK_NAME3,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", COPY_LINK_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Lcopy_external_same_loc);
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(src_grp_id, COPY_LINK_TEST_EXTERNAL_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ COPY_LINK_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Lcopy_external_same_loc);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link did not exist\n");
+ PART_ERROR(H5Lcopy_external_same_loc);
+ }
+
+ /* Verify the links don't currently exist in the target group */
+ if ((link_exists =
+ H5Lexists(src_grp_id, COPY_LINK_TEST_EXTERNAL_LINK_SAME_LOC_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ COPY_LINK_TEST_EXTERNAL_LINK_SAME_LOC_NAME);
+ PART_ERROR(H5Lcopy_external_same_loc);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link existed in target group before copy!\n");
+ PART_ERROR(H5Lcopy_external_same_loc);
+ }
+
+ if ((link_exists =
+ H5Lexists(src_grp_id, COPY_LINK_TEST_EXTERNAL_LINK_SAME_LOC_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ COPY_LINK_TEST_EXTERNAL_LINK_SAME_LOC_NAME2);
+ PART_ERROR(H5Lcopy_external_same_loc);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link existed in target group before copy!\n");
+ PART_ERROR(H5Lcopy_external_same_loc);
+ }
+
+ /* Copy the link using H5L_SAME_LOC as the first parameter to H5Lcopy */
+ if (H5Lcopy(H5L_SAME_LOC, COPY_LINK_TEST_EXTERNAL_LINK_NAME3, src_grp_id,
+ COPY_LINK_TEST_EXTERNAL_LINK_SAME_LOC_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to copy external link '%s' using H5L_SAME_LOC as first parameter to "
+ "H5Lcopy\n",
+ COPY_LINK_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Lcopy_external_same_loc);
+ }
+
+ /* Copy the link using H5L_SAME_LOC as the third parameter to H5Lcopy */
+ if (H5Lcopy(src_grp_id, COPY_LINK_TEST_EXTERNAL_LINK_NAME3, H5L_SAME_LOC,
+ COPY_LINK_TEST_EXTERNAL_LINK_SAME_LOC_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to copy external link '%s' using H5L_SAME_LOC as third parameter to "
+ "H5Lcopy\n",
+ COPY_LINK_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Lcopy_external_same_loc);
+ }
+
+ /* Verify the links have been copied and the original still exists in the source group */
+ if ((link_exists =
+ H5Lexists(src_grp_id, COPY_LINK_TEST_EXTERNAL_LINK_SAME_LOC_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link copy '%s' exists\n",
+ COPY_LINK_TEST_EXTERNAL_LINK_SAME_LOC_NAME);
+ PART_ERROR(H5Lcopy_external_same_loc);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link copy did not exist\n");
+ PART_ERROR(H5Lcopy_external_same_loc);
+ }
+
+ if ((link_exists =
+ H5Lexists(src_grp_id, COPY_LINK_TEST_EXTERNAL_LINK_SAME_LOC_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link copy '%s' exists\n",
+ COPY_LINK_TEST_EXTERNAL_LINK_SAME_LOC_NAME2);
+ PART_ERROR(H5Lcopy_external_same_loc);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link copy did not exist\n");
+ PART_ERROR(H5Lcopy_external_same_loc);
+ }
+
+ if ((link_exists = H5Lexists(src_grp_id, COPY_LINK_TEST_EXTERNAL_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if original external link '%s' exists\n",
+ COPY_LINK_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Lcopy_external_same_loc);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" original external link did not exist\n");
+ PART_ERROR(H5Lcopy_external_same_loc);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lcopy_external_same_loc);
+#endif
+ }
+ PART_END(H5Lcopy_external_same_loc);
+
+ H5E_BEGIN_TRY
+ {
+ H5Fclose(ext_file_id);
+ ext_file_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lcopy_ud_no_check)
+ {
+ TESTING_2("H5Lcopy on user-defined link (copied link's properties not checked)");
+
+ /* TODO */
+
+ SKIPPED();
+ PART_EMPTY(H5Lcopy_ud_no_check);
+ }
+ PART_END(H5Lcopy_ud_no_check);
+
+ PART_BEGIN(H5Lcopy_ud_check)
+ {
+ TESTING_2("H5Lcopy on user-defined link (copied link's properties checked)");
+
+ /* TODO */
+
+ SKIPPED();
+ PART_EMPTY(H5Lcopy_ud_check);
+ }
+ PART_END(H5Lcopy_ud_check);
+
+ PART_BEGIN(H5Lcopy_ud_same_loc)
+ {
+ TESTING_2("H5Lcopy on user-defined link using H5L_SAME_LOC");
+
+ /* TODO */
+
+ SKIPPED();
+ PART_EMPTY(H5Lcopy_ud_same_loc);
+ }
+ PART_END(H5Lcopy_ud_same_loc);
+ }
+ END_MULTIPART;
+
+ TESTING_2("test cleanup");
+
+ if (H5Gclose(dst_grp_id) < 0)
+ TEST_ERROR;
+ if (H5Gclose(src_grp_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
+ {
+ H5Gclose(dst_grp_id);
+ H5Gclose(src_grp_id);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(ext_file_id);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check that using H5Lcopy to copy links into a
+ * group which already contains links will cause the new links
+ * to have creation order values ranging from the target group's
+ * maximum link creation order value and upwards. This is to
+ * check that it is not possible to run into the situation where
+ * H5Lcopy might cause a group to have two links with the same
+ * creation order values.
+ */
+static int
+test_copy_links_into_group_with_links(void)
+{
+ TESTING("H5Lcopy adjusting creation order values for copied links");
+
+ SKIPPED();
+
+ return 1;
+}
+
+/*
+ * A test to check the behavior of copying a link across files.
+ * This should fail for hard links but succeed for soft and
+ * external links (and user-defined links of those types).
+ *
+ * TODO: Ideally, tests should be written to verify that the
+ * copied links retain the properties of the original
+ * links.
+ */
+static int
+test_copy_link_across_files(void)
+{
+ TESTING("link copying across files");
+
+ /* TODO */
+
+ SKIPPED();
+
+ return 0;
+}
+
+/*
+ * A test to check that a link can't be copied
+ * when H5Lcopy is passed invalid parameters.
+ */
+static int
+test_copy_link_invalid_params(void)
+{
+ herr_t err_ret = -1;
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ hid_t src_grp_id = H5I_INVALID_HID, dst_grp_id = H5I_INVALID_HID;
+ char ext_link_filename[H5_API_TEST_FILENAME_MAX_LENGTH];
+ hid_t ext_file_id = H5I_INVALID_HID;
+
+ TESTING_MULTIPART("H5Lcopy 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_LINK_MORE) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_HARD_LINKS)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, or basic and more 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, COPY_LINK_INVALID_PARAMS_TEST_SUBGROUP_NAME, H5P_DEFAULT,
+ H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create group '%s'\n", COPY_LINK_INVALID_PARAMS_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ if ((src_grp_id = H5Gcreate2(group_id, COPY_LINK_INVALID_PARAMS_TEST_SRC_GROUP_NAME, H5P_DEFAULT,
+ H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create group '%s'\n", COPY_LINK_INVALID_PARAMS_TEST_SRC_GROUP_NAME);
+ goto error;
+ }
+
+ if ((dst_grp_id = H5Gcreate2(group_id, COPY_LINK_INVALID_PARAMS_TEST_DST_GROUP_NAME, H5P_DEFAULT,
+ H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create group '%s'\n", COPY_LINK_INVALID_PARAMS_TEST_DST_GROUP_NAME);
+ goto error;
+ }
+
+ if (H5Lcreate_hard(group_id, ".", src_grp_id, COPY_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", COPY_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME);
+ goto error;
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(src_grp_id, COPY_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ COPY_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link did not exist\n");
+ goto error;
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ PART_BEGIN(H5Lcopy_invalid_src_loc_id)
+ {
+ TESTING_2("H5Lcopy with an invalid source location ID");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret =
+ H5Lcopy(H5I_INVALID_HID, COPY_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, dst_grp_id,
+ COPY_LINK_INVALID_PARAMS_TEST_HARD_LINK_COPY_NAME, H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lcopy succeeded with an invalid source location ID\n");
+ PART_ERROR(H5Lcopy_invalid_src_loc_id);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcopy_invalid_src_loc_id);
+
+ PART_BEGIN(H5Lcopy_invalid_src_name)
+ {
+ TESTING_2("H5Lcopy with an invalid source name");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret =
+ H5Lcopy(src_grp_id, NULL, dst_grp_id, COPY_LINK_INVALID_PARAMS_TEST_HARD_LINK_COPY_NAME,
+ H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lcopy succeeded with a NULL source name\n");
+ PART_ERROR(H5Lcopy_invalid_src_name);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret =
+ H5Lcopy(src_grp_id, "", dst_grp_id, COPY_LINK_INVALID_PARAMS_TEST_HARD_LINK_COPY_NAME,
+ H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lcopy succeeded with an invalid source name of ''\n");
+ PART_ERROR(H5Lcopy_invalid_src_name);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcopy_invalid_src_name);
+
+ PART_BEGIN(H5Lcopy_invalid_dst_loc_id)
+ {
+ TESTING_2("H5Lcopy with an invalid destination location ID");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret =
+ H5Lcopy(src_grp_id, COPY_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, H5I_INVALID_HID,
+ COPY_LINK_INVALID_PARAMS_TEST_HARD_LINK_COPY_NAME, H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lcopy succeeded with an invalid destination location ID\n");
+ PART_ERROR(H5Lcopy_invalid_dst_loc_id);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcopy_invalid_dst_loc_id);
+
+ PART_BEGIN(H5Lcopy_invalid_dst_name)
+ {
+ TESTING_2("H5Lcopy with an invalid destination name");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcopy(src_grp_id, COPY_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, dst_grp_id, NULL,
+ H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lcopy succeeded with a NULL destination name\n");
+ PART_ERROR(H5Lcopy_invalid_dst_name);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lcopy(src_grp_id, COPY_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, dst_grp_id, "",
+ H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lcopy succeeded with an invalid destination name of ''\n");
+ PART_ERROR(H5Lcopy_invalid_dst_name);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcopy_invalid_dst_name);
+
+ PART_BEGIN(H5Lcopy_invalid_lcpl)
+ {
+ TESTING_2("H5Lcopy with an invalid LCPL");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret =
+ H5Lcopy(src_grp_id, COPY_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, dst_grp_id,
+ COPY_LINK_INVALID_PARAMS_TEST_HARD_LINK_COPY_NAME, H5I_INVALID_HID, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lcopy succeeded with an invalid LCPL\n");
+ PART_ERROR(H5Lcopy_invalid_lcpl);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcopy_invalid_lcpl);
+
+ PART_BEGIN(H5Lcopy_invalid_lapl)
+ {
+ TESTING_2("H5Lcopy with an invalid LAPL");
+#ifndef NO_INVALID_PROPERTY_LIST_TESTS
+ H5E_BEGIN_TRY
+ {
+ err_ret =
+ H5Lcopy(src_grp_id, COPY_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, dst_grp_id,
+ COPY_LINK_INVALID_PARAMS_TEST_HARD_LINK_COPY_NAME, H5P_DEFAULT, H5I_INVALID_HID);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lcopy succeeded with an invalid LAPL\n");
+ PART_ERROR(H5Lcopy_invalid_lapl);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lcopy_invalid_lapl);
+#endif
+ }
+ PART_END(H5Lcopy_invalid_lapl);
+
+ PART_BEGIN(H5Lcopy_invalid_same_location)
+ {
+ TESTING_2("H5Lcopy with an invalid same location");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret =
+ H5Lcopy(H5L_SAME_LOC, COPY_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, H5L_SAME_LOC,
+ COPY_LINK_INVALID_PARAMS_TEST_HARD_LINK_COPY_NAME, H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lcopy succeeded with an invalid same location\n");
+ PART_ERROR(H5Lcopy_invalid_same_location);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcopy_invalid_same_location);
+
+ PART_BEGIN(H5Lcopy_invalid_across_files)
+ {
+ TESTING_2("H5Lcopy invalid across files");
+
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Lcopy_invalid_across_files);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret =
+ H5Lcopy(src_grp_id, COPY_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, ext_file_id,
+ COPY_LINK_INVALID_PARAMS_TEST_HARD_LINK_COPY_NAME, H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lcopy succeeded in copying a hard link across files!\n");
+ PART_ERROR(H5Lcopy_invalid_across_files);
+ }
+
+ if (H5Fclose(ext_file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close file '%s'\n", ext_link_filename);
+ PART_ERROR(H5Lcopy_invalid_across_files);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lcopy_invalid_across_files);
+ }
+ END_MULTIPART;
+
+ TESTING_2("test cleanup");
+
+ if (H5Gclose(dst_grp_id) < 0)
+ TEST_ERROR;
+ if (H5Gclose(src_grp_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
+ {
+ H5Gclose(dst_grp_id);
+ H5Gclose(src_grp_id);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(ext_file_id);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check that a link can be moved with H5Lmove.
+ */
+static int
+test_move_link(void)
+{
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ hid_t src_grp_id = H5I_INVALID_HID, dst_grp_id = H5I_INVALID_HID;
+ char ext_link_filename[H5_API_TEST_FILENAME_MAX_LENGTH];
+ hid_t ext_file_id = H5I_INVALID_HID;
+
+ TESTING_MULTIPART("link moving");
+
+ /* 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_LINK_MORE) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_HARD_LINKS) || !(vol_cap_flags_g & H5VL_CAP_FLAG_EXTERNAL_LINKS) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_SOFT_LINKS)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, or link, hard, soft, or external link aren't "
+ "supported with this connector\n");
+ return 0;
+ }
+
+ TESTING_2("test setup");
+
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s", EXTERNAL_LINK_TEST_FILE_NAME);
+
+ 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, MOVE_LINK_TEST_SUBGROUP_NAME, H5P_DEFAULT, H5P_DEFAULT,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create group '%s'\n", MOVE_LINK_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ if ((src_grp_id = H5Gcreate2(group_id, MOVE_LINK_TEST_SRC_GROUP_NAME, H5P_DEFAULT, H5P_DEFAULT,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create group '%s'\n", MOVE_LINK_TEST_SRC_GROUP_NAME);
+ goto error;
+ }
+
+ if ((dst_grp_id = H5Gcreate2(group_id, MOVE_LINK_TEST_DST_GROUP_NAME, H5P_DEFAULT, H5P_DEFAULT,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create group '%s'\n", MOVE_LINK_TEST_DST_GROUP_NAME);
+ goto error;
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ PART_BEGIN(H5Lmove_hard_no_check)
+ {
+ TESTING_2("H5Lmove on hard link (moved link's properties not checked)");
+
+ /* Try to move a hard link */
+ if (H5Lcreate_hard(group_id, ".", src_grp_id, MOVE_LINK_TEST_HARD_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", MOVE_LINK_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lmove_hard_no_check);
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n", MOVE_LINK_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lmove_hard_no_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link did not exist\n");
+ PART_ERROR(H5Lmove_hard_no_check);
+ }
+
+ /* Verify the link doesn't currently exist in the target group */
+ if ((link_exists = H5Lexists(dst_grp_id, MOVE_LINK_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n", MOVE_LINK_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lmove_hard_no_check);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link existed in target group before move!\n");
+ PART_ERROR(H5Lmove_hard_no_check);
+ }
+
+ /* Move the link */
+ if (H5Lmove(src_grp_id, MOVE_LINK_TEST_HARD_LINK_NAME, dst_grp_id, MOVE_LINK_TEST_HARD_LINK_NAME,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to move link '%s'\n", MOVE_LINK_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lmove_hard_no_check);
+ }
+
+ /* Verify the link has been moved */
+ if ((link_exists = H5Lexists(dst_grp_id, MOVE_LINK_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n", MOVE_LINK_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lmove_hard_no_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link did not exist\n");
+ PART_ERROR(H5Lmove_hard_no_check);
+ }
+
+ /* Verify the old link is gone */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if old hard link '%s' exists\n",
+ MOVE_LINK_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lmove_hard_no_check);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" old hard link exists\n");
+ PART_ERROR(H5Lmove_hard_no_check);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lmove_hard_no_check);
+
+ PART_BEGIN(H5Lmove_hard_check)
+ {
+ H5L_info2_t orig_info, new_info;
+ int cmp_value;
+
+ TESTING_2("H5Lmove on hard link (moved link's properties checked)");
+
+ /* Try to move a hard link */
+ if (H5Lcreate_hard(group_id, ".", src_grp_id, MOVE_LINK_TEST_HARD_LINK_NAME2, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", MOVE_LINK_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lmove_hard_check);
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n", MOVE_LINK_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lmove_hard_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link did not exist\n");
+ PART_ERROR(H5Lmove_hard_check);
+ }
+
+ /* Retrieve the link's info */
+ if (H5Lget_info2(src_grp_id, MOVE_LINK_TEST_HARD_LINK_NAME2, &orig_info, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't retrieve info for link '%s'\n", MOVE_LINK_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lmove_hard_check);
+ }
+
+ /* Verify the link doesn't currently exist in the target group */
+ if ((link_exists = H5Lexists(dst_grp_id, MOVE_LINK_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n", MOVE_LINK_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lmove_hard_check);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link existed in target group before move!\n");
+ PART_ERROR(H5Lmove_hard_check);
+ }
+
+ /* Move the link */
+ if (H5Lmove(src_grp_id, MOVE_LINK_TEST_HARD_LINK_NAME2, dst_grp_id,
+ MOVE_LINK_TEST_HARD_LINK_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to move link '%s'\n", MOVE_LINK_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lmove_hard_check);
+ }
+
+ /* Verify the link has been moved */
+ if ((link_exists = H5Lexists(dst_grp_id, MOVE_LINK_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n", MOVE_LINK_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lmove_hard_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link did not exist\n");
+ PART_ERROR(H5Lmove_hard_check);
+ }
+
+ /* Verify the old link is gone */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if old hard link '%s' exists\n",
+ MOVE_LINK_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lmove_hard_check);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" old hard link exists\n");
+ PART_ERROR(H5Lmove_hard_check);
+ }
+
+ /* Retrieve the moved link's info */
+ if (H5Lget_info2(dst_grp_id, MOVE_LINK_TEST_HARD_LINK_NAME2, &new_info, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't retrieve info for link '%s'\n", MOVE_LINK_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lmove_hard_check);
+ }
+
+ if (new_info.type != orig_info.type) {
+ H5_FAILED();
+ HDprintf(" moved link's link type doesn't match original link's type\n");
+ PART_ERROR(H5Lmove_hard_check);
+ }
+
+ if (H5Otoken_cmp(dst_grp_id, &new_info.u.token, &orig_info.u.token, &cmp_value) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to compare link target tokens\n");
+ PART_ERROR(H5Lmove_hard_check);
+ }
+
+ if (cmp_value != 0) {
+ H5_FAILED();
+ HDprintf(" moved hard link's object token doesn't match original link's object token\n");
+ PART_ERROR(H5Lmove_hard_check);
+ }
+
+ if (new_info.corder_valid != orig_info.corder_valid) {
+ H5_FAILED();
+ HDprintf(" moved link's 'corder_valid' field doesn't match original link's 'corder_valid' "
+ "field\n");
+ PART_ERROR(H5Lmove_hard_check);
+ }
+
+ if (new_info.corder_valid && orig_info.corder_valid && (new_info.corder != orig_info.corder)) {
+ H5_FAILED();
+ HDprintf(" moved link's creation order value %" PRId64
+ " doesn't match original link's creation order value %" PRId64 "\n",
+ new_info.corder, orig_info.corder);
+ PART_ERROR(H5Lmove_hard_check);
+ }
+
+ if (new_info.cset != orig_info.cset) {
+ H5_FAILED();
+ HDprintf(" moved link's character set doesn't match original link's character set\n");
+ PART_ERROR(H5Lmove_hard_check);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lmove_hard_check);
+
+ PART_BEGIN(H5Lmove_hard_same_loc)
+ {
+ TESTING_2("H5Lmove on hard link using H5L_SAME_LOC");
+
+ /* Try to move a hard link */
+ if (H5Lcreate_hard(group_id, ".", src_grp_id, MOVE_LINK_TEST_HARD_LINK_NAME3, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", MOVE_LINK_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lmove_hard_same_loc);
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n", MOVE_LINK_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lmove_hard_same_loc);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link did not exist\n");
+ PART_ERROR(H5Lmove_hard_same_loc);
+ }
+
+ /* Verify the link doesn't currently exist in the target group */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_HARD_LINK_SAME_LOC_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ MOVE_LINK_TEST_HARD_LINK_SAME_LOC_NAME);
+ PART_ERROR(H5Lmove_hard_same_loc);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link existed in target group before move!\n");
+ PART_ERROR(H5Lmove_hard_same_loc);
+ }
+
+ /* Rename the link using H5L_SAME_LOC as the first parameter to H5Lmove */
+ if (H5Lmove(H5L_SAME_LOC, MOVE_LINK_TEST_HARD_LINK_NAME3, src_grp_id,
+ MOVE_LINK_TEST_HARD_LINK_SAME_LOC_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to move link '%s' using H5L_SAME_LOC as first parameter to H5Lmove\n",
+ MOVE_LINK_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lmove_hard_same_loc);
+ }
+
+ /* Ensure the link has been renamed */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n", MOVE_LINK_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lmove_hard_same_loc);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" original hard link existed in target group after move!\n");
+ PART_ERROR(H5Lmove_hard_same_loc);
+ }
+
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_HARD_LINK_SAME_LOC_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ MOVE_LINK_TEST_HARD_LINK_SAME_LOC_NAME);
+ PART_ERROR(H5Lmove_hard_same_loc);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link did not exist after move!\n");
+ PART_ERROR(H5Lmove_hard_same_loc);
+ }
+
+ /* Rename the link back using H5L_SAME_LOC as the third parameter to H5Lmove */
+ if (H5Lmove(src_grp_id, MOVE_LINK_TEST_HARD_LINK_SAME_LOC_NAME, H5L_SAME_LOC,
+ MOVE_LINK_TEST_HARD_LINK_NAME3, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to move link '%s' using H5L_SAME_LOC as third parameter to H5Lmove\n",
+ MOVE_LINK_TEST_HARD_LINK_SAME_LOC_NAME);
+ PART_ERROR(H5Lmove_hard_same_loc);
+ }
+
+ /* Verify the link has been renamed back */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n", MOVE_LINK_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lmove_hard_same_loc);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" original hard link did not exist after moving the link back!\n");
+ PART_ERROR(H5Lmove_hard_same_loc);
+ }
+
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_HARD_LINK_SAME_LOC_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if old hard link '%s' exists\n",
+ MOVE_LINK_TEST_HARD_LINK_SAME_LOC_NAME);
+ PART_ERROR(H5Lmove_hard_same_loc);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" renamed hard link exists after moving the link back!\n");
+ PART_ERROR(H5Lmove_hard_same_loc);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lmove_hard_same_loc);
+
+ PART_BEGIN(H5Lmove_hard_rename)
+ {
+ TESTING_2("H5Lmove to rename hard link without moving it");
+
+ /* Try to rename a hard link */
+ if (H5Lcreate_hard(group_id, ".", src_grp_id, MOVE_LINK_TEST_HARD_LINK_NAME4, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", MOVE_LINK_TEST_HARD_LINK_NAME4);
+ PART_ERROR(H5Lmove_hard_rename);
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_HARD_LINK_NAME4, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n", MOVE_LINK_TEST_HARD_LINK_NAME4);
+ PART_ERROR(H5Lmove_hard_rename);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link did not exist\n");
+ PART_ERROR(H5Lmove_hard_rename);
+ }
+
+ /* Verify the renamed link doesn't currently exist in the source group */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_HARD_LINK_NEW_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if renamed hard link '%s' exists\n",
+ MOVE_LINK_TEST_HARD_LINK_NEW_NAME);
+ PART_ERROR(H5Lmove_hard_rename);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" renamed hard link existed in source group before move!\n");
+ PART_ERROR(H5Lmove_hard_rename);
+ }
+
+ /* Rename the link */
+ if (H5Lmove(src_grp_id, MOVE_LINK_TEST_HARD_LINK_NAME4, src_grp_id,
+ MOVE_LINK_TEST_HARD_LINK_NEW_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to rename link '%s'\n", MOVE_LINK_TEST_HARD_LINK_NAME4);
+ PART_ERROR(H5Lmove_hard_rename);
+ }
+
+ /* Verify the link has been renamed */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_HARD_LINK_NEW_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if renamed hard link '%s' exists\n",
+ MOVE_LINK_TEST_HARD_LINK_NEW_NAME);
+ PART_ERROR(H5Lmove_hard_rename);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" renamed hard link did not exist\n");
+ PART_ERROR(H5Lmove_hard_rename);
+ }
+
+ /* Verify the old link is gone */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_HARD_LINK_NAME4, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if old hard link '%s' exists\n",
+ MOVE_LINK_TEST_HARD_LINK_NAME4);
+ PART_ERROR(H5Lmove_hard_rename);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" old hard link exists\n");
+ PART_ERROR(H5Lmove_hard_rename);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lmove_hard_rename);
+
+ PART_BEGIN(H5Lmove_soft_no_check)
+ {
+ TESTING_2("H5Lmove on soft link (moved link's properties not checked)");
+
+ /* Try to move a soft link */
+ if (H5Lcreate_soft(MOVE_LINK_TEST_SOFT_LINK_TARGET_PATH, src_grp_id,
+ MOVE_LINK_TEST_SOFT_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", MOVE_LINK_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lmove_soft_no_check);
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n", MOVE_LINK_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lmove_soft_no_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link did not exist\n");
+ PART_ERROR(H5Lmove_soft_no_check);
+ }
+
+ /* Verify the link doesn't currently exist in the target group */
+ if ((link_exists = H5Lexists(dst_grp_id, MOVE_LINK_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n", MOVE_LINK_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lmove_soft_no_check);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link existed in target group before move!\n");
+ PART_ERROR(H5Lmove_soft_no_check);
+ }
+
+ /* Move the link */
+ if (H5Lmove(src_grp_id, MOVE_LINK_TEST_SOFT_LINK_NAME, dst_grp_id, MOVE_LINK_TEST_SOFT_LINK_NAME,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to move link '%s'\n", MOVE_LINK_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lmove_soft_no_check);
+ }
+
+ /* Verify the link has been moved */
+ if ((link_exists = H5Lexists(dst_grp_id, MOVE_LINK_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n", MOVE_LINK_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lmove_soft_no_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link did not exist\n");
+ PART_ERROR(H5Lmove_soft_no_check);
+ }
+
+ /* Verify the old link is gone */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if old soft link '%s' exists\n",
+ MOVE_LINK_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lmove_soft_no_check);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" old soft link exists\n");
+ PART_ERROR(H5Lmove_soft_no_check);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lmove_soft_no_check);
+
+ PART_BEGIN(H5Lmove_soft_check)
+ {
+ H5L_info2_t orig_info, new_info;
+ char orig_link_val[MOVE_LINK_TEST_LINK_VAL_BUF_SIZE];
+ char new_link_val[MOVE_LINK_TEST_LINK_VAL_BUF_SIZE];
+
+ TESTING_2("H5Lmove on soft link (moved link's properties checked)");
+
+ /* Try to move a soft link */
+ if (H5Lcreate_soft(MOVE_LINK_TEST_SOFT_LINK_TARGET_PATH, src_grp_id,
+ MOVE_LINK_TEST_SOFT_LINK_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", MOVE_LINK_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lmove_soft_check);
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n", MOVE_LINK_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lmove_soft_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link did not exist\n");
+ PART_ERROR(H5Lmove_soft_check);
+ }
+
+ /* Retrieve the link's info */
+ if (H5Lget_info2(src_grp_id, MOVE_LINK_TEST_SOFT_LINK_NAME2, &orig_info, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't retrieve info for link '%s'\n", MOVE_LINK_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lmove_soft_check);
+ }
+
+ /* Retrieve the link's value */
+ if (H5Lget_val(src_grp_id, MOVE_LINK_TEST_SOFT_LINK_NAME2, orig_link_val,
+ MOVE_LINK_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't retrieve value for soft link '%s'\n", MOVE_LINK_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lmove_soft_check);
+ }
+
+ /* Verify the link doesn't currently exist in the target group */
+ if ((link_exists = H5Lexists(dst_grp_id, MOVE_LINK_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n", MOVE_LINK_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lmove_soft_check);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link existed in target group before move!\n");
+ PART_ERROR(H5Lmove_soft_check);
+ }
+
+ /* Move the link */
+ if (H5Lmove(src_grp_id, MOVE_LINK_TEST_SOFT_LINK_NAME2, dst_grp_id,
+ MOVE_LINK_TEST_SOFT_LINK_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to move link '%s'\n", MOVE_LINK_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lmove_soft_check);
+ }
+
+ /* Verify the link has been moved */
+ if ((link_exists = H5Lexists(dst_grp_id, MOVE_LINK_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n", MOVE_LINK_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lmove_soft_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link did not exist\n");
+ PART_ERROR(H5Lmove_soft_check);
+ }
+
+ /* Verify the old link is gone */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if old soft link '%s' exists\n",
+ MOVE_LINK_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lmove_soft_check);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" old soft link exists\n");
+ PART_ERROR(H5Lmove_soft_check);
+ }
+
+ /* Retrieve the moved link's info */
+ if (H5Lget_info2(dst_grp_id, MOVE_LINK_TEST_SOFT_LINK_NAME2, &new_info, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't retrieve info for link '%s'\n", MOVE_LINK_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lmove_soft_check);
+ }
+
+ if (new_info.type != orig_info.type) {
+ H5_FAILED();
+ HDprintf(" moved link's link type doesn't match original link's type\n");
+ PART_ERROR(H5Lmove_soft_check);
+ }
+
+ if (new_info.u.val_size != orig_info.u.val_size) {
+ H5_FAILED();
+ HDprintf(" moved soft link's value size of %llu doesn't match original link's value size "
+ "of %llu\n",
+ (unsigned long long)new_info.u.val_size, (unsigned long long)orig_info.u.val_size);
+ PART_ERROR(H5Lmove_soft_check);
+ }
+
+ if (new_info.corder_valid != orig_info.corder_valid) {
+ H5_FAILED();
+ HDprintf(" moved link's 'corder_valid' field doesn't match original link's 'corder_valid' "
+ "field\n");
+ PART_ERROR(H5Lmove_soft_check);
+ }
+
+ if (new_info.corder_valid && orig_info.corder_valid && (new_info.corder != orig_info.corder)) {
+ H5_FAILED();
+ HDprintf(" moved link's creation order value %" PRId64
+ " doesn't match original link's creation order value %" PRId64 "\n",
+ new_info.corder, orig_info.corder);
+ PART_ERROR(H5Lmove_soft_check);
+ }
+
+ if (new_info.cset != orig_info.cset) {
+ H5_FAILED();
+ HDprintf(" moved link's character set doesn't match original link's character set\n");
+ PART_ERROR(H5Lmove_soft_check);
+ }
+
+ /* Check the soft link's value */
+ if (H5Lget_val(dst_grp_id, MOVE_LINK_TEST_SOFT_LINK_NAME2, new_link_val,
+ MOVE_LINK_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't retrieve value for soft link '%s'\n", MOVE_LINK_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lmove_soft_check);
+ }
+
+ if (HDstrncmp(orig_link_val, new_link_val, MOVE_LINK_TEST_LINK_VAL_BUF_SIZE)) {
+ H5_FAILED();
+ HDprintf(" moved soft link's value '%s' doesn't match original link's value '%s'\n",
+ new_link_val, orig_link_val);
+ PART_ERROR(H5Lmove_soft_check);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lmove_soft_check);
+
+ PART_BEGIN(H5Lmove_soft_same_loc)
+ {
+ TESTING_2("H5Lmove on soft link using H5L_SAME_LOC");
+
+ /* Try to move a soft link */
+ if (H5Lcreate_soft(MOVE_LINK_TEST_SOFT_LINK_TARGET_PATH, src_grp_id,
+ MOVE_LINK_TEST_SOFT_LINK_NAME3, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", MOVE_LINK_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lmove_soft_same_loc);
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n", MOVE_LINK_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lmove_soft_same_loc);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link did not exist\n");
+ PART_ERROR(H5Lmove_soft_same_loc);
+ }
+
+ /* Verify the link doesn't currently exist in the target group */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_SOFT_LINK_SAME_LOC_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ MOVE_LINK_TEST_SOFT_LINK_SAME_LOC_NAME);
+ PART_ERROR(H5Lmove_soft_same_loc);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link existed in target group before move!\n");
+ PART_ERROR(H5Lmove_soft_same_loc);
+ }
+
+ /* Rename the link using H5L_SAME_LOC as the first parameter to H5Lmove */
+ if (H5Lmove(H5L_SAME_LOC, MOVE_LINK_TEST_SOFT_LINK_NAME3, src_grp_id,
+ MOVE_LINK_TEST_SOFT_LINK_SAME_LOC_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to move link '%s' using H5L_SAME_LOC as first parameter to H5Lmove\n",
+ MOVE_LINK_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lmove_soft_same_loc);
+ }
+
+ /* Ensure the link has been renamed */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n", MOVE_LINK_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lmove_soft_same_loc);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" original soft link existed in target group after move!\n");
+ PART_ERROR(H5Lmove_soft_same_loc);
+ }
+
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_SOFT_LINK_SAME_LOC_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ MOVE_LINK_TEST_SOFT_LINK_SAME_LOC_NAME);
+ PART_ERROR(H5Lmove_soft_same_loc);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link did not exist after move!\n");
+ PART_ERROR(H5Lmove_soft_same_loc);
+ }
+
+ /* Rename the link back using H5L_SAME_LOC as the third parameter to H5Lmove */
+ if (H5Lmove(src_grp_id, MOVE_LINK_TEST_SOFT_LINK_SAME_LOC_NAME, H5L_SAME_LOC,
+ MOVE_LINK_TEST_SOFT_LINK_NAME3, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to move link '%s' using H5L_SAME_LOC as third parameter to H5Lmove\n",
+ MOVE_LINK_TEST_SOFT_LINK_SAME_LOC_NAME);
+ PART_ERROR(H5Lmove_soft_same_loc);
+ }
+
+ /* Verify the link has been renamed back */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n", MOVE_LINK_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lmove_soft_same_loc);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" original hard link did not exist after moving the link back!\n");
+ PART_ERROR(H5Lmove_soft_same_loc);
+ }
+
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_SOFT_LINK_SAME_LOC_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if old soft link '%s' exists\n",
+ MOVE_LINK_TEST_SOFT_LINK_SAME_LOC_NAME);
+ PART_ERROR(H5Lmove_soft_same_loc);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" renamed soft link exists after moving the link back!\n");
+ PART_ERROR(H5Lmove_soft_same_loc);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lmove_soft_same_loc);
+
+ PART_BEGIN(H5Lmove_soft_rename)
+ {
+ TESTING_2("H5Lmove to rename soft link without moving it");
+
+ /* Try to rename a soft link */
+ if (H5Lcreate_soft(MOVE_LINK_TEST_SOFT_LINK_TARGET_PATH, src_grp_id,
+ MOVE_LINK_TEST_SOFT_LINK_NAME4, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", MOVE_LINK_TEST_SOFT_LINK_NAME4);
+ PART_ERROR(H5Lmove_soft_rename);
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_SOFT_LINK_NAME4, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n", MOVE_LINK_TEST_SOFT_LINK_NAME4);
+ PART_ERROR(H5Lmove_soft_rename);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link did not exist\n");
+ PART_ERROR(H5Lmove_soft_rename);
+ }
+
+ /* Verify the renamed link doesn't currently exist in the source group */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_SOFT_LINK_NEW_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if renamed soft link '%s' exists\n",
+ MOVE_LINK_TEST_SOFT_LINK_NEW_NAME);
+ PART_ERROR(H5Lmove_soft_rename);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" renamed soft link existed in source group before move!\n");
+ PART_ERROR(H5Lmove_soft_rename);
+ }
+
+ /* Rename the link */
+ if (H5Lmove(src_grp_id, MOVE_LINK_TEST_SOFT_LINK_NAME4, src_grp_id,
+ MOVE_LINK_TEST_SOFT_LINK_NEW_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to rename link '%s'\n", MOVE_LINK_TEST_SOFT_LINK_NAME4);
+ PART_ERROR(H5Lmove_soft_rename);
+ }
+
+ /* Verify the link has been renamed */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_SOFT_LINK_NEW_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if renamed soft link '%s' exists\n",
+ MOVE_LINK_TEST_SOFT_LINK_NEW_NAME);
+ PART_ERROR(H5Lmove_soft_rename);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" renamed soft link did not exist\n");
+ PART_ERROR(H5Lmove_soft_rename);
+ }
+
+ /* Verify the old link is gone */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_SOFT_LINK_NAME4, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if old soft link '%s' exists\n",
+ MOVE_LINK_TEST_SOFT_LINK_NAME4);
+ PART_ERROR(H5Lmove_soft_rename);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" old soft link exists\n");
+ PART_ERROR(H5Lmove_soft_rename);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lmove_soft_rename);
+
+ PART_BEGIN(H5Lmove_external_no_check)
+ {
+ TESTING_2("H5Lmove on external link (moved link's properties not checked)");
+#ifndef NO_EXTERNAL_LINKS
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Lmove_external_no_check);
+ }
+
+ if (H5Fclose(ext_file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close file '%s'\n", ext_link_filename);
+ PART_ERROR(H5Lmove_external_no_check);
+ }
+
+ /* Try to move an external link */
+ if (H5Lcreate_external(ext_link_filename, "/", src_grp_id, MOVE_LINK_TEST_EXTERN_LINK_NAME,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", MOVE_LINK_TEST_EXTERN_LINK_NAME);
+ PART_ERROR(H5Lmove_external_no_check);
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_EXTERN_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ MOVE_LINK_TEST_EXTERN_LINK_NAME);
+ PART_ERROR(H5Lmove_external_no_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link did not exist\n");
+ PART_ERROR(H5Lmove_external_no_check);
+ }
+
+ /* Verify the link doesn't currently exist in the target group */
+ if ((link_exists = H5Lexists(dst_grp_id, MOVE_LINK_TEST_EXTERN_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ MOVE_LINK_TEST_EXTERN_LINK_NAME);
+ PART_ERROR(H5Lmove_external_no_check);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link existed in target group before move!\n");
+ PART_ERROR(H5Lmove_external_no_check);
+ }
+
+ /* Move the link */
+ if (H5Lmove(src_grp_id, MOVE_LINK_TEST_EXTERN_LINK_NAME, dst_grp_id,
+ MOVE_LINK_TEST_EXTERN_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to move link '%s'\n", MOVE_LINK_TEST_EXTERN_LINK_NAME);
+ PART_ERROR(H5Lmove_external_no_check);
+ }
+
+ /* Verify the link has been moved */
+ if ((link_exists = H5Lexists(dst_grp_id, MOVE_LINK_TEST_EXTERN_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ MOVE_LINK_TEST_EXTERN_LINK_NAME);
+ PART_ERROR(H5Lmove_external_no_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link did not exist\n");
+ PART_ERROR(H5Lmove_external_no_check);
+ }
+
+ /* Verify the old link is gone */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_EXTERN_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if old external link '%s' exists\n",
+ MOVE_LINK_TEST_EXTERN_LINK_NAME);
+ PART_ERROR(H5Lmove_external_no_check);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" old external link exists\n");
+ PART_ERROR(H5Lmove_external_no_check);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lmove_external_no_check);
+#endif
+ }
+ PART_END(H5Lmove_external_no_check);
+
+ H5E_BEGIN_TRY
+ {
+ H5Fclose(ext_file_id);
+ ext_file_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lmove_external_check)
+ {
+#ifndef NO_EXTERNAL_LINKS
+ H5L_info2_t orig_info, new_info;
+ const char *orig_filename, *new_filename;
+ const char *orig_objname, *new_objname;
+ unsigned unpack_flags = 0;
+ char orig_link_val[MOVE_LINK_TEST_LINK_VAL_BUF_SIZE];
+ char new_link_val[MOVE_LINK_TEST_LINK_VAL_BUF_SIZE];
+#endif
+
+ TESTING_2("H5Lmove on external link (moved link's properties checked)");
+#ifndef NO_EXTERNAL_LINKS
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Lmove_external_check);
+ }
+
+ if (H5Fclose(ext_file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close file '%s'\n", ext_link_filename);
+ PART_ERROR(H5Lmove_external_check);
+ }
+
+ /* Try to move an external link */
+ if (H5Lcreate_external(ext_link_filename, "/", src_grp_id, MOVE_LINK_TEST_EXTERN_LINK_NAME2,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", MOVE_LINK_TEST_EXTERN_LINK_NAME2);
+ PART_ERROR(H5Lmove_external_check);
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_EXTERN_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ MOVE_LINK_TEST_EXTERN_LINK_NAME2);
+ PART_ERROR(H5Lmove_external_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link did not exist\n");
+ PART_ERROR(H5Lmove_external_check);
+ }
+
+ /* Retrieve the link's info */
+ if (H5Lget_info2(src_grp_id, MOVE_LINK_TEST_EXTERN_LINK_NAME2, &orig_info, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't retrieve info for link '%s'\n", MOVE_LINK_TEST_EXTERN_LINK_NAME2);
+ PART_ERROR(H5Lmove_external_check);
+ }
+
+ /* Retrieve the link's value */
+ if (H5Lget_val(src_grp_id, MOVE_LINK_TEST_EXTERN_LINK_NAME2, orig_link_val,
+ MOVE_LINK_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't retrieve value for external link '%s'\n",
+ MOVE_LINK_TEST_EXTERN_LINK_NAME2);
+ PART_ERROR(H5Lmove_external_check);
+ }
+
+ if (H5Lunpack_elink_val(orig_link_val, orig_info.u.val_size, &unpack_flags, &orig_filename,
+ &orig_objname) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't unpack original external link's value buffer\n");
+ PART_ERROR(H5Lmove_external_check);
+ }
+
+ /* Verify the link doesn't currently exist in the target group */
+ if ((link_exists = H5Lexists(dst_grp_id, MOVE_LINK_TEST_EXTERN_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ MOVE_LINK_TEST_EXTERN_LINK_NAME2);
+ PART_ERROR(H5Lmove_external_check);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link existed in target group before move!\n");
+ PART_ERROR(H5Lmove_external_check);
+ }
+
+ /* Move the link */
+ if (H5Lmove(src_grp_id, MOVE_LINK_TEST_EXTERN_LINK_NAME2, dst_grp_id,
+ MOVE_LINK_TEST_EXTERN_LINK_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to move link '%s'\n", MOVE_LINK_TEST_EXTERN_LINK_NAME2);
+ PART_ERROR(H5Lmove_external_check);
+ }
+
+ /* Verify the link has been moved */
+ if ((link_exists = H5Lexists(dst_grp_id, MOVE_LINK_TEST_EXTERN_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ MOVE_LINK_TEST_EXTERN_LINK_NAME2);
+ PART_ERROR(H5Lmove_external_check);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link did not exist\n");
+ PART_ERROR(H5Lmove_external_check);
+ }
+
+ /* Verify the old link is gone */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_EXTERN_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if old external link '%s' exists\n",
+ MOVE_LINK_TEST_EXTERN_LINK_NAME2);
+ PART_ERROR(H5Lmove_external_check);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" old external link exists\n");
+ PART_ERROR(H5Lmove_external_check);
+ }
+
+ /* Retrieve the moved link's info */
+ if (H5Lget_info2(dst_grp_id, MOVE_LINK_TEST_EXTERN_LINK_NAME2, &new_info, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't retrieve info for link '%s'\n", MOVE_LINK_TEST_EXTERN_LINK_NAME2);
+ PART_ERROR(H5Lmove_external_check);
+ }
+
+ if (new_info.type != orig_info.type) {
+ H5_FAILED();
+ HDprintf(" moved link's link type doesn't match original link's type\n");
+ PART_ERROR(H5Lmove_external_check);
+ }
+
+ if (new_info.u.val_size != orig_info.u.val_size) {
+ H5_FAILED();
+ HDprintf(" moved external link's value size of %llu doesn't match original link's value "
+ "size of %llu\n",
+ (unsigned long long)new_info.u.val_size, (unsigned long long)orig_info.u.val_size);
+ PART_ERROR(H5Lmove_external_check);
+ }
+
+ if (new_info.corder_valid != orig_info.corder_valid) {
+ H5_FAILED();
+ HDprintf(" moved link's 'corder_valid' field doesn't match original link's 'corder_valid' "
+ "field\n");
+ PART_ERROR(H5Lmove_external_check);
+ }
+
+ if (new_info.corder_valid && orig_info.corder_valid && (new_info.corder != orig_info.corder)) {
+ H5_FAILED();
+ HDprintf(" moved link's creation order value %lld doesn't match original link's creation "
+ "order value %lld\n",
+ new_info.corder, orig_info.corder);
+ PART_ERROR(H5Lmove_external_check);
+ }
+
+ if (new_info.cset != orig_info.cset) {
+ H5_FAILED();
+ HDprintf(" moved link's character set doesn't match original link's character set\n");
+ PART_ERROR(H5Lmove_external_check);
+ }
+
+ /* Check the external link's value */
+ if (H5Lget_val(dst_grp_id, MOVE_LINK_TEST_EXTERN_LINK_NAME2, new_link_val,
+ MOVE_LINK_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't retrieve value for external link '%s'\n",
+ MOVE_LINK_TEST_EXTERN_LINK_NAME2);
+ PART_ERROR(H5Lmove_external_check);
+ }
+
+ if (H5Lunpack_elink_val(new_link_val, new_info.u.val_size, &unpack_flags, &new_filename,
+ &new_objname) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't unpack moved external link's value buffer\n");
+ PART_ERROR(H5Lmove_external_check);
+ }
+
+ if (HDstrncmp(new_filename, orig_filename, strlen(orig_filename)) < 0) {
+ H5_FAILED();
+ HDprintf(" moved external link's filename '%s' doesn't match original external link's "
+ "filename '%s'\n",
+ new_filename, orig_filename);
+ PART_ERROR(H5Lmove_external_check);
+ }
+
+ if (HDstrncmp(new_objname, orig_objname, strlen(orig_objname)) < 0) {
+ H5_FAILED();
+ HDprintf(" moved external link's object name '%s' doesn't match original external link's "
+ "object name '%s'\n",
+ new_objname, orig_objname);
+ PART_ERROR(H5Lmove_external_check);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lmove_external_check);
+#endif
+ }
+ PART_END(H5Lmove_external_check);
+
+ H5E_BEGIN_TRY
+ {
+ H5Fclose(ext_file_id);
+ ext_file_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lmove_external_same_loc)
+ {
+ TESTING_2("H5Lmove on external link using H5L_SAME_LOC");
+#ifndef NO_EXTERNAL_LINKS
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Lmove_external_same_loc);
+ }
+
+ if (H5Fclose(ext_file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close file '%s'\n", ext_link_filename);
+ PART_ERROR(H5Lmove_external_same_loc);
+ }
+
+ /* Try to move an external link */
+ if (H5Lcreate_external(ext_link_filename, "/", src_grp_id, MOVE_LINK_TEST_EXTERN_LINK_NAME3,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", MOVE_LINK_TEST_EXTERN_LINK_NAME3);
+ PART_ERROR(H5Lmove_external_same_loc);
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_EXTERN_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ MOVE_LINK_TEST_EXTERN_LINK_NAME3);
+ PART_ERROR(H5Lmove_external_same_loc);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link did not exist\n");
+ PART_ERROR(H5Lmove_external_same_loc);
+ }
+
+ /* Verify the link doesn't currently exist in the target group */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_EXTERN_LINK_SAME_LOC_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ MOVE_LINK_TEST_EXTERN_LINK_SAME_LOC_NAME);
+ PART_ERROR(H5Lmove_external_same_loc);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" external link existed in target group before move!\n");
+ PART_ERROR(H5Lmove_external_same_loc);
+ }
+
+ /* Rename the link using H5L_SAME_LOC as the first parameter to H5Lmove */
+ if (H5Lmove(H5L_SAME_LOC, MOVE_LINK_TEST_EXTERN_LINK_NAME3, src_grp_id,
+ MOVE_LINK_TEST_EXTERN_LINK_SAME_LOC_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to move link '%s'\n", MOVE_LINK_TEST_EXTERN_LINK_NAME3);
+ PART_ERROR(H5Lmove_external_same_loc);
+ }
+
+ /* Ensure the link has been renamed */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_EXTERN_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ MOVE_LINK_TEST_EXTERN_LINK_NAME3);
+ PART_ERROR(H5Lmove_external_same_loc);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" original external link existed in target group after move!\n");
+ PART_ERROR(H5Lmove_external_same_loc);
+ }
+
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_EXTERN_LINK_SAME_LOC_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ MOVE_LINK_TEST_EXTERN_LINK_SAME_LOC_NAME);
+ PART_ERROR(H5Lmove_external_same_loc);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link did not exist after move!\n");
+ PART_ERROR(H5Lmove_external_same_loc);
+ }
+
+ /* Rename the link back using H5L_SAME_LOC as the third parameter to H5Lmove */
+ if (H5Lmove(src_grp_id, MOVE_LINK_TEST_EXTERN_LINK_SAME_LOC_NAME, H5L_SAME_LOC,
+ MOVE_LINK_TEST_EXTERN_LINK_NAME3, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to move link '%s'\n", MOVE_LINK_TEST_EXTERN_LINK_SAME_LOC_NAME);
+ PART_ERROR(H5Lmove_external_same_loc);
+ }
+
+ /* Verify the link has been renamed back */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_EXTERN_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ MOVE_LINK_TEST_EXTERN_LINK_NAME3);
+ PART_ERROR(H5Lmove_external_same_loc);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" original external link did not exist after moving the link back!\n");
+ PART_ERROR(H5Lmove_external_same_loc);
+ }
+
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_EXTERN_LINK_SAME_LOC_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if old external link '%s' exists\n",
+ MOVE_LINK_TEST_EXTERN_LINK_SAME_LOC_NAME);
+ PART_ERROR(H5Lmove_external_same_loc);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" renamed external link exists after moving the link back!\n");
+ PART_ERROR(H5Lmove_external_same_loc);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lmove_external_same_loc);
+#endif
+ }
+ PART_END(H5Lmove_external_same_loc);
+
+ H5E_BEGIN_TRY
+ {
+ H5Fclose(ext_file_id);
+ ext_file_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lmove_external_rename)
+ {
+ TESTING_2("H5Lmove to rename external link without moving it");
+#ifndef NO_EXTERNAL_LINKS
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Lmove_external_rename);
+ }
+
+ if (H5Fclose(ext_file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close file '%s'\n", ext_link_filename);
+ PART_ERROR(H5Lmove_external_rename);
+ }
+
+ /* Try to move an external link */
+ if (H5Lcreate_external(ext_link_filename, "/", src_grp_id, MOVE_LINK_TEST_EXTERN_LINK_NAME4,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", MOVE_LINK_TEST_EXTERN_LINK_NAME4);
+ PART_ERROR(H5Lmove_external_rename);
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_EXTERN_LINK_NAME4, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ MOVE_LINK_TEST_EXTERN_LINK_NAME4);
+ PART_ERROR(H5Lmove_external_rename);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link did not exist\n");
+ PART_ERROR(H5Lmove_external_rename);
+ }
+
+ /* Verify the renamed link doesn't currently exist in the source group */
+ if ((link_exists = H5Lexists(dst_grp_id, MOVE_LINK_TEST_EXTERN_LINK_NEW_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if renamed external link '%s' exists\n",
+ MOVE_LINK_TEST_EXTERN_LINK_NEW_NAME);
+ PART_ERROR(H5Lmove_external_rename);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" renamed external link existed in source group before move!\n");
+ PART_ERROR(H5Lmove_external_rename);
+ }
+
+ /* Rename the link */
+ if (H5Lmove(src_grp_id, MOVE_LINK_TEST_EXTERN_LINK_NAME4, src_grp_id,
+ MOVE_LINK_TEST_EXTERN_LINK_NEW_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to rename link '%s'\n", MOVE_LINK_TEST_EXTERN_LINK_NAME4);
+ PART_ERROR(H5Lmove_external_rename);
+ }
+
+ /* Verify the link has been renamed */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_EXTERN_LINK_NEW_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if renamed external link '%s' exists\n",
+ MOVE_LINK_TEST_EXTERN_LINK_NEW_NAME);
+ PART_ERROR(H5Lmove_external_rename);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" renamed external link did not exist\n");
+ PART_ERROR(H5Lmove_external_rename);
+ }
+
+ /* Verify the old link is gone */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_TEST_EXTERN_LINK_NAME4, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if old external link '%s' exists\n",
+ MOVE_LINK_TEST_EXTERN_LINK_NAME4);
+ PART_ERROR(H5Lmove_external_rename);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" old external link exists\n");
+ PART_ERROR(H5Lmove_external_rename);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lmove_external_rename);
+#endif
+ }
+ PART_END(H5Lmove_external_rename);
+
+ H5E_BEGIN_TRY
+ {
+ H5Fclose(ext_file_id);
+ ext_file_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lmove_ud_no_check)
+ {
+ TESTING_2("H5Lmove on user-defined link (moved link's properties not checked)");
+
+ /* TODO */
+
+ SKIPPED();
+ PART_EMPTY(H5Lmove_ud_no_check);
+ }
+ PART_END(H5Lmove_ud_no_check);
+
+ PART_BEGIN(H5Lmove_ud_check)
+ {
+ TESTING_2("H5Lmove on user-defined link (moved link's properties checked)");
+
+ /* TODO */
+
+ SKIPPED();
+ PART_EMPTY(H5Lmove_ud_check);
+ }
+ PART_END(H5Lmove_ud_check);
+
+ PART_BEGIN(H5Lmove_ud_same_loc)
+ {
+ TESTING_2("H5Lmove on user-defined link using H5L_SAME_LOC");
+
+ /* TODO */
+
+ SKIPPED();
+ PART_EMPTY(H5Lmove_ud_same_loc);
+ }
+ PART_END(H5Lmove_ud_same_loc);
+
+ PART_BEGIN(H5Lmove_ud_rename)
+ {
+ TESTING_2("H5Lmove to rename user-defined link without moving it");
+
+ /* TODO */
+
+ SKIPPED();
+ PART_EMPTY(H5Lmove_ud_rename);
+ }
+ PART_END(H5Lmove_ud_rename);
+ }
+ END_MULTIPART;
+
+ TESTING_2("test cleanup");
+
+ if (H5Gclose(dst_grp_id) < 0)
+ TEST_ERROR;
+ if (H5Gclose(src_grp_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
+ {
+ H5Gclose(dst_grp_id);
+ H5Gclose(src_grp_id);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ H5Fclose(ext_file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check that using H5Lmove to move links into a
+ * group which already contains links will cause the new links
+ * to have creation order values ranging from the target group's
+ * maximum link creation order value and upwards. This is to
+ * check that it is not possible to run into the situation where
+ * H5Lmove might cause a group to have two links with the same
+ * creation order values.
+ */
+static int
+test_move_links_into_group_with_links(void)
+{
+ H5L_info2_t link_info;
+ size_t i;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ hid_t src_grp_id = H5I_INVALID_HID, dst_grp_id = H5I_INVALID_HID;
+ hid_t gcpl_id = H5I_INVALID_HID;
+ char link_name[MOVE_LINK_INTO_GRP_WITH_LINKS_TEST_BUF_SIZE];
+
+ TESTING("H5Lmove adjusting creation order values for moved 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_LINK_MORE) || !(vol_cap_flags_g & H5VL_CAP_FLAG_HARD_LINKS) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_CREATION_ORDER)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, or basic or hard link, or creation order 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, MOVE_LINK_INTO_GRP_WITH_LINKS_TEST_SUBGROUP_NAME, H5P_DEFAULT,
+ H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create group '%s'\n", MOVE_LINK_INTO_GRP_WITH_LINKS_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ if ((gcpl_id = H5Pcreate(H5P_GROUP_CREATE)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create GCPL for link creation order tracking\n");
+ goto error;
+ }
+
+ if (H5Pset_link_creation_order(gcpl_id, H5P_CRT_ORDER_TRACKED) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't set link creation order tracking\n");
+ goto error;
+ }
+
+ if ((src_grp_id = H5Gcreate2(group_id, MOVE_LINK_INTO_GRP_WITH_LINKS_TEST_SRC_GRP_NAME, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create group '%s'\n", MOVE_LINK_INTO_GRP_WITH_LINKS_TEST_SRC_GRP_NAME);
+ goto error;
+ }
+
+ if ((dst_grp_id = H5Gcreate2(group_id, MOVE_LINK_INTO_GRP_WITH_LINKS_TEST_DST_GRP_NAME, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create group '%s'\n", MOVE_LINK_INTO_GRP_WITH_LINKS_TEST_DST_GRP_NAME);
+ goto error;
+ }
+
+ /* Create several links in the source group */
+ for (i = 0; i < MOVE_LINK_INTO_GRP_WITH_LINKS_TEST_NUM_LINKS; i++) {
+ snprintf(link_name, MOVE_LINK_INTO_GRP_WITH_LINKS_TEST_BUF_SIZE, "link_to_move%d", (int)i);
+
+ if (H5Lcreate_hard(src_grp_id, ".", src_grp_id, link_name, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create link '%s' in source group\n", link_name);
+ goto error;
+ }
+
+ /* Check the current creation order value for each link */
+ memset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info2(src_grp_id, link_name, &link_info, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve info for link '%s'\n", link_name);
+ goto error;
+ }
+
+ if (!link_info.corder_valid) {
+ H5_FAILED();
+ HDprintf(" creation order value for newly-created link '%s' was marked as not valid!\n",
+ link_name);
+ goto error;
+ }
+
+ if (link_info.corder != (int64_t)i) {
+ H5_FAILED();
+ HDprintf(" creation order value %lld for link '%s' did not match expected value %lld\n",
+ (long long)link_info.corder, link_name, (long long)i);
+ goto error;
+ }
+ }
+
+ /* Create several links in the destination group */
+ for (i = 0; i < MOVE_LINK_INTO_GRP_WITH_LINKS_TEST_NUM_LINKS; i++) {
+ snprintf(link_name, MOVE_LINK_INTO_GRP_WITH_LINKS_TEST_BUF_SIZE, "link%d", (int)i);
+
+ if (H5Lcreate_hard(dst_grp_id, ".", dst_grp_id, link_name, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create link '%s' in destination group\n", link_name);
+ goto error;
+ }
+ }
+
+ /* Move all the links from the source group into the destination group */
+ for (i = 0; i < MOVE_LINK_INTO_GRP_WITH_LINKS_TEST_NUM_LINKS; i++) {
+ snprintf(link_name, MOVE_LINK_INTO_GRP_WITH_LINKS_TEST_BUF_SIZE, "link_to_move%d", (int)i);
+
+ if (H5Lmove(src_grp_id, link_name, dst_grp_id, link_name, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to move link '%s' from source group to destination group\n", link_name);
+ goto error;
+ }
+
+ /* Check that the creation order value for each moved link has been adjusted */
+ memset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info2(dst_grp_id, link_name, &link_info, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve info for link '%s'\n", link_name);
+ goto error;
+ }
+
+ if (!link_info.corder_valid) {
+ H5_FAILED();
+ HDprintf(" creation order value for moved link '%s' was marked as not valid!\n", link_name);
+ goto error;
+ }
+
+ if (link_info.corder != (int64_t)(i + MOVE_LINK_INTO_GRP_WITH_LINKS_TEST_NUM_LINKS)) {
+ H5_FAILED();
+ HDprintf(" creation order value for moved link '%s' was not adjusted after move! It should "
+ "have been %lld but was %lld\n",
+ link_name, (long long)(i + MOVE_LINK_INTO_GRP_WITH_LINKS_TEST_NUM_LINKS),
+ (long long)link_info.corder);
+ goto error;
+ }
+ }
+
+ if (H5Pclose(gcpl_id) < 0)
+ TEST_ERROR;
+ if (H5Gclose(dst_grp_id) < 0)
+ TEST_ERROR;
+ if (H5Gclose(src_grp_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(dst_grp_id);
+ H5Gclose(src_grp_id);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check the behavior of moving a link across files.
+ * This should fail for hard links but succeed for soft and
+ * external links (and user-defined links of those types).
+ *
+ * TODO: Ideally, tests should be written to verify that the
+ * moved links retain their original properties.
+ */
+static int
+test_move_link_across_files(void)
+{
+ TESTING("link moving across files");
+
+ /* TODO */
+
+ SKIPPED();
+
+ return 0;
+}
+
+/*
+ * A test to check that a group's always-increasing
+ * maximum link creation order value gets reset once
+ * all the links have been moved out of the group.
+ */
+static int
+test_move_link_reset_grp_max_crt_order(void)
+{
+#ifndef NO_MAX_LINK_CRT_ORDER_RESET
+ H5G_info_t grp_info;
+ size_t i;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ hid_t src_grp_id = H5I_INVALID_HID, dst_grp_id = H5I_INVALID_HID;
+ hid_t gcpl_id = H5I_INVALID_HID;
+ char link_name[MOVE_LINK_RESET_MAX_CRT_ORDER_TEST_BUF_SIZE];
+#endif
+
+ TESTING("H5Lmove of all links out of group resets group's maximum link creation order value");
+
+ /* 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_LINK_MORE) || !(vol_cap_flags_g & H5VL_CAP_FLAG_HARD_LINKS) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_GROUP_MORE) || !(vol_cap_flags_g & H5VL_CAP_FLAG_CREATION_ORDER)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, more or hard link, or creation order aren't "
+ "supported with this connector\n");
+ return 0;
+ }
+
+#ifndef NO_MAX_LINK_CRT_ORDER_RESET
+ 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((gcpl_id = H5Pcreate(H5P_GROUP_CREATE)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create GCPL for link creation order tracking\n");
+ goto error;
+ }
+
+ if (H5Pset_link_creation_order(gcpl_id, H5P_CRT_ORDER_TRACKED) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't set link creation order tracking\n");
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, MOVE_LINK_RESET_MAX_CRT_ORDER_TEST_SUBGROUP_NAME, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container sub-group '%s'\n",
+ MOVE_LINK_RESET_MAX_CRT_ORDER_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ if ((src_grp_id = H5Gcreate2(group_id, MOVE_LINK_RESET_MAX_CRT_ORDER_TEST_SRC_GRP_NAME, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create group '%s'\n", MOVE_LINK_RESET_MAX_CRT_ORDER_TEST_SRC_GRP_NAME);
+ goto error;
+ }
+
+ if ((dst_grp_id = H5Gcreate2(group_id, MOVE_LINK_RESET_MAX_CRT_ORDER_TEST_DST_GRP_NAME, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create group '%s'\n", MOVE_LINK_RESET_MAX_CRT_ORDER_TEST_DST_GRP_NAME);
+ goto error;
+ }
+
+ /* Create several links inside the source group */
+ for (i = 0; i < MOVE_LINK_RESET_MAX_CRT_ORDER_TEST_NUM_LINKS; i++) {
+ snprintf(link_name, MOVE_LINK_RESET_MAX_CRT_ORDER_TEST_BUF_SIZE, "link%d", (int)i);
+
+ if (H5Lcreate_hard(src_grp_id, ".", src_grp_id, link_name, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s' in source group\n", link_name);
+ goto error;
+ }
+ }
+
+ /*
+ * Move links out of the source group and into the destination group, checking the
+ * source group's maximum creation order value each time.
+ */
+ for (i = 0; i < MOVE_LINK_RESET_MAX_CRT_ORDER_TEST_NUM_LINKS; i++) {
+ memset(&grp_info, 0, sizeof(grp_info));
+
+ if (H5Gget_info(src_grp_id, &grp_info) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve source group's info\n");
+ goto error;
+ }
+
+ if (grp_info.max_corder != MOVE_LINK_RESET_MAX_CRT_ORDER_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" source group's maximum creation order value got adjusted to %lld during link "
+ "moving; value should have remained at %lld\n",
+ (long long)grp_info.max_corder, MOVE_LINK_RESET_MAX_CRT_ORDER_TEST_NUM_LINKS);
+ goto error;
+ }
+
+ snprintf(link_name, MOVE_LINK_RESET_MAX_CRT_ORDER_TEST_BUF_SIZE, "link%d", (int)i);
+
+ if (H5Lmove(src_grp_id, link_name, dst_grp_id, link_name, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to move link '%s' to destination group\n", link_name);
+ goto error;
+ }
+ }
+
+ /*
+ * Ensure the source group's maximum creation order value has now
+ * reset to 0 after all the links have been moved out of it.
+ */
+ memset(&grp_info, 0, sizeof(grp_info));
+
+ if (H5Gget_info(src_grp_id, &grp_info) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve source group's info\n");
+ goto error;
+ }
+
+ if (grp_info.max_corder != 0) {
+ H5_FAILED();
+ HDprintf(" source group's maximum creation order value didn't reset to 0 after moving all links "
+ "out of it; value is still %lld\n",
+ (long long)grp_info.max_corder);
+ goto error;
+ }
+
+ /* For good measure, check that destination group's max. creation order value is as expected */
+ memset(&grp_info, 0, sizeof(grp_info));
+
+ if (H5Gget_info(dst_grp_id, &grp_info) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve destination group's info\n");
+ goto error;
+ }
+
+ if (grp_info.max_corder != MOVE_LINK_RESET_MAX_CRT_ORDER_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" destination group's maximum creation order value of %lld didn't match expected value "
+ "of %lld after moving all links into it\n",
+ (long long)grp_info.max_corder, MOVE_LINK_RESET_MAX_CRT_ORDER_TEST_NUM_LINKS);
+ goto error;
+ }
+
+ if (H5Pclose(gcpl_id) < 0)
+ TEST_ERROR;
+ if (H5Gclose(dst_grp_id) < 0)
+ TEST_ERROR;
+ if (H5Gclose(src_grp_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(dst_grp_id);
+ H5Gclose(src_grp_id);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+#else
+ SKIPPED();
+ return 0;
+#endif
+}
+
+/*
+ * A test to check that H5Lmove fails when it is given
+ * invalid parameters.
+ */
+static int
+test_move_link_invalid_params(void)
+{
+ htri_t link_exists;
+ 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 src_grp_id = H5I_INVALID_HID, dst_grp_id = H5I_INVALID_HID;
+ char ext_link_filename[H5_API_TEST_FILENAME_MAX_LENGTH];
+ hid_t ext_file_id = H5I_INVALID_HID;
+
+ TESTING_MULTIPART("H5Lmove 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_LINK_MORE) || !(vol_cap_flags_g & H5VL_CAP_FLAG_HARD_LINKS)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, more or hard 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, MOVE_LINK_INVALID_PARAMS_TEST_SUBGROUP_NAME, H5P_DEFAULT,
+ H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create group '%s'\n", MOVE_LINK_INVALID_PARAMS_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ if ((src_grp_id = H5Gcreate2(group_id, MOVE_LINK_INVALID_PARAMS_TEST_SRC_GROUP_NAME, H5P_DEFAULT,
+ H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create group '%s'\n", MOVE_LINK_INVALID_PARAMS_TEST_SRC_GROUP_NAME);
+ goto error;
+ }
+
+ if ((dst_grp_id = H5Gcreate2(group_id, MOVE_LINK_INVALID_PARAMS_TEST_DST_GROUP_NAME, H5P_DEFAULT,
+ H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create group '%s'\n", MOVE_LINK_INVALID_PARAMS_TEST_DST_GROUP_NAME);
+ goto error;
+ }
+
+ if (H5Lcreate_hard(group_id, ".", src_grp_id, MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME);
+ goto error;
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(src_grp_id, MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link did not exist\n");
+ goto error;
+ }
+
+ /* Verify the link doesn't currently exist in the target group */
+ if ((link_exists = H5Lexists(dst_grp_id, MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME);
+ goto error;
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link existed in target group before move!\n");
+ goto error;
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ PART_BEGIN(H5Lmove_invalid_src_loc_id)
+ {
+ TESTING_2("H5Lmove with an invalid source location ID");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lmove(H5I_INVALID_HID, MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, dst_grp_id,
+ MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lmove succeeded with an invalid source location ID!\n");
+ PART_ERROR(H5Lmove_invalid_src_loc_id);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lmove_invalid_src_loc_id);
+
+ PART_BEGIN(H5Lmove_invalid_src_name)
+ {
+ TESTING_2("H5Lmove with an invalid source name");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lmove(src_grp_id, NULL, dst_grp_id, MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME,
+ H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lmove succeeded with a NULL source name!\n");
+ PART_ERROR(H5Lmove_invalid_src_name);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lmove(src_grp_id, "", dst_grp_id, MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME,
+ H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lmove succeeded with an invalid source name of ''!\n");
+ PART_ERROR(H5Lmove_invalid_src_name);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lmove_invalid_src_name);
+
+ PART_BEGIN(H5Lmove_invalid_dst_loc_id)
+ {
+ TESTING_2("H5Lmove with an invalid destination location ID");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lmove(src_grp_id, MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, H5I_INVALID_HID,
+ MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lmove succeeded with an invalid destination location ID!\n");
+ PART_ERROR(H5Lmove_invalid_dst_loc_id);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lmove_invalid_dst_loc_id);
+
+ PART_BEGIN(H5Lmove_invalid_dst_name)
+ {
+ TESTING_2("H5Lmove with an invalid destination name");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lmove(src_grp_id, MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, dst_grp_id, NULL,
+ H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lmove succeeded with a NULL destination name!\n");
+ PART_ERROR(H5Lmove_invalid_dst_name);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lmove(src_grp_id, MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, dst_grp_id, "",
+ H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lmove succeeded with an invalid destination name of ''!\n");
+ PART_ERROR(H5Lmove_invalid_dst_name);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lmove_invalid_dst_name);
+
+ PART_BEGIN(H5Lmove_invalid_lcpl)
+ {
+ TESTING_2("H5Lmove with an invalid LCPL");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lmove(src_grp_id, MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, dst_grp_id,
+ MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, H5I_INVALID_HID, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lmove succeeded with an invalid LCPL!\n");
+ PART_ERROR(H5Lmove_invalid_lcpl);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lmove_invalid_lcpl);
+
+ PART_BEGIN(H5Lmove_invalid_lapl)
+ {
+ TESTING_2("H5Lmove with an invalid LAPL");
+#ifndef NO_INVALID_PROPERTY_LIST_TESTS
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lmove(src_grp_id, MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, dst_grp_id,
+ MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, H5P_DEFAULT, H5I_INVALID_HID);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lmove succeeded with an invalid LAPL!\n");
+ PART_ERROR(H5Lmove_invalid_lapl);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lmove_invalid_lapl);
+#endif
+ }
+ PART_END(H5Lmove_invalid_lapl);
+
+ PART_BEGIN(H5Lmove_existence)
+ {
+ TESTING_2("valid link existence in original group after previous invalid H5Lmove calls");
+
+ /* Verify the link hasn't been moved */
+ if ((link_exists =
+ H5Lexists(src_grp_id, MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lmove_existence);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link didn't exist in source group after invalid move!\n");
+ PART_ERROR(H5Lmove_existence);
+ }
+
+ if ((link_exists =
+ H5Lexists(dst_grp_id, MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lmove_existence);
+ }
+
+ if (link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link existed in target group after invalid move!\n");
+ PART_ERROR(H5Lmove_existence);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lmove_existence);
+
+ PART_BEGIN(H5Lmove_same_location)
+ {
+ TESTING_2("H5Lmove with an invalid same location");
+
+ /* Move a group within the file. Both of source and destination use
+ * H5L_SAME_LOC. Should fail. */
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lmove(H5L_SAME_LOC, MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, H5L_SAME_LOC,
+ MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lmove succeeded with an invalid same location!\n");
+ PART_ERROR(H5Lmove_same_location);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lmove_same_location);
+
+ PART_BEGIN(H5Lmove_across_files)
+ {
+ TESTING_2("H5Lmove into another file");
+
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Lmove_across_files);
+ }
+
+ /* Move a group across files. */
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lmove(src_grp_id, MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, ext_file_id,
+ MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lmove succeeded in moving a hard link across files!\n");
+ PART_ERROR(H5Lmove_across_files);
+ }
+
+ /* Ensure that original link still exists */
+ if ((link_exists =
+ H5Lexists(src_grp_id, MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if original link '%s' exists after invalid link move\n",
+ MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lmove_across_files);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" original link '%s' didn't exist after failed move!\n",
+ MOVE_LINK_INVALID_PARAMS_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lmove_across_files);
+ }
+
+ if (H5Fclose(ext_file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close a file!\n");
+ PART_ERROR(H5Lmove_across_files);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lmove_across_files);
+ }
+ END_MULTIPART;
+
+ TESTING_2("test cleanup");
+
+ if (H5Gclose(dst_grp_id) < 0)
+ TEST_ERROR;
+ if (H5Gclose(src_grp_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
+ {
+ H5Gclose(dst_grp_id);
+ H5Gclose(src_grp_id);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(ext_file_id);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check that a soft or external link's value can
+ * be retrieved by using H5Lget_val and H5Lget_val_by_idx.
+ */
+static int
+test_get_link_val(void)
+{
+ H5L_info2_t link_info;
+#ifndef NO_EXTERNAL_LINKS
+ const char *ext_link_filepath;
+ const char *ext_link_val;
+ unsigned ext_link_flags;
+#endif
+ htri_t link_exists;
+ size_t link_val_size;
+ char link_val_buf[GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE];
+ hid_t file_id = H5I_INVALID_HID, ext_file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ hid_t subgroup_id = H5I_INVALID_HID;
+ hid_t gcpl_id = H5I_INVALID_HID;
+#ifndef NO_EXTERNAL_LINKS
+ char ext_link_filename[H5_API_TEST_FILENAME_MAX_LENGTH];
+#endif
+
+ TESTING_MULTIPART("link value retrieval");
+
+ /* 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_LINK_MORE) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_CREATION_ORDER) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_EXTERNAL_LINKS) || !(vol_cap_flags_g & H5VL_CAP_FLAG_SOFT_LINKS)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, basic, more, soft, external link, 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((gcpl_id = H5Pcreate(H5P_GROUP_CREATE)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create GCPL for link creation order tracking\n");
+ goto error;
+ }
+
+ if (H5Pset_link_creation_order(gcpl_id, H5P_CRT_ORDER_TRACKED) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't set link creation order tracking\n");
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, GET_LINK_VAL_TEST_SUBGROUP_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n", GET_LINK_VAL_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ PART_BEGIN(H5Lget_val_soft)
+ {
+ const char *link_target = "/" LINK_TEST_GROUP_NAME "/" GET_LINK_VAL_TEST_SUBGROUP_NAME;
+
+ TESTING_2("H5Lget_val on soft link");
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_VAL_TEST_SUBGROUP1_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", GET_LINK_VAL_TEST_SUBGROUP1_NAME);
+ PART_ERROR(H5Lget_val_soft);
+ }
+
+ if (H5Lcreate_soft(link_target, subgroup_id, GET_LINK_VAL_TEST_SOFT_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_val_soft);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_VAL_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_val_soft);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_val_soft);
+ }
+
+ if (H5Lget_info2(subgroup_id, GET_LINK_VAL_TEST_SOFT_LINK_NAME, &link_info, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve soft link's info\n");
+ PART_ERROR(H5Lget_val_soft);
+ }
+
+ link_val_size = strlen(link_target) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link value size %zu did not match expected size of %zu\n", link_info.u.val_size,
+ link_val_size);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_increasing);
+ }
+
+ if (H5Lget_val(subgroup_id, GET_LINK_VAL_TEST_SOFT_LINK_NAME, link_val_buf,
+ GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get soft link value\n");
+ PART_ERROR(H5Lget_val_soft);
+ }
+
+ if (HDstrncmp(link_val_buf, link_target, link_val_size)) {
+ H5_FAILED();
+ HDprintf(" soft link value did not match\n");
+ PART_ERROR(H5Lget_val_soft);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", GET_LINK_VAL_TEST_SUBGROUP1_NAME);
+ PART_ERROR(H5Lget_val_soft);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_val_soft);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_val_external)
+ {
+#ifndef NO_EXTERNAL_LINKS
+ const char *ext_obj_name = "/";
+#endif
+
+ TESTING_2("H5Lget_val on external link");
+#ifndef NO_EXTERNAL_LINKS
+ HDmemset(&link_info, 0, sizeof(link_info));
+
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Lget_val_external);
+ }
+
+ if (H5Fclose(ext_file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close file '%s'\n", ext_link_filename);
+ PART_ERROR(H5Lget_val_external);
+ }
+
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_VAL_TEST_SUBGROUP2_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", GET_LINK_VAL_TEST_SUBGROUP2_NAME);
+ PART_ERROR(H5Lget_val_external);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, ext_obj_name, subgroup_id,
+ GET_LINK_VAL_TEST_EXT_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", GET_LINK_VAL_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_val_external);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_VAL_TEST_EXT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ GET_LINK_VAL_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_val_external);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist\n", GET_LINK_VAL_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_val_external);
+ }
+
+ if (H5Lget_info2(subgroup_id, GET_LINK_VAL_TEST_EXT_LINK_NAME, &link_info, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve external link's info\n");
+ PART_ERROR(H5Lget_val_external);
+ }
+
+ link_val_size = 1 + strlen(ext_link_filename) + 1 + strlen(ext_obj_name) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link value size %lld did not match expected size of %lld\n",
+ link_info.u.val_size, link_val_size);
+ PART_ERROR(H5Lget_val_external);
+ }
+
+ if (H5Lget_val(subgroup_id, GET_LINK_VAL_TEST_EXT_LINK_NAME, link_val_buf,
+ GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get external link value\n");
+ PART_ERROR(H5Lget_val_external);
+ }
+
+ if (H5Lunpack_elink_val(link_val_buf, link_info.u.val_size, &ext_link_flags, &ext_link_filepath,
+ &ext_link_val) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't unpack external link value buffer\n");
+ PART_ERROR(H5Lget_val_external);
+ }
+
+ if (HDstrncmp(ext_link_filepath, ext_link_filename, strlen(ext_link_filename) + 1)) {
+ H5_FAILED();
+ HDprintf(" external link target file '%s' did not match expected '%s'\n",
+ ext_link_filepath, ext_link_filename);
+ PART_ERROR(H5Lget_val_external);
+ }
+
+ if (HDstrncmp(ext_link_val, ext_obj_name, strlen(ext_obj_name) + 1)) {
+ H5_FAILED();
+ HDprintf(" external link value '%s' did not match expected '%s'\n", ext_link_val,
+ ext_obj_name);
+ PART_ERROR(H5Lget_val_external);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", GET_LINK_VAL_TEST_SUBGROUP2_NAME);
+ PART_ERROR(H5Lget_val_external);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lget_val_external);
+#endif
+ }
+ PART_END(H5Lget_val_external);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ H5Fclose(ext_file_id);
+ ext_file_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_val_ud)
+ {
+ TESTING_2("H5Lget_val on user-defined link");
+
+ /* TODO */
+
+ SKIPPED();
+ PART_EMPTY(H5Lget_val_ud);
+ }
+ PART_END(H5Lget_val_ud);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_val_by_idx_soft_crt_order_increasing)
+ {
+ const char *link_target_a = "/" LINK_TEST_GROUP_NAME "/" GET_LINK_VAL_TEST_SUBGROUP_NAME
+ "/" GET_LINK_VAL_TEST_SUBGROUP4_NAME "A";
+ const char *link_target_b = "/" LINK_TEST_GROUP_NAME "/" GET_LINK_VAL_TEST_SUBGROUP_NAME
+ "/" GET_LINK_VAL_TEST_SUBGROUP4_NAME "B";
+ const char *link_target_c = "/" LINK_TEST_GROUP_NAME "/" GET_LINK_VAL_TEST_SUBGROUP_NAME
+ "/" GET_LINK_VAL_TEST_SUBGROUP4_NAME "C";
+
+ TESTING_2("H5Lget_val_by_idx on soft link by creation order in increasing order");
+
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_VAL_TEST_SUBGROUP4_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", GET_LINK_VAL_TEST_SUBGROUP4_NAME);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_increasing);
+ }
+
+ /* Create several soft links */
+ if (H5Lcreate_soft(link_target_a, subgroup_id, GET_LINK_VAL_TEST_SOFT_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_increasing);
+ }
+
+ if (H5Lcreate_soft(link_target_b, subgroup_id, GET_LINK_VAL_TEST_SOFT_LINK_NAME2, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_increasing);
+ }
+
+ if (H5Lcreate_soft(link_target_c, subgroup_id, GET_LINK_VAL_TEST_SOFT_LINK_NAME3, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_increasing);
+ }
+
+ /* Verify the links exist */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_VAL_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_VAL_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_VAL_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_increasing);
+ }
+
+ /* Retrieve the info and value of each link in turn */
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 0, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve soft link's info at index %d\n", 0);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_increasing);
+ }
+
+ link_val_size = strlen(link_target_a) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link value size %zu for link at index %d did not match expected size of %zu\n",
+ link_info.u.val_size, 0, link_val_size);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_increasing);
+ }
+
+ HDmemset(link_val_buf, 0, GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE);
+ if (H5Lget_val_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 0, link_val_buf,
+ GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get soft link value at index %d\n", 0);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_increasing);
+ }
+
+ if (HDstrncmp(link_val_buf, link_target_a, strlen(link_target_a) + 1)) {
+ H5_FAILED();
+ HDprintf(" link value '%s' for link at index %d did not match expected value '%s'\n",
+ link_val_buf, 0, link_target_a);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_increasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 1, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve soft link's info at index %d\n", 1);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_increasing);
+ }
+
+ link_val_size = strlen(link_target_b) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link value size %zu for link at index %d did not match expected size of %zu\n",
+ link_info.u.val_size, 1, link_val_size);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_increasing);
+ }
+
+ HDmemset(link_val_buf, 0, GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE);
+ if (H5Lget_val_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 1, link_val_buf,
+ GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get soft link value at index %d\n", 1);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_increasing);
+ }
+
+ if (HDstrncmp(link_val_buf, link_target_b, strlen(link_target_b) + 1)) {
+ H5_FAILED();
+ HDprintf(" link value '%s' for link at index %d did not match expected value '%s'\n",
+ link_val_buf, 1, link_target_b);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_increasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 2, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve soft link's info at index %d\n", 2);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_increasing);
+ }
+
+ link_val_size = strlen(link_target_c) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link value size %zu for link at index %d did not match expected size of %zu\n",
+ link_info.u.val_size, 2, link_val_size);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_increasing);
+ }
+
+ HDmemset(link_val_buf, 0, GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE);
+ if (H5Lget_val_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 2, link_val_buf,
+ GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get soft link value at index %d\n", 2);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_increasing);
+ }
+
+ if (HDstrncmp(link_val_buf, link_target_c, strlen(link_target_c) + 1)) {
+ H5_FAILED();
+ HDprintf(" link value '%s' for link at index %d did not match expected value '%s'\n",
+ link_val_buf, 2, link_target_c);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_increasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", GET_LINK_VAL_TEST_SUBGROUP4_NAME);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_val_by_idx_soft_crt_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_val_by_idx_soft_crt_order_decreasing)
+ {
+ const char *link_target_a = "/" LINK_TEST_GROUP_NAME "/" GET_LINK_VAL_TEST_SUBGROUP_NAME
+ "/" GET_LINK_VAL_TEST_SUBGROUP5_NAME "A";
+ const char *link_target_b = "/" LINK_TEST_GROUP_NAME "/" GET_LINK_VAL_TEST_SUBGROUP_NAME
+ "/" GET_LINK_VAL_TEST_SUBGROUP5_NAME "B";
+ const char *link_target_c = "/" LINK_TEST_GROUP_NAME "/" GET_LINK_VAL_TEST_SUBGROUP_NAME
+ "/" GET_LINK_VAL_TEST_SUBGROUP5_NAME "C";
+
+ TESTING_2("H5Lget_val_by_idx on soft link by creation order in decreasing order");
+
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_VAL_TEST_SUBGROUP5_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", GET_LINK_VAL_TEST_SUBGROUP5_NAME);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_decreasing);
+ }
+
+ /* Create several soft links */
+ if (H5Lcreate_soft(link_target_a, subgroup_id, GET_LINK_VAL_TEST_SOFT_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (H5Lcreate_soft(link_target_b, subgroup_id, GET_LINK_VAL_TEST_SOFT_LINK_NAME2, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (H5Lcreate_soft(link_target_c, subgroup_id, GET_LINK_VAL_TEST_SOFT_LINK_NAME3, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_decreasing);
+ }
+
+ /* Verify the links exist */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_VAL_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_VAL_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_VAL_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_decreasing);
+ }
+
+ /* Retrieve the info and value of each link in turn */
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 2, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve soft link's info at index %d\n", 2);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_decreasing);
+ }
+
+ link_val_size = strlen(link_target_a) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link value size %zu for link at index %d did not match expected size of %zu\n",
+ link_info.u.val_size, 2, link_val_size);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_decreasing);
+ }
+
+ HDmemset(link_val_buf, 0, GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE);
+ if (H5Lget_val_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 2, link_val_buf,
+ GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get soft link value at index %d\n", 2);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (HDstrncmp(link_val_buf, link_target_a, strlen(link_target_a) + 1)) {
+ H5_FAILED();
+ HDprintf(" link value '%s' for link at index %d did not match expected value '%s'\n",
+ link_val_buf, 2, link_target_a);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_decreasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 1, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve soft link's info at index %d\n", 1);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_decreasing);
+ }
+
+ link_val_size = strlen(link_target_b) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link value size %zu for link at index %d did not match expected size of %zu\n",
+ link_info.u.val_size, 1, link_val_size);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_decreasing);
+ }
+
+ HDmemset(link_val_buf, 0, GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE);
+ if (H5Lget_val_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 1, link_val_buf,
+ GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get soft link value at index %d\n", 1);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (HDstrncmp(link_val_buf, link_target_b, strlen(link_target_b) + 1)) {
+ H5_FAILED();
+ HDprintf(" link value '%s' for link at index %d did not match expected value '%s'\n",
+ link_val_buf, 1, link_target_b);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_decreasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 0, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve soft link's info at index %d\n", 0);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_decreasing);
+ }
+
+ link_val_size = strlen(link_target_c) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link value size %zu for link at index %d did not match expected size of %zu\n",
+ link_info.u.val_size, 0, link_val_size);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_decreasing);
+ }
+
+ HDmemset(link_val_buf, 0, GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE);
+ if (H5Lget_val_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 0, link_val_buf,
+ GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get soft link value at index %d\n", 0);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (HDstrncmp(link_val_buf, link_target_c, strlen(link_target_c) + 1)) {
+ H5_FAILED();
+ HDprintf(" link value '%s' for link at index %d did not match expected value '%s'\n",
+ link_val_buf, 0, link_target_c);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", GET_LINK_VAL_TEST_SUBGROUP5_NAME);
+ PART_ERROR(H5Lget_val_by_idx_soft_crt_order_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_val_by_idx_soft_crt_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_val_by_idx_soft_name_order_increasing)
+ {
+ const char *link_target_a = "/" LINK_TEST_GROUP_NAME "/" GET_LINK_VAL_TEST_SUBGROUP_NAME
+ "/" GET_LINK_VAL_TEST_SUBGROUP6_NAME "A";
+ const char *link_target_b = "/" LINK_TEST_GROUP_NAME "/" GET_LINK_VAL_TEST_SUBGROUP_NAME
+ "/" GET_LINK_VAL_TEST_SUBGROUP6_NAME "B";
+ const char *link_target_c = "/" LINK_TEST_GROUP_NAME "/" GET_LINK_VAL_TEST_SUBGROUP_NAME
+ "/" GET_LINK_VAL_TEST_SUBGROUP6_NAME "C";
+
+ TESTING_2("H5Lget_val_by_idx on soft link by alphabetical order in increasing order");
+
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_VAL_TEST_SUBGROUP6_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", GET_LINK_VAL_TEST_SUBGROUP6_NAME);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_increasing);
+ }
+
+ /* Create several soft links */
+ if (H5Lcreate_soft(link_target_a, subgroup_id, GET_LINK_VAL_TEST_SOFT_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_increasing);
+ }
+
+ if (H5Lcreate_soft(link_target_b, subgroup_id, GET_LINK_VAL_TEST_SOFT_LINK_NAME2, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_increasing);
+ }
+
+ if (H5Lcreate_soft(link_target_c, subgroup_id, GET_LINK_VAL_TEST_SOFT_LINK_NAME3, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_increasing);
+ }
+
+ /* Verify the links exist */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_VAL_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_VAL_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_VAL_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_increasing);
+ }
+
+ /* Retrieve the info and value of each link in turn */
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 0, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve soft link's info at index %d\n", 0);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_increasing);
+ }
+
+ link_val_size = strlen(link_target_a) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link value size %zu for link at index %d did not match expected size of %zu\n",
+ link_info.u.val_size, 0, link_val_size);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_increasing);
+ }
+
+ HDmemset(link_val_buf, 0, GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE);
+ if (H5Lget_val_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 0, link_val_buf,
+ GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get soft link value at index %d\n", 0);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_increasing);
+ }
+
+ if (HDstrncmp(link_val_buf, link_target_a, strlen(link_target_a) + 1)) {
+ H5_FAILED();
+ HDprintf(" link value '%s' for link at index %d did not match expected value '%s'\n",
+ link_val_buf, 0, link_target_a);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_increasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 1, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve soft link's info at index %d\n", 1);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_increasing);
+ }
+
+ link_val_size = strlen(link_target_b) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link value size %zu for link at index %d did not match expected size of %zu\n",
+ link_info.u.val_size, 1, link_val_size);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_increasing);
+ }
+
+ HDmemset(link_val_buf, 0, GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE);
+ if (H5Lget_val_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 1, link_val_buf,
+ GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get soft link value at index %d\n", 1);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_increasing);
+ }
+
+ if (HDstrncmp(link_val_buf, link_target_b, strlen(link_target_b) + 1)) {
+ H5_FAILED();
+ HDprintf(" link value '%s' for link at index %d did not match expected value '%s'\n",
+ link_val_buf, 1, link_target_b);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_increasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 2, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve soft link's info at index %d\n", 2);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_increasing);
+ }
+
+ link_val_size = strlen(link_target_c) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link value size %zu for link at index %d did not match expected size of %zu\n",
+ link_info.u.val_size, 2, link_val_size);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_increasing);
+ }
+
+ HDmemset(link_val_buf, 0, GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE);
+ if (H5Lget_val_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 2, link_val_buf,
+ GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get soft link value at index %d\n", 2);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_increasing);
+ }
+
+ if (HDstrncmp(link_val_buf, link_target_c, strlen(link_target_c) + 1)) {
+ H5_FAILED();
+ HDprintf(" link value '%s' for link at index %d did not match expected value '%s'\n",
+ link_val_buf, 2, link_target_c);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_increasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", GET_LINK_VAL_TEST_SUBGROUP6_NAME);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_val_by_idx_soft_name_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_val_by_idx_soft_name_order_decreasing)
+ {
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ const char *link_target_a = "/" LINK_TEST_GROUP_NAME "/" GET_LINK_VAL_TEST_SUBGROUP_NAME
+ "/" GET_LINK_VAL_TEST_SUBGROUP7_NAME "A";
+ const char *link_target_b = "/" LINK_TEST_GROUP_NAME "/" GET_LINK_VAL_TEST_SUBGROUP_NAME
+ "/" GET_LINK_VAL_TEST_SUBGROUP7_NAME "B";
+ const char *link_target_c = "/" LINK_TEST_GROUP_NAME "/" GET_LINK_VAL_TEST_SUBGROUP_NAME
+ "/" GET_LINK_VAL_TEST_SUBGROUP7_NAME "C";
+#endif
+
+ TESTING_2("H5Lget_val_by_idx on soft link by alphabetical order in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_VAL_TEST_SUBGROUP7_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", GET_LINK_VAL_TEST_SUBGROUP7_NAME);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_decreasing);
+ }
+
+ /* Create several soft links */
+ if (H5Lcreate_soft(link_target_a, subgroup_id, GET_LINK_VAL_TEST_SOFT_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_decreasing);
+ }
+
+ if (H5Lcreate_soft(link_target_b, subgroup_id, GET_LINK_VAL_TEST_SOFT_LINK_NAME2, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_decreasing);
+ }
+
+ if (H5Lcreate_soft(link_target_c, subgroup_id, GET_LINK_VAL_TEST_SOFT_LINK_NAME3, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_decreasing);
+ }
+
+ /* Verify the links exist */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_VAL_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_VAL_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_VAL_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", GET_LINK_VAL_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_decreasing);
+ }
+
+ /* Retrieve the info and value of each link in turn */
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 2, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve soft link's info at index %lld\n", 2);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_decreasing);
+ }
+
+ link_val_size = strlen(link_target_a) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(
+ " link value size %lld for link at index %lld did not match expected size of %lld\n",
+ link_info.u.val_size, 2, link_val_size);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_decreasing);
+ }
+
+ HDmemset(link_val_buf, 0, GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE);
+ if (H5Lget_val_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 2, link_val_buf,
+ GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get soft link value at index %lld\n", 2);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_decreasing);
+ }
+
+ if (HDstrncmp(link_val_buf, link_target_a, strlen(link_target_a) + 1)) {
+ H5_FAILED();
+ HDprintf(" link value '%s' for link at index %lld did not match expected value '%s'\n",
+ link_val_buf, 2, link_target_a);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_decreasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 1, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve soft link's info at index %lld\n", 1);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_decreasing);
+ }
+
+ link_val_size = strlen(link_target_b) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(
+ " link value size %lld for link at index %lld did not match expected size of %lld\n",
+ link_info.u.val_size, 1, link_val_size);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_decreasing);
+ }
+
+ HDmemset(link_val_buf, 0, GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE);
+ if (H5Lget_val_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 1, link_val_buf,
+ GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get soft link value at index %lld\n", 1);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_decreasing);
+ }
+
+ if (HDstrncmp(link_val_buf, link_target_b, strlen(link_target_b) + 1)) {
+ H5_FAILED();
+ HDprintf(" link value '%s' for link at index %lld did not match expected value '%s'\n",
+ link_val_buf, 1, link_target_b);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_decreasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 0, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve soft link's info at index %lld\n", 0);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_decreasing);
+ }
+
+ link_val_size = strlen(link_target_c) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(
+ " link value size %lld for link at index %lld did not match expected size of %lld\n",
+ link_info.u.val_size, 0, link_val_size);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_decreasing);
+ }
+
+ HDmemset(link_val_buf, 0, GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE);
+ if (H5Lget_val_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 0, link_val_buf,
+ GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get soft link value at index %lld\n", 0);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_decreasing);
+ }
+
+ if (HDstrncmp(link_val_buf, link_target_c, strlen(link_target_c) + 1)) {
+ H5_FAILED();
+ HDprintf(" link value '%s' for link at index %lld did not match expected value '%s'\n",
+ link_val_buf, 0, link_target_c);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_decreasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", GET_LINK_VAL_TEST_SUBGROUP7_NAME);
+ PART_ERROR(H5Lget_val_by_idx_soft_name_order_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lget_val_by_idx_soft_name_order_decreasing);
+#endif
+ }
+ PART_END(H5Lget_val_by_idx_soft_name_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_val_by_idx_external_crt_order_increasing)
+ {
+#ifndef NO_EXTERNAL_LINKS
+ const char *ext_obj_name_a = "/A";
+ const char *ext_obj_name_b = "/B";
+ const char *ext_obj_name_c = "/C";
+#endif
+
+ TESTING_2("H5Lget_val_by_idx on external link by creation order in increasing order");
+#ifndef NO_EXTERNAL_LINKS
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ if (H5Fclose(ext_file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close file '%s'\n", ext_link_filename);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_VAL_TEST_SUBGROUP8_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", GET_LINK_VAL_TEST_SUBGROUP8_NAME);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ /* Create several external links */
+ if (H5Lcreate_external(ext_link_filename, ext_obj_name_a, subgroup_id,
+ GET_LINK_VAL_TEST_EXT_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", GET_LINK_VAL_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, ext_obj_name_b, subgroup_id,
+ GET_LINK_VAL_TEST_EXT_LINK_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", GET_LINK_VAL_TEST_EXT_LINK_NAME2);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, ext_obj_name_c, subgroup_id,
+ GET_LINK_VAL_TEST_EXT_LINK_NAME3, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", GET_LINK_VAL_TEST_EXT_LINK_NAME3);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ /* Verify the links exist */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_VAL_TEST_EXT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", GET_LINK_VAL_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", GET_LINK_VAL_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_VAL_TEST_EXT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", GET_LINK_VAL_TEST_EXT_LINK_NAME2);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", GET_LINK_VAL_TEST_EXT_LINK_NAME2);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_VAL_TEST_EXT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", GET_LINK_VAL_TEST_EXT_LINK_NAME3);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", GET_LINK_VAL_TEST_EXT_LINK_NAME3);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ /* Retrieve the info and value of each link in turn */
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 0, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve external link's info at index %lld\n", 0);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ link_val_size = 1 + strlen(ext_link_filename) + 1 + strlen(ext_obj_name_a) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(
+ " link value size %lld for link at index %lld did not match expected size of %lld\n",
+ link_info.u.val_size, 0, link_val_size);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ HDmemset(link_val_buf, 0, GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE);
+ if (H5Lget_val_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 0, link_val_buf,
+ GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get external link value at index %lld\n", 0);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ if (H5Lunpack_elink_val(link_val_buf, link_info.u.val_size, &ext_link_flags, &ext_link_filepath,
+ &ext_link_val) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't unpack external link value buffer\n");
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ if (HDstrncmp(ext_link_filepath, ext_link_filename, strlen(ext_link_filename) + 1)) {
+ H5_FAILED();
+ HDprintf(" external link target file '%s' did not match expected '%s'\n",
+ ext_link_filepath, ext_link_filename);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ if (HDstrncmp(ext_link_val, ext_obj_name_a, strlen(ext_obj_name_a) + 1)) {
+ H5_FAILED();
+ HDprintf(" external link value '%s' did not match expected '%s'\n", ext_link_val,
+ ext_obj_name_a);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 1, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve external link's info at index %lld\n", 1);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ link_val_size = 1 + strlen(ext_link_filename) + 1 + strlen(ext_obj_name_b) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(
+ " link value size %lld for link at index %lld did not match expected size of %lld\n",
+ link_info.u.val_size, 1, link_val_size);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ HDmemset(link_val_buf, 0, GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE);
+ if (H5Lget_val_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 1, link_val_buf,
+ GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get external link value at index %lld\n", 1);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ if (H5Lunpack_elink_val(link_val_buf, link_info.u.val_size, &ext_link_flags, &ext_link_filepath,
+ &ext_link_val) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't unpack external link value buffer\n");
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ if (HDstrncmp(ext_link_filepath, ext_link_filename, strlen(ext_link_filename) + 1)) {
+ H5_FAILED();
+ HDprintf(" external link target file '%s' did not match expected '%s'\n",
+ ext_link_filepath, ext_link_filename);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ if (HDstrncmp(ext_link_val, ext_obj_name_b, strlen(ext_obj_name_b) + 1)) {
+ H5_FAILED();
+ HDprintf(" external link value '%s' did not match expected '%s'\n", ext_link_val,
+ ext_obj_name_b);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 2, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve external link's info at index %lld\n", 2);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ link_val_size = 1 + strlen(ext_link_filename) + 1 + strlen(ext_obj_name_c) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(
+ " link value size %lld for link at index %lld did not match expected size of %lld\n",
+ link_info.u.val_size, 2, link_val_size);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ HDmemset(link_val_buf, 0, GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE);
+ if (H5Lget_val_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 2, link_val_buf,
+ GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get external link value at index %lld\n", 2);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ if (H5Lunpack_elink_val(link_val_buf, link_info.u.val_size, &ext_link_flags, &ext_link_filepath,
+ &ext_link_val) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't unpack external link value buffer\n");
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ if (HDstrncmp(ext_link_filepath, ext_link_filename, strlen(ext_link_filename) + 1)) {
+ H5_FAILED();
+ HDprintf(" external link target file '%s' did not match expected '%s'\n",
+ ext_link_filepath, ext_link_filename);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ if (HDstrncmp(ext_link_val, ext_obj_name_c, strlen(ext_obj_name_c) + 1)) {
+ H5_FAILED();
+ HDprintf(" external link value '%s' did not match expected '%s'\n", ext_link_val,
+ ext_obj_name_c);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", GET_LINK_VAL_TEST_SUBGROUP8_NAME);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_increasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lget_val_by_idx_external_crt_order_increasing);
+#endif
+ }
+ PART_END(H5Lget_val_by_idx_external_crt_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ H5Fclose(ext_file_id);
+ ext_file_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_val_by_idx_external_crt_order_decreasing)
+ {
+#ifndef NO_EXTERNAL_LINKS
+ const char *ext_obj_name_a = "/A";
+ const char *ext_obj_name_b = "/B";
+ const char *ext_obj_name_c = "/C";
+#endif
+
+ TESTING_2("H5Lget_val_by_idx on external link by creation order in decreasing order");
+#ifndef NO_EXTERNAL_LINKS
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ if (H5Fclose(ext_file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close file '%s'\n", ext_link_filename);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_VAL_TEST_SUBGROUP9_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", GET_LINK_VAL_TEST_SUBGROUP9_NAME);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ /* Create several external links */
+ if (H5Lcreate_external(ext_link_filename, ext_obj_name_a, subgroup_id,
+ GET_LINK_VAL_TEST_EXT_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", GET_LINK_VAL_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, ext_obj_name_b, subgroup_id,
+ GET_LINK_VAL_TEST_EXT_LINK_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", GET_LINK_VAL_TEST_EXT_LINK_NAME2);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, ext_obj_name_c, subgroup_id,
+ GET_LINK_VAL_TEST_EXT_LINK_NAME3, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", GET_LINK_VAL_TEST_EXT_LINK_NAME3);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ /* Verify the links exist */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_VAL_TEST_EXT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", GET_LINK_VAL_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", GET_LINK_VAL_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_VAL_TEST_EXT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", GET_LINK_VAL_TEST_EXT_LINK_NAME2);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", GET_LINK_VAL_TEST_EXT_LINK_NAME2);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_VAL_TEST_EXT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", GET_LINK_VAL_TEST_EXT_LINK_NAME3);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", GET_LINK_VAL_TEST_EXT_LINK_NAME3);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ /* Retrieve the info and value of each link in turn */
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 2, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve external link's info at index %lld\n", 2);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ link_val_size = 1 + strlen(ext_link_filename) + 1 + strlen(ext_obj_name_a) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(
+ " link value size %lld for link at index %lld did not match expected size of %lld\n",
+ link_info.u.val_size, 2, link_val_size);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ HDmemset(link_val_buf, 0, GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE);
+ if (H5Lget_val_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 2, link_val_buf,
+ GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get external link value at index %lld\n", 2);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ if (H5Lunpack_elink_val(link_val_buf, link_info.u.val_size, &ext_link_flags, &ext_link_filepath,
+ &ext_link_val) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't unpack external link value buffer\n");
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ if (HDstrncmp(ext_link_filepath, ext_link_filename, strlen(ext_link_filename) + 1)) {
+ H5_FAILED();
+ HDprintf(" external link target file '%s' did not match expected '%s'\n",
+ ext_link_filepath, ext_link_filename);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ if (HDstrncmp(ext_link_val, ext_obj_name_a, strlen(ext_obj_name_a) + 1)) {
+ H5_FAILED();
+ HDprintf(" external link value '%s' did not match expected '%s'\n", ext_link_val,
+ ext_obj_name_a);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 1, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve external link's info at index %lld\n", 1);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ link_val_size = 1 + strlen(ext_link_filename) + 1 + strlen(ext_obj_name_b) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(
+ " link value size %lld for link at index %lld did not match expected size of %lld\n",
+ link_info.u.val_size, 1, link_val_size);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ HDmemset(link_val_buf, 0, GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE);
+ if (H5Lget_val_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 1, link_val_buf,
+ GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get external link value at index %lld\n", 1);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ if (H5Lunpack_elink_val(link_val_buf, link_info.u.val_size, &ext_link_flags, &ext_link_filepath,
+ &ext_link_val) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't unpack external link value buffer\n");
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ if (HDstrncmp(ext_link_filepath, ext_link_filename, strlen(ext_link_filename) + 1)) {
+ H5_FAILED();
+ HDprintf(" external link target file '%s' did not match expected '%s'\n",
+ ext_link_filepath, ext_link_filename);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ if (HDstrncmp(ext_link_val, ext_obj_name_b, strlen(ext_obj_name_b) + 1)) {
+ H5_FAILED();
+ HDprintf(" external link value '%s' did not match expected '%s'\n", ext_link_val,
+ ext_obj_name_b);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 0, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve external link's info at index %lld\n", 0);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ link_val_size = 1 + strlen(ext_link_filename) + 1 + strlen(ext_obj_name_c) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(
+ " link value size %lld for link at index %lld did not match expected size of %lld\n",
+ link_info.u.val_size, 0, link_val_size);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ HDmemset(link_val_buf, 0, GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE);
+ if (H5Lget_val_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 0, link_val_buf,
+ GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get external link value at index %lld\n", 0);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ if (H5Lunpack_elink_val(link_val_buf, link_info.u.val_size, &ext_link_flags, &ext_link_filepath,
+ &ext_link_val) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't unpack external link value buffer\n");
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ if (HDstrncmp(ext_link_filepath, ext_link_filename, strlen(ext_link_filename) + 1)) {
+ H5_FAILED();
+ HDprintf(" external link target file '%s' did not match expected '%s'\n",
+ ext_link_filepath, ext_link_filename);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ if (HDstrncmp(ext_link_val, ext_obj_name_c, strlen(ext_obj_name_c) + 1)) {
+ H5_FAILED();
+ HDprintf(" external link value '%s' did not match expected '%s'\n", ext_link_val,
+ ext_obj_name_c);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", GET_LINK_VAL_TEST_SUBGROUP9_NAME);
+ PART_ERROR(H5Lget_val_by_idx_external_crt_order_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lget_val_by_idx_external_crt_order_decreasing);
+#endif
+ }
+ PART_END(H5Lget_val_by_idx_external_crt_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ H5Fclose(ext_file_id);
+ ext_file_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_val_by_idx_external_name_order_increasing)
+ {
+#ifndef NO_EXTERNAL_LINKS
+ const char *ext_obj_name_a = "/A";
+ const char *ext_obj_name_b = "/B";
+ const char *ext_obj_name_c = "/C";
+#endif
+
+ TESTING_2("H5Lget_val_by_idx on external link by alphabetical order in increasing order");
+#ifndef NO_EXTERNAL_LINKS
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ if (H5Fclose(ext_file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close file '%s'\n", ext_link_filename);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_VAL_TEST_SUBGROUP10_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", GET_LINK_VAL_TEST_SUBGROUP10_NAME);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ /* Create several external links */
+ if (H5Lcreate_external(ext_link_filename, ext_obj_name_a, subgroup_id,
+ GET_LINK_VAL_TEST_EXT_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", GET_LINK_VAL_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, ext_obj_name_b, subgroup_id,
+ GET_LINK_VAL_TEST_EXT_LINK_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", GET_LINK_VAL_TEST_EXT_LINK_NAME2);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, ext_obj_name_c, subgroup_id,
+ GET_LINK_VAL_TEST_EXT_LINK_NAME3, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", GET_LINK_VAL_TEST_EXT_LINK_NAME3);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ /* Verify the links exist */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_VAL_TEST_EXT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", GET_LINK_VAL_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", GET_LINK_VAL_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_VAL_TEST_EXT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", GET_LINK_VAL_TEST_EXT_LINK_NAME2);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", GET_LINK_VAL_TEST_EXT_LINK_NAME2);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_VAL_TEST_EXT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", GET_LINK_VAL_TEST_EXT_LINK_NAME3);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", GET_LINK_VAL_TEST_EXT_LINK_NAME3);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ /* Retrieve the info and value of each link in turn */
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 0, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve external link's info at index %lld\n", 0);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ link_val_size = 1 + strlen(ext_link_filename) + 1 + strlen(ext_obj_name_a) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(
+ " link value size %lld for link at index %lld did not match expected size of %lld\n",
+ link_info.u.val_size, 0, link_val_size);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ HDmemset(link_val_buf, 0, GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE);
+ if (H5Lget_val_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 0, link_val_buf,
+ GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get external link value at index %lld\n", 0);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ if (H5Lunpack_elink_val(link_val_buf, link_info.u.val_size, &ext_link_flags, &ext_link_filepath,
+ &ext_link_val) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't unpack external link value buffer\n");
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ if (HDstrncmp(ext_link_filepath, ext_link_filename, strlen(ext_link_filename) + 1)) {
+ H5_FAILED();
+ HDprintf(" external link target file '%s' did not match expected '%s'\n",
+ ext_link_filepath, ext_link_filename);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ if (HDstrncmp(ext_link_val, ext_obj_name_a, strlen(ext_obj_name_a) + 1)) {
+ H5_FAILED();
+ HDprintf(" external link value '%s' did not match expected '%s'\n", ext_link_val,
+ ext_obj_name_a);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 1, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve external link's info at index %lld\n", 1);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ link_val_size = 1 + strlen(ext_link_filename) + 1 + strlen(ext_obj_name_b) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(
+ " link value size %lld for link at index %lld did not match expected size of %lld\n",
+ link_info.u.val_size, 1, link_val_size);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ HDmemset(link_val_buf, 0, GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE);
+ if (H5Lget_val_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 1, link_val_buf,
+ GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get external link value at index %lld\n", 1);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ if (H5Lunpack_elink_val(link_val_buf, link_info.u.val_size, &ext_link_flags, &ext_link_filepath,
+ &ext_link_val) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't unpack external link value buffer\n");
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ if (HDstrncmp(ext_link_filepath, ext_link_filename, strlen(ext_link_filename) + 1)) {
+ H5_FAILED();
+ HDprintf(" external link target file '%s' did not match expected '%s'\n",
+ ext_link_filepath, ext_link_filename);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ if (HDstrncmp(ext_link_val, ext_obj_name_b, strlen(ext_obj_name_b) + 1)) {
+ H5_FAILED();
+ HDprintf(" external link value '%s' did not match expected '%s'\n", ext_link_val,
+ ext_obj_name_b);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 2, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve external link's info at index %lld\n", 2);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ link_val_size = 1 + strlen(ext_link_filename) + 1 + strlen(ext_obj_name_c) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(
+ " link value size %lld for link at index %lld did not match expected size of %lld\n",
+ link_info.u.val_size, 2, link_val_size);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ HDmemset(link_val_buf, 0, GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE);
+ if (H5Lget_val_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 2, link_val_buf,
+ GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get external link value at index %lld\n", 2);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ if (H5Lunpack_elink_val(link_val_buf, link_info.u.val_size, &ext_link_flags, &ext_link_filepath,
+ &ext_link_val) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't unpack external link value buffer\n");
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ if (HDstrncmp(ext_link_filepath, ext_link_filename, strlen(ext_link_filename) + 1)) {
+ H5_FAILED();
+ HDprintf(" external link target file '%s' did not match expected '%s'\n",
+ ext_link_filepath, ext_link_filename);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ if (HDstrncmp(ext_link_val, ext_obj_name_c, strlen(ext_obj_name_c) + 1)) {
+ H5_FAILED();
+ HDprintf(" external link value '%s' did not match expected '%s'\n", ext_link_val,
+ ext_obj_name_c);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", GET_LINK_VAL_TEST_SUBGROUP10_NAME);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_increasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lget_val_by_idx_external_name_order_increasing);
+#endif
+ }
+ PART_END(H5Lget_val_by_idx_external_name_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ H5Fclose(ext_file_id);
+ ext_file_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_val_by_idx_external_name_order_decreasing)
+ {
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ const char *ext_obj_name_a = "/A";
+ const char *ext_obj_name_b = "/B";
+ const char *ext_obj_name_c = "/C";
+#endif
+
+ TESTING_2("H5Lget_val_by_idx on external link by alphabetical order in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ if (H5Fclose(ext_file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close file '%s'\n", ext_link_filename);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_VAL_TEST_SUBGROUP11_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", GET_LINK_VAL_TEST_SUBGROUP11_NAME);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ /* Create several external links */
+ if (H5Lcreate_external(ext_link_filename, ext_obj_name_a, subgroup_id,
+ GET_LINK_VAL_TEST_EXT_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", GET_LINK_VAL_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, ext_obj_name_b, subgroup_id,
+ GET_LINK_VAL_TEST_EXT_LINK_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", GET_LINK_VAL_TEST_EXT_LINK_NAME2);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, ext_obj_name_c, subgroup_id,
+ GET_LINK_VAL_TEST_EXT_LINK_NAME3, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", GET_LINK_VAL_TEST_EXT_LINK_NAME3);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ /* Verify the links exist */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_VAL_TEST_EXT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", GET_LINK_VAL_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", GET_LINK_VAL_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_VAL_TEST_EXT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", GET_LINK_VAL_TEST_EXT_LINK_NAME2);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", GET_LINK_VAL_TEST_EXT_LINK_NAME2);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_VAL_TEST_EXT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", GET_LINK_VAL_TEST_EXT_LINK_NAME3);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", GET_LINK_VAL_TEST_EXT_LINK_NAME3);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ /* Retrieve the info and value of each link in turn */
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 2, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve external link's info at index %lld\n", 2);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ link_val_size = 1 + strlen(ext_link_filename) + 1 + strlen(ext_obj_name_a) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(
+ " link value size %lld for link at index %lld did not match expected size of %lld\n",
+ link_info.u.val_size, 2, link_val_size);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ HDmemset(link_val_buf, 0, GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE);
+ if (H5Lget_val_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 2, link_val_buf,
+ GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get external link value at index %lld\n", 2);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ if (H5Lunpack_elink_val(link_val_buf, link_info.u.val_size, &ext_link_flags, &ext_link_filepath,
+ &ext_link_val) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't unpack external link value buffer\n");
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ if (HDstrncmp(ext_link_filepath, ext_link_filename, strlen(ext_link_filename) + 1)) {
+ H5_FAILED();
+ HDprintf(" external link target file '%s' did not match expected '%s'\n",
+ ext_link_filepath, ext_link_filename);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ if (HDstrncmp(ext_link_val, ext_obj_name_a, strlen(ext_obj_name_a) + 1)) {
+ H5_FAILED();
+ HDprintf(" external link value '%s' did not match expected '%s'\n", ext_link_val,
+ ext_obj_name_a);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 1, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve external link's info at index %lld\n", 1);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ link_val_size = 1 + strlen(ext_link_filename) + 1 + strlen(ext_obj_name_b) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(
+ " link value size %lld for link at index %lld did not match expected size of %lld\n",
+ link_info.u.val_size, 1, link_val_size);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ HDmemset(link_val_buf, 0, GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE);
+ if (H5Lget_val_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 1, link_val_buf,
+ GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get external link value at index %lld\n", 1);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ if (H5Lunpack_elink_val(link_val_buf, link_info.u.val_size, &ext_link_flags, &ext_link_filepath,
+ &ext_link_val) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't unpack external link value buffer\n");
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ if (HDstrncmp(ext_link_filepath, ext_link_filename, strlen(ext_link_filename) + 1)) {
+ H5_FAILED();
+ HDprintf(" external link target file '%s' did not match expected '%s'\n",
+ ext_link_filepath, ext_link_filename);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ if (HDstrncmp(ext_link_val, ext_obj_name_b, strlen(ext_obj_name_b) + 1)) {
+ H5_FAILED();
+ HDprintf(" external link value '%s' did not match expected '%s'\n", ext_link_val,
+ ext_obj_name_b);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 0, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve external link's info at index %lld\n", 0);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ link_val_size = 1 + strlen(ext_link_filename) + 1 + strlen(ext_obj_name_c) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(
+ " link value size %lld for link at index %lld did not match expected size of %lld\n",
+ link_info.u.val_size, 0, link_val_size);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ HDmemset(link_val_buf, 0, GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE);
+ if (H5Lget_val_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 0, link_val_buf,
+ GET_LINK_VAL_TEST_LINK_VAL_BUF_SIZE, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get external link value at index %lld\n", 0);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ if (H5Lunpack_elink_val(link_val_buf, link_info.u.val_size, &ext_link_flags, &ext_link_filepath,
+ &ext_link_val) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't unpack external link value buffer\n");
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ if (HDstrncmp(ext_link_filepath, ext_link_filename, strlen(ext_link_filename) + 1)) {
+ H5_FAILED();
+ HDprintf(" external link target file '%s' did not match expected '%s'\n",
+ ext_link_filepath, ext_link_filename);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ if (HDstrncmp(ext_link_val, ext_obj_name_c, strlen(ext_obj_name_c) + 1)) {
+ H5_FAILED();
+ HDprintf(" external link value '%s' did not match expected '%s'\n", ext_link_val,
+ ext_obj_name_c);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", GET_LINK_VAL_TEST_SUBGROUP11_NAME);
+ PART_ERROR(H5Lget_val_by_idx_external_name_order_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lget_val_by_idx_external_name_order_decreasing);
+#endif
+ }
+ PART_END(H5Lget_val_by_idx_external_name_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ H5Fclose(ext_file_id);
+ ext_file_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_val_by_idx_ud_crt_order_increasing)
+ {
+ TESTING_2("H5Lget_val_by_idx on user-defined link by creation order in increasing order");
+
+ SKIPPED();
+ PART_EMPTY(H5Lget_val_by_idx_ud_crt_order_increasing);
+ }
+ PART_END(H5Lget_val_by_idx_ud_crt_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_val_by_idx_ud_crt_order_decreasing)
+ {
+ TESTING_2("H5Lget_val_by_idx on user-defined link by creation order in decreasing order");
+
+ SKIPPED();
+ PART_EMPTY(H5Lget_val_by_idx_ud_crt_order_decreasing);
+ }
+ PART_END(H5Lget_val_by_idx_ud_crt_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_val_by_idx_ud_name_order_increasing)
+ {
+ TESTING_2("H5Lget_val_by_idx on user-defined link by alphabetical order in increasing order");
+
+ SKIPPED();
+ PART_EMPTY(H5Lget_val_by_idx_ud_name_order_increasing);
+ }
+ PART_END(H5Lget_val_by_idx_ud_name_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_val_by_idx_ud_name_order_decreasing)
+ {
+ TESTING_2("H5Lget_val_by_idx on user-defined link by alphabetical order in decreasing order");
+
+ SKIPPED();
+ PART_EMPTY(H5Lget_val_by_idx_ud_name_order_decreasing);
+ }
+ PART_END(H5Lget_val_by_idx_ud_name_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+ }
+ 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(subgroup_id);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(ext_file_id);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check that a soft or external link's value can't be
+ * retrieved when H5Lget_val(_by_idx) is passed invalid parameters.
+ */
+static int
+test_get_link_val_invalid_params(void)
+{
+ H5L_info2_t link_info;
+ htri_t link_exists;
+ herr_t err_ret = -1;
+ size_t link_val_buf_size = 0;
+ char *link_val_buf = NULL;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ hid_t gcpl_id = H5I_INVALID_HID;
+
+ TESTING_MULTIPART("link value retrieval 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_LINK_MORE) ||
+ !(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, basic, more, soft, external link, 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_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, GET_LINK_VAL_INVALID_PARAMS_TEST_GROUP_NAME, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ GET_LINK_VAL_INVALID_PARAMS_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" GET_LINK_VAL_INVALID_PARAMS_TEST_GROUP_NAME, group_id,
+ GET_LINK_VAL_INVALID_PARAMS_TEST_SOFT_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", GET_LINK_VAL_INVALID_PARAMS_TEST_SOFT_LINK_NAME);
+ goto error;
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(group_id, GET_LINK_VAL_INVALID_PARAMS_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n",
+ GET_LINK_VAL_INVALID_PARAMS_TEST_SOFT_LINK_NAME);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link did not exist\n");
+ goto error;
+ }
+
+ link_val_buf_size = 100;
+ if (NULL == (link_val_buf = (char *)HDmalloc(link_val_buf_size))) {
+ H5_FAILED();
+ HDprintf(" couldn't allocate buffer for storing link value\n");
+ goto error;
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ PART_BEGIN(H5Lget_val_invalid_loc_id)
+ {
+ TESTING_2("H5Lget_val with an invalid location ID");
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lget_val(H5I_INVALID_HID, GET_LINK_VAL_INVALID_PARAMS_TEST_SOFT_LINK_NAME,
+ link_val_buf, link_val_buf_size, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_val succeeded with an invalid location ID\n");
+ PART_ERROR(H5Lget_val_invalid_loc_id);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_val_invalid_loc_id);
+
+ PART_BEGIN(H5Lget_val_invalid_link_name)
+ {
+ TESTING_2("H5Lget_val with an invalid link name");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lget_val(group_id, NULL, link_val_buf, link_val_buf_size, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_val succeeded with a NULL link name\n");
+ PART_ERROR(H5Lget_val_invalid_link_name);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lget_val(group_id, "", link_val_buf, link_val_buf_size, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_val succeeded with an invalid link name of ''\n");
+ PART_ERROR(H5Lget_val_invalid_link_name);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_val_invalid_link_name);
+
+ PART_BEGIN(H5Lget_val_invalid_lapl)
+ {
+ TESTING_2("H5Lget_val with an invalid LAPL");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lget_val(group_id, GET_LINK_VAL_INVALID_PARAMS_TEST_SOFT_LINK_NAME, link_val_buf,
+ link_val_buf_size, H5I_INVALID_HID);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_val succeeded with an invalid LAPL\n");
+ PART_ERROR(H5Lget_val_invalid_lapl);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_val_invalid_lapl);
+
+ PART_BEGIN(H5Lget_val_by_idx_invalid_loc_id)
+ {
+ TESTING_2("H5Lget_val_by_idx with an invalid location ID");
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lget_val_by_idx(H5I_INVALID_HID, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 0,
+ link_val_buf, link_val_buf_size, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_val_by_idx succeeded with an invalid location ID!\n");
+ PART_ERROR(H5Lget_val_by_idx_invalid_loc_id);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_val_by_idx_invalid_loc_id);
+
+ PART_BEGIN(H5Lget_val_by_idx_invalid_grp_name)
+ {
+ TESTING_2("H5Lget_val_by_idx with an invalid group name");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lget_val_by_idx(group_id, NULL, H5_INDEX_CRT_ORDER, H5_ITER_INC, 0, link_val_buf,
+ link_val_buf_size, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_val_by_idx succeeded with a NULL group name!\n");
+ PART_ERROR(H5Lget_val_by_idx_invalid_grp_name);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lget_val_by_idx(group_id, "", H5_INDEX_CRT_ORDER, H5_ITER_INC, 0, link_val_buf,
+ link_val_buf_size, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_val_by_idx succeeded with an invalid group name of ''!\n");
+ PART_ERROR(H5Lget_val_by_idx_invalid_grp_name);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_val_by_idx_invalid_grp_name);
+
+ PART_BEGIN(H5Lget_val_by_idx_invalid_index_type)
+ {
+ TESTING_2("H5Lget_val_by_idx with an invalid index type");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lget_val_by_idx(group_id, ".", H5_INDEX_UNKNOWN, H5_ITER_INC, 0, link_val_buf,
+ link_val_buf_size, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_val_by_idx succeeded with invalid index type H5_INDEX_UNKNOWN!\n");
+ PART_ERROR(H5Lget_val_by_idx_invalid_index_type);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lget_val_by_idx(group_id, ".", H5_INDEX_N, H5_ITER_INC, 0, link_val_buf,
+ link_val_buf_size, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_val_by_idx succeeded with invalid index type H5_INDEX_N!\n");
+ PART_ERROR(H5Lget_val_by_idx_invalid_index_type);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_val_by_idx_invalid_index_type);
+
+ PART_BEGIN(H5Lget_val_by_idx_invalid_iter_order)
+ {
+ TESTING_2("H5Lget_val_by_idx with an invalid iteration ordering");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lget_val_by_idx(group_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_UNKNOWN, 0,
+ link_val_buf, link_val_buf_size, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(
+ " H5Lget_val_by_idx succeeded with invalid iteration ordering H5_ITER_UNKNOWN!\n");
+ PART_ERROR(H5Lget_val_by_idx_invalid_iter_order);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lget_val_by_idx(group_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_N, 0, link_val_buf,
+ link_val_buf_size, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_val_by_idx succeeded with invalid iteration ordering H5_ITER_N!\n");
+ PART_ERROR(H5Lget_val_by_idx_invalid_iter_order);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_val_by_idx_invalid_iter_order);
+
+ PART_BEGIN(H5Lget_val_by_idx_invalid_lapl)
+ {
+ TESTING_2("H5Lget_val_by_idx with an invalid LAPL");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lget_val_by_idx(group_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 0, link_val_buf,
+ link_val_buf_size, H5I_INVALID_HID);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_val_by_idx succeeded with an invalid LAPL!\n");
+ PART_ERROR(H5Lget_val_by_idx_invalid_lapl);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_val_by_idx_invalid_lapl);
+ }
+ END_MULTIPART;
+
+ TESTING_2("test cleanup");
+
+ if (link_val_buf) {
+ HDfree(link_val_buf);
+ link_val_buf = NULL;
+ }
+
+ 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
+ {
+ if (link_val_buf)
+ HDfree(link_val_buf);
+ H5Pclose(gcpl_id);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check the functionality of H5Lget_info2 and
+ * H5Lget_info_by_idx2.
+ */
+static int
+test_get_link_info(void)
+{
+ H5L_info2_t link_info;
+ htri_t link_exists;
+ size_t link_val_size;
+ hid_t file_id = H5I_INVALID_HID, ext_file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ hid_t subgroup_id = H5I_INVALID_HID;
+ hid_t gcpl_id = H5I_INVALID_HID;
+#ifndef NO_EXTERNAL_LINKS
+ char *ext_objname;
+ char ext_link_filename[H5_API_TEST_FILENAME_MAX_LENGTH];
+#endif
+
+ TESTING_MULTIPART("link info retrieval");
+
+ /* 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_LINK_MORE) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_HARD_LINKS) || !(vol_cap_flags_g & H5VL_CAP_FLAG_EXTERNAL_LINKS) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_SOFT_LINKS) || !(vol_cap_flags_g & H5VL_CAP_FLAG_CREATION_ORDER)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, basic, more, soft, hard, external link, 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((gcpl_id = H5Pcreate(H5P_GROUP_CREATE)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create GCPL for link creation order tracking\n");
+ goto error;
+ }
+
+ if (H5Pset_link_creation_order(gcpl_id, H5P_CRT_ORDER_TRACKED) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't set link creation order tracking\n");
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, GET_LINK_INFO_TEST_GROUP_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n", GET_LINK_INFO_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ PART_BEGIN(H5Lget_info_hard)
+ {
+ TESTING_2("H5Lget_info2 on hard link");
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_INFO_TEST_SUBGROUP1_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", GET_LINK_INFO_TEST_SUBGROUP1_NAME);
+ PART_ERROR(H5Lget_info_hard);
+ }
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, GET_LINK_INFO_TEST_HARD_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", GET_LINK_INFO_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_info_hard);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ GET_LINK_INFO_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_info_hard);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link did not exist\n");
+ PART_ERROR(H5Lget_info_hard);
+ }
+
+ if (H5Lget_info2(subgroup_id, GET_LINK_INFO_TEST_HARD_LINK_NAME, &link_info, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get hard link info\n");
+ PART_ERROR(H5Lget_info_hard);
+ }
+
+ if (link_info.type != H5L_TYPE_HARD) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_hard);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 0)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)0);
+ PART_ERROR(H5Lget_info_hard);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", GET_LINK_INFO_TEST_SUBGROUP1_NAME);
+ PART_ERROR(H5Lget_info_hard);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_info_hard);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_info_soft)
+ {
+ TESTING_2("H5Lget_info2 on soft link");
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_INFO_TEST_SUBGROUP2_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", GET_LINK_INFO_TEST_SUBGROUP2_NAME);
+ PART_ERROR(H5Lget_info_soft);
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" GET_LINK_INFO_TEST_GROUP_NAME
+ "/" GET_LINK_INFO_TEST_SUBGROUP2_NAME,
+ subgroup_id, GET_LINK_INFO_TEST_SOFT_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", GET_LINK_INFO_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_info_soft);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ GET_LINK_INFO_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_info_soft);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link did not exist\n");
+ PART_ERROR(H5Lget_info_soft);
+ }
+
+ if (H5Lget_info2(subgroup_id, GET_LINK_INFO_TEST_SOFT_LINK_NAME, &link_info, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get soft link info\n");
+ PART_ERROR(H5Lget_info_soft);
+ }
+
+ if (link_info.type != H5L_TYPE_SOFT) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_soft);
+ }
+
+ link_val_size = strlen("/" LINK_TEST_GROUP_NAME "/" GET_LINK_INFO_TEST_GROUP_NAME
+ "/" GET_LINK_INFO_TEST_SUBGROUP2_NAME) +
+ 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link's value size '%zu' did not match expected value '%zu'\n",
+ link_info.u.val_size, link_val_size);
+ PART_ERROR(H5Lget_info_soft);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 0)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)0);
+ PART_ERROR(H5Lget_info_soft);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", GET_LINK_INFO_TEST_SUBGROUP2_NAME);
+ PART_ERROR(H5Lget_info_soft);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_info_soft);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_info_external)
+ {
+ TESTING_2("H5Lget_info2 on external link");
+#ifndef NO_EXTERNAL_LINKS
+ HDmemset(&link_info, 0, sizeof(link_info));
+
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Lget_info_external);
+ }
+
+ if (H5Fclose(ext_file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close file '%s'\n", ext_link_filename);
+ PART_ERROR(H5Lget_info_external);
+ }
+
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_INFO_TEST_SUBGROUP3_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", GET_LINK_INFO_TEST_SUBGROUP3_NAME);
+ PART_ERROR(H5Lget_info_external);
+ }
+
+ ext_objname = "/";
+ if (H5Lcreate_external(ext_link_filename, ext_objname, subgroup_id,
+ GET_LINK_INFO_TEST_EXT_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", GET_LINK_INFO_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_info_external);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_EXT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ GET_LINK_INFO_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_info_external);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link did not exist\n");
+ PART_ERROR(H5Lget_info_external);
+ }
+
+ if (H5Lget_info2(subgroup_id, GET_LINK_INFO_TEST_EXT_LINK_NAME, &link_info, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get external link info\n");
+ PART_ERROR(H5Lget_info_external);
+ }
+
+ if (link_info.type != H5L_TYPE_EXTERNAL) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_external);
+ }
+
+ link_val_size = 1 + strlen(ext_link_filename) + 1 + strlen(ext_objname) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link's value size '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.u.val_size, link_val_size);
+ PART_ERROR(H5Lget_info_external);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 0)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)0);
+ PART_ERROR(H5Lget_info_external);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", GET_LINK_INFO_TEST_SUBGROUP3_NAME);
+ PART_ERROR(H5Lget_info_external);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lget_info_external);
+#endif
+ }
+ PART_END(H5Lget_info_external);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ H5Fclose(ext_file_id);
+ ext_file_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_info_ud)
+ {
+ TESTING_2("H5Lget_info2 on user-defined link");
+
+ /* TODO */
+
+ SKIPPED();
+ PART_EMPTY(H5Lget_info_ud);
+ }
+ PART_END(H5Lget_info_ud);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_info_by_idx_hard_crt_order_increasing)
+ {
+ TESTING_2("H5Lget_info_by_idx2 on hard link by creation order in increasing order");
+
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_INFO_TEST_SUBGROUP5_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", GET_LINK_INFO_TEST_SUBGROUP5_NAME);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_increasing);
+ }
+
+ /* Create several hard links */
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, GET_LINK_INFO_TEST_HARD_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", GET_LINK_INFO_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_increasing);
+ }
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, GET_LINK_INFO_TEST_HARD_LINK_NAME2, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", GET_LINK_INFO_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_increasing);
+ }
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, GET_LINK_INFO_TEST_HARD_LINK_NAME3, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", GET_LINK_INFO_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_increasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ GET_LINK_INFO_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ GET_LINK_INFO_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ GET_LINK_INFO_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_increasing);
+ }
+
+ /* Retrieve info of links in turn */
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 0, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get hard link info for index %d\n", 0);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_increasing);
+ }
+
+ if (link_info.type != H5L_TYPE_HARD) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_increasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 0)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)0);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_increasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 1, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get hard link info for index %d\n", 1);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_increasing);
+ }
+
+ if (link_info.type != H5L_TYPE_HARD) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_increasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 1)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)1);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_increasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 2, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get hard link info for index %d\n", 2);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_increasing);
+ }
+
+ if (link_info.type != H5L_TYPE_HARD) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_increasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 2)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)2);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_increasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", GET_LINK_INFO_TEST_SUBGROUP5_NAME);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_info_by_idx_hard_crt_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_info_by_idx_hard_crt_order_decreasing)
+ {
+ TESTING_2("H5Lget_info_by_idx2 on hard link by creation order in decreasing order");
+
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_INFO_TEST_SUBGROUP6_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", GET_LINK_INFO_TEST_SUBGROUP6_NAME);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_decreasing);
+ }
+
+ /* Create several hard links */
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, GET_LINK_INFO_TEST_HARD_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", GET_LINK_INFO_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, GET_LINK_INFO_TEST_HARD_LINK_NAME2, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", GET_LINK_INFO_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, GET_LINK_INFO_TEST_HARD_LINK_NAME3, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", GET_LINK_INFO_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_decreasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ GET_LINK_INFO_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ GET_LINK_INFO_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ GET_LINK_INFO_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_decreasing);
+ }
+
+ /* Retrieve info of links in turn */
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 2, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get hard link info for index %d\n", 2);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (link_info.type != H5L_TYPE_HARD) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 0)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)0);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_decreasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 1, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get hard link info for index %d\n", 1);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (link_info.type != H5L_TYPE_HARD) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 1)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)1);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_decreasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 0, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get hard link info for index %d\n", 0);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (link_info.type != H5L_TYPE_HARD) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 2)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)2);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", GET_LINK_INFO_TEST_SUBGROUP6_NAME);
+ PART_ERROR(H5Lget_info_by_idx_hard_crt_order_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_info_by_idx_hard_crt_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_info_by_idx_hard_name_order_increasing)
+ {
+ TESTING_2("H5Lget_info_by_idx2 on hard link by alphabetical order in increasing order");
+
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_INFO_TEST_SUBGROUP7_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", GET_LINK_INFO_TEST_SUBGROUP7_NAME);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_increasing);
+ }
+
+ /* Create several hard links */
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, GET_LINK_INFO_TEST_HARD_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", GET_LINK_INFO_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_increasing);
+ }
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, GET_LINK_INFO_TEST_HARD_LINK_NAME2, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", GET_LINK_INFO_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_increasing);
+ }
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, GET_LINK_INFO_TEST_HARD_LINK_NAME3, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", GET_LINK_INFO_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_increasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ GET_LINK_INFO_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ GET_LINK_INFO_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ GET_LINK_INFO_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_increasing);
+ }
+
+ /* Retrieve info of links in turn */
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 0, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get hard link info for index %d\n", 0);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_increasing);
+ }
+
+ if (link_info.type != H5L_TYPE_HARD) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_increasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 0)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)0);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_increasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 1, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get hard link info for index %d\n", 1);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_increasing);
+ }
+
+ if (link_info.type != H5L_TYPE_HARD) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_increasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 1)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)1);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_increasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 2, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get hard link info for index %d\n", 2);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_increasing);
+ }
+
+ if (link_info.type != H5L_TYPE_HARD) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_increasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 2)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)2);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_increasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", GET_LINK_INFO_TEST_SUBGROUP7_NAME);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_info_by_idx_hard_name_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_info_by_idx_hard_name_order_decreasing)
+ {
+ TESTING_2("H5Lget_info_by_idx2 on hard link by alphabetical order in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_INFO_TEST_SUBGROUP8_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", GET_LINK_INFO_TEST_SUBGROUP8_NAME);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_decreasing);
+ }
+
+ /* Create several hard links */
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, GET_LINK_INFO_TEST_HARD_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", GET_LINK_INFO_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_decreasing);
+ }
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, GET_LINK_INFO_TEST_HARD_LINK_NAME2, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", GET_LINK_INFO_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_decreasing);
+ }
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, GET_LINK_INFO_TEST_HARD_LINK_NAME3, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", GET_LINK_INFO_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_decreasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ GET_LINK_INFO_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ GET_LINK_INFO_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ GET_LINK_INFO_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_decreasing);
+ }
+
+ /* Retrieve info of links in turn */
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 2, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get hard link info for index %lld\n", 2);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_decreasing);
+ }
+
+ if (link_info.type != H5L_TYPE_HARD) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_decreasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 0)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)0);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_decreasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 1, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get hard link info for index %lld\n", 1);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_decreasing);
+ }
+
+ if (link_info.type != H5L_TYPE_HARD) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_decreasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 1)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)1);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_decreasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 0, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get hard link info for index %lld\n", 0);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_decreasing);
+ }
+
+ if (link_info.type != H5L_TYPE_HARD) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_decreasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 2)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)2);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_decreasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", GET_LINK_INFO_TEST_SUBGROUP8_NAME);
+ PART_ERROR(H5Lget_info_by_idx_hard_name_order_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lget_info_by_idx_hard_name_order_decreasing);
+#endif
+ }
+ PART_END(H5Lget_info_by_idx_hard_name_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_info_by_idx_soft_crt_order_increasing)
+ {
+ TESTING_2("H5Lget_info_by_idx2 on soft link by creation order in increasing order");
+
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_INFO_TEST_SUBGROUP9_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", GET_LINK_INFO_TEST_SUBGROUP9_NAME);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_increasing);
+ }
+
+ /* Create several soft links */
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" GET_LINK_INFO_TEST_GROUP_NAME
+ "/" GET_LINK_INFO_TEST_SUBGROUP9_NAME,
+ subgroup_id, GET_LINK_INFO_TEST_SOFT_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", GET_LINK_INFO_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_increasing);
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" GET_LINK_INFO_TEST_GROUP_NAME
+ "/" GET_LINK_INFO_TEST_SUBGROUP9_NAME,
+ subgroup_id, GET_LINK_INFO_TEST_SOFT_LINK_NAME2, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", GET_LINK_INFO_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_increasing);
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" GET_LINK_INFO_TEST_GROUP_NAME
+ "/" GET_LINK_INFO_TEST_SUBGROUP9_NAME,
+ subgroup_id, GET_LINK_INFO_TEST_SOFT_LINK_NAME3, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", GET_LINK_INFO_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_increasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ GET_LINK_INFO_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ GET_LINK_INFO_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ GET_LINK_INFO_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_increasing);
+ }
+
+ /* Retrieve info of links in turn */
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 0, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get soft link info for index %d\n", 0);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_increasing);
+ }
+
+ if (link_info.type != H5L_TYPE_SOFT) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_increasing);
+ }
+
+ link_val_size = strlen("/" LINK_TEST_GROUP_NAME "/" GET_LINK_INFO_TEST_GROUP_NAME
+ "/" GET_LINK_INFO_TEST_SUBGROUP9_NAME) +
+ 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link's value size '%zu' did not match expected value '%zu'\n",
+ link_info.u.val_size, link_val_size);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_increasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 0)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)0);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_increasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 1, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get soft link info for index %d\n", 1);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_increasing);
+ }
+
+ if (link_info.type != H5L_TYPE_SOFT) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_increasing);
+ }
+
+ link_val_size = strlen("/" LINK_TEST_GROUP_NAME "/" GET_LINK_INFO_TEST_GROUP_NAME
+ "/" GET_LINK_INFO_TEST_SUBGROUP9_NAME) +
+ 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link's value size '%zu' did not match expected value '%zu'\n",
+ link_info.u.val_size, link_val_size);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_increasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 1)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)1);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_increasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 2, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get soft link info for index %d\n", 2);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_increasing);
+ }
+
+ if (link_info.type != H5L_TYPE_SOFT) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_increasing);
+ }
+
+ link_val_size = strlen("/" LINK_TEST_GROUP_NAME "/" GET_LINK_INFO_TEST_GROUP_NAME
+ "/" GET_LINK_INFO_TEST_SUBGROUP9_NAME) +
+ 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link's value size '%zu' did not match expected value '%zu'\n",
+ link_info.u.val_size, link_val_size);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_increasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 2)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)2);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_increasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", GET_LINK_INFO_TEST_SUBGROUP9_NAME);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_info_by_idx_soft_crt_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_info_by_idx_soft_crt_order_decreasing)
+ {
+ TESTING_2("H5Lget_info_by_idx2 on soft link by creation order in decreasing order");
+
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_INFO_TEST_SUBGROUP10_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", GET_LINK_INFO_TEST_SUBGROUP10_NAME);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_decreasing);
+ }
+
+ /* Create several soft links */
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" GET_LINK_INFO_TEST_GROUP_NAME
+ "/" GET_LINK_INFO_TEST_SUBGROUP10_NAME,
+ subgroup_id, GET_LINK_INFO_TEST_SOFT_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", GET_LINK_INFO_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" GET_LINK_INFO_TEST_GROUP_NAME
+ "/" GET_LINK_INFO_TEST_SUBGROUP10_NAME,
+ subgroup_id, GET_LINK_INFO_TEST_SOFT_LINK_NAME2, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", GET_LINK_INFO_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" GET_LINK_INFO_TEST_GROUP_NAME
+ "/" GET_LINK_INFO_TEST_SUBGROUP10_NAME,
+ subgroup_id, GET_LINK_INFO_TEST_SOFT_LINK_NAME3, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", GET_LINK_INFO_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_decreasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ GET_LINK_INFO_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ GET_LINK_INFO_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ GET_LINK_INFO_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_decreasing);
+ }
+
+ /* Retrieve info of links in turn */
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 2, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get soft link info for index %d\n", 2);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (link_info.type != H5L_TYPE_SOFT) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_decreasing);
+ }
+
+ link_val_size = strlen("/" LINK_TEST_GROUP_NAME "/" GET_LINK_INFO_TEST_GROUP_NAME
+ "/" GET_LINK_INFO_TEST_SUBGROUP10_NAME) +
+ 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link's value size '%zu' did not match expected value '%zu'\n",
+ link_info.u.val_size, link_val_size);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 0)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)0);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_decreasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 1, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get soft link info for index %d\n", 1);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (link_info.type != H5L_TYPE_SOFT) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_decreasing);
+ }
+
+ link_val_size = strlen("/" LINK_TEST_GROUP_NAME "/" GET_LINK_INFO_TEST_GROUP_NAME
+ "/" GET_LINK_INFO_TEST_SUBGROUP10_NAME) +
+ 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link's value size '%zu' did not match expected value '%zu'\n",
+ link_info.u.val_size, link_val_size);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 1)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)1);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_decreasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 0, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get soft link info for index %d\n", 0);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (link_info.type != H5L_TYPE_SOFT) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_decreasing);
+ }
+
+ link_val_size = strlen("/" LINK_TEST_GROUP_NAME "/" GET_LINK_INFO_TEST_GROUP_NAME
+ "/" GET_LINK_INFO_TEST_SUBGROUP10_NAME) +
+ 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link's value size '%zu' did not match expected value '%zu'\n",
+ link_info.u.val_size, link_val_size);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 2)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)2);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", GET_LINK_INFO_TEST_SUBGROUP10_NAME);
+ PART_ERROR(H5Lget_info_by_idx_soft_crt_order_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_info_by_idx_soft_crt_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_info_by_idx_soft_name_order_increasing)
+ {
+ TESTING_2("H5Lget_info_by_idx2 on soft link by alphabetical order in increasing order");
+
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_INFO_TEST_SUBGROUP11_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", GET_LINK_INFO_TEST_SUBGROUP11_NAME);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_increasing);
+ }
+
+ /* Create several soft links */
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" GET_LINK_INFO_TEST_GROUP_NAME
+ "/" GET_LINK_INFO_TEST_SUBGROUP11_NAME,
+ subgroup_id, GET_LINK_INFO_TEST_SOFT_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", GET_LINK_INFO_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_increasing);
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" GET_LINK_INFO_TEST_GROUP_NAME
+ "/" GET_LINK_INFO_TEST_SUBGROUP11_NAME,
+ subgroup_id, GET_LINK_INFO_TEST_SOFT_LINK_NAME2, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", GET_LINK_INFO_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_increasing);
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" GET_LINK_INFO_TEST_GROUP_NAME
+ "/" GET_LINK_INFO_TEST_SUBGROUP11_NAME,
+ subgroup_id, GET_LINK_INFO_TEST_SOFT_LINK_NAME3, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", GET_LINK_INFO_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_increasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ GET_LINK_INFO_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ GET_LINK_INFO_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ GET_LINK_INFO_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_increasing);
+ }
+
+ /* Retrieve info of links in turn */
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 0, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get soft link info for index %d\n", 0);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_increasing);
+ }
+
+ if (link_info.type != H5L_TYPE_SOFT) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_increasing);
+ }
+
+ link_val_size = strlen("/" LINK_TEST_GROUP_NAME "/" GET_LINK_INFO_TEST_GROUP_NAME
+ "/" GET_LINK_INFO_TEST_SUBGROUP11_NAME) +
+ 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link's value size '%zu' did not match expected value '%zu'\n",
+ link_info.u.val_size, link_val_size);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_increasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 0)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)0);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_increasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 1, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get soft link info for index %d\n", 1);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_increasing);
+ }
+
+ if (link_info.type != H5L_TYPE_SOFT) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_increasing);
+ }
+
+ link_val_size = strlen("/" LINK_TEST_GROUP_NAME "/" GET_LINK_INFO_TEST_GROUP_NAME
+ "/" GET_LINK_INFO_TEST_SUBGROUP11_NAME) +
+ 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link's value size '%zu' did not match expected value '%zu'\n",
+ link_info.u.val_size, link_val_size);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_increasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 1)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)1);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_increasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 2, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get soft link info for index %d\n", 2);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_increasing);
+ }
+
+ if (link_info.type != H5L_TYPE_SOFT) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_increasing);
+ }
+
+ link_val_size = strlen("/" LINK_TEST_GROUP_NAME "/" GET_LINK_INFO_TEST_GROUP_NAME
+ "/" GET_LINK_INFO_TEST_SUBGROUP11_NAME) +
+ 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link's value size '%zu' did not match expected value '%zu'\n",
+ link_info.u.val_size, link_val_size);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_increasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 2)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)2);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_increasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", GET_LINK_INFO_TEST_SUBGROUP11_NAME);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_info_by_idx_soft_name_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_info_by_idx_soft_name_order_decreasing)
+ {
+ TESTING_2("H5Lget_info_by_idx2 on soft link by alphabetical order in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_INFO_TEST_SUBGROUP12_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", GET_LINK_INFO_TEST_SUBGROUP12_NAME);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_decreasing);
+ }
+
+ /* Create several soft links */
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" GET_LINK_INFO_TEST_GROUP_NAME
+ "/" GET_LINK_INFO_TEST_SUBGROUP12_NAME,
+ subgroup_id, GET_LINK_INFO_TEST_SOFT_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", GET_LINK_INFO_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_decreasing);
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" GET_LINK_INFO_TEST_GROUP_NAME
+ "/" GET_LINK_INFO_TEST_SUBGROUP12_NAME,
+ subgroup_id, GET_LINK_INFO_TEST_SOFT_LINK_NAME2, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", GET_LINK_INFO_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_decreasing);
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" GET_LINK_INFO_TEST_GROUP_NAME
+ "/" GET_LINK_INFO_TEST_SUBGROUP12_NAME,
+ subgroup_id, GET_LINK_INFO_TEST_SOFT_LINK_NAME3, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", GET_LINK_INFO_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_decreasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ GET_LINK_INFO_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ GET_LINK_INFO_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ GET_LINK_INFO_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_decreasing);
+ }
+
+ /* Retrieve info of links in turn */
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 2, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get soft link info for index %lld\n", 2);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_decreasing);
+ }
+
+ if (link_info.type != H5L_TYPE_SOFT) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_decreasing);
+ }
+
+ link_val_size = strlen("/" LINK_TEST_GROUP_NAME "/" GET_LINK_INFO_TEST_GROUP_NAME
+ "/" GET_LINK_INFO_TEST_SUBGROUP12_NAME) +
+ 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link's value size '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.u.val_size, link_val_size);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_decreasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 0)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)0);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_decreasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 1, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get soft link info for index %lld\n", 1);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_decreasing);
+ }
+
+ if (link_info.type != H5L_TYPE_SOFT) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_decreasing);
+ }
+
+ link_val_size = strlen("/" LINK_TEST_GROUP_NAME "/" GET_LINK_INFO_TEST_GROUP_NAME
+ "/" GET_LINK_INFO_TEST_SUBGROUP12_NAME) +
+ 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link's value size '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.u.val_size, link_val_size);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_decreasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 1)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)1);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_decreasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 0, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get soft link info for index %lld\n", 0);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_decreasing);
+ }
+
+ if (link_info.type != H5L_TYPE_SOFT) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_decreasing);
+ }
+
+ link_val_size = strlen("/" LINK_TEST_GROUP_NAME "/" GET_LINK_INFO_TEST_GROUP_NAME
+ "/" GET_LINK_INFO_TEST_SUBGROUP12_NAME) +
+ 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link's value size '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.u.val_size, link_val_size);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_decreasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 2)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)2);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_decreasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", GET_LINK_INFO_TEST_SUBGROUP12_NAME);
+ PART_ERROR(H5Lget_info_by_idx_soft_name_order_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lget_info_by_idx_soft_name_order_decreasing);
+#endif
+ }
+ PART_END(H5Lget_info_by_idx_soft_name_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_info_by_idx_external_crt_order_increasing)
+ {
+ TESTING_2("H5Lget_info_by_idx2 on external link by creation order in increasing order");
+#ifndef NO_EXTERNAL_LINKS
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_increasing);
+ }
+
+ if (H5Fclose(ext_file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close file '%s'\n", ext_link_filename);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_increasing);
+ }
+
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_INFO_TEST_SUBGROUP13_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", GET_LINK_INFO_TEST_SUBGROUP13_NAME);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_increasing);
+ }
+
+ /* Create several external links */
+ ext_objname = "/";
+ if (H5Lcreate_external(ext_link_filename, ext_objname, subgroup_id,
+ GET_LINK_INFO_TEST_EXT_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", GET_LINK_INFO_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_increasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, ext_objname, subgroup_id,
+ GET_LINK_INFO_TEST_EXT_LINK_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", GET_LINK_INFO_TEST_EXT_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_increasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, ext_objname, subgroup_id,
+ GET_LINK_INFO_TEST_EXT_LINK_NAME3, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", GET_LINK_INFO_TEST_EXT_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_increasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_EXT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ GET_LINK_INFO_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_EXT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ GET_LINK_INFO_TEST_EXT_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_EXT_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_EXT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ GET_LINK_INFO_TEST_EXT_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_EXT_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_increasing);
+ }
+
+ /* Retrieve info of links in turn */
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 0, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get external link info for index %lld\n", 0);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_increasing);
+ }
+
+ if (link_info.type != H5L_TYPE_EXTERNAL) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_increasing);
+ }
+
+ link_val_size = 1 + strlen(ext_link_filename) + 1 + strlen(ext_objname) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link's value size '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.u.val_size, link_val_size);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_increasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 0)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)0);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_increasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 1, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get external link info for index %lld\n", 1);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_increasing);
+ }
+
+ if (link_info.type != H5L_TYPE_EXTERNAL) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_increasing);
+ }
+
+ link_val_size = 1 + strlen(ext_link_filename) + 1 + strlen(ext_objname) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link's value size '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.u.val_size, link_val_size);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_increasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 1)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)1);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_increasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 2, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get external link info for index %lld\n", 2);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_increasing);
+ }
+
+ if (link_info.type != H5L_TYPE_EXTERNAL) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_increasing);
+ }
+
+ link_val_size = 1 + strlen(ext_link_filename) + 1 + strlen(ext_objname) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link's value size '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.u.val_size, link_val_size);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_increasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 2)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)2);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_increasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", GET_LINK_INFO_TEST_SUBGROUP13_NAME);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_increasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lget_info_by_idx_external_crt_order_increasing);
+#endif
+ }
+ PART_END(H5Lget_info_by_idx_external_crt_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ H5Fclose(ext_file_id);
+ ext_file_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_info_by_idx_external_crt_order_decreasing)
+ {
+ TESTING_2("H5Lget_info_by_idx2 on external link by creation order in decreasing order");
+#ifndef NO_EXTERNAL_LINKS
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_decreasing);
+ }
+
+ if (H5Fclose(ext_file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close file '%s'\n", ext_link_filename);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_decreasing);
+ }
+
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_INFO_TEST_SUBGROUP14_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", GET_LINK_INFO_TEST_SUBGROUP14_NAME);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_decreasing);
+ }
+
+ /* Create several external links */
+ ext_objname = "/";
+ if (H5Lcreate_external(ext_link_filename, ext_objname, subgroup_id,
+ GET_LINK_INFO_TEST_EXT_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", GET_LINK_INFO_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_decreasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, ext_objname, subgroup_id,
+ GET_LINK_INFO_TEST_EXT_LINK_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", GET_LINK_INFO_TEST_EXT_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_decreasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, ext_objname, subgroup_id,
+ GET_LINK_INFO_TEST_EXT_LINK_NAME3, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", GET_LINK_INFO_TEST_EXT_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_decreasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_EXT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ GET_LINK_INFO_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_EXT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ GET_LINK_INFO_TEST_EXT_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_EXT_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_EXT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ GET_LINK_INFO_TEST_EXT_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_EXT_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_decreasing);
+ }
+
+ /* Retrieve info of links in turn */
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 2, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get external link info for index %lld\n", 2);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_decreasing);
+ }
+
+ if (link_info.type != H5L_TYPE_EXTERNAL) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_decreasing);
+ }
+
+ link_val_size = 1 + strlen(ext_link_filename) + 1 + strlen(ext_objname) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link's value size '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.u.val_size, link_val_size);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_decreasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 0)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)0);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_decreasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 1, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get external link info for index %lld\n", 1);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_decreasing);
+ }
+
+ if (link_info.type != H5L_TYPE_EXTERNAL) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_decreasing);
+ }
+
+ link_val_size = 1 + strlen(ext_link_filename) + 1 + strlen(ext_objname) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link's value size '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.u.val_size, link_val_size);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_decreasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 1)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)1);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_decreasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 0, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get external link info for index %lld\n", 0);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_decreasing);
+ }
+
+ if (link_info.type != H5L_TYPE_EXTERNAL) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_decreasing);
+ }
+
+ link_val_size = 1 + strlen(ext_link_filename) + 1 + strlen(ext_objname) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link's value size '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.u.val_size, link_val_size);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_decreasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 2)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)2);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_decreasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", GET_LINK_INFO_TEST_SUBGROUP14_NAME);
+ PART_ERROR(H5Lget_info_by_idx_external_crt_order_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lget_info_by_idx_external_crt_order_decreasing);
+#endif
+ }
+ PART_END(H5Lget_info_by_idx_external_crt_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ H5Fclose(ext_file_id);
+ ext_file_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_info_by_idx_external_name_order_increasing)
+ {
+ TESTING_2("H5Lget_info_by_idx2 on external link by alphabetical order in increasing order");
+#ifndef NO_EXTERNAL_LINKS
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_increasing);
+ }
+
+ if (H5Fclose(ext_file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close file '%s'\n", ext_link_filename);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_increasing);
+ }
+
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_INFO_TEST_SUBGROUP15_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", GET_LINK_INFO_TEST_SUBGROUP15_NAME);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_increasing);
+ }
+
+ /* Create several external links */
+ ext_objname = "/";
+ if (H5Lcreate_external(ext_link_filename, ext_objname, subgroup_id,
+ GET_LINK_INFO_TEST_EXT_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", GET_LINK_INFO_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_increasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, ext_objname, subgroup_id,
+ GET_LINK_INFO_TEST_EXT_LINK_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", GET_LINK_INFO_TEST_EXT_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_increasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, ext_objname, subgroup_id,
+ GET_LINK_INFO_TEST_EXT_LINK_NAME3, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", GET_LINK_INFO_TEST_EXT_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_increasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_EXT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ GET_LINK_INFO_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_EXT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ GET_LINK_INFO_TEST_EXT_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_EXT_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_EXT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ GET_LINK_INFO_TEST_EXT_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_EXT_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_increasing);
+ }
+
+ /* Retrieve info of links in turn */
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 0, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get external link info for index %lld\n", 0);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_increasing);
+ }
+
+ if (link_info.type != H5L_TYPE_EXTERNAL) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_increasing);
+ }
+
+ link_val_size = 1 + strlen(ext_link_filename) + 1 + strlen(ext_objname) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link's value size '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.u.val_size, link_val_size);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_increasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 0)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)0);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_increasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 1, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get external link info for index %lld\n", 1);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_increasing);
+ }
+
+ if (link_info.type != H5L_TYPE_EXTERNAL) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_increasing);
+ }
+
+ link_val_size = 1 + strlen(ext_link_filename) + 1 + strlen(ext_objname) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link's value size '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.u.val_size, link_val_size);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_increasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 1)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)1);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_increasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 2, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get external link info for index %lld\n", 2);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_increasing);
+ }
+
+ if (link_info.type != H5L_TYPE_EXTERNAL) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_increasing);
+ }
+
+ link_val_size = 1 + strlen(ext_link_filename) + 1 + strlen(ext_objname) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link's value size '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.u.val_size, link_val_size);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_increasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 2)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)2);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_increasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", GET_LINK_INFO_TEST_SUBGROUP15_NAME);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_increasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lget_info_by_idx_external_name_order_increasing);
+#endif
+ }
+ PART_END(H5Lget_info_by_idx_external_name_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ H5Fclose(ext_file_id);
+ ext_file_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_info_by_idx_external_name_order_decreasing)
+ {
+ TESTING_2("H5Lget_info_by_idx2 on external link by alphabetical order in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_decreasing);
+ }
+
+ if (H5Fclose(ext_file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close file '%s'\n", ext_link_filename);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_decreasing);
+ }
+
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_INFO_TEST_SUBGROUP16_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", GET_LINK_INFO_TEST_SUBGROUP16_NAME);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_decreasing);
+ }
+
+ /* Create several external links */
+ ext_objname = "/";
+ if (H5Lcreate_external(ext_link_filename, ext_objname, subgroup_id,
+ GET_LINK_INFO_TEST_EXT_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", GET_LINK_INFO_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_decreasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, ext_objname, subgroup_id,
+ GET_LINK_INFO_TEST_EXT_LINK_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", GET_LINK_INFO_TEST_EXT_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_decreasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, ext_objname, subgroup_id,
+ GET_LINK_INFO_TEST_EXT_LINK_NAME3, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", GET_LINK_INFO_TEST_EXT_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_decreasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_EXT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ GET_LINK_INFO_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_EXT_LINK_NAME);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_EXT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ GET_LINK_INFO_TEST_EXT_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_EXT_LINK_NAME2);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_INFO_TEST_EXT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ GET_LINK_INFO_TEST_EXT_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before deletion\n",
+ GET_LINK_INFO_TEST_EXT_LINK_NAME3);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_decreasing);
+ }
+
+ /* Retrieve info of links in turn */
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 2, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get external link info for index %lld\n", 2);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_decreasing);
+ }
+
+ if (link_info.type != H5L_TYPE_EXTERNAL) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_decreasing);
+ }
+
+ link_val_size = 1 + strlen(ext_link_filename) + 1 + strlen(ext_objname) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link's value size '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.u.val_size, link_val_size);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_decreasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 0)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)0);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_decreasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 1, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get external link info for index %lld\n", 1);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_decreasing);
+ }
+
+ if (link_info.type != H5L_TYPE_EXTERNAL) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_decreasing);
+ }
+
+ link_val_size = 1 + strlen(ext_link_filename) + 1 + strlen(ext_objname) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link's value size '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.u.val_size, link_val_size);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_decreasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 1)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)1);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_decreasing);
+ }
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+ if (H5Lget_info_by_idx2(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 0, &link_info,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't get external link info for index %lld\n", 0);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_decreasing);
+ }
+
+ if (link_info.type != H5L_TYPE_EXTERNAL) {
+ H5_FAILED();
+ HDprintf(" incorrect link type returned\n");
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_decreasing);
+ }
+
+ link_val_size = 1 + strlen(ext_link_filename) + 1 + strlen(ext_objname) + 1;
+ if (link_info.u.val_size != link_val_size) {
+ H5_FAILED();
+ HDprintf(" link's value size '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.u.val_size, link_val_size);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_decreasing);
+ }
+
+ if (link_info.corder_valid && (link_info.corder != 2)) {
+ H5_FAILED();
+ HDprintf(" link's creation order value '%lld' did not match expected value '%lld'\n",
+ (long long)link_info.corder, (long long)2);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_decreasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group '%s'\n", GET_LINK_INFO_TEST_SUBGROUP16_NAME);
+ PART_ERROR(H5Lget_info_by_idx_external_name_order_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lget_info_by_idx_external_name_order_decreasing);
+#endif
+ }
+ PART_END(H5Lget_info_by_idx_external_name_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ H5Fclose(ext_file_id);
+ ext_file_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_info_by_idx_ud_crt_order_increasing)
+ {
+ TESTING_2("H5Lget_info_by_idx2 on user-defined link by creation order in increasing order");
+
+ SKIPPED();
+ PART_EMPTY(H5Lget_info_by_idx_ud_crt_order_increasing);
+ }
+ PART_END(H5Lget_info_by_idx_ud_crt_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_info_by_idx_ud_crt_order_decreasing)
+ {
+ TESTING_2("H5Lget_info_by_idx2 on user-defined link by creation order in decreasing order");
+
+ SKIPPED();
+ PART_EMPTY(H5Lget_info_by_idx_ud_crt_order_decreasing);
+ }
+ PART_END(H5Lget_info_by_idx_ud_crt_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_info_by_idx_ud_name_order_increasing)
+ {
+ TESTING_2("H5Lget_info_by_idx2 on user-defined link by alphabetical order in increasing order");
+
+ SKIPPED();
+ PART_EMPTY(H5Lget_info_by_idx_ud_name_order_increasing);
+ }
+ PART_END(H5Lget_info_by_idx_ud_name_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_info_by_idx_ud_name_order_decreasing)
+ {
+ TESTING_2("H5Lget_info_by_idx2 on user-defined link by alphabetical order in decreasing order");
+
+ SKIPPED();
+ PART_EMPTY(H5Lget_info_by_idx_ud_name_order_decreasing);
+ }
+ PART_END(H5Lget_info_by_idx_ud_name_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+ }
+ 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(subgroup_id);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(ext_file_id);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check that a link's info can't be retrieved
+ * when H5Lget_info(_by_idx)2 is passed invalid parameters.
+ */
+static int
+test_get_link_info_invalid_params(void)
+{
+ H5L_info2_t link_info;
+ herr_t err_ret = -1;
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ hid_t gcpl_id = H5I_INVALID_HID;
+
+ TESTING_MULTIPART("link info retrieval 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_LINK_MORE) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_HARD_LINKS) || !(vol_cap_flags_g & H5VL_CAP_FLAG_CREATION_ORDER)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, basic, more, soft, hard, external link, 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_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, GET_LINK_INFO_INVALID_PARAMS_TEST_GROUP_NAME, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ GET_LINK_INFO_INVALID_PARAMS_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if (H5Lcreate_hard(group_id, ".", group_id, GET_LINK_INFO_INVALID_PARAMS_TEST_HARD_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", GET_LINK_INFO_INVALID_PARAMS_TEST_HARD_LINK_NAME);
+ goto error;
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(group_id, GET_LINK_INFO_INVALID_PARAMS_TEST_HARD_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ GET_LINK_INFO_INVALID_PARAMS_TEST_HARD_LINK_NAME);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link did not exist\n");
+ goto error;
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ PART_BEGIN(H5Lget_info_invalid_loc_id)
+ {
+ TESTING_2("H5Lget_info2 with an invalid location ID");
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lget_info2(H5I_INVALID_HID, GET_LINK_INFO_INVALID_PARAMS_TEST_HARD_LINK_NAME,
+ &link_info, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_info2 succeeded with an invalid location ID!\n");
+ PART_ERROR(H5Lget_info_invalid_loc_id);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_info_invalid_loc_id);
+
+ PART_BEGIN(H5Lget_info_invalid_link_name)
+ {
+ TESTING_2("H5Lget_info2 with an invalid link name");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lget_info2(group_id, NULL, &link_info, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_info2 succeeded with a NULL link name!\n");
+ PART_ERROR(H5Lget_info_invalid_link_name);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lget_info2(group_id, "", &link_info, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_info2 succeeded with an invalid link name of ''!\n");
+ PART_ERROR(H5Lget_info_invalid_link_name);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_info_invalid_link_name);
+
+ PART_BEGIN(H5Lget_info_invalid_lapl)
+ {
+ TESTING_2("H5Lget_info2 with an invalid LAPL");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lget_info2(group_id, GET_LINK_INFO_INVALID_PARAMS_TEST_HARD_LINK_NAME, &link_info,
+ H5I_INVALID_HID);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_info2 succeeded with an invalid LAPL!\n");
+ PART_ERROR(H5Lget_info_invalid_lapl);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_info_invalid_lapl);
+
+ HDmemset(&link_info, 0, sizeof(link_info));
+
+ PART_BEGIN(H5Lget_info_by_idx_invalid_loc_id)
+ {
+ TESTING_2("H5Lget_info_by_idx2 with an invalid location ID");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lget_info_by_idx2(H5I_INVALID_HID, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 0,
+ &link_info, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_info_by_idx2 succeeded with an invalid location ID!\n");
+ PART_ERROR(H5Lget_info_by_idx_invalid_loc_id);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_info_by_idx_invalid_loc_id);
+
+ PART_BEGIN(H5Lget_info_by_idx_invalid_grp_name)
+ {
+ TESTING_2("H5Lget_info_by_idx2 with an invalid group name");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lget_info_by_idx2(group_id, NULL, H5_INDEX_CRT_ORDER, H5_ITER_INC, 0, &link_info,
+ H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_info_by_idx2 succeeded with a NULL group name!\n");
+ PART_ERROR(H5Lget_info_by_idx_invalid_grp_name);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lget_info_by_idx2(group_id, "", H5_INDEX_CRT_ORDER, H5_ITER_INC, 0, &link_info,
+ H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_info_by_idx2 succeeded with an invalid group name of ''!\n");
+ PART_ERROR(H5Lget_info_by_idx_invalid_grp_name);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_info_by_idx_invalid_grp_name);
+
+ PART_BEGIN(H5Lget_info_by_idx_invalid_index_type)
+ {
+ TESTING_2("H5Lget_info_by_idx2 with an invalid index type");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lget_info_by_idx2(group_id, ".", H5_INDEX_UNKNOWN, H5_ITER_INC, 0, &link_info,
+ H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_info_by_idx2 succeeded with invalid index type H5_INDEX_UNKNOWN!\n");
+ PART_ERROR(H5Lget_info_by_idx_invalid_index_type);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret =
+ H5Lget_info_by_idx2(group_id, ".", H5_INDEX_N, H5_ITER_INC, 0, &link_info, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_info_by_idx2 succeeded with invalid index type H5_INDEX_N!\n");
+ PART_ERROR(H5Lget_info_by_idx_invalid_index_type);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_info_by_idx_invalid_index_type);
+
+ PART_BEGIN(H5Lget_info_by_idx_invalid_iter_order)
+ {
+ TESTING_2("H5Lget_info_by_idx2 with an invalid iteration ordering");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lget_info_by_idx2(group_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_UNKNOWN, 0,
+ &link_info, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(
+ " H5Lget_info_by_idx2 succeeded with invalid iteration ordering H5_ITER_UNKNOWN!\n");
+ PART_ERROR(H5Lget_info_by_idx_invalid_iter_order);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lget_info_by_idx2(group_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_N, 0, &link_info,
+ H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_info_by_idx2 succeeded with invalid iteration ordering H5_ITER_N!\n");
+ PART_ERROR(H5Lget_info_by_idx_invalid_iter_order);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_info_by_idx_invalid_iter_order);
+
+ PART_BEGIN(H5Lget_info_by_idx_invalid_lapl)
+ {
+ TESTING_2("H5Lget_info_by_idx2 with an invalid LAPL");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lget_info_by_idx2(group_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 0, &link_info,
+ H5I_INVALID_HID);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_info_by_idx2 succeeded with an invalid LAPL!\n");
+ PART_ERROR(H5Lget_info_by_idx_invalid_lapl);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_info_by_idx_invalid_lapl);
+ }
+ 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_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check that a link's name can be correctly
+ * retrieved by using H5Lget_name_by_idx.
+ */
+static int
+test_get_link_name(void)
+{
+ ssize_t link_name_buf_size = 0;
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID, ext_file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ hid_t subgroup_id = H5I_INVALID_HID;
+ hid_t gcpl_id = H5I_INVALID_HID;
+ char link_name_buf[GET_LINK_NAME_TEST_BUF_SIZE];
+#ifndef NO_EXTERNAL_LINKS
+ char ext_link_filename[H5_API_TEST_FILENAME_MAX_LENGTH];
+#endif
+
+ TESTING_MULTIPART("link name retrieval");
+
+ /* 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_LINK_MORE) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_HARD_LINKS) || !(vol_cap_flags_g & H5VL_CAP_FLAG_EXTERNAL_LINKS) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_SOFT_LINKS) || !(vol_cap_flags_g & H5VL_CAP_FLAG_CREATION_ORDER)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, basic, more, soft, hard, external link, 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((gcpl_id = H5Pcreate(H5P_GROUP_CREATE)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create GCPL for link creation order tracking\n");
+ goto error;
+ }
+
+ if (H5Pset_link_creation_order(gcpl_id, H5P_CRT_ORDER_TRACKED) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't set link creation order tracking\n");
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, GET_LINK_NAME_TEST_GROUP_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n", GET_LINK_NAME_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ PART_BEGIN(H5Lget_name_by_idx_hard_crt_order_increasing)
+ {
+ TESTING_2("H5Lget_name_by_idx on hard link by creation order in increasing order");
+
+ /* Create group to hold some links */
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_NAME_TEST_HARD_SUBGROUP_NAME, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ GET_LINK_NAME_TEST_HARD_SUBGROUP_NAME);
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_increasing);
+ }
+
+ /* Create several hard links in reverse order to test creation order */
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, GET_LINK_NAME_TEST_HARD_LINK_NAME3, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create hard link '%s'\n", GET_LINK_NAME_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_increasing);
+ }
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, GET_LINK_NAME_TEST_HARD_LINK_NAME2, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create hard link '%s'\n", GET_LINK_NAME_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_increasing);
+ }
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, GET_LINK_NAME_TEST_HARD_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create hard link '%s'\n", GET_LINK_NAME_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_increasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ GET_LINK_NAME_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ GET_LINK_NAME_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ GET_LINK_NAME_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_increasing);
+ }
+
+ /* Retrieve link names */
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 0,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_increasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 0, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_increasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_HARD_LINK_NAME3,
+ strlen(GET_LINK_NAME_TEST_HARD_LINK_NAME3) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_increasing);
+ }
+
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 1,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_increasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 1, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_increasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_HARD_LINK_NAME2,
+ strlen(GET_LINK_NAME_TEST_HARD_LINK_NAME2) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_increasing);
+ }
+
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 2,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_increasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 2, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_increasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_HARD_LINK_NAME,
+ strlen(GET_LINK_NAME_TEST_HARD_LINK_NAME) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_increasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group\n");
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_name_by_idx_hard_crt_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_name_by_idx_hard_crt_order_decreasing)
+ {
+ TESTING_2("H5Lget_name_by_idx on hard link by creation order in decreasing order");
+
+ /* Create group to hold some links */
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_NAME_TEST_HARD_SUBGROUP_NAME2, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ GET_LINK_NAME_TEST_HARD_SUBGROUP_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_decreasing);
+ }
+
+ /* Create several hard links in reverse order to test creation order */
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, GET_LINK_NAME_TEST_HARD_LINK_NAME3, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create hard link '%s'\n", GET_LINK_NAME_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, GET_LINK_NAME_TEST_HARD_LINK_NAME2, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create hard link '%s'\n", GET_LINK_NAME_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, GET_LINK_NAME_TEST_HARD_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create hard link '%s'\n", GET_LINK_NAME_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_decreasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ GET_LINK_NAME_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ GET_LINK_NAME_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ GET_LINK_NAME_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_decreasing);
+ }
+
+ /* Retrieve link names */
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 0,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 0, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_HARD_LINK_NAME,
+ strlen(GET_LINK_NAME_TEST_HARD_LINK_NAME) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_decreasing);
+ }
+
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 1,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 1, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_HARD_LINK_NAME2,
+ strlen(GET_LINK_NAME_TEST_HARD_LINK_NAME2) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_decreasing);
+ }
+
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 2,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 2, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_HARD_LINK_NAME3,
+ strlen(GET_LINK_NAME_TEST_HARD_LINK_NAME3) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_decreasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group\n");
+ PART_ERROR(H5Lget_name_by_idx_hard_crt_order_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_name_by_idx_hard_crt_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_name_by_idx_hard_name_order_increasing)
+ {
+ TESTING_2("H5Lget_name_by_idx on hard link by alphabetical order in increasing order");
+
+ /* Create group to hold some links */
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_NAME_TEST_HARD_SUBGROUP_NAME3, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ GET_LINK_NAME_TEST_HARD_SUBGROUP_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_increasing);
+ }
+
+ /* Create several hard links */
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, GET_LINK_NAME_TEST_HARD_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create hard link '%s'\n", GET_LINK_NAME_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_increasing);
+ }
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, GET_LINK_NAME_TEST_HARD_LINK_NAME2, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create hard link '%s'\n", GET_LINK_NAME_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_increasing);
+ }
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, GET_LINK_NAME_TEST_HARD_LINK_NAME3, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create hard link '%s'\n", GET_LINK_NAME_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_increasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ GET_LINK_NAME_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ GET_LINK_NAME_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ GET_LINK_NAME_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_increasing);
+ }
+
+ /* Retrieve link names */
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 0,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_increasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 0, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_increasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_HARD_LINK_NAME,
+ strlen(GET_LINK_NAME_TEST_HARD_LINK_NAME) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_increasing);
+ }
+
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 1,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_increasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 1, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_increasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_HARD_LINK_NAME2,
+ strlen(GET_LINK_NAME_TEST_HARD_LINK_NAME2) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_increasing);
+ }
+
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 2,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_increasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 2, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_increasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_HARD_LINK_NAME3,
+ strlen(GET_LINK_NAME_TEST_HARD_LINK_NAME3) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_increasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group\n");
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_name_by_idx_hard_name_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_name_by_idx_hard_name_order_decreasing)
+ {
+ TESTING_2("H5Lget_name_by_idx on hard link by alphabetical order in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ /* Create group to hold some links */
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_NAME_TEST_HARD_SUBGROUP_NAME4, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ GET_LINK_NAME_TEST_HARD_SUBGROUP_NAME4);
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_decreasing);
+ }
+
+ /* Create several hard links */
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, GET_LINK_NAME_TEST_HARD_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create hard link '%s'\n", GET_LINK_NAME_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_decreasing);
+ }
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, GET_LINK_NAME_TEST_HARD_LINK_NAME2, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create hard link '%s'\n", GET_LINK_NAME_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_decreasing);
+ }
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, GET_LINK_NAME_TEST_HARD_LINK_NAME3, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create hard link '%s'\n", GET_LINK_NAME_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_decreasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ GET_LINK_NAME_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_HARD_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ GET_LINK_NAME_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_HARD_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if hard link '%s' exists\n",
+ GET_LINK_NAME_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" hard link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_decreasing);
+ }
+
+ /* Retrieve link names */
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 0,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_decreasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 0, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_decreasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_HARD_LINK_NAME3,
+ strlen(GET_LINK_NAME_TEST_HARD_LINK_NAME3) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_HARD_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_decreasing);
+ }
+
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 1,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_decreasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 1, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_decreasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_HARD_LINK_NAME2,
+ strlen(GET_LINK_NAME_TEST_HARD_LINK_NAME2) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_HARD_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_decreasing);
+ }
+
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 2,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_decreasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 2, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_decreasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_HARD_LINK_NAME,
+ strlen(GET_LINK_NAME_TEST_HARD_LINK_NAME) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_HARD_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_decreasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group\n");
+ PART_ERROR(H5Lget_name_by_idx_hard_name_order_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lget_name_by_idx_hard_name_order_decreasing);
+#endif
+ }
+ PART_END(H5Lget_name_by_idx_hard_name_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_name_by_idx_soft_crt_order_increasing)
+ {
+ TESTING_2("H5Lget_name_by_idx on soft link by creation order in increasing order");
+
+ /* Create group to hold some links */
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_NAME_TEST_SOFT_SUBGROUP_NAME, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ GET_LINK_NAME_TEST_SOFT_SUBGROUP_NAME);
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_increasing);
+ }
+
+ /* Create several soft links in reverse order to test creation order */
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" GET_LINK_NAME_TEST_GROUP_NAME, subgroup_id,
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME3, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create soft link '%s'\n", GET_LINK_NAME_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_increasing);
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" GET_LINK_NAME_TEST_GROUP_NAME, subgroup_id,
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create soft link '%s'\n", GET_LINK_NAME_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_increasing);
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" GET_LINK_NAME_TEST_GROUP_NAME, subgroup_id,
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create soft link '%s'\n", GET_LINK_NAME_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_increasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_increasing);
+ }
+
+ /* Retrieve link names */
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 0,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_increasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 0, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_increasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_SOFT_LINK_NAME3,
+ strlen(GET_LINK_NAME_TEST_SOFT_LINK_NAME3) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_increasing);
+ }
+
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 1,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_increasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 1, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_increasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_SOFT_LINK_NAME2,
+ strlen(GET_LINK_NAME_TEST_SOFT_LINK_NAME2) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_increasing);
+ }
+
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 2,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_increasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 2, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_increasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_SOFT_LINK_NAME,
+ strlen(GET_LINK_NAME_TEST_SOFT_LINK_NAME) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_increasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group\n");
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_name_by_idx_soft_crt_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_name_by_idx_soft_crt_order_decreasing)
+ {
+ TESTING_2("H5Lget_name_by_idx on soft link by creation order in decreasing order");
+
+ /* Create group to hold some links */
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_NAME_TEST_SOFT_SUBGROUP_NAME2, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ GET_LINK_NAME_TEST_SOFT_SUBGROUP_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_decreasing);
+ }
+
+ /* Create several soft links in reverse order to test creation order */
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" GET_LINK_NAME_TEST_GROUP_NAME, subgroup_id,
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME3, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create soft link '%s'\n", GET_LINK_NAME_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" GET_LINK_NAME_TEST_GROUP_NAME, subgroup_id,
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create soft link '%s'\n", GET_LINK_NAME_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" GET_LINK_NAME_TEST_GROUP_NAME, subgroup_id,
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create soft link '%s'\n", GET_LINK_NAME_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_decreasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_decreasing);
+ }
+
+ /* Retrieve link names */
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 0,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 0, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_SOFT_LINK_NAME,
+ strlen(GET_LINK_NAME_TEST_SOFT_LINK_NAME) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_decreasing);
+ }
+
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 1,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 1, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_SOFT_LINK_NAME2,
+ strlen(GET_LINK_NAME_TEST_SOFT_LINK_NAME2) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_decreasing);
+ }
+
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 2,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 2, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_SOFT_LINK_NAME3,
+ strlen(GET_LINK_NAME_TEST_SOFT_LINK_NAME3) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_decreasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group\n");
+ PART_ERROR(H5Lget_name_by_idx_soft_crt_order_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_name_by_idx_soft_crt_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_name_by_idx_soft_name_order_increasing)
+ {
+ TESTING_2("H5Lget_name_by_idx on soft link by alphabetical order in increasing order");
+
+ /* Create group to hold some links */
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_NAME_TEST_SOFT_SUBGROUP_NAME3, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ GET_LINK_NAME_TEST_SOFT_SUBGROUP_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_increasing);
+ }
+
+ /* Create several soft links */
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" GET_LINK_NAME_TEST_GROUP_NAME, subgroup_id,
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create soft link '%s'\n", GET_LINK_NAME_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_increasing);
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" GET_LINK_NAME_TEST_GROUP_NAME, subgroup_id,
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create soft link '%s'\n", GET_LINK_NAME_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_increasing);
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" GET_LINK_NAME_TEST_GROUP_NAME, subgroup_id,
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME3, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create soft link '%s'\n", GET_LINK_NAME_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_increasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_increasing);
+ }
+
+ /* Retrieve link names */
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 0,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_increasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 0, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_increasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_SOFT_LINK_NAME,
+ strlen(GET_LINK_NAME_TEST_SOFT_LINK_NAME) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_increasing);
+ }
+
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 1,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_increasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 1, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_increasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_SOFT_LINK_NAME2,
+ strlen(GET_LINK_NAME_TEST_SOFT_LINK_NAME2) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_increasing);
+ }
+
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 2,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_increasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 2, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_increasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_SOFT_LINK_NAME3,
+ strlen(GET_LINK_NAME_TEST_SOFT_LINK_NAME3) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_increasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group\n");
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_name_by_idx_soft_name_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_name_by_idx_soft_name_order_decreasing)
+ {
+ TESTING_2("H5Lget_name_by_idx on soft link by alphabetical order in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ /* Create group to hold some links */
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_NAME_TEST_SOFT_SUBGROUP_NAME4, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ GET_LINK_NAME_TEST_SOFT_SUBGROUP_NAME4);
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_decreasing);
+ }
+
+ /* Create several soft links */
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" GET_LINK_NAME_TEST_GROUP_NAME, subgroup_id,
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create soft link '%s'\n", GET_LINK_NAME_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_decreasing);
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" GET_LINK_NAME_TEST_GROUP_NAME, subgroup_id,
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create soft link '%s'\n", GET_LINK_NAME_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_decreasing);
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" GET_LINK_NAME_TEST_GROUP_NAME, subgroup_id,
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME3, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create soft link '%s'\n", GET_LINK_NAME_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_decreasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_SOFT_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_SOFT_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if soft link '%s' exists\n",
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" soft link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_decreasing);
+ }
+
+ /* Retrieve link names */
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 0,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_decreasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 0, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_decreasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_SOFT_LINK_NAME3,
+ strlen(GET_LINK_NAME_TEST_SOFT_LINK_NAME3) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_decreasing);
+ }
+
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 1,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_decreasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 1, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_decreasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_SOFT_LINK_NAME2,
+ strlen(GET_LINK_NAME_TEST_SOFT_LINK_NAME2) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_decreasing);
+ }
+
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 2,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_decreasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 2, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_decreasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_SOFT_LINK_NAME,
+ strlen(GET_LINK_NAME_TEST_SOFT_LINK_NAME) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_SOFT_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_decreasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group\n");
+ PART_ERROR(H5Lget_name_by_idx_soft_name_order_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lget_name_by_idx_soft_name_order_decreasing);
+#endif
+ }
+ PART_END(H5Lget_name_by_idx_soft_name_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_name_by_idx_external_crt_order_increasing)
+ {
+ TESTING_2("H5Lget_name_by_idx on external link by creation order in increasing order");
+#ifndef NO_EXTERNAL_LINKS
+ /* Create file for external link to reference */
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_increasing);
+ }
+
+ if (H5Fclose(ext_file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close file '%s'\n", ext_link_filename);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_increasing);
+ }
+
+ /* Create group to hold some links */
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_NAME_TEST_EXTERNAL_SUBGROUP_NAME, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ GET_LINK_NAME_TEST_EXTERNAL_SUBGROUP_NAME);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_increasing);
+ }
+
+ /* Create several external links in reverse order to test creation order */
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup_id,
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create external link '%s'\n", GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_increasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup_id,
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create external link '%s'\n", GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_increasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup_id, GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create external link '%s'\n", GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_increasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_increasing);
+ }
+
+ /* Retrieve link names */
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 0,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_increasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 0, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_increasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3,
+ strlen(GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_increasing);
+ }
+
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 1,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_increasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 1, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_increasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2,
+ strlen(GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_increasing);
+ }
+
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 2,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_increasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, 2, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_increasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME,
+ strlen(GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_increasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group\n");
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_increasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lget_name_by_idx_external_crt_order_increasing);
+#endif
+ }
+ PART_END(H5Lget_name_by_idx_external_crt_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ H5Fclose(ext_file_id);
+ ext_file_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_name_by_idx_external_crt_order_decreasing)
+ {
+ TESTING_2("H5Lget_name_by_idx on external link by creation order in decreasing order");
+#ifndef NO_EXTERNAL_LINKS
+ /* Create file for external link to reference */
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_decreasing);
+ }
+
+ if (H5Fclose(ext_file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close file '%s'\n", ext_link_filename);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_decreasing);
+ }
+
+ /* Create group to hold some links */
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_NAME_TEST_EXTERNAL_SUBGROUP_NAME2, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ GET_LINK_NAME_TEST_EXTERNAL_SUBGROUP_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_decreasing);
+ }
+
+ /* Create several external links in reverse order to test creation order */
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup_id,
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create external link '%s'\n", GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_decreasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup_id,
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create external link '%s'\n", GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_decreasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup_id, GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create external link '%s'\n", GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_decreasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_decreasing);
+ }
+
+ /* Retrieve link names */
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 0,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_decreasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 0, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_decreasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME,
+ strlen(GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_decreasing);
+ }
+
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 1,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_decreasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 1, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_decreasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2,
+ strlen(GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_decreasing);
+ }
+
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 2,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_decreasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_DEC, 2, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_decreasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3,
+ strlen(GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_decreasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group\n");
+ PART_ERROR(H5Lget_name_by_idx_external_crt_order_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lget_name_by_idx_external_crt_order_decreasing);
+#endif
+ }
+ PART_END(H5Lget_name_by_idx_external_crt_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ H5Fclose(ext_file_id);
+ ext_file_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_name_by_idx_external_name_order_increasing)
+ {
+ TESTING_2("H5Lget_name_by_idx on external link by alphabetical order in increasing order");
+#ifndef NO_EXTERNAL_LINKS
+ /* Create file for external link to reference */
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_increasing);
+ }
+
+ if (H5Fclose(ext_file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close file '%s'\n", ext_link_filename);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_increasing);
+ }
+
+ /* Create group to hold some links */
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_NAME_TEST_EXTERNAL_SUBGROUP_NAME3, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ GET_LINK_NAME_TEST_EXTERNAL_SUBGROUP_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_increasing);
+ }
+
+ /* Create several external links */
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup_id, GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create external link '%s'\n", GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_increasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup_id,
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create external link '%s'\n", GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_increasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup_id,
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create external link '%s'\n", GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_increasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_increasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_increasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_increasing);
+ }
+
+ /* Retrieve link names */
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 0,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_increasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 0, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_increasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME,
+ strlen(GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_increasing);
+ }
+
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 1,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_increasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 1, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_increasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2,
+ strlen(GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_increasing);
+ }
+
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 2,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_increasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_INC, 2, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_increasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3,
+ strlen(GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_increasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group\n");
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_increasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lget_name_by_idx_external_name_order_increasing);
+#endif
+ }
+ PART_END(H5Lget_name_by_idx_external_name_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ H5Fclose(ext_file_id);
+ ext_file_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_name_by_idx_external_name_order_decreasing)
+ {
+ TESTING_2("H5Lget_name_by_idx on external link by alphabetical order in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ /* Create file for external link to reference */
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s",
+ EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((ext_file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_decreasing);
+ }
+
+ if (H5Fclose(ext_file_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close file '%s'\n", ext_link_filename);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_decreasing);
+ }
+
+ /* Create group to hold some links */
+ if ((subgroup_id = H5Gcreate2(group_id, GET_LINK_NAME_TEST_EXTERNAL_SUBGROUP_NAME4, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ GET_LINK_NAME_TEST_EXTERNAL_SUBGROUP_NAME4);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_decreasing);
+ }
+
+ /* Create several external links */
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup_id, GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create external link '%s'\n", GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_decreasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup_id,
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create external link '%s'\n", GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_decreasing);
+ }
+
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup_id,
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create external link '%s'\n", GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_decreasing);
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_decreasing);
+ }
+
+ if ((link_exists = H5Lexists(subgroup_id, GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if external link '%s' exists\n",
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_decreasing);
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" external link '%s' did not exist before name retrieval\n",
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_decreasing);
+ }
+
+ /* Retrieve link names */
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 0,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_decreasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 0, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_decreasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3,
+ strlen(GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME3);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_decreasing);
+ }
+
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 1,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_decreasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 1, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_decreasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2,
+ strlen(GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME2);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_decreasing);
+ }
+
+ if ((link_name_buf_size = H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 2,
+ NULL, 0, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_decreasing);
+ }
+
+ if (H5Lget_name_by_idx(subgroup_id, ".", H5_INDEX_NAME, H5_ITER_DEC, 2, link_name_buf,
+ (size_t)link_name_buf_size + 1, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name\n");
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_decreasing);
+ }
+
+ if (HDstrncmp(link_name_buf, GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME,
+ strlen(GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME) + 1)) {
+ H5_FAILED();
+ HDprintf(" link name '%s' did not match expected name '%s'\n", link_name_buf,
+ GET_LINK_NAME_TEST_EXTERNAL_LINK_NAME);
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_decreasing);
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to close group\n");
+ PART_ERROR(H5Lget_name_by_idx_external_name_order_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lget_name_by_idx_external_name_order_decreasing);
+#endif
+ }
+ PART_END(H5Lget_name_by_idx_external_name_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ H5Fclose(ext_file_id);
+ ext_file_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_name_by_idx_ud_crt_order_increasing)
+ {
+ TESTING_2("H5Lget_name_by_idx on user-defined link by creation order in increasing order");
+
+ /* TODO */
+
+ SKIPPED();
+ PART_EMPTY(H5Lget_name_by_idx_ud_crt_order_increasing);
+ }
+ PART_END(H5Lget_name_by_idx_ud_crt_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_name_by_idx_ud_crt_order_decreasing)
+ {
+ TESTING_2("H5Lget_name_by_idx on user-defined link by creation order in decreasing order");
+
+ /* TODO */
+
+ SKIPPED();
+ PART_EMPTY(H5Lget_name_by_idx_ud_crt_order_decreasing);
+ }
+ PART_END(H5Lget_name_by_idx_ud_crt_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_name_by_idx_ud_name_order_increasing)
+ {
+ TESTING_2("H5Lget_name_by_idx on user-defined link by alphabetical order in increasing order");
+
+ /* TODO */
+
+ SKIPPED();
+ PART_EMPTY(H5Lget_name_by_idx_ud_name_order_increasing);
+ }
+ PART_END(H5Lget_name_by_idx_ud_name_order_increasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+
+ PART_BEGIN(H5Lget_name_by_idx_ud_name_order_decreasing)
+ {
+ TESTING_2("H5Lget_name_by_idx on user-defined link by alphabetical order in decreasing order");
+
+ /* TODO */
+
+ SKIPPED();
+ PART_EMPTY(H5Lget_name_by_idx_ud_name_order_decreasing);
+ }
+ PART_END(H5Lget_name_by_idx_ud_name_order_decreasing);
+
+ H5E_BEGIN_TRY
+ {
+ H5Gclose(subgroup_id);
+ subgroup_id = H5I_INVALID_HID;
+ }
+ H5E_END_TRY;
+ }
+ 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(subgroup_id);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(ext_file_id);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check that a link's name can't be retrieved
+ * when H5Lget_name_by_idx is passed invalid parameters.
+ */
+static int
+test_get_link_name_invalid_params(void)
+{
+ ssize_t ret;
+ htri_t link_exists;
+ size_t link_name_buf_size = 0;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ char *link_name_buf = NULL;
+
+ TESTING_MULTIPART("link name retrieval 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_LINK_MORE) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_HARD_LINKS) || !(vol_cap_flags_g & H5VL_CAP_FLAG_EXTERNAL_LINKS) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_SOFT_LINKS) || !(vol_cap_flags_g & H5VL_CAP_FLAG_CREATION_ORDER)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, basic, more, soft, hard, external link, 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, GET_LINK_NAME_INVALID_PARAMS_TEST_GROUP_NAME, H5P_DEFAULT,
+ H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ GET_LINK_NAME_INVALID_PARAMS_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if (H5Lcreate_hard(group_id, ".", group_id, GET_LINK_NAME_INVALID_PARAMS_TEST_HARD_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to create hard link '%s'\n", GET_LINK_NAME_INVALID_PARAMS_TEST_HARD_LINK_NAME);
+ goto error;
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(group_id, GET_LINK_NAME_INVALID_PARAMS_TEST_HARD_LINK_NAME, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link exists\n");
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link did not exist\n");
+ goto error;
+ }
+
+ if ((ret = H5Lget_name_by_idx(group_id, ".", H5_INDEX_NAME, H5_ITER_INC, 0, NULL, link_name_buf_size,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" failed to retrieve link name size\n");
+ goto error;
+ }
+
+ link_name_buf_size = (size_t)ret;
+ if (NULL == (link_name_buf = (char *)HDmalloc(link_name_buf_size + 1)))
+ TEST_ERROR;
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ PART_BEGIN(H5Lget_name_by_idx_invalid_loc_id)
+ {
+ TESTING_2("H5Lget_name_by_idx with an invalid location ID");
+
+ H5E_BEGIN_TRY
+ {
+ ret = H5Lget_name_by_idx(H5I_INVALID_HID, ".", H5_INDEX_NAME, H5_ITER_INC, 0, link_name_buf,
+ link_name_buf_size + 1, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_name_by_idx succeeded with an invalid location ID!\n");
+ PART_ERROR(H5Lget_name_by_idx_invalid_loc_id);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_name_by_idx_invalid_loc_id);
+
+ PART_BEGIN(H5Lget_name_by_idx_invalid_grp_name)
+ {
+ TESTING_2("H5Lget_name_by_idx with an invalid group name");
+
+ H5E_BEGIN_TRY
+ {
+ ret = H5Lget_name_by_idx(group_id, NULL, H5_INDEX_NAME, H5_ITER_INC, 0, link_name_buf,
+ link_name_buf_size + 1, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_name_by_idx succeeded with a NULL group name!\n");
+ PART_ERROR(H5Lget_name_by_idx_invalid_grp_name);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ ret = H5Lget_name_by_idx(group_id, "", H5_INDEX_NAME, H5_ITER_INC, 0, link_name_buf,
+ link_name_buf_size + 1, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_name_by_idx succeeded with an invalid group name of ''!\n");
+ PART_ERROR(H5Lget_name_by_idx_invalid_grp_name);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_name_by_idx_invalid_grp_name);
+
+ PART_BEGIN(H5Lget_name_by_idx_invalid_index_type)
+ {
+ TESTING_2("H5Lget_name_by_idx with an invalid index type");
+
+ H5E_BEGIN_TRY
+ {
+ ret = H5Lget_name_by_idx(group_id, ".", H5_INDEX_UNKNOWN, H5_ITER_INC, 0, link_name_buf,
+ link_name_buf_size + 1, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_name_by_idx succeeded with invalid index type H5_INDEX_UNKNOWN!\n");
+ PART_ERROR(H5Lget_name_by_idx_invalid_index_type);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ ret = H5Lget_name_by_idx(group_id, ".", H5_INDEX_N, H5_ITER_INC, 0, link_name_buf,
+ link_name_buf_size + 1, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_name_by_idx succeeded with invalid index type H5_INDEX_N!\n");
+ PART_ERROR(H5Lget_name_by_idx_invalid_index_type);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_name_by_idx_invalid_index_type);
+
+ PART_BEGIN(H5Lget_name_by_idx_invalid_iter_order)
+ {
+ TESTING_2("H5Lget_name_by_idx with an invalid iteration ordering");
+
+ H5E_BEGIN_TRY
+ {
+ ret = H5Lget_name_by_idx(group_id, ".", H5_INDEX_NAME, H5_ITER_UNKNOWN, 0, link_name_buf,
+ link_name_buf_size + 1, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (ret >= 0) {
+ H5_FAILED();
+ HDprintf(
+ " H5Lget_name_by_idx succeeded with invalid iteration ordering H5_ITER_UNKNOWN!\n");
+ PART_ERROR(H5Lget_name_by_idx_invalid_iter_order);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ ret = H5Lget_name_by_idx(group_id, ".", H5_INDEX_NAME, H5_ITER_N, 0, link_name_buf,
+ link_name_buf_size + 1, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_name_by_idx succeeded with invalid iteration ordering H5_ITER_N!\n");
+ PART_ERROR(H5Lget_name_by_idx_invalid_iter_order);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_name_by_idx_invalid_iter_order);
+
+ PART_BEGIN(H5Lget_name_by_idx_invalid_lapl)
+ {
+ TESTING_2("H5Lget_name_by_idx with an invalid LAPL");
+
+ H5E_BEGIN_TRY
+ {
+ ret = H5Lget_name_by_idx(group_id, ".", H5_INDEX_NAME, H5_ITER_INC, 0, link_name_buf,
+ link_name_buf_size + 1, H5I_INVALID_HID);
+ }
+ H5E_END_TRY;
+
+ if (ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lget_name_by_idx succeeded with an invalid LAPL!\n");
+ PART_ERROR(H5Lget_name_by_idx_invalid_lapl);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lget_name_by_idx_invalid_lapl);
+ }
+ END_MULTIPART;
+
+ TESTING_2("test cleanup");
+
+ if (link_name_buf) {
+ HDfree(link_name_buf);
+ link_name_buf = NULL;
+ }
+
+ 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
+ {
+ if (link_name_buf)
+ HDfree(link_name_buf);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check the functionality of link
+ * iteration using H5Literate(_by_name)2 with
+ * only hard links. Iteration is done in
+ * increasing and decreasing order of both link
+ * name and link creation order.
+ */
+static int
+test_link_iterate_hard_links(void)
+{
+ size_t i;
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ hid_t gcpl_id = H5I_INVALID_HID;
+ hid_t dset_id = H5I_INVALID_HID;
+ hid_t dset_dtype = H5I_INVALID_HID;
+ hid_t dset_dspace = H5I_INVALID_HID;
+
+ TESTING_MULTIPART("link iteration (only hard 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_DATASET_BASIC) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_ITERATE) || !(vol_cap_flags_g & H5VL_CAP_FLAG_CREATION_ORDER)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, dataset, link, 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((gcpl_id = H5Pcreate(H5P_GROUP_CREATE)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create GCPL for link creation order tracking\n");
+ goto error;
+ }
+
+ if (H5Pset_link_creation_order(gcpl_id, H5P_CRT_ORDER_TRACKED) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't set link creation order tracking\n");
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, LINK_ITER_HARD_LINKS_TEST_SUBGROUP_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n", LINK_ITER_HARD_LINKS_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ if ((dset_dtype = generate_random_datatype(H5T_NO_CLASS, FALSE)) < 0)
+ TEST_ERROR;
+
+ if ((dset_dspace =
+ generate_random_dataspace(LINK_ITER_HARD_LINKS_TEST_DSET_SPACE_RANK, NULL, NULL, FALSE)) < 0)
+ TEST_ERROR;
+
+ for (i = 0; i < LINK_ITER_HARD_LINKS_TEST_NUM_LINKS; i++) {
+ char dset_name[LINK_ITER_HARD_LINKS_TEST_BUF_SIZE];
+
+ /* Create the datasets with a reverse-ordering naming scheme to test creation order later */
+ HDsnprintf(dset_name, LINK_ITER_HARD_LINKS_TEST_BUF_SIZE, LINK_ITER_HARD_LINKS_TEST_LINK_NAME "%d",
+ (int)(LINK_ITER_HARD_LINKS_TEST_NUM_LINKS - i - 1));
+
+ if ((dset_id = H5Dcreate2(group_id, dset_name, dset_dtype, dset_dspace, H5P_DEFAULT, H5P_DEFAULT,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", dset_name);
+ goto error;
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(group_id, dset_name, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", dset_name);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", dset_name);
+ goto error;
+ }
+
+ if (H5Dclose(dset_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close dataset '%s'\n", dset_name);
+ goto error;
+ }
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ /*
+ * NOTE: A counter is passed to the iteration callback to try to match up the
+ * expected links with a given step throughout all of the following
+ * iterations. This is to try and check that the links are indeed being
+ * returned in the correct order.
+ */
+
+ PART_BEGIN(H5Literate_link_name_increasing)
+ {
+ TESTING_2("H5Literate2 by link name in increasing order");
+
+ i = 0;
+
+ /* Test basic link iteration capability using both index types and both index orders */
+ if (H5Literate2(group_id, H5_INDEX_NAME, H5_ITER_INC, NULL, link_iter_hard_links_cb, &i) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate2 by index type name in increasing order failed\n");
+ PART_ERROR(H5Literate_link_name_increasing);
+ }
+
+ if (i != LINK_ITER_HARD_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_link_name_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_link_name_increasing);
+
+ PART_BEGIN(H5Literate_link_name_decreasing)
+ {
+ TESTING_2("H5Literate2 by link name in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ /* Reset the counter to the appropriate value for the next test */
+ i = LINK_ITER_HARD_LINKS_TEST_NUM_LINKS;
+
+ if (H5Literate2(group_id, H5_INDEX_NAME, H5_ITER_DEC, NULL, link_iter_hard_links_cb, &i) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate2 by index type name in decreasing order failed\n");
+ PART_ERROR(H5Literate_link_name_decreasing);
+ }
+
+ if (i != 2 * LINK_ITER_HARD_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_link_name_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Literate_link_name_decreasing);
+#endif
+ }
+ PART_END(H5Literate_link_name_decreasing);
+
+ PART_BEGIN(H5Literate_link_creation_increasing)
+ {
+ TESTING_2("H5Literate2 by creation order in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 2 * LINK_ITER_HARD_LINKS_TEST_NUM_LINKS;
+
+ if (H5Literate2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_INC, NULL, link_iter_hard_links_cb, &i) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate2 by index type creation order in increasing order failed\n");
+ PART_ERROR(H5Literate_link_creation_increasing);
+ }
+
+ if (i != 3 * LINK_ITER_HARD_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_link_creation_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_link_creation_increasing);
+
+ PART_BEGIN(H5Literate_link_creation_decreasing)
+ {
+ TESTING_2("H5Literate2 by creation order in decreasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 3 * LINK_ITER_HARD_LINKS_TEST_NUM_LINKS;
+
+ if (H5Literate2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_DEC, NULL, link_iter_hard_links_cb, &i) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate2 by index type creation order in decreasing order failed\n");
+ PART_ERROR(H5Literate_link_creation_decreasing);
+ }
+
+ if (i != 4 * LINK_ITER_HARD_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_link_creation_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_link_creation_decreasing);
+
+ PART_BEGIN(H5Literate_by_name_link_name_increasing)
+ {
+ TESTING_2("H5Literate_by_name2 by link name in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 0;
+
+ if (H5Literate_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_ITER_HARD_LINKS_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_INC, NULL, link_iter_hard_links_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate_by_name2 by index type name in increasing order failed\n");
+ PART_ERROR(H5Literate_by_name_link_name_increasing);
+ }
+
+ if (i != LINK_ITER_HARD_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_by_name_link_name_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_by_name_link_name_increasing);
+
+ PART_BEGIN(H5Literate_by_name_link_name_decreasing)
+ {
+ TESTING_2("H5Literate_by_name2 by link name in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ /* Reset the counter to the appropriate value for the next test */
+ i = LINK_ITER_HARD_LINKS_TEST_NUM_LINKS;
+
+ if (H5Literate_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_ITER_HARD_LINKS_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_DEC, NULL, link_iter_hard_links_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate_by_name2 by index type name in decreasing order failed\n");
+ PART_ERROR(H5Literate_by_name_link_name_decreasing);
+ }
+
+ if (i != 2 * LINK_ITER_HARD_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_by_name_link_name_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Literate_by_name_link_name_decreasing);
+#endif
+ }
+ PART_END(H5Literate_by_name_link_name_decreasing);
+
+ PART_BEGIN(H5Literate_by_name_creation_increasing)
+ {
+ TESTING_2("H5Literate_by_name2 by creation order in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 2 * LINK_ITER_HARD_LINKS_TEST_NUM_LINKS;
+
+ if (H5Literate_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_ITER_HARD_LINKS_TEST_SUBGROUP_NAME,
+ H5_INDEX_CRT_ORDER, H5_ITER_INC, NULL, link_iter_hard_links_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate_by_name2 by index type creation order in increasing order failed\n");
+ PART_ERROR(H5Literate_by_name_creation_increasing);
+ }
+
+ if (i != 3 * LINK_ITER_HARD_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_by_name_creation_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_by_name_creation_increasing);
+
+ PART_BEGIN(H5Literate_by_name_creation_decreasing)
+ {
+ TESTING_2("H5Literate_by_name2 by creation order in decreasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 3 * LINK_ITER_HARD_LINKS_TEST_NUM_LINKS;
+
+ if (H5Literate_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_ITER_HARD_LINKS_TEST_SUBGROUP_NAME,
+ H5_INDEX_CRT_ORDER, H5_ITER_DEC, NULL, link_iter_hard_links_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate_by_name2 by index type creation order in decreasing order failed\n");
+ PART_ERROR(H5Literate_by_name_creation_decreasing);
+ }
+
+ if (i != 4 * LINK_ITER_HARD_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_by_name_creation_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_by_name_creation_decreasing);
+ }
+ END_MULTIPART;
+
+ TESTING_2("test cleanup");
+
+ if (H5Sclose(dset_dspace) < 0)
+ TEST_ERROR;
+ if (H5Tclose(dset_dtype) < 0)
+ TEST_ERROR;
+ 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
+ {
+ H5Sclose(dset_dspace);
+ H5Tclose(dset_dtype);
+ H5Dclose(dset_id);
+ H5Pclose(gcpl_id);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check the functionality of link
+ * iteration using H5Literate(_by_name)2 with
+ * only soft links. Iteration is done in
+ * increasing and decreasing order of both link
+ * name and link creation order.
+ */
+static int
+test_link_iterate_soft_links(void)
+{
+ size_t i;
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ hid_t gcpl_id = H5I_INVALID_HID;
+
+ TESTING_MULTIPART("link iteration (only 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_SOFT_LINKS) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_ITERATE) || !(vol_cap_flags_g & H5VL_CAP_FLAG_CREATION_ORDER)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, link, 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((gcpl_id = H5Pcreate(H5P_GROUP_CREATE)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create GCPL for link creation order tracking\n");
+ goto error;
+ }
+
+ if (H5Pset_link_creation_order(gcpl_id, H5P_CRT_ORDER_TRACKED) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't set link creation order tracking\n");
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, LINK_ITER_SOFT_LINKS_TEST_SUBGROUP_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n", LINK_ITER_SOFT_LINKS_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ for (i = 0; i < LINK_ITER_SOFT_LINKS_TEST_NUM_LINKS; i++) {
+ char link_name[LINK_ITER_SOFT_LINKS_TEST_BUF_SIZE];
+ char link_target[LINK_ITER_SOFT_LINKS_TEST_BUF_SIZE];
+
+ /* Create the links with a reverse-ordering naming scheme to test creation order later */
+ HDsnprintf(link_name, LINK_ITER_SOFT_LINKS_TEST_BUF_SIZE, LINK_ITER_SOFT_LINKS_TEST_LINK_NAME "%d",
+ (int)(LINK_ITER_SOFT_LINKS_TEST_NUM_LINKS - i - 1));
+
+ HDsnprintf(link_target, LINK_ITER_SOFT_LINKS_TEST_BUF_SIZE, "target%d",
+ (int)(LINK_ITER_SOFT_LINKS_TEST_NUM_LINKS - i - 1));
+
+ if (H5Lcreate_soft(link_target, group_id, link_name, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", link_name);
+ goto error;
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(group_id, link_name, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", link_name);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", link_name);
+ goto error;
+ }
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ /*
+ * NOTE: A counter is passed to the iteration callback to try to match up the
+ * expected links with a given step throughout all of the following
+ * iterations. This is to try and check that the links are indeed being
+ * returned in the correct order.
+ */
+
+ PART_BEGIN(H5Literate_link_name_increasing)
+ {
+ TESTING_2("H5Literate2 by link name in increasing order");
+
+ i = 0;
+
+ /* Test basic link iteration capability using both index types and both index orders */
+ if (H5Literate2(group_id, H5_INDEX_NAME, H5_ITER_INC, NULL, link_iter_soft_links_cb, &i) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate2 by index type name in increasing order failed\n");
+ PART_ERROR(H5Literate_link_name_increasing);
+ }
+
+ if (i != LINK_ITER_SOFT_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_link_name_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_link_name_increasing);
+
+ PART_BEGIN(H5Literate_link_name_decreasing)
+ {
+ TESTING_2("H5Literate2 by link name in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ /* Reset the counter to the appropriate value for the next test */
+ i = LINK_ITER_SOFT_LINKS_TEST_NUM_LINKS;
+
+ if (H5Literate2(group_id, H5_INDEX_NAME, H5_ITER_DEC, NULL, link_iter_soft_links_cb, &i) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate2 by index type name in decreasing order failed\n");
+ PART_ERROR(H5Literate_link_name_decreasing);
+ }
+
+ if (i != 2 * LINK_ITER_SOFT_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_link_name_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Literate_link_name_decreasing);
+#endif
+ }
+ PART_END(H5Literate_link_name_decreasing);
+
+ PART_BEGIN(H5Literate_link_creation_increasing)
+ {
+ TESTING_2("H5Literate2 by creation order in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 2 * LINK_ITER_SOFT_LINKS_TEST_NUM_LINKS;
+
+ if (H5Literate2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_INC, NULL, link_iter_soft_links_cb, &i) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate2 by index type creation order in increasing order failed\n");
+ PART_ERROR(H5Literate_link_creation_increasing);
+ }
+
+ if (i != 3 * LINK_ITER_SOFT_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_link_creation_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_link_creation_increasing);
+
+ PART_BEGIN(H5Literate_link_creation_decreasing)
+ {
+ TESTING_2("H5Literate2 by creation order in decreasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 3 * LINK_ITER_SOFT_LINKS_TEST_NUM_LINKS;
+
+ if (H5Literate2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_DEC, NULL, link_iter_soft_links_cb, &i) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate2 by index type creation order in decreasing order failed\n");
+ PART_ERROR(H5Literate_link_creation_decreasing);
+ }
+
+ if (i != 4 * LINK_ITER_SOFT_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_link_creation_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_link_creation_decreasing);
+
+ PART_BEGIN(H5Literate_by_name_link_name_increasing)
+ {
+ TESTING_2("H5Literate_by_name2 by link name in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 0;
+
+ if (H5Literate_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_ITER_SOFT_LINKS_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_INC, NULL, link_iter_soft_links_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate_by_name2 by index type name in increasing order failed\n");
+ PART_ERROR(H5Literate_by_name_link_name_increasing);
+ }
+
+ if (i != LINK_ITER_SOFT_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_by_name_link_name_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_by_name_link_name_increasing);
+
+ PART_BEGIN(H5Literate_by_name_link_name_decreasing)
+ {
+ TESTING_2("H5Literate_by_name2 by link name in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ /* Reset the counter to the appropriate value for the next test */
+ i = LINK_ITER_SOFT_LINKS_TEST_NUM_LINKS;
+
+ if (H5Literate_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_ITER_SOFT_LINKS_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_DEC, NULL, link_iter_soft_links_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate_by_name2 by index type name in decreasing order failed\n");
+ PART_ERROR(H5Literate_by_name_link_name_decreasing);
+ }
+
+ if (i != 2 * LINK_ITER_SOFT_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_by_name_link_name_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Literate_by_name_link_name_decreasing);
+#endif
+ }
+ PART_END(H5Literate_by_name_link_name_decreasing);
+
+ PART_BEGIN(H5Literate_by_name_creation_increasing)
+ {
+ TESTING_2("H5Literate_by_name2 by creation order in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 2 * LINK_ITER_SOFT_LINKS_TEST_NUM_LINKS;
+
+ if (H5Literate_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_ITER_SOFT_LINKS_TEST_SUBGROUP_NAME,
+ H5_INDEX_CRT_ORDER, H5_ITER_INC, NULL, link_iter_soft_links_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate_by_name2 by index type creation order in increasing order failed\n");
+ PART_ERROR(H5Literate_by_name_creation_increasing);
+ }
+
+ if (i != 3 * LINK_ITER_SOFT_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_by_name_creation_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_by_name_creation_increasing);
+
+ PART_BEGIN(H5Literate_by_name_creation_decreasing)
+ {
+ TESTING_2("H5Literate_by_name2 by creation order in decreasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 3 * LINK_ITER_SOFT_LINKS_TEST_NUM_LINKS;
+
+ if (H5Literate_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_ITER_SOFT_LINKS_TEST_SUBGROUP_NAME,
+ H5_INDEX_CRT_ORDER, H5_ITER_DEC, NULL, link_iter_soft_links_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate_by_name2 by index type creation order in decreasing order failed\n");
+ PART_ERROR(H5Literate_by_name_creation_decreasing);
+ }
+
+ if (i != 4 * LINK_ITER_SOFT_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_by_name_creation_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_by_name_creation_decreasing);
+ }
+ 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_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check the functionality of link
+ * iteration using H5Literate(_by_name)2 with
+ * only external links. Iteration is done in
+ * increasing and decreasing order of both link
+ * name and link creation order.
+ */
+static int
+test_link_iterate_external_links(void)
+{
+#ifndef NO_EXTERNAL_LINKS
+ size_t i;
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ hid_t gcpl_id = H5I_INVALID_HID;
+ char ext_link_filename[H5_API_TEST_FILENAME_MAX_LENGTH];
+#endif
+
+ TESTING_MULTIPART("link iteration (only external 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_EXTERNAL_LINKS) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_ITERATE) || !(vol_cap_flags_g & H5VL_CAP_FLAG_CREATION_ORDER)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, link, or iterate aren't supported with this "
+ "connector\n");
+ return 0;
+ }
+
+#ifndef NO_EXTERNAL_LINKS
+ TESTING_2("test setup");
+
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s", EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ goto error;
+ }
+
+ if (H5Fclose(file_id) < 0)
+ TEST_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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((gcpl_id = H5Pcreate(H5P_GROUP_CREATE)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create GCPL for link creation order tracking\n");
+ goto error;
+ }
+
+ if (H5Pset_link_creation_order(gcpl_id, H5P_CRT_ORDER_TRACKED) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't set link creation order tracking\n");
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, LINK_ITER_EXT_LINKS_TEST_SUBGROUP_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n", LINK_ITER_EXT_LINKS_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ for (i = 0; i < LINK_ITER_EXT_LINKS_TEST_NUM_LINKS; i++) {
+ char link_name[LINK_ITER_EXT_LINKS_TEST_BUF_SIZE];
+
+ /* Create the links with a reverse-ordering naming scheme to test creation order later */
+ HDsnprintf(link_name, LINK_ITER_EXT_LINKS_TEST_BUF_SIZE, LINK_ITER_EXT_LINKS_TEST_LINK_NAME "%d",
+ (int)(LINK_ITER_EXT_LINKS_TEST_NUM_LINKS - i - 1));
+
+ if (H5Lcreate_external(ext_link_filename, "/", group_id, link_name, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", link_name);
+ goto error;
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(group_id, link_name, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", link_name);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", link_name);
+ goto error;
+ }
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ /*
+ * NOTE: A counter is passed to the iteration callback to try to match up the
+ * expected links with a given step throughout all of the following
+ * iterations. This is to try and check that the links are indeed being
+ * returned in the correct order.
+ */
+
+ PART_BEGIN(H5Literate_link_name_increasing)
+ {
+ TESTING_2("H5Literate2 by link name in increasing order");
+
+ i = 0;
+
+ /* Test basic link iteration capability using both index types and both index orders */
+ if (H5Literate2(group_id, H5_INDEX_NAME, H5_ITER_INC, NULL, link_iter_external_links_cb, &i) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate2 by index type name in increasing order failed\n");
+ PART_ERROR(H5Literate_link_name_increasing);
+ }
+
+ if (i != LINK_ITER_EXT_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_link_name_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_link_name_increasing);
+
+ PART_BEGIN(H5Literate_link_name_decreasing)
+ {
+ TESTING_2("H5Literate2 by link name in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ /* Reset the counter to the appropriate value for the next test */
+ i = LINK_ITER_EXT_LINKS_TEST_NUM_LINKS;
+
+ if (H5Literate2(group_id, H5_INDEX_NAME, H5_ITER_DEC, NULL, link_iter_external_links_cb, &i) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate2 by index type name in decreasing order failed\n");
+ PART_ERROR(H5Literate_link_name_decreasing);
+ }
+
+ if (i != 2 * LINK_ITER_EXT_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_link_name_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Literate_link_name_decreasing);
+#endif
+ }
+ PART_END(H5Literate_link_name_decreasing);
+
+ PART_BEGIN(H5Literate_link_creation_increasing)
+ {
+ TESTING_2("H5Literate2 by creation order in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 2 * LINK_ITER_EXT_LINKS_TEST_NUM_LINKS;
+
+ if (H5Literate2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_INC, NULL, link_iter_external_links_cb,
+ &i) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate2 by index type creation order in increasing order failed\n");
+ PART_ERROR(H5Literate_link_creation_increasing);
+ }
+
+ if (i != 3 * LINK_ITER_EXT_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_link_creation_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_link_creation_increasing);
+
+ PART_BEGIN(H5Literate_link_creation_decreasing)
+ {
+ TESTING_2("H5Literate2 by creation order in decreasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 3 * LINK_ITER_EXT_LINKS_TEST_NUM_LINKS;
+
+ if (H5Literate2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_DEC, NULL, link_iter_external_links_cb,
+ &i) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate2 by index type creation order in decreasing order failed\n");
+ PART_ERROR(H5Literate_link_creation_decreasing);
+ }
+
+ if (i != 4 * LINK_ITER_EXT_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_link_creation_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_link_creation_decreasing);
+
+ PART_BEGIN(H5Literate_by_name_link_name_increasing)
+ {
+ TESTING_2("H5Literate_by_name2 by link name in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 0;
+
+ if (H5Literate_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_ITER_EXT_LINKS_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_INC, NULL, link_iter_external_links_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate_by_name2 by index type name in increasing order failed\n");
+ PART_ERROR(H5Literate_by_name_link_name_increasing);
+ }
+
+ if (i != LINK_ITER_EXT_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_by_name_link_name_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_by_name_link_name_increasing);
+
+ PART_BEGIN(H5Literate_by_name_link_name_decreasing)
+ {
+ TESTING_2("H5Literate_by_name2 by link name in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ /* Reset the counter to the appropriate value for the next test */
+ i = LINK_ITER_EXT_LINKS_TEST_NUM_LINKS;
+
+ if (H5Literate_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_ITER_EXT_LINKS_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_DEC, NULL, link_iter_external_links_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate_by_name2 by index type name in decreasing order failed\n");
+ PART_ERROR(H5Literate_by_name_link_name_decreasing);
+ }
+
+ if (i != 2 * LINK_ITER_EXT_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_by_name_link_name_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Literate_by_name_link_name_decreasing);
+#endif
+ }
+ PART_END(H5Literate_by_name_link_name_decreasing);
+
+ PART_BEGIN(H5Literate_by_name_creation_increasing)
+ {
+ TESTING_2("H5Literate_by_name2 by creation order in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 2 * LINK_ITER_EXT_LINKS_TEST_NUM_LINKS;
+
+ if (H5Literate_by_name2(file_id,
+ "/" LINK_TEST_GROUP_NAME "/" LINK_ITER_EXT_LINKS_TEST_SUBGROUP_NAME,
+ H5_INDEX_CRT_ORDER, H5_ITER_INC, NULL, link_iter_external_links_cb, &i,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate_by_name2 by index type creation order in increasing order failed\n");
+ PART_ERROR(H5Literate_by_name_creation_increasing);
+ }
+
+ if (i != 3 * LINK_ITER_EXT_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_by_name_creation_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_by_name_creation_increasing);
+
+ PART_BEGIN(H5Literate_by_name_creation_decreasing)
+ {
+ TESTING_2("H5Literate_by_name2 by creation order in decreasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 3 * LINK_ITER_EXT_LINKS_TEST_NUM_LINKS;
+
+ if (H5Literate_by_name2(file_id,
+ "/" LINK_TEST_GROUP_NAME "/" LINK_ITER_EXT_LINKS_TEST_SUBGROUP_NAME,
+ H5_INDEX_CRT_ORDER, H5_ITER_DEC, NULL, link_iter_external_links_cb, &i,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate_by_name2 by index type creation order in decreasing order failed\n");
+ PART_ERROR(H5Literate_by_name_creation_decreasing);
+ }
+
+ if (i != 4 * LINK_ITER_EXT_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_by_name_creation_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_by_name_creation_decreasing);
+ }
+ 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_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+#else
+ SKIPPED();
+ return 0;
+#endif
+}
+
+/*
+ * A test to check the functionality of link
+ * iteration using H5Literate(_by_name)2 with
+ * only user-defined links. Iteration is done
+ * in increasing and decreasing order of both
+ * link name and link creation order.
+ *
+ * TODO refactor test so that creation order tests
+ * actually test the order that objects were created in.
+ */
+static int
+test_link_iterate_ud_links(void)
+{
+ TESTING("link iteration (only user-defined links)");
+
+ SKIPPED();
+
+ return 1;
+}
+
+/*
+ * A test to check the functionality of link
+ * iteration using H5Literate(_by_name)2 with
+ * mixed link types. Iteration is done in
+ * increasing and decreasing order of both link
+ * name and link creation order.
+ *
+ * TODO refactor test so that creation order tests
+ * actually test the order that objects were created in.
+ *
+ * TODO add UD links
+ *
+ * TODO refactor link saving portion into its own test
+ */
+static int
+test_link_iterate_mixed_links(void)
+{
+#if !defined(NO_EXTERNAL_LINKS) && !defined(NO_USER_DEFINED_LINKS)
+ hsize_t saved_idx;
+ size_t i;
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ hid_t gcpl_id = H5I_INVALID_HID;
+ hid_t dset_id = H5I_INVALID_HID;
+ hid_t dset_dtype = H5I_INVALID_HID;
+ hid_t dset_dspace = H5I_INVALID_HID;
+ int halted;
+ char ext_link_filename[H5_API_TEST_FILENAME_MAX_LENGTH];
+#endif
+
+ TESTING_MULTIPART("link iteration (mixed link types)");
+
+ /* 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_EXTERNAL_LINKS) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_SOFT_LINKS) || !(vol_cap_flags_g & H5VL_CAP_FLAG_ITERATE) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_CREATION_ORDER)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, link, soft or external link, iterate, or creation "
+ "order aren't supported with this connector\n");
+ return 0;
+ }
+
+#if !defined(NO_EXTERNAL_LINKS) && !defined(NO_USER_DEFINED_LINKS)
+ TESTING_2("test setup");
+
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s", EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ goto error;
+ }
+
+ if (H5Fclose(file_id) < 0)
+ TEST_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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((gcpl_id = H5Pcreate(H5P_GROUP_CREATE)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create GCPL for link creation order tracking\n");
+ goto error;
+ }
+
+ if (H5Pset_link_creation_order(gcpl_id, H5P_CRT_ORDER_TRACKED) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't set link creation order tracking\n");
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, LINK_ITER_MIXED_LINKS_TEST_SUBGROUP_NAME, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n", LINK_ITER_MIXED_LINKS_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ if ((dset_dtype = generate_random_datatype(H5T_NO_CLASS, FALSE)) < 0)
+ TEST_ERROR;
+
+ if ((dset_dspace =
+ generate_random_dataspace(LINK_ITER_MIXED_LINKS_TEST_DSET_SPACE_RANK, NULL, NULL, FALSE)) < 0)
+ TEST_ERROR;
+
+ if ((dset_id = H5Dcreate2(group_id, LINK_ITER_MIXED_LINKS_TEST_HARD_LINK_NAME, dset_dtype, dset_dspace,
+ H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", LINK_ITER_MIXED_LINKS_TEST_HARD_LINK_NAME);
+ goto error;
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" LINK_ITER_MIXED_LINKS_TEST_SUBGROUP_NAME
+ "/" LINK_ITER_MIXED_LINKS_TEST_HARD_LINK_NAME,
+ group_id, LINK_ITER_MIXED_LINKS_TEST_SOFT_LINK_NAME, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", LINK_ITER_MIXED_LINKS_TEST_SOFT_LINK_NAME);
+ goto error;
+ }
+
+ if (H5Lcreate_external(ext_link_filename, "/", group_id, LINK_ITER_MIXED_LINKS_TEST_EXT_LINK_NAME,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", LINK_ITER_MIXED_LINKS_TEST_EXT_LINK_NAME);
+ goto error;
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(group_id, LINK_ITER_MIXED_LINKS_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", LINK_ITER_MIXED_LINKS_TEST_HARD_LINK_NAME);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" first link did not exist\n");
+ goto error;
+ }
+
+ if ((link_exists = H5Lexists(group_id, LINK_ITER_MIXED_LINKS_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", LINK_ITER_MIXED_LINKS_TEST_SOFT_LINK_NAME);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" second link did not exist\n");
+ goto error;
+ }
+
+ if ((link_exists = H5Lexists(group_id, LINK_ITER_MIXED_LINKS_TEST_EXT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", LINK_ITER_MIXED_LINKS_TEST_EXT_LINK_NAME);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" third link did not exist\n");
+ goto error;
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ /*
+ * NOTE: A counter is passed to the iteration callback to try to match up the
+ * expected links with a given step throughout all of the following
+ * iterations. This is to try and check that the links are indeed being
+ * returned in the correct order.
+ */
+
+ PART_BEGIN(H5Literate_link_name_increasing)
+ {
+ TESTING_2("H5Literate2 by link name in increasing order");
+
+ i = 0;
+
+ /* Test basic link iteration capability using both index types and both index orders */
+ if (H5Literate2(group_id, H5_INDEX_NAME, H5_ITER_INC, NULL, link_iter_mixed_links_cb, &i) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate2 by index type name in increasing order failed\n");
+ PART_ERROR(H5Literate_link_name_increasing);
+ }
+
+ if (i != LINK_ITER_MIXED_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_link_name_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_link_name_increasing);
+
+ PART_BEGIN(H5Literate_link_name_decreasing)
+ {
+ TESTING_2("H5Literate2 by link name in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ /* Reset the counter to the appropriate value for the next test */
+ i = LINK_ITER_MIXED_LINKS_TEST_NUM_LINKS;
+
+ if (H5Literate2(group_id, H5_INDEX_NAME, H5_ITER_DEC, NULL, link_iter_mixed_links_cb, &i) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate2 by index type name in decreasing order failed\n");
+ PART_ERROR(H5Literate_link_name_decreasing);
+ }
+
+ if (i != 2 * LINK_ITER_MIXED_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_link_name_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Literate_link_name_decreasing);
+#endif
+ }
+ PART_END(H5Literate_link_name_decreasing);
+
+ PART_BEGIN(H5Literate_link_creation_increasing)
+ {
+ TESTING_2("H5Literate2 by creation order in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 2 * LINK_ITER_MIXED_LINKS_TEST_NUM_LINKS;
+
+ if (H5Literate2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_INC, NULL, link_iter_mixed_links_cb, &i) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate2 by index type creation order in increasing order failed\n");
+ PART_ERROR(H5Literate_link_creation_increasing);
+ }
+
+ if (i != 3 * LINK_ITER_MIXED_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_link_creation_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_link_creation_increasing);
+
+ PART_BEGIN(H5Literate_link_creation_decreasing)
+ {
+ TESTING_2("H5Literate2 by creation order in decreasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 3 * LINK_ITER_MIXED_LINKS_TEST_NUM_LINKS;
+
+ if (H5Literate2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_DEC, NULL, link_iter_mixed_links_cb, &i) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate2 by index type creation order in decreasing order failed\n");
+ PART_ERROR(H5Literate_link_creation_decreasing);
+ }
+
+ if (i != 4 * LINK_ITER_MIXED_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_link_creation_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_link_creation_decreasing);
+
+ PART_BEGIN(H5Literate_by_name_link_name_increasing)
+ {
+ TESTING_2("H5Literate_by_name2 by link name in increasing order");
+
+ i = 0;
+
+ if (H5Literate_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_ITER_MIXED_LINKS_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_INC, NULL, link_iter_mixed_links_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate_by_name2 by index type name in increasing order failed\n");
+ PART_ERROR(H5Literate_by_name_link_name_increasing);
+ }
+
+ if (i != LINK_ITER_MIXED_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_by_name_link_name_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_by_name_link_name_increasing);
+
+ PART_BEGIN(H5Literate_by_name_link_name_decreasing)
+ {
+ TESTING_2("H5Literate_by_name2 by link name in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ /* Reset the counter to the appropriate value for the next test */
+ i = LINK_ITER_MIXED_LINKS_TEST_NUM_LINKS;
+
+ if (H5Literate_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_ITER_MIXED_LINKS_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_DEC, NULL, link_iter_mixed_links_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate_by_name2 by index type name in decreasing order failed\n");
+ PART_ERROR(H5Literate_by_name_link_name_decreasing);
+ }
+
+ if (i != 2 * LINK_ITER_MIXED_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_by_name_link_name_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Literate_by_name_link_name_decreasing);
+#endif
+ }
+ PART_END(H5Literate_by_name_link_name_decreasing);
+
+ PART_BEGIN(H5Literate_by_name_creation_increasing)
+ {
+ TESTING_2("H5Literate_by_name2 by creation order in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 2 * LINK_ITER_MIXED_LINKS_TEST_NUM_LINKS;
+
+ if (H5Literate_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_ITER_MIXED_LINKS_TEST_SUBGROUP_NAME,
+ H5_INDEX_CRT_ORDER, H5_ITER_INC, NULL, link_iter_mixed_links_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate_by_name2 by index type creation order in increasing order failed\n");
+ PART_ERROR(H5Literate_by_name_creation_increasing);
+ }
+
+ if (i != 3 * LINK_ITER_MIXED_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_by_name_creation_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_by_name_creation_increasing);
+
+ PART_BEGIN(H5Literate_by_name_creation_decreasing)
+ {
+ TESTING_2("H5Literate_by_name2 by creation order in decreasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 3 * LINK_ITER_MIXED_LINKS_TEST_NUM_LINKS;
+
+ if (H5Literate_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_ITER_MIXED_LINKS_TEST_SUBGROUP_NAME,
+ H5_INDEX_CRT_ORDER, H5_ITER_DEC, NULL, link_iter_mixed_links_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate_by_name2 by index type creation order in decreasing order failed\n");
+ PART_ERROR(H5Literate_by_name_creation_decreasing);
+ }
+
+ if (i != 4 * LINK_ITER_MIXED_LINKS_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not iterated over!\n");
+ PART_ERROR(H5Literate_by_name_creation_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_by_name_creation_decreasing);
+
+ PART_BEGIN(H5Literate_index_saving_increasing)
+ {
+ TESTING_2("H5Literate2 index-saving capabilities in increasing order");
+
+ /* Test the H5Literate2 index-saving capabilities */
+ saved_idx = 0;
+ halted = 0;
+
+ if (H5Literate2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_INC, &saved_idx, link_iter_idx_saving_cb,
+ &halted) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate2 index-saving capability test failed\n");
+ PART_ERROR(H5Literate_index_saving_increasing);
+ }
+
+ if (saved_idx != 2) {
+ H5_FAILED();
+ HDprintf(" saved index after iteration was wrong\n");
+ PART_ERROR(H5Literate_index_saving_increasing);
+ }
+
+ if (H5Literate2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_INC, &saved_idx, link_iter_idx_saving_cb,
+ &halted) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't finish iterating when beginning from saved index\n");
+ PART_ERROR(H5Literate_index_saving_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_index_saving_increasing);
+
+ PART_BEGIN(H5Literate_index_saving_decreasing)
+ {
+ TESTING_2("H5Literate2 index-saving capabilities in decreasing order");
+
+ saved_idx = LINK_ITER_MIXED_LINKS_TEST_NUM_LINKS - 1;
+ halted = 0;
+
+ if (H5Literate2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_DEC, &saved_idx, link_iter_idx_saving_cb,
+ &halted) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate2 index-saving capability test failed\n");
+ PART_ERROR(H5Literate_index_saving_decreasing);
+ }
+
+ if (saved_idx != 2) {
+ H5_FAILED();
+ HDprintf(" saved index after iteration was wrong\n");
+ PART_ERROR(H5Literate_index_saving_decreasing);
+ }
+
+ if (H5Literate2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_DEC, &saved_idx, link_iter_idx_saving_cb,
+ &halted) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't finish iterating when beginning from saved index\n");
+ PART_ERROR(H5Literate_index_saving_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_index_saving_decreasing);
+ }
+ END_MULTIPART;
+
+ TESTING_2("test cleanup");
+
+ if (H5Sclose(dset_dspace) < 0)
+ TEST_ERROR;
+ if (H5Tclose(dset_dtype) < 0)
+ TEST_ERROR;
+ if (H5Dclose(dset_id) < 0)
+ TEST_ERROR;
+ 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
+ {
+ H5Sclose(dset_dspace);
+ H5Tclose(dset_dtype);
+ H5Dclose(dset_id);
+ H5Pclose(gcpl_id);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+#else
+ SKIPPED();
+ return 0;
+#endif
+}
+
+/*
+ * A test to check that H5Literate(_by_name)2 fails
+ * when given invalid parameters.
+ */
+static int
+test_link_iterate_invalid_params(void)
+{
+ herr_t err_ret = -1;
+ size_t i;
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ hid_t gcpl_id = H5I_INVALID_HID;
+ hid_t dset_id = H5I_INVALID_HID;
+ hid_t dset_dtype = H5I_INVALID_HID;
+ hid_t dset_dspace = H5I_INVALID_HID;
+ char ext_link_filename[H5_API_TEST_FILENAME_MAX_LENGTH];
+
+ TESTING_MULTIPART("link iteration 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_EXTERNAL_LINKS) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_SOFT_LINKS) || !(vol_cap_flags_g & H5VL_CAP_FLAG_ITERATE) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_DATASET_BASIC) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_CREATION_ORDER)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, dataset, link, soft or external link, iterate, or "
+ "creation order aren't supported with this connector\n");
+ return 0;
+ }
+
+ TESTING_2("test setup");
+
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s", EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ goto error;
+ }
+
+ if (H5Fclose(file_id) < 0)
+ TEST_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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((gcpl_id = H5Pcreate(H5P_GROUP_CREATE)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create GCPL for link creation order tracking\n");
+ goto error;
+ }
+
+ if (H5Pset_link_creation_order(gcpl_id, H5P_CRT_ORDER_TRACKED) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't set link creation order tracking\n");
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, LINK_ITER_INVALID_PARAMS_TEST_SUBGROUP_NAME, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ LINK_ITER_INVALID_PARAMS_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ if ((dset_dtype = generate_random_datatype(H5T_NO_CLASS, FALSE)) < 0)
+ TEST_ERROR;
+
+ if ((dset_dspace =
+ generate_random_dataspace(LINK_ITER_INVALID_PARAMS_TEST_DSET_SPACE_RANK, NULL, NULL, FALSE)) < 0)
+ TEST_ERROR;
+
+ if ((dset_id = H5Dcreate2(group_id, LINK_ITER_INVALID_PARAMS_TEST_HARD_LINK_NAME, dset_dtype, dset_dspace,
+ H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", LINK_ITER_INVALID_PARAMS_TEST_HARD_LINK_NAME);
+ goto error;
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" LINK_ITER_INVALID_PARAMS_TEST_SUBGROUP_NAME
+ "/" LINK_ITER_INVALID_PARAMS_TEST_HARD_LINK_NAME,
+ group_id, LINK_ITER_INVALID_PARAMS_TEST_SOFT_LINK_NAME, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", LINK_ITER_INVALID_PARAMS_TEST_SOFT_LINK_NAME);
+ goto error;
+ }
+#ifndef NO_EXTERNAL_LINKS
+ if (H5Lcreate_external(ext_link_filename, "/", group_id, LINK_ITER_INVALID_PARAMS_TEST_EXT_LINK_NAME,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", LINK_ITER_INVALID_PARAMS_TEST_EXT_LINK_NAME);
+ goto error;
+ }
+#endif
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(group_id, LINK_ITER_INVALID_PARAMS_TEST_HARD_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n",
+ LINK_ITER_INVALID_PARAMS_TEST_HARD_LINK_NAME);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" first link did not exist\n");
+ goto error;
+ }
+
+ if ((link_exists = H5Lexists(group_id, LINK_ITER_INVALID_PARAMS_TEST_SOFT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n",
+ LINK_ITER_INVALID_PARAMS_TEST_SOFT_LINK_NAME);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" second link did not exist\n");
+ goto error;
+ }
+#ifndef NO_EXTERNAL_LINKS
+ if ((link_exists = H5Lexists(group_id, LINK_ITER_INVALID_PARAMS_TEST_EXT_LINK_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", LINK_ITER_INVALID_PARAMS_TEST_EXT_LINK_NAME);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" third link did not exist\n");
+ goto error;
+ }
+#endif
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ i = 0;
+
+ PART_BEGIN(H5Literate_invalid_grp_id)
+ {
+ TESTING_2("H5Literate2 with an invalid group ID");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Literate2(H5I_INVALID_HID, H5_INDEX_NAME, H5_ITER_INC, NULL,
+ link_iter_invalid_params_cb, NULL);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate2 succeeded with an invalid group ID!\n");
+ PART_ERROR(H5Literate_invalid_grp_id);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_invalid_grp_id);
+
+ PART_BEGIN(H5Literate_invalid_index_type)
+ {
+ TESTING_2("H5Literate2 with an invalid index type");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Literate2(group_id, H5_INDEX_UNKNOWN, H5_ITER_INC, NULL,
+ link_iter_invalid_params_cb, NULL);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate2 succeeded with invalid index type H5_INDEX_UNKNOWN!\n");
+ PART_ERROR(H5Literate_invalid_index_type);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret =
+ H5Literate2(group_id, H5_INDEX_N, H5_ITER_INC, NULL, link_iter_invalid_params_cb, NULL);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate2 succeeded with invalid index type H5_INDEX_N!\n");
+ PART_ERROR(H5Literate_invalid_index_type);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_invalid_index_type);
+
+ PART_BEGIN(H5Literate_invalid_iter_order)
+ {
+ TESTING_2("H5Literate2 with an invalid iteration ordering");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Literate2(group_id, H5_INDEX_NAME, H5_ITER_UNKNOWN, NULL,
+ link_iter_invalid_params_cb, NULL);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate2 succeeded with invalid iteration ordering H5_ITER_UNKNOWN!\n");
+ PART_ERROR(H5Literate_invalid_iter_order);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret =
+ H5Literate2(group_id, H5_INDEX_NAME, H5_ITER_N, NULL, link_iter_invalid_params_cb, NULL);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate2 succeeded with invalid iteration ordering H5_ITER_N!\n");
+ PART_ERROR(H5Literate_invalid_iter_order);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_invalid_iter_order);
+
+ PART_BEGIN(H5Literate_by_name_invalid_loc_id)
+ {
+ TESTING_2("H5Literate_by_name2 with an invalid location ID");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Literate_by_name2(
+ H5I_INVALID_HID, "/" LINK_TEST_GROUP_NAME "/" LINK_ITER_INVALID_PARAMS_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_INC, NULL, link_iter_invalid_params_cb, NULL, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate_by_name2 succeeded with an invalid location ID!\n");
+ PART_ERROR(H5Literate_by_name_invalid_loc_id);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_by_name_invalid_loc_id);
+
+ PART_BEGIN(H5Literate_by_name_invalid_grp_name)
+ {
+ TESTING_2("H5Literate_by_name2 with an invalid group name");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Literate_by_name2(file_id, NULL, H5_INDEX_NAME, H5_ITER_INC, NULL,
+ link_iter_invalid_params_cb, NULL, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate_by_name2 succeeded with a NULL group name!\n");
+ PART_ERROR(H5Literate_by_name_invalid_grp_name);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Literate_by_name2(file_id, "", H5_INDEX_NAME, H5_ITER_INC, NULL,
+ link_iter_invalid_params_cb, NULL, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate_by_name2 succeeded with an invalid group name of ''!\n");
+ PART_ERROR(H5Literate_by_name_invalid_grp_name);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_by_name_invalid_grp_name);
+
+ PART_BEGIN(H5Literate_by_name_invalid_index_type)
+ {
+ TESTING_2("H5Literate_by_name2 with an invalid index type");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Literate_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_ITER_INVALID_PARAMS_TEST_SUBGROUP_NAME,
+ H5_INDEX_UNKNOWN, H5_ITER_INC, NULL, link_iter_invalid_params_cb, NULL, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate_by_name2 succeeded with invalid index type H5_INDEX_UNKNOWN!\n");
+ PART_ERROR(H5Literate_by_name_invalid_index_type);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Literate_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_ITER_INVALID_PARAMS_TEST_SUBGROUP_NAME,
+ H5_INDEX_N, H5_ITER_INC, NULL, link_iter_invalid_params_cb, NULL, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate_by_name2 succeeded with invalid index type H5_INDEX_N!\n");
+ PART_ERROR(H5Literate_by_name_invalid_index_type);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_by_name_invalid_index_type);
+
+ PART_BEGIN(H5Literate_by_name_invalid_iter_order)
+ {
+ TESTING_2("H5Literate_by_name2 with an invalid iteration ordering");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Literate_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_ITER_INVALID_PARAMS_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_UNKNOWN, NULL, link_iter_invalid_params_cb, NULL, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(
+ " H5Literate_by_name2 succeeded with invalid iteration ordering H5_ITER_UNKNOWN!\n");
+ PART_ERROR(H5Literate_by_name_invalid_iter_order);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Literate_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_ITER_INVALID_PARAMS_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_N, NULL, link_iter_invalid_params_cb, &i, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate_by_name2 succeeded with invalid iteration ordering H5_ITER_N!\n");
+ PART_ERROR(H5Literate_by_name_invalid_iter_order);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_by_name_invalid_iter_order);
+
+ PART_BEGIN(H5Literate_by_name_invalid_lapl)
+ {
+ TESTING_2("H5Literate_by_name2 with an invalid LAPL");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Literate_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_ITER_INVALID_PARAMS_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_INC, NULL, link_iter_invalid_params_cb, NULL, H5I_INVALID_HID);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate_by_name2 succeeded with an invalid LAPL!\n");
+ PART_ERROR(H5Literate_by_name_invalid_lapl);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_by_name_invalid_lapl);
+ }
+ END_MULTIPART;
+
+ TESTING_2("test cleanup");
+
+ if (H5Sclose(dset_dspace) < 0)
+ TEST_ERROR;
+ if (H5Tclose(dset_dtype) < 0)
+ TEST_ERROR;
+ if (H5Dclose(dset_id) < 0)
+ TEST_ERROR;
+ 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
+ {
+ H5Sclose(dset_dspace);
+ H5Tclose(dset_dtype);
+ H5Dclose(dset_id);
+ H5Pclose(gcpl_id);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check that link iteration performed on a
+ * group with no links in it is not problematic.
+ */
+static int
+test_link_iterate_0_links(void)
+{
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ hid_t gcpl_id = H5I_INVALID_HID;
+
+ TESTING_MULTIPART("link iteration on group with 0 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_ITERATE) || !(vol_cap_flags_g & H5VL_CAP_FLAG_CREATION_ORDER)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((gcpl_id = H5Pcreate(H5P_GROUP_CREATE)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create GCPL for link creation order tracking\n");
+ goto error;
+ }
+
+ if (H5Pset_link_creation_order(gcpl_id, H5P_CRT_ORDER_TRACKED) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't set link creation order tracking\n");
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, LINK_ITER_0_LINKS_TEST_SUBGROUP_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n", LINK_ITER_0_LINKS_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ PART_BEGIN(H5Literate_0_links_name_increasing)
+ {
+ TESTING_2("H5Literate2 by link name in increasing order");
+
+ /* Test basic link iteration capability using both index types and both index orders */
+ if (H5Literate2(group_id, H5_INDEX_NAME, H5_ITER_INC, NULL, link_iter_0_links_cb, NULL) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate2 by index type name in increasing order failed\n");
+ PART_ERROR(H5Literate_0_links_name_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_0_links_name_increasing);
+
+ PART_BEGIN(H5Literate_0_links_name_decreasing)
+ {
+ TESTING_2("H5Literate2 by link name in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ if (H5Literate2(group_id, H5_INDEX_NAME, H5_ITER_DEC, NULL, link_iter_0_links_cb, NULL) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate2 by index type name in decreasing order failed\n");
+ PART_ERROR(H5Literate_0_links_name_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Literate_0_links_name_decreasing);
+#endif
+ }
+ PART_END(H5Literate_0_links_name_decreasing);
+
+ PART_BEGIN(H5Literate_0_links_creation_increasing)
+ {
+ TESTING_2("H5Literate2 by creation order in increasing order");
+
+ if (H5Literate2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_INC, NULL, link_iter_0_links_cb, NULL) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate2 by index type creation order in increasing order failed\n");
+ PART_ERROR(H5Literate_0_links_creation_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_0_links_creation_increasing);
+
+ PART_BEGIN(H5Literate_0_links_creation_decreasing)
+ {
+ TESTING_2("H5Literate2 by creation order in decreasing order");
+
+ if (H5Literate2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_DEC, NULL, link_iter_0_links_cb, NULL) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate2 by index type creation order in decreasing order failed\n");
+ PART_ERROR(H5Literate_0_links_creation_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_0_links_creation_decreasing);
+
+ PART_BEGIN(H5Literate_by_name_0_links_name_increasing)
+ {
+ TESTING_2("H5Literate_by_name2 by link name in increasing order");
+
+ if (H5Literate_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_ITER_0_LINKS_TEST_SUBGROUP_NAME, H5_INDEX_NAME,
+ H5_ITER_INC, NULL, link_iter_0_links_cb, NULL, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate_by_name2 by index type name in increasing order failed\n");
+ PART_ERROR(H5Literate_by_name_0_links_name_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_by_name_0_links_name_increasing);
+
+ PART_BEGIN(H5Literate_by_name_0_links_name_decreasing)
+ {
+ TESTING_2("H5Literate_by_name2 by link name in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ if (H5Literate_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_ITER_0_LINKS_TEST_SUBGROUP_NAME, H5_INDEX_NAME,
+ H5_ITER_DEC, NULL, link_iter_0_links_cb, NULL, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate_by_name2 by index type name in decreasing order failed\n");
+ PART_ERROR(H5Literate_by_name_0_links_name_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Literate_by_name_0_links_name_decreasing);
+#endif
+ }
+ PART_END(H5Literate_by_name_0_links_name_decreasing);
+
+ PART_BEGIN(H5Literate_by_name_0_links_creation_increasing)
+ {
+ TESTING_2("H5Literate_by_name2 by creation order in increasing order");
+
+ if (H5Literate_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_ITER_0_LINKS_TEST_SUBGROUP_NAME,
+ H5_INDEX_CRT_ORDER, H5_ITER_INC, NULL, link_iter_0_links_cb, NULL, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate_by_name2 by index type creation order in increasing order failed\n");
+ PART_ERROR(H5Literate_by_name_0_links_creation_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_by_name_0_links_creation_increasing);
+
+ PART_BEGIN(H5Literate_by_name_0_links_creation_decreasing)
+ {
+ TESTING_2("H5Literate_by_name2 by creation order in decreasing order");
+
+ if (H5Literate_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_ITER_0_LINKS_TEST_SUBGROUP_NAME,
+ H5_INDEX_CRT_ORDER, H5_ITER_DEC, NULL, link_iter_0_links_cb, NULL, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Literate_by_name2 by index type creation order in decreasing order failed\n");
+ PART_ERROR(H5Literate_by_name_0_links_creation_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Literate_by_name_0_links_creation_decreasing);
+ }
+ 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_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check the functionality of recursive
+ * link iteration using H5Lvisit(_by_name)2 with
+ * only hard links and where there are no cyclic
+ * links. Iteration is done in increasing and
+ * decreasing order of both link name and link
+ * creation order.
+ */
+static int
+test_link_visit_hard_links_no_cycles(void)
+{
+ size_t i;
+ htri_t link_exists;
+ 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;
+ hid_t gcpl_id = H5I_INVALID_HID;
+ hid_t dset_id = H5I_INVALID_HID;
+ hid_t dset_dtype = H5I_INVALID_HID;
+ hid_t dset_dspace = H5I_INVALID_HID;
+
+ TESTING_MULTIPART("link visiting without cycles (only hard 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_DATASET_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_ITERATE) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_CREATION_ORDER)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_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, LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME,
+ H5P_DEFAULT, gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ if ((dset_dtype = generate_random_datatype(H5T_NO_CLASS, FALSE)) < 0)
+ TEST_ERROR;
+
+ if ((dset_dspace = generate_random_dataspace(LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_DSET_SPACE_RANK, NULL,
+ NULL, FALSE)) < 0)
+ TEST_ERROR;
+
+ for (i = 0; i < LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NUM_SUBGROUPS; i++) {
+ size_t j;
+ char grp_name[LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_BUF_SIZE];
+
+ /* Create the groups with a reverse-ordering naming scheme to test creation order later */
+ HDsnprintf(grp_name, LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NESTED_GRP_NAME "%d",
+ (int)(LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NUM_SUBGROUPS - i - 1));
+
+ if ((subgroup_id = H5Gcreate2(group_id, grp_name, H5P_DEFAULT, gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", grp_name);
+ goto error;
+ }
+
+ for (j = 0; j < LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_GROUP; j++) {
+ char dset_name[LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_BUF_SIZE];
+
+ /* Create the datasets with a reverse-ordering naming scheme to test creation order later */
+ HDsnprintf(dset_name, LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_LINK_NAME "%d",
+ (int)(LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_GROUP - j - 1));
+
+ if ((dset_id = H5Dcreate2(subgroup_id, dset_name, dset_dtype, dset_dspace, H5P_DEFAULT,
+ H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", dset_name);
+ goto error;
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(subgroup_id, dset_name, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", dset_name);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", dset_name);
+ goto error;
+ }
+
+ if (H5Dclose(dset_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close dataset '%s'\n", dset_name);
+ goto error;
+ }
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close subgroup '%s'\n", grp_name);
+ goto error;
+ }
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ /*
+ * NOTE: A counter is passed to the iteration callback to try to match up the
+ * expected links with a given step throughout all of the following
+ * iterations. This is to try and check that the links are indeed being
+ * returned in the correct order.
+ */
+
+ PART_BEGIN(H5Lvisit_no_cycles_link_name_increasing)
+ {
+ TESTING_2("H5Lvisit2 by link name in increasing order");
+
+ i = 0;
+
+ if (H5Lvisit2(group_id, H5_INDEX_NAME, H5_ITER_INC, link_visit_hard_links_no_cycles_cb, &i) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type name in increasing order failed\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_name_increasing);
+ }
+
+ if (i != LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_name_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_no_cycles_link_name_increasing);
+
+ PART_BEGIN(H5Lvisit_no_cycles_link_name_decreasing)
+ {
+ TESTING_2("H5Lvisit2 by link name in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ /* Reset the counter to the appropriate value for the next test */
+ i = LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit2(group_id, H5_INDEX_NAME, H5_ITER_DEC, link_visit_hard_links_no_cycles_cb, &i) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type name in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_name_decreasing);
+ }
+
+ if (i != 2 * LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_name_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lvisit_no_cycles_link_name_decreasing);
+#endif
+ }
+ PART_END(H5Lvisit_no_cycles_link_name_decreasing);
+
+ PART_BEGIN(H5Lvisit_no_cycles_link_creation_increasing)
+ {
+ TESTING_2("H5Lvisit2 by creation order in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 2 * LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_INC, link_visit_hard_links_no_cycles_cb, &i) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type creation order in increasing order failed\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_creation_increasing);
+ }
+
+ if (i != 3 * LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_creation_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_no_cycles_link_creation_increasing);
+
+ PART_BEGIN(H5Lvisit_no_cycles_link_creation_decreasing)
+ {
+ TESTING_2("H5Lvisit2 by creation order in decreasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 3 * LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_DEC, link_visit_hard_links_no_cycles_cb, &i) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type creation order in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_creation_decreasing);
+ }
+
+ if (i != 4 * LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_creation_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_no_cycles_link_creation_decreasing);
+
+ PART_BEGIN(H5Lvisit_by_name_no_cycles_link_name_increasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by link name in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 0;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_INC, link_visit_hard_links_no_cycles_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type name in increasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_name_increasing);
+ }
+
+ if (i != LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_name_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_no_cycles_link_name_increasing);
+
+ PART_BEGIN(H5Lvisit_by_name_no_cycles_link_name_decreasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by link name in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ /* Reset the counter to the appropriate value for the next test */
+ i = LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_DEC, link_visit_hard_links_no_cycles_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type name in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_name_decreasing);
+ }
+
+ if (i != 2 * LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_name_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lvisit_by_name_no_cycles_link_name_decreasing);
+#endif
+ }
+ PART_END(H5Lvisit_by_name_no_cycles_link_name_decreasing);
+
+ PART_BEGIN(H5Lvisit_by_name_no_cycles_link_creation_increasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by creation order in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 2 * LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_CRT_ORDER, H5_ITER_INC, link_visit_hard_links_no_cycles_cb, &i,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type creation order in increasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_creation_increasing);
+ }
+
+ if (i != 3 * LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_creation_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_no_cycles_link_creation_increasing);
+
+ PART_BEGIN(H5Lvisit_by_name_no_cycles_link_creation_decreasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by creation order in decreasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 3 * LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_CRT_ORDER, H5_ITER_DEC, link_visit_hard_links_no_cycles_cb, &i,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type creation order in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_creation_decreasing);
+ }
+
+ if (i != 4 * LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_creation_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_no_cycles_link_creation_decreasing);
+ }
+ END_MULTIPART;
+
+ TESTING_2("test cleanup");
+
+ if (H5Sclose(dset_dspace) < 0)
+ TEST_ERROR;
+ if (H5Tclose(dset_dtype) < 0)
+ TEST_ERROR;
+ 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
+ {
+ H5Sclose(dset_dspace);
+ H5Tclose(dset_dtype);
+ H5Dclose(dset_id);
+ H5Pclose(gcpl_id);
+ H5Gclose(subgroup_id);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check the functionality of recursive
+ * link iteration using H5Lvisit(_by_name)2 with
+ * only soft links and where there are no cyclic
+ * links. Iteration is done in increasing and
+ * decreasing order of both link name and link
+ * creation order.
+ */
+static int
+test_link_visit_soft_links_no_cycles(void)
+{
+ size_t i;
+ htri_t link_exists;
+ 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;
+ hid_t gcpl_id = H5I_INVALID_HID;
+
+ TESTING_MULTIPART("link visiting without cycles (only 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_SOFT_LINKS) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_ITERATE) || !(vol_cap_flags_g & H5VL_CAP_FLAG_CREATION_ORDER)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, link, 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_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, LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME,
+ H5P_DEFAULT, gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ for (i = 0; i < LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NUM_SUBGROUPS; i++) {
+ size_t j;
+ char grp_name[LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_BUF_SIZE];
+
+ /* Create the groups with a reverse-ordering naming scheme to test creation order later */
+ HDsnprintf(grp_name, LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NESTED_GRP_NAME "%d",
+ (int)(LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NUM_SUBGROUPS - i - 1));
+
+ if ((subgroup_id = H5Gcreate2(group_id, grp_name, H5P_DEFAULT, gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", grp_name);
+ goto error;
+ }
+
+ for (j = 0; j < LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_GROUP; j++) {
+ char link_name[LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_BUF_SIZE];
+ char link_target[LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_BUF_SIZE];
+
+ /* Create the links with a reverse-ordering naming scheme to test creation order later */
+ HDsnprintf(link_name, LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_LINK_NAME "%d",
+ (int)(LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_GROUP - j - 1));
+
+ HDsnprintf(link_target, LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_BUF_SIZE, "target%d",
+ (int)(LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_GROUP - j - 1));
+
+ if (H5Lcreate_soft(link_target, subgroup_id, link_name, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", link_name);
+ goto error;
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(subgroup_id, link_name, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", link_name);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", link_name);
+ goto error;
+ }
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close subgroup '%s'\n", grp_name);
+ goto error;
+ }
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ /*
+ * NOTE: A counter is passed to the iteration callback to try to match up the
+ * expected links with a given step throughout all of the following
+ * iterations. This is to try and check that the links are indeed being
+ * returned in the correct order.
+ */
+
+ PART_BEGIN(H5Lvisit_no_cycles_link_name_increasing)
+ {
+ TESTING_2("H5Lvisit2 by link name in increasing order");
+
+ i = 0;
+
+ if (H5Lvisit2(group_id, H5_INDEX_NAME, H5_ITER_INC, link_visit_soft_links_no_cycles_cb, &i) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type name in increasing order failed\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_name_increasing);
+ }
+
+ if (i != LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_name_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_no_cycles_link_name_increasing);
+
+ PART_BEGIN(H5Lvisit_no_cycles_link_name_decreasing)
+ {
+ TESTING_2("H5Lvisit2 by link name in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ /* Reset the counter to the appropriate value for the next test */
+ i = LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit2(group_id, H5_INDEX_NAME, H5_ITER_DEC, link_visit_soft_links_no_cycles_cb, &i) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type name in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_name_decreasing);
+ }
+
+ if (i != 2 * LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_name_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lvisit_no_cycles_link_name_decreasing);
+#endif
+ }
+ PART_END(H5Lvisit_no_cycles_link_name_decreasing);
+
+ PART_BEGIN(H5Lvisit_no_cycles_link_creation_increasing)
+ {
+ TESTING_2("H5Lvisit2 by creation order in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 2 * LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_INC, link_visit_soft_links_no_cycles_cb, &i) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type creation order in increasing order failed\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_creation_increasing);
+ }
+
+ if (i != 3 * LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_creation_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_no_cycles_link_creation_increasing);
+
+ PART_BEGIN(H5Lvisit_no_cycles_link_creation_decreasing)
+ {
+ TESTING_2("H5Lvisit2 by creation order in decreasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 3 * LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_DEC, link_visit_soft_links_no_cycles_cb, &i) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type creation order in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_creation_decreasing);
+ }
+
+ if (i != 4 * LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_creation_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_no_cycles_link_creation_decreasing);
+
+ PART_BEGIN(H5Lvisit_by_name_no_cycles_link_name_increasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by link name in increasing order");
+
+ i = 0;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_INC, link_visit_soft_links_no_cycles_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type name in increasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_name_increasing);
+ }
+
+ if (i != LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_name_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_no_cycles_link_name_increasing);
+
+ PART_BEGIN(H5Lvisit_by_name_no_cycles_link_name_decreasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by link name in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ /* Reset the counter to the appropriate value for the next test */
+ i = LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_DEC, link_visit_soft_links_no_cycles_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type name in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_name_decreasing);
+ }
+
+ if (i != 2 * LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_name_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lvisit_by_name_no_cycles_link_name_decreasing);
+#endif
+ }
+ PART_END(H5Lvisit_by_name_no_cycles_link_name_decreasing);
+
+ PART_BEGIN(H5Lvisit_by_name_no_cycles_link_creation_increasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by creation order in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 2 * LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_CRT_ORDER, H5_ITER_INC, link_visit_soft_links_no_cycles_cb, &i,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type creation order in increasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_creation_increasing);
+ }
+
+ if (i != 3 * LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_creation_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_no_cycles_link_creation_increasing);
+
+ PART_BEGIN(H5Lvisit_by_name_no_cycles_link_creation_decreasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by creation order in decreasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 3 * LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_CRT_ORDER, H5_ITER_DEC, link_visit_soft_links_no_cycles_cb, &i,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type creation order in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_creation_decreasing);
+ }
+
+ if (i != 4 * LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_creation_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_no_cycles_link_creation_decreasing);
+ }
+ 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(subgroup_id);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check the functionality of recursive
+ * link iteration using H5Lvisit(_by_name)2 with
+ * only external links and where there are no cyclic
+ * links. Iteration is done in increasing and
+ * decreasing order of both link name and link
+ * creation order.
+ */
+static int
+test_link_visit_external_links_no_cycles(void)
+{
+#ifndef NO_EXTERNAL_LINKS
+ size_t i;
+ htri_t link_exists;
+ 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;
+ hid_t gcpl_id = H5I_INVALID_HID;
+ char ext_link_filename[H5_API_TEST_FILENAME_MAX_LENGTH];
+#endif
+
+ TESTING_MULTIPART("link visiting without cycles (only external 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_EXTERNAL_LINKS) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_ITERATE) || !(vol_cap_flags_g & H5VL_CAP_FLAG_CREATION_ORDER)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, link, external link, iterate, or creation order "
+ "aren't supported with this connector\n");
+ return 0;
+ }
+
+#ifndef NO_EXTERNAL_LINKS
+ TESTING_2("test setup");
+
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s", EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ goto error;
+ }
+
+ if (H5Fclose(file_id) < 0)
+ TEST_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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_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, LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ for (i = 0; i < LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NUM_SUBGROUPS; i++) {
+ size_t j;
+ char grp_name[LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_BUF_SIZE];
+
+ /* Create the groups with a reverse-ordering naming scheme to test creation order later */
+ HDsnprintf(grp_name, LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NESTED_GRP_NAME "%d",
+ (int)(LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NUM_SUBGROUPS - i - 1));
+
+ if ((subgroup_id = H5Gcreate2(group_id, grp_name, H5P_DEFAULT, gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", grp_name);
+ goto error;
+ }
+
+ for (j = 0; j < LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_GROUP; j++) {
+ char link_name[LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_BUF_SIZE];
+
+ /* Create the links with a reverse-ordering naming scheme to test creation order later */
+ HDsnprintf(link_name, LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_LINK_NAME "%d",
+ (int)(LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_GROUP - j - 1));
+
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup_id, link_name, H5P_DEFAULT, H5P_DEFAULT) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", link_name);
+ goto error;
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(subgroup_id, link_name, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", link_name);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", link_name);
+ goto error;
+ }
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close subgroup '%s'\n", grp_name);
+ goto error;
+ }
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ /*
+ * NOTE: A counter is passed to the iteration callback to try to match up the
+ * expected links with a given step throughout all of the following
+ * iterations. This is to try and check that the links are indeed being
+ * returned in the correct order.
+ */
+
+ PART_BEGIN(H5Lvisit_no_cycles_link_name_increasing)
+ {
+ TESTING_2("H5Lvisit2 by link name in increasing order");
+
+ i = 0;
+
+ if (H5Lvisit2(group_id, H5_INDEX_NAME, H5_ITER_INC, link_visit_external_links_no_cycles_cb, &i) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type name in increasing order failed\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_name_increasing);
+ }
+
+ if (i != LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_name_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_no_cycles_link_name_increasing);
+
+ PART_BEGIN(H5Lvisit_no_cycles_link_name_decreasing)
+ {
+ TESTING_2("H5Lvisit2 by link name in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ /* Reset the counter to the appropriate value for the next test */
+ i = LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit2(group_id, H5_INDEX_NAME, H5_ITER_DEC, link_visit_external_links_no_cycles_cb, &i) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type name in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_name_decreasing);
+ }
+
+ if (i != 2 * LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_name_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lvisit_no_cycles_link_name_decreasing);
+#endif
+ }
+ PART_END(H5Lvisit_no_cycles_link_name_decreasing);
+
+ PART_BEGIN(H5Lvisit_no_cycles_link_creation_increasing)
+ {
+ TESTING_2("H5Lvisit2 by creation order in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 2 * LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_INC, link_visit_external_links_no_cycles_cb,
+ &i) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type creation order in increasing order failed\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_creation_increasing);
+ }
+
+ if (i != 3 * LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_creation_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_no_cycles_link_creation_increasing);
+
+ PART_BEGIN(H5Lvisit_no_cycles_link_creation_decreasing)
+ {
+ TESTING_2("H5Lvisit2 by creation order in decreasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 3 * LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_DEC, link_visit_external_links_no_cycles_cb,
+ &i) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type creation order in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_creation_decreasing);
+ }
+
+ if (i != 4 * LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_creation_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_no_cycles_link_creation_decreasing);
+
+ PART_BEGIN(H5Lvisit_by_name_no_cycles_link_name_increasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by link name in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 0;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_INC, link_visit_external_links_no_cycles_cb, &i,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type name in increasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_name_increasing);
+ }
+
+ if (i != LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_name_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_no_cycles_link_name_increasing);
+
+ PART_BEGIN(H5Lvisit_by_name_no_cycles_link_name_decreasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by link name in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ /* Reset the counter to the appropriate value for the next test */
+ i = LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_DEC, link_visit_external_links_no_cycles_cb, &i,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type name in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_name_decreasing);
+ }
+
+ if (i != 2 * LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_name_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lvisit_by_name_no_cycles_link_name_decreasing);
+#endif
+ }
+ PART_END(H5Lvisit_by_name_no_cycles_link_name_decreasing);
+
+ PART_BEGIN(H5Lvisit_by_name_no_cycles_link_creation_increasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by creation order in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 2 * LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_CRT_ORDER, H5_ITER_INC, link_visit_external_links_no_cycles_cb, &i,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type creation order in increasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_creation_increasing);
+ }
+
+ if (i != 3 * LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_creation_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_no_cycles_link_creation_increasing);
+
+ PART_BEGIN(H5Lvisit_by_name_no_cycles_link_creation_decreasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by creation order in decreasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 3 * LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_CRT_ORDER, H5_ITER_DEC, link_visit_external_links_no_cycles_cb, &i,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type creation order in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_creation_decreasing);
+ }
+
+ if (i != 4 * LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_creation_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_no_cycles_link_creation_decreasing);
+ }
+ 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(subgroup_id);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+#else
+ SKIPPED();
+ return 0;
+#endif
+}
+
+/*
+ * A test to check the functionality of recursive
+ * link iteration using H5Lvisit(_by_name)2 with
+ * only user-defined links and where there are no
+ * cyclic links. Iteration is done in increasing
+ * and decreasing order of both link name and link
+ * creation order.
+ *
+ * TODO refactor test so that creation order tests
+ * actually test the order that objects were created in.
+ */
+static int
+test_link_visit_ud_links_no_cycles(void)
+{
+ TESTING("link visiting without cycles (only user-defined links)");
+
+ SKIPPED();
+
+ return 1;
+}
+
+/*
+ * A test to check the functionality of recursive
+ * link iteration using H5Lvisit(_by_name)2 with
+ * mixed link types and where there are no cyclic
+ * links. Iteration is done in increasing and
+ * decreasing order of both link name and link
+ * creation order.
+ *
+ * TODO refactor test so that creation order tests
+ * actually test the order that objects were created in.
+ *
+ * TODO add UD links
+ *
+ * TODO refactor test to create a macroed number of subgroups
+ */
+static int
+test_link_visit_mixed_links_no_cycles(void)
+{
+#if !defined(NO_EXTERNAL_LINKS) && !defined(NO_USER_DEFINED_LINKS)
+ size_t i;
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ hid_t subgroup1 = H5I_INVALID_HID, subgroup2 = H5I_INVALID_HID;
+ hid_t gcpl_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;
+ char ext_link_filename[H5_API_TEST_FILENAME_MAX_LENGTH];
+#endif
+
+ TESTING_MULTIPART("link visiting without cycles (mixed link types)");
+
+ /* 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_DATASET_BASIC) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_EXTERNAL_LINKS) || !(vol_cap_flags_g & H5VL_CAP_FLAG_SOFT_LINKS) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_HARD_LINKS) || !(vol_cap_flags_g & H5VL_CAP_FLAG_ITERATE) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_CREATION_ORDER)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, link, hard, soft, external link, iterate, or "
+ "creation order aren't supported with this connector\n");
+ return 0;
+ }
+
+#if !defined(NO_EXTERNAL_LINKS) && !defined(NO_USER_DEFINED_LINKS)
+ TESTING_2("test setup");
+
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s", EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ goto error;
+ }
+
+ if (H5Fclose(file_id) < 0)
+ TEST_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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_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, LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME,
+ H5P_DEFAULT, gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ if ((subgroup1 = H5Gcreate2(group_id, LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME2, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create first subgroup '%s'\n",
+ LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME2);
+ goto error;
+ }
+
+ if ((subgroup2 = H5Gcreate2(group_id, LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME3, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create second subgroup '%s'\n",
+ LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME3);
+ goto error;
+ }
+
+ if ((dset_dtype = generate_random_datatype(H5T_NO_CLASS, FALSE)) < 0)
+ TEST_ERROR;
+
+ if ((fspace_id = generate_random_dataspace(LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_DSET_SPACE_RANK, NULL,
+ NULL, FALSE)) < 0)
+ TEST_ERROR;
+
+ if ((dset_id = H5Dcreate2(subgroup1, LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_DSET_NAME, dset_dtype,
+ fspace_id, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create first dataset '%s'\n", LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_DSET_NAME);
+ }
+
+ if (H5Dclose(dset_id) < 0)
+ TEST_ERROR;
+
+ if ((dset_id = H5Dcreate2(subgroup2, LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_DSET_NAME2, dset_dtype,
+ fspace_id, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create second dataset '%s'\n", LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_DSET_NAME);
+ }
+
+ if (H5Dclose(dset_id) < 0)
+ TEST_ERROR;
+
+ if (H5Lcreate_hard(subgroup1, LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_DSET_NAME, subgroup1,
+ LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_LINK_NAME1, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create first hard link '%s'\n",
+ LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_LINK_NAME1);
+ goto error;
+ }
+
+ if (H5Lcreate_soft(LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_DSET_NAME, subgroup1,
+ LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_LINK_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_LINK_NAME2);
+ goto error;
+ }
+
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup2, LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_LINK_NAME3,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_LINK_NAME3);
+ goto error;
+ }
+
+ if (H5Lcreate_hard(subgroup2, LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_DSET_NAME2, subgroup2,
+ LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_LINK_NAME4, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create second hard link '%s'\n",
+ LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_LINK_NAME4);
+ goto error;
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup1, LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_LINK_NAME1, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if first link '%s' exists\n",
+ LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_LINK_NAME1);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link 1 did not exist\n");
+ goto error;
+ }
+
+ if ((link_exists = H5Lexists(subgroup1, LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_LINK_NAME2, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if second link '%s' exists\n",
+ LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_LINK_NAME2);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link 2 did not exist\n");
+ goto error;
+ }
+
+ if ((link_exists = H5Lexists(subgroup2, LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_LINK_NAME3, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if third link '%s' exists\n",
+ LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_LINK_NAME3);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link 3 did not exist\n");
+ goto error;
+ }
+
+ if ((link_exists = H5Lexists(subgroup2, LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_LINK_NAME4, H5P_DEFAULT)) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if fourth link '%s' exists\n",
+ LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_LINK_NAME4);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link 4 did not exist\n");
+ goto error;
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ /*
+ * NOTE: A counter is passed to the iteration callback to try to match up the
+ * expected links with a given step throughout all of the following
+ * iterations. This is to try and check that the links are indeed being
+ * returned in the correct order.
+ */
+
+ PART_BEGIN(H5Lvisit_no_cycles_link_name_increasing)
+ {
+ TESTING_2("H5Lvisit2 by link name in increasing order");
+
+ i = 0;
+
+ if (H5Lvisit2(group_id, H5_INDEX_NAME, H5_ITER_INC, link_visit_mixed_links_no_cycles_cb, &i) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type name in increasing order failed\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_name_increasing);
+ }
+
+ if (i != LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_name_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_no_cycles_link_name_increasing);
+
+ PART_BEGIN(H5Lvisit_no_cycles_link_name_decreasing)
+ {
+ TESTING_2("H5Lvisit2 by link name in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ /* Reset the counter to the appropriate value for the next test */
+ i = LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_NUM_LINKS;
+
+ if (H5Lvisit2(group_id, H5_INDEX_NAME, H5_ITER_DEC, link_visit_mixed_links_no_cycles_cb, &i) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type name in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_name_decreasing);
+ }
+
+ if (i != 2 * LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_name_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lvisit_no_cycles_link_name_decreasing);
+#endif
+ }
+ PART_END(H5Lvisit_no_cycles_link_name_decreasing);
+
+ PART_BEGIN(H5Lvisit_no_cycles_link_creation_increasing)
+ {
+ TESTING_2("H5Lvisit2 by creation order in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 2 * LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_NUM_LINKS;
+
+ if (H5Lvisit2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_INC, link_visit_mixed_links_no_cycles_cb,
+ &i) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type creation order in increasing order failed\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_creation_increasing);
+ }
+
+ if (i != 3 * LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_creation_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_no_cycles_link_creation_increasing);
+
+ PART_BEGIN(H5Lvisit_no_cycles_link_creation_decreasing)
+ {
+ TESTING_2("H5Lvisit2 by creation order in decreasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 3 * LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_NUM_LINKS;
+
+ if (H5Lvisit2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_DEC, link_visit_mixed_links_no_cycles_cb,
+ &i) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type creation order in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_creation_decreasing);
+ }
+
+ if (i != 4 * LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_no_cycles_link_creation_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_no_cycles_link_creation_decreasing);
+
+ PART_BEGIN(H5Lvisit_by_name_no_cycles_link_name_increasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by link name in increasing order");
+
+ i = 0;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_INC, link_visit_mixed_links_no_cycles_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type name in increasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_name_increasing);
+ }
+
+ if (i != LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_name_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_no_cycles_link_name_increasing);
+
+ PART_BEGIN(H5Lvisit_by_name_no_cycles_link_name_decreasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by link name in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ /* Reset the counter to the appropriate value for the next test */
+ i = LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_NUM_LINKS;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_DEC, link_visit_mixed_links_no_cycles_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type name in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_name_decreasing);
+ }
+
+ if (i != 2 * LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_name_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lvisit_by_name_no_cycles_link_name_decreasing);
+#endif
+ }
+ PART_END(H5Lvisit_by_name_no_cycles_link_name_decreasing);
+
+ PART_BEGIN(H5Lvisit_by_name_no_cycles_link_creation_increasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by creation order in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 2 * LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_NUM_LINKS;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_CRT_ORDER, H5_ITER_INC, link_visit_mixed_links_no_cycles_cb, &i,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type creation order in increasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_creation_increasing);
+ }
+
+ if (i != 3 * LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_creation_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_no_cycles_link_creation_increasing);
+
+ PART_BEGIN(H5Lvisit_by_name_no_cycles_link_creation_decreasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by creation order in decreasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 3 * LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_NUM_LINKS;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_CRT_ORDER, H5_ITER_DEC, link_visit_mixed_links_no_cycles_cb, &i,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type creation order in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_creation_decreasing);
+ }
+
+ if (i != 4 * LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_no_cycles_link_creation_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_no_cycles_link_creation_decreasing);
+ }
+ END_MULTIPART;
+
+ TESTING_2("test cleanup");
+
+ if (H5Sclose(fspace_id) < 0)
+ TEST_ERROR;
+ if (H5Tclose(dset_dtype) < 0)
+ TEST_ERROR;
+ if (H5Pclose(gcpl_id) < 0)
+ TEST_ERROR;
+ if (H5Gclose(subgroup1) < 0)
+ TEST_ERROR;
+ if (H5Gclose(subgroup2) < 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);
+ H5Pclose(gcpl_id);
+ H5Gclose(subgroup1);
+ H5Gclose(subgroup2);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+#else
+ SKIPPED();
+ return 0;
+#endif
+}
+
+/*
+ * A test to check the functionality of recursive
+ * link iteration using H5Lvisit(_by_name)2 with
+ * only hard links and where there are cyclic links.
+ * Iteration is done in increasing and decreasing
+ * order of both link name and link creation order.
+ */
+static int
+test_link_visit_hard_links_cycles(void)
+{
+ size_t i;
+ htri_t link_exists;
+ 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;
+ hid_t gcpl_id = H5I_INVALID_HID;
+
+ TESTING_MULTIPART("link visiting with cycles (only hard 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_HARD_LINKS) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_ITERATE) || !(vol_cap_flags_g & H5VL_CAP_FLAG_CREATION_ORDER)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, link, hard 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_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, LINK_VISIT_HARD_LINKS_CYCLE_TEST_SUBGROUP_NAME, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ LINK_VISIT_HARD_LINKS_CYCLE_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ for (i = 0; i < LINK_VISIT_HARD_LINKS_CYCLE_TEST_NUM_SUBGROUPS; i++) {
+ size_t j;
+ char grp_name[LINK_VISIT_HARD_LINKS_CYCLE_TEST_BUF_SIZE];
+
+ /* Create the groups with a reverse-ordering naming scheme to test creation order later */
+ HDsnprintf(grp_name, LINK_VISIT_HARD_LINKS_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_HARD_LINKS_CYCLE_TEST_NESTED_GRP_NAME "%d",
+ (int)(LINK_VISIT_HARD_LINKS_CYCLE_TEST_NUM_SUBGROUPS - i - 1));
+
+ if ((subgroup_id = H5Gcreate2(group_id, grp_name, H5P_DEFAULT, gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", grp_name);
+ goto error;
+ }
+
+ for (j = 0; j < LINK_VISIT_HARD_LINKS_CYCLE_TEST_NUM_LINKS_PER_GROUP; j++) {
+ char link_name[LINK_VISIT_HARD_LINKS_CYCLE_TEST_BUF_SIZE];
+
+ /* Create the links with a reverse-ordering naming scheme to test creation order later */
+ HDsnprintf(link_name, LINK_VISIT_HARD_LINKS_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_HARD_LINKS_CYCLE_TEST_LINK_NAME "%d",
+ (int)(LINK_VISIT_HARD_LINKS_CYCLE_TEST_NUM_LINKS_PER_GROUP - j - 1));
+
+ if (H5Lcreate_hard(subgroup_id, ".", subgroup_id, link_name, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create hard link '%s'\n", link_name);
+ goto error;
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(subgroup_id, link_name, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", link_name);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", link_name);
+ goto error;
+ }
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close subgroup '%s'\n", grp_name);
+ goto error;
+ }
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ /*
+ * NOTE: A counter is passed to the iteration callback to try to match up the
+ * expected links with a given step throughout all of the following
+ * iterations. This is to try and check that the links are indeed being
+ * returned in the correct order.
+ */
+
+ PART_BEGIN(H5Lvisit_cycles_link_name_increasing)
+ {
+ TESTING_2("H5Lvisit2 by link name in increasing order");
+
+ i = 0;
+
+ if (H5Lvisit2(group_id, H5_INDEX_NAME, H5_ITER_INC, link_visit_hard_links_cycles_cb, &i) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type name in increasing order failed\n");
+ PART_ERROR(H5Lvisit_cycles_link_name_increasing);
+ }
+
+ if (i != LINK_VISIT_HARD_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_cycles_link_name_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_cycles_link_name_increasing);
+
+ PART_BEGIN(H5Lvisit_cycles_link_name_decreasing)
+ {
+ TESTING_2("H5Lvisit2 by link name in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ /* Reset the counter to the appropriate value for the next test */
+ i = LINK_VISIT_HARD_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit2(group_id, H5_INDEX_NAME, H5_ITER_DEC, link_visit_hard_links_cycles_cb, &i) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type name in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_cycles_link_name_decreasing);
+ }
+
+ if (i != 2 * LINK_VISIT_HARD_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_cycles_link_name_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lvisit_cycles_link_name_decreasing);
+#endif
+ }
+ PART_END(H5Lvisit_cycles_link_name_decreasing);
+
+ PART_BEGIN(H5Lvisit_cycles_link_creation_increasing)
+ {
+ TESTING_2("H5Lvisit2 by creation order in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 2 * LINK_VISIT_HARD_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_INC, link_visit_hard_links_cycles_cb, &i) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type creation order in increasing order failed\n");
+ PART_ERROR(H5Lvisit_cycles_link_creation_increasing);
+ }
+
+ if (i != 3 * LINK_VISIT_HARD_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_cycles_link_creation_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_cycles_link_creation_increasing);
+
+ PART_BEGIN(H5Lvisit_cycles_link_creation_decreasing)
+ {
+ TESTING_2("H5Lvisit2 by creation order in decreasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 3 * LINK_VISIT_HARD_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_DEC, link_visit_hard_links_cycles_cb, &i) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type creation order in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_cycles_link_creation_decreasing);
+ }
+
+ if (i != 4 * LINK_VISIT_HARD_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_cycles_link_creation_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_cycles_link_creation_decreasing);
+
+ PART_BEGIN(H5Lvisit_by_name_cycles_link_name_increasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by link name in increasing order");
+
+ i = 0;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_HARD_LINKS_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_INC, link_visit_hard_links_cycles_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type name in increasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_name_increasing);
+ }
+
+ if (i != LINK_VISIT_HARD_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_name_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_cycles_link_name_increasing);
+
+ PART_BEGIN(H5Lvisit_by_name_cycles_link_name_decreasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by link name in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ /* Reset the counter to the appropriate value for the next test */
+ i = LINK_VISIT_HARD_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_HARD_LINKS_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_DEC, link_visit_hard_links_cycles_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type name in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_name_decreasing);
+ }
+
+ if (i != 2 * LINK_VISIT_HARD_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_name_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lvisit_by_name_cycles_link_name_decreasing);
+#endif
+ }
+ PART_END(H5Lvisit_by_name_cycles_link_name_decreasing);
+
+ PART_BEGIN(H5Lvisit_by_name_cycles_link_creation_increasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by creation order in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 2 * LINK_VISIT_HARD_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_HARD_LINKS_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_CRT_ORDER, H5_ITER_INC, link_visit_hard_links_cycles_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type creation order in increasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_creation_increasing);
+ }
+
+ if (i != 3 * LINK_VISIT_HARD_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_creation_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_cycles_link_creation_increasing);
+
+ PART_BEGIN(H5Lvisit_by_name_cycles_link_creation_decreasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by creation order in decreasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 3 * LINK_VISIT_HARD_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_HARD_LINKS_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_CRT_ORDER, H5_ITER_DEC, link_visit_hard_links_cycles_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type creation order in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_creation_decreasing);
+ }
+
+ if (i != 4 * LINK_VISIT_HARD_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_creation_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_cycles_link_creation_decreasing);
+ }
+ 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(subgroup_id);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check the functionality of recursive
+ * link iteration using H5Lvisit(_by_name)2 with
+ * only soft links and where there are cyclic links.
+ * Iteration is done in increasing and decreasing
+ * order of both link name and link creation order.
+ */
+static int
+test_link_visit_soft_links_cycles(void)
+{
+ size_t i;
+ htri_t link_exists;
+ 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;
+ hid_t gcpl_id = H5I_INVALID_HID;
+
+ TESTING_MULTIPART("link visiting with cycles (only 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_SOFT_LINKS) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_ITERATE) || !(vol_cap_flags_g & H5VL_CAP_FLAG_CREATION_ORDER)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, link, 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_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, LINK_VISIT_SOFT_LINKS_CYCLE_TEST_SUBGROUP_NAME, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ LINK_VISIT_SOFT_LINKS_CYCLE_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ for (i = 0; i < LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NUM_SUBGROUPS; i++) {
+ size_t j;
+ char grp_name[LINK_VISIT_SOFT_LINKS_CYCLE_TEST_BUF_SIZE];
+
+ /* Create the groups with a reverse-ordering naming scheme to test creation order later */
+ HDsnprintf(grp_name, LINK_VISIT_SOFT_LINKS_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NESTED_GRP_NAME "%d",
+ (int)(LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NUM_SUBGROUPS - i - 1));
+
+ if ((subgroup_id = H5Gcreate2(group_id, grp_name, H5P_DEFAULT, gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", grp_name);
+ goto error;
+ }
+
+ for (j = 0; j < LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NUM_LINKS_PER_GROUP; j++) {
+ char link_name[LINK_VISIT_SOFT_LINKS_CYCLE_TEST_BUF_SIZE];
+ char link_target[2 * LINK_VISIT_SOFT_LINKS_CYCLE_TEST_BUF_SIZE];
+
+ /* Create the links with a reverse-ordering naming scheme to test creation order later */
+ HDsnprintf(link_name, LINK_VISIT_SOFT_LINKS_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_SOFT_LINKS_CYCLE_TEST_LINK_NAME "%d",
+ (int)(LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NUM_LINKS_PER_GROUP - j - 1));
+
+ HDsnprintf(link_target, 2 * LINK_VISIT_SOFT_LINKS_CYCLE_TEST_BUF_SIZE,
+ "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_SOFT_LINKS_CYCLE_TEST_SUBGROUP_NAME "/%s",
+ grp_name);
+
+ if (H5Lcreate_soft(link_target, subgroup_id, link_name, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", link_name);
+ goto error;
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(subgroup_id, link_name, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", link_name);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", link_name);
+ goto error;
+ }
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close subgroup '%s'\n", grp_name);
+ goto error;
+ }
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ /*
+ * NOTE: A counter is passed to the iteration callback to try to match up the
+ * expected links with a given step throughout all of the following
+ * iterations. This is to try and check that the links are indeed being
+ * returned in the correct order.
+ */
+
+ PART_BEGIN(H5Lvisit_cycles_link_name_increasing)
+ {
+ TESTING_2("H5Lvisit2 by link name in increasing order");
+
+ i = 0;
+
+ if (H5Lvisit2(group_id, H5_INDEX_NAME, H5_ITER_INC, link_visit_soft_links_cycles_cb, &i) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type name in increasing order failed\n");
+ PART_ERROR(H5Lvisit_cycles_link_name_increasing);
+ }
+
+ if (i != LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_cycles_link_name_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_cycles_link_name_increasing);
+
+ PART_BEGIN(H5Lvisit_cycles_link_name_decreasing)
+ {
+ TESTING_2("H5Lvisit2 by link name in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ /* Reset the counter to the appropriate value for the next test */
+ i = LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit2(group_id, H5_INDEX_NAME, H5_ITER_DEC, link_visit_soft_links_cycles_cb, &i) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type name in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_cycles_link_name_decreasing);
+ }
+
+ if (i != 2 * LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_cycles_link_name_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lvisit_cycles_link_name_decreasing);
+#endif
+ }
+ PART_END(H5Lvisit_cycles_link_name_decreasing);
+
+ PART_BEGIN(H5Lvisit_cycles_link_creation_increasing)
+ {
+ TESTING_2("H5Lvisit2 by creation order in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 2 * LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_INC, link_visit_soft_links_cycles_cb, &i) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type creation order in increasing order failed\n");
+ PART_ERROR(H5Lvisit_cycles_link_creation_increasing);
+ }
+
+ if (i != 3 * LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_cycles_link_creation_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_cycles_link_creation_increasing);
+
+ PART_BEGIN(H5Lvisit_cycles_link_creation_decreasing)
+ {
+ TESTING_2("H5Lvisit2 by creation order in decreasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 3 * LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_DEC, link_visit_soft_links_cycles_cb, &i) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type creation order in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_cycles_link_creation_decreasing);
+ }
+
+ if (i != 4 * LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_cycles_link_creation_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_cycles_link_creation_decreasing);
+
+ PART_BEGIN(H5Lvisit_by_name_cycles_link_name_increasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by link name in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 0;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_SOFT_LINKS_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_INC, link_visit_soft_links_cycles_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type name in increasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_name_increasing);
+ }
+
+ if (i != LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_name_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_cycles_link_name_increasing);
+
+ PART_BEGIN(H5Lvisit_by_name_cycles_link_name_decreasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by link name in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ /* Reset the counter to the appropriate value for the next test */
+ i = LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_SOFT_LINKS_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_DEC, link_visit_soft_links_cycles_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type name in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_name_decreasing);
+ }
+
+ if (i != 2 * LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_name_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lvisit_by_name_cycles_link_name_decreasing);
+#endif
+ }
+ PART_END(H5Lvisit_by_name_cycles_link_name_decreasing);
+
+ PART_BEGIN(H5Lvisit_by_name_cycles_link_creation_increasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by creation order in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 2 * LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_SOFT_LINKS_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_CRT_ORDER, H5_ITER_INC, link_visit_soft_links_cycles_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type creation order in increasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_creation_increasing);
+ }
+
+ if (i != 3 * LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_creation_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_cycles_link_creation_increasing);
+
+ PART_BEGIN(H5Lvisit_by_name_cycles_link_creation_decreasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by creation order in decreasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 3 * LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_SOFT_LINKS_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_CRT_ORDER, H5_ITER_DEC, link_visit_soft_links_cycles_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type creation order in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_creation_decreasing);
+ }
+
+ if (i != 4 * LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_creation_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_cycles_link_creation_decreasing);
+ }
+ 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(subgroup_id);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check the functionality of recursive
+ * link iteration using H5Lvisit(_by_name)2 with
+ * only external links and where there are cyclic
+ * links. Iteration is done in increasing and
+ * decreasing order of both link name and link
+ * creation order.
+ */
+static int
+test_link_visit_external_links_cycles(void)
+{
+#ifndef NO_EXTERNAL_LINKS
+ size_t i;
+ htri_t link_exists;
+ 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;
+ hid_t gcpl_id = H5I_INVALID_HID;
+#endif
+
+ TESTING_MULTIPART("link visiting with cycles (only external 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_EXTERNAL_LINKS) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_ITERATE) || !(vol_cap_flags_g & H5VL_CAP_FLAG_CREATION_ORDER)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, link, external link, iterate, or creation order "
+ "aren't supported with this connector\n");
+ return 0;
+ }
+
+#ifndef NO_EXTERNAL_LINKS
+ 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_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, LINK_VISIT_EXT_LINKS_CYCLE_TEST_SUBGROUP_NAME, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ LINK_VISIT_EXT_LINKS_CYCLE_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ for (i = 0; i < LINK_VISIT_EXT_LINKS_CYCLE_TEST_NUM_SUBGROUPS; i++) {
+ size_t j;
+ char grp_name[LINK_VISIT_EXT_LINKS_CYCLE_TEST_BUF_SIZE];
+
+ /* Create the groups with a reverse-ordering naming scheme to test creation order later */
+ HDsnprintf(grp_name, LINK_VISIT_EXT_LINKS_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_EXT_LINKS_CYCLE_TEST_NESTED_GRP_NAME "%d",
+ (int)(LINK_VISIT_EXT_LINKS_CYCLE_TEST_NUM_SUBGROUPS - i - 1));
+
+ if ((subgroup_id = H5Gcreate2(group_id, grp_name, H5P_DEFAULT, gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create subgroup '%s'\n", grp_name);
+ goto error;
+ }
+
+ for (j = 0; j < LINK_VISIT_EXT_LINKS_CYCLE_TEST_NUM_LINKS_PER_GROUP; j++) {
+ char link_name[LINK_VISIT_EXT_LINKS_CYCLE_TEST_BUF_SIZE];
+ char link_target_obj[2 * LINK_VISIT_EXT_LINKS_CYCLE_TEST_BUF_SIZE];
+
+ /* Create the links with a reverse-ordering naming scheme to test creation order later */
+ HDsnprintf(link_name, LINK_VISIT_EXT_LINKS_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_EXT_LINKS_CYCLE_TEST_LINK_NAME "%d",
+ (int)(LINK_VISIT_EXT_LINKS_CYCLE_TEST_NUM_LINKS_PER_GROUP - j - 1));
+
+ HDsnprintf(link_target_obj, 2 * LINK_VISIT_EXT_LINKS_CYCLE_TEST_BUF_SIZE,
+ "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_EXT_LINKS_CYCLE_TEST_SUBGROUP_NAME "/%s",
+ grp_name);
+
+ if (H5Lcreate_external(H5_api_test_filename, link_target_obj, subgroup_id, link_name, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", link_name);
+ goto error;
+ }
+
+ /* Verify the link has been created */
+ if ((link_exists = H5Lexists(subgroup_id, link_name, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if link '%s' exists\n", link_name);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link '%s' did not exist\n", link_name);
+ goto error;
+ }
+ }
+
+ if (H5Gclose(subgroup_id) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't close subgroup '%s'\n", grp_name);
+ goto error;
+ }
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ /*
+ * NOTE: A counter is passed to the iteration callback to try to match up the
+ * expected links with a given step throughout all of the following
+ * iterations. This is to try and check that the links are indeed being
+ * returned in the correct order.
+ */
+
+ PART_BEGIN(H5Lvisit_cycles_link_name_increasing)
+ {
+ TESTING_2("H5Lvisit2 by link name in increasing order");
+
+ i = 0;
+
+ if (H5Lvisit2(group_id, H5_INDEX_NAME, H5_ITER_INC, link_visit_external_links_cycles_cb, &i) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type name in increasing order failed\n");
+ PART_ERROR(H5Lvisit_cycles_link_name_increasing);
+ }
+
+ if (i != LINK_VISIT_EXT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_cycles_link_name_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_cycles_link_name_increasing);
+
+ PART_BEGIN(H5Lvisit_cycles_link_name_decreasing)
+ {
+ TESTING_2("H5Lvisit2 by link name in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ /* Reset the counter to the appropriate value for the next test */
+ i = LINK_VISIT_EXT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit2(group_id, H5_INDEX_NAME, H5_ITER_DEC, link_visit_external_links_cycles_cb, &i) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type name in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_cycles_link_name_decreasing);
+ }
+
+ if (i != 2 * LINK_VISIT_EXT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_cycles_link_name_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lvisit_cycles_link_name_decreasing);
+#endif
+ }
+ PART_END(H5Lvisit_cycles_link_name_decreasing);
+
+ PART_BEGIN(H5Lvisit_cycles_link_creation_increasing)
+ {
+ TESTING_2("H5Lvisit2 by creation order in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 2 * LINK_VISIT_EXT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_INC, link_visit_external_links_cycles_cb,
+ &i) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type creation order in increasing order failed\n");
+ PART_ERROR(H5Lvisit_cycles_link_creation_increasing);
+ }
+
+ if (i != 3 * LINK_VISIT_EXT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_cycles_link_creation_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_cycles_link_creation_increasing);
+
+ PART_BEGIN(H5Lvisit_cycles_link_creation_decreasing)
+ {
+ TESTING_2("H5Lvisit2 by creation order in decreasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 3 * LINK_VISIT_EXT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_DEC, link_visit_external_links_cycles_cb,
+ &i) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type creation order in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_cycles_link_creation_decreasing);
+ }
+
+ if (i != 4 * LINK_VISIT_EXT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_cycles_link_creation_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_cycles_link_creation_decreasing);
+
+ PART_BEGIN(H5Lvisit_by_name_cycles_link_name_increasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by link name in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 0;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_EXT_LINKS_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_INC, link_visit_external_links_cycles_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type name in increasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_name_increasing);
+ }
+
+ if (i != LINK_VISIT_EXT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_name_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_cycles_link_name_increasing);
+
+ PART_BEGIN(H5Lvisit_by_name_cycles_link_name_decreasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by link name in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ /* Reset the counter to the appropriate value for the next test */
+ i = LINK_VISIT_EXT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_EXT_LINKS_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_DEC, link_visit_external_links_cycles_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type name in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_name_decreasing);
+ }
+
+ if (i != 2 * LINK_VISIT_EXT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_name_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lvisit_by_name_cycles_link_name_decreasing);
+#endif
+ }
+ PART_END(H5Lvisit_by_name_cycles_link_name_decreasing);
+
+ PART_BEGIN(H5Lvisit_by_name_cycles_link_creation_increasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by creation order in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 2 * LINK_VISIT_EXT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit_by_name2(file_id,
+ "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_EXT_LINKS_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_CRT_ORDER, H5_ITER_INC, link_visit_external_links_cycles_cb, &i,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type creation order in increasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_creation_increasing);
+ }
+
+ if (i != 3 * LINK_VISIT_EXT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_creation_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_cycles_link_creation_increasing);
+
+ PART_BEGIN(H5Lvisit_by_name_cycles_link_creation_decreasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by creation order in decreasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 3 * LINK_VISIT_EXT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ if (H5Lvisit_by_name2(file_id,
+ "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_EXT_LINKS_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_CRT_ORDER, H5_ITER_DEC, link_visit_external_links_cycles_cb, &i,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type creation order in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_creation_decreasing);
+ }
+
+ if (i != 4 * LINK_VISIT_EXT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_creation_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_cycles_link_creation_decreasing);
+ }
+ 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(subgroup_id);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+#else
+ SKIPPED();
+ return 0;
+#endif
+}
+
+/*
+ * A test to check the functionality of recursive
+ * link iteration using H5Lvisit(_by_name)2 with
+ * only user-defined links and where there are
+ * cyclic links. Iteration is done in increasing
+ * and decreasing order of both link name and link
+ * creation order.
+ *
+ * TODO refactor test so that creation order tests
+ * actually test the order that objects were created in.
+ */
+static int
+test_link_visit_ud_links_cycles(void)
+{
+ TESTING("link visiting with cycles (only user-defined links)");
+
+ SKIPPED();
+
+ return 1;
+}
+
+/*
+ * A test to check the functionality of recursive
+ * link iteration using H5Lvisit(_by_name)2 with
+ * mixed link types and where there are cyclic links.
+ * Iteration is done in increasing and decreasing
+ * order of both link name and link creation order.
+ *
+ * TODO refactor test so that creation order tests
+ * actually test the order that objects were created in.
+ */
+static int
+test_link_visit_mixed_links_cycles(void)
+{
+#if !defined(NO_EXTERNAL_LINKS) && !defined(NO_USER_DEFINED_LINKS)
+ htri_t link_exists;
+ size_t i;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ hid_t subgroup1 = H5I_INVALID_HID, subgroup2 = H5I_INVALID_HID;
+ hid_t gcpl_id = H5I_INVALID_HID;
+ char ext_link_filename[H5_API_TEST_FILENAME_MAX_LENGTH];
+#endif
+
+ TESTING_MULTIPART("link visiting with cycles (mixed link types)");
+
+ /* 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_EXTERNAL_LINKS) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_HARD_LINKS) || !(vol_cap_flags_g & H5VL_CAP_FLAG_SOFT_LINKS) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_ITERATE) || !(vol_cap_flags_g & H5VL_CAP_FLAG_CREATION_ORDER)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, link, hard, soft, external link, iterate, or "
+ "creation order aren't supported with this connector\n");
+ return 0;
+ }
+
+#if !defined(NO_EXTERNAL_LINKS) && !defined(NO_USER_DEFINED_LINKS)
+ TESTING_2("test setup");
+
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s", EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ goto error;
+ }
+
+ if (H5Fclose(file_id) < 0)
+ TEST_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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_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, LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ if ((subgroup1 = H5Gcreate2(group_id, LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME2, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create first subgroup '%s'\n",
+ LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME2);
+ goto error;
+ }
+
+ if ((subgroup2 = H5Gcreate2(group_id, LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME3, H5P_DEFAULT,
+ gcpl_id, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create second subgroup '%s'\n",
+ LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME3);
+ goto error;
+ }
+
+ if (H5Lcreate_hard(group_id, LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME2, subgroup1,
+ LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME1, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create first hard link '%s'\n", LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME1);
+ goto error;
+ }
+
+ if (H5Lcreate_soft("/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME
+ "/" LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME2,
+ subgroup1, LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME2, H5P_DEFAULT,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME2);
+ goto error;
+ }
+
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup2, LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME3,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME3);
+ goto error;
+ }
+
+ if (H5Lcreate_hard(group_id, LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME3, subgroup2,
+ LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME4, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create second hard link '%s'\n", LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME4);
+ goto error;
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup1, LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME1, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if first link '%s' exists\n",
+ LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME1);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" first link '%s' did not exist\n", LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME1);
+ goto error;
+ }
+
+ if ((link_exists = H5Lexists(subgroup1, LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if second link '%s' exists\n",
+ LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME2);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" second link '%s' did not exist\n", LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME2);
+ goto error;
+ }
+
+ if ((link_exists = H5Lexists(subgroup2, LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if third link '%s' exists\n",
+ LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME3);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" third link '%s' did not exist\n", LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME3);
+ goto error;
+ }
+
+ if ((link_exists = H5Lexists(subgroup2, LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME4, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if fourth link '%s' exists\n",
+ LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME4);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" fourth link '%s' did not exist\n", LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME4);
+ goto error;
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ /*
+ * NOTE: A counter is passed to the iteration callback to try to match up the
+ * expected links with a given step throughout all of the following
+ * iterations. This is to try and check that the links are indeed being
+ * returned in the correct order.
+ */
+
+ PART_BEGIN(H5Lvisit_cycles_link_name_increasing)
+ {
+ TESTING_2("H5Lvisit2 by link name in increasing order");
+
+ i = 0;
+
+ if (H5Lvisit2(group_id, H5_INDEX_NAME, H5_ITER_INC, link_visit_mixed_links_cycles_cb, &i) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type name in increasing order failed\n");
+ PART_ERROR(H5Lvisit_cycles_link_name_increasing);
+ }
+
+ if (i != LINK_VISIT_MIXED_LINKS_CYCLE_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_cycles_link_name_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_cycles_link_name_increasing);
+
+ PART_BEGIN(H5Lvisit_cycles_link_name_decreasing)
+ {
+ TESTING_2("H5Lvisit2 by link name in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ /* Reset the counter to the appropriate value for the next test */
+ i = LINK_VISIT_MIXED_LINKS_CYCLE_TEST_NUM_LINKS;
+
+ if (H5Lvisit2(group_id, H5_INDEX_NAME, H5_ITER_DEC, link_visit_mixed_links_cycles_cb, &i) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type name in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_cycles_link_name_decreasing);
+ }
+
+ if (i != 2 * LINK_VISIT_MIXED_LINKS_CYCLE_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_cycles_link_name_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lvisit_cycles_link_name_decreasing);
+#endif
+ }
+ PART_END(H5Lvisit_cycles_link_name_decreasing);
+
+ PART_BEGIN(H5Lvisit_cycles_link_creation_increasing)
+ {
+ TESTING_2("H5Lvisit2 by creation order in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 2 * LINK_VISIT_MIXED_LINKS_CYCLE_TEST_NUM_LINKS;
+
+ if (H5Lvisit2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_INC, link_visit_mixed_links_cycles_cb, &i) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type creation order in increasing order failed\n");
+ PART_ERROR(H5Lvisit_cycles_link_creation_increasing);
+ }
+
+ if (i != 3 * LINK_VISIT_MIXED_LINKS_CYCLE_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_cycles_link_creation_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_cycles_link_creation_increasing);
+
+ PART_BEGIN(H5Lvisit_cycles_link_creation_decreasing)
+ {
+ TESTING_2("H5Lvisit2 by creation order in decreasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 3 * LINK_VISIT_MIXED_LINKS_CYCLE_TEST_NUM_LINKS;
+
+ if (H5Lvisit2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_DEC, link_visit_mixed_links_cycles_cb, &i) <
+ 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type creation order in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_cycles_link_creation_decreasing);
+ }
+
+ if (i != 4 * LINK_VISIT_MIXED_LINKS_CYCLE_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_cycles_link_creation_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_cycles_link_creation_decreasing);
+
+ PART_BEGIN(H5Lvisit_by_name_cycles_link_name_increasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by link name in increasing order");
+
+ i = 0;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_INC, link_visit_mixed_links_cycles_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type name in increasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_name_increasing);
+ }
+
+ if (i != LINK_VISIT_MIXED_LINKS_CYCLE_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_name_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_cycles_link_name_increasing);
+
+ PART_BEGIN(H5Lvisit_by_name_cycles_link_name_decreasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by link name in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ /* Reset the counter to the appropriate value for the next test */
+ i = LINK_VISIT_MIXED_LINKS_CYCLE_TEST_NUM_LINKS;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_DEC, link_visit_mixed_links_cycles_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type name in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_name_decreasing);
+ }
+
+ if (i != 2 * LINK_VISIT_MIXED_LINKS_CYCLE_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_name_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lvisit_by_name_cycles_link_name_decreasing);
+#endif
+ }
+ PART_END(H5Lvisit_by_name_cycles_link_name_decreasing);
+
+ PART_BEGIN(H5Lvisit_by_name_cycles_link_creation_increasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by creation order in increasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 2 * LINK_VISIT_MIXED_LINKS_CYCLE_TEST_NUM_LINKS;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_CRT_ORDER, H5_ITER_INC, link_visit_mixed_links_cycles_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type creation order in increasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_creation_increasing);
+ }
+
+ if (i != 3 * LINK_VISIT_MIXED_LINKS_CYCLE_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_creation_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_cycles_link_creation_increasing);
+
+ PART_BEGIN(H5Lvisit_by_name_cycles_link_creation_decreasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by creation order in decreasing order");
+
+ /* Reset the counter to the appropriate value for the next test */
+ i = 3 * LINK_VISIT_MIXED_LINKS_CYCLE_TEST_NUM_LINKS;
+
+ if (H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME,
+ H5_INDEX_CRT_ORDER, H5_ITER_DEC, link_visit_mixed_links_cycles_cb, &i, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type creation order in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_creation_decreasing);
+ }
+
+ if (i != 4 * LINK_VISIT_MIXED_LINKS_CYCLE_TEST_NUM_LINKS) {
+ H5_FAILED();
+ HDprintf(" some links were not visited!\n");
+ PART_ERROR(H5Lvisit_by_name_cycles_link_creation_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_cycles_link_creation_decreasing);
+ }
+ END_MULTIPART;
+
+ TESTING_2("test cleanup");
+
+ if (H5Pclose(gcpl_id) < 0)
+ TEST_ERROR;
+ if (H5Gclose(subgroup1) < 0)
+ TEST_ERROR;
+ if (H5Gclose(subgroup2) < 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(subgroup1);
+ H5Gclose(subgroup2);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+#else
+ SKIPPED();
+ return 0;
+#endif
+}
+
+/*
+ * A test to check that H5Lvisit(_by_name)2 fails when
+ * it is given invalid parameters.
+ */
+static int
+test_link_visit_invalid_params(void)
+{
+ herr_t err_ret = -1;
+ htri_t link_exists;
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ hid_t subgroup1 = H5I_INVALID_HID, subgroup2 = H5I_INVALID_HID;
+ hid_t dset_id = H5I_INVALID_HID;
+ hid_t dset_dtype = H5I_INVALID_HID;
+ hid_t fspace_id = H5I_INVALID_HID;
+ char ext_link_filename[H5_API_TEST_FILENAME_MAX_LENGTH];
+
+ TESTING_MULTIPART("link 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_LINK_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_EXTERNAL_LINKS) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_DATASET_BASIC) || !(vol_cap_flags_g & H5VL_CAP_FLAG_ITERATE) ||
+ !(vol_cap_flags_g & H5VL_CAP_FLAG_CREATION_ORDER)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, dataset, link, external link, iterate, or "
+ "creation order aren't supported with this connector\n");
+ return 0;
+ }
+
+ TESTING_2("test setup");
+
+ HDsnprintf(ext_link_filename, H5_API_TEST_FILENAME_MAX_LENGTH, "%s", EXTERNAL_LINK_TEST_FILE_NAME);
+
+ if ((file_id = H5Fcreate(ext_link_filename, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create file '%s' for external link to reference\n", ext_link_filename);
+ goto error;
+ }
+
+ if (H5Fclose(file_id) < 0)
+ TEST_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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_TEST_GROUP_NAME);
+ goto error;
+ }
+
+ if ((group_id = H5Gcreate2(container_group, LINK_VISIT_INVALID_PARAMS_TEST_SUBGROUP_NAME, H5P_DEFAULT,
+ H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n",
+ LINK_VISIT_INVALID_PARAMS_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ if ((subgroup1 = H5Gcreate2(group_id, LINK_VISIT_INVALID_PARAMS_TEST_SUBGROUP_NAME2, H5P_DEFAULT,
+ H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create first subgroup '%s'\n", LINK_VISIT_INVALID_PARAMS_TEST_SUBGROUP_NAME2);
+ goto error;
+ }
+
+ if ((subgroup2 = H5Gcreate2(group_id, LINK_VISIT_INVALID_PARAMS_TEST_SUBGROUP_NAME3, H5P_DEFAULT,
+ H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create second subgroup '%s'\n", LINK_VISIT_INVALID_PARAMS_TEST_SUBGROUP_NAME3);
+ goto error;
+ }
+
+ if ((dset_dtype = generate_random_datatype(H5T_NO_CLASS, FALSE)) < 0)
+ TEST_ERROR;
+
+ if ((fspace_id = generate_random_dataspace(LINK_VISIT_INVALID_PARAMS_TEST_DSET_SPACE_RANK, NULL, NULL,
+ FALSE)) < 0)
+ TEST_ERROR;
+
+ if ((dset_id = H5Dcreate2(subgroup1, LINK_VISIT_INVALID_PARAMS_TEST_DSET_NAME, dset_dtype, fspace_id,
+ H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create first dataset '%s'\n", LINK_VISIT_INVALID_PARAMS_TEST_DSET_NAME);
+ }
+
+ if (H5Dclose(dset_id) < 0)
+ TEST_ERROR;
+
+ if ((dset_id = H5Dcreate2(subgroup2, LINK_VISIT_INVALID_PARAMS_TEST_DSET_NAME, dset_dtype, fspace_id,
+ H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create second dataset '%s'\n", LINK_VISIT_INVALID_PARAMS_TEST_DSET_NAME);
+ }
+
+ if (H5Dclose(dset_id) < 0)
+ TEST_ERROR;
+
+ if (H5Lcreate_hard(subgroup1, LINK_VISIT_INVALID_PARAMS_TEST_DSET_NAME, subgroup1,
+ LINK_VISIT_INVALID_PARAMS_TEST_LINK_NAME1, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create first hard link '%s'\n", LINK_VISIT_INVALID_PARAMS_TEST_LINK_NAME1);
+ goto error;
+ }
+
+ if (H5Lcreate_soft(LINK_VISIT_INVALID_PARAMS_TEST_DSET_NAME, subgroup1,
+ LINK_VISIT_INVALID_PARAMS_TEST_LINK_NAME2, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create soft link '%s'\n", LINK_VISIT_INVALID_PARAMS_TEST_LINK_NAME2);
+ goto error;
+ }
+#ifndef NO_EXTERNAL_LINKS
+ if (H5Lcreate_external(ext_link_filename, "/", subgroup2, LINK_VISIT_INVALID_PARAMS_TEST_LINK_NAME3,
+ H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create external link '%s'\n", LINK_VISIT_INVALID_PARAMS_TEST_LINK_NAME3);
+ goto error;
+ }
+#endif
+ if (H5Lcreate_hard(subgroup2, LINK_VISIT_INVALID_PARAMS_TEST_DSET_NAME, subgroup2,
+ LINK_VISIT_INVALID_PARAMS_TEST_LINK_NAME4, H5P_DEFAULT, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create second hard link '%s'\n", LINK_VISIT_INVALID_PARAMS_TEST_LINK_NAME4);
+ goto error;
+ }
+
+ /* Verify the links have been created */
+ if ((link_exists = H5Lexists(subgroup1, LINK_VISIT_INVALID_PARAMS_TEST_LINK_NAME1, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if first link '%s' exists\n",
+ LINK_VISIT_INVALID_PARAMS_TEST_LINK_NAME1);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link 1 did not exist\n");
+ goto error;
+ }
+
+ if ((link_exists = H5Lexists(subgroup1, LINK_VISIT_INVALID_PARAMS_TEST_LINK_NAME2, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if second link '%s' exists\n",
+ LINK_VISIT_INVALID_PARAMS_TEST_LINK_NAME2);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link 2 did not exist\n");
+ goto error;
+ }
+#ifndef NO_EXTERNAL_LINKS
+ if ((link_exists = H5Lexists(subgroup2, LINK_VISIT_INVALID_PARAMS_TEST_LINK_NAME3, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if third link '%s' exists\n",
+ LINK_VISIT_INVALID_PARAMS_TEST_LINK_NAME3);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link 3 did not exist\n");
+ goto error;
+ }
+#endif
+ if ((link_exists = H5Lexists(subgroup2, LINK_VISIT_INVALID_PARAMS_TEST_LINK_NAME4, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't determine if fourth link '%s' exists\n",
+ LINK_VISIT_INVALID_PARAMS_TEST_LINK_NAME4);
+ goto error;
+ }
+
+ if (!link_exists) {
+ H5_FAILED();
+ HDprintf(" link 4 did not exist\n");
+ goto error;
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ PART_BEGIN(H5Lvisit_invalid_grp_id)
+ {
+ TESTING_2("H5Lvisit2 with an invalid group ID");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lvisit2(H5I_INVALID_HID, H5_INDEX_NAME, H5_ITER_INC, link_visit_invalid_params_cb,
+ NULL);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 succeeded with an invalid group ID!\n");
+ PART_ERROR(H5Lvisit_invalid_grp_id);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_invalid_grp_id);
+
+ PART_BEGIN(H5Lvisit_invalid_index_type)
+ {
+ TESTING_2("H5Lvisit2 with an invalid index type");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret =
+ H5Lvisit2(group_id, H5_INDEX_UNKNOWN, H5_ITER_INC, link_visit_invalid_params_cb, NULL);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 succeeded with invalid index type H5_INDEX_UNKNOWN!\n");
+ PART_ERROR(H5Lvisit_invalid_index_type);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lvisit2(group_id, H5_INDEX_N, H5_ITER_INC, link_visit_invalid_params_cb, NULL);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 succeeded with invalid index type H5_INDEX_N!\n");
+ PART_ERROR(H5Lvisit_invalid_index_type);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_invalid_index_type);
+
+ PART_BEGIN(H5Lvisit_invalid_iter_order)
+ {
+ TESTING_2("H5Lvisit2 with an invalid iteration ordering");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret =
+ H5Lvisit2(group_id, H5_INDEX_NAME, H5_ITER_UNKNOWN, link_visit_invalid_params_cb, NULL);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 succeeded with invalid iteration ordering H5_ITER_UNKNOWN!\n");
+ PART_ERROR(H5Lvisit_invalid_iter_order);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lvisit2(group_id, H5_INDEX_NAME, H5_ITER_N, link_visit_invalid_params_cb, NULL);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 succeeded with invalid iteration ordering H5_ITER_N!\n");
+ PART_ERROR(H5Lvisit_invalid_iter_order);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_invalid_iter_order);
+
+ PART_BEGIN(H5Lvisit_by_name_invalid_loc_id)
+ {
+ TESTING_2("H5Lvisit_by_name2 with an invalid location ID");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lvisit_by_name2(
+ H5I_INVALID_HID,
+ "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_INVALID_PARAMS_TEST_SUBGROUP_NAME, H5_INDEX_NAME,
+ H5_ITER_INC, link_visit_invalid_params_cb, NULL, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 succeeded with an invalid location ID!\n");
+ PART_ERROR(H5Lvisit_by_name_invalid_loc_id);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_invalid_loc_id);
+
+ PART_BEGIN(H5Lvisit_by_name_invalid_grp_name)
+ {
+ TESTING_2("H5Lvisit_by_name2 with an invalid group name");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lvisit_by_name2(file_id, NULL, H5_INDEX_NAME, H5_ITER_INC,
+ link_visit_invalid_params_cb, NULL, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 succeeded with a NULL group name!\n");
+ PART_ERROR(H5Lvisit_by_name_invalid_grp_name);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lvisit_by_name2(file_id, "", H5_INDEX_NAME, H5_ITER_INC,
+ link_visit_invalid_params_cb, NULL, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 succeeded with an invalid group name of ''!\n");
+ PART_ERROR(H5Lvisit_by_name_invalid_grp_name);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_invalid_grp_name);
+
+ PART_BEGIN(H5Lvisit_by_name_invalid_index_type)
+ {
+ TESTING_2("H5Lvisit_by_name2 with an invalid index type");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_INVALID_PARAMS_TEST_SUBGROUP_NAME,
+ H5_INDEX_UNKNOWN, H5_ITER_INC, link_visit_invalid_params_cb, NULL, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 succeeded with invalid index type H5_INDEX_UNKNOWN!\n");
+ PART_ERROR(H5Lvisit_by_name_invalid_index_type);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_INVALID_PARAMS_TEST_SUBGROUP_NAME,
+ H5_INDEX_N, H5_ITER_INC, link_visit_invalid_params_cb, NULL, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 succeeded with invalid index type H5_INDEX_N!\n");
+ PART_ERROR(H5Lvisit_by_name_invalid_index_type);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_invalid_index_type);
+
+ PART_BEGIN(H5Lvisit_by_name_invalid_iter_order)
+ {
+ TESTING_2("H5Lvisit_by_name2 with an invalid iteration ordering");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_INVALID_PARAMS_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_UNKNOWN, link_visit_invalid_params_cb, NULL, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(
+ " H5Lvisit_by_name2 succeeded with invalid iteration ordering H5_ITER_UNKNOWN!\n");
+ PART_ERROR(H5Lvisit_by_name_invalid_iter_order);
+ }
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_INVALID_PARAMS_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_N, link_visit_invalid_params_cb, NULL, H5P_DEFAULT);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 succeeded with invalid iteration ordering H5_ITER_N!\n");
+ PART_ERROR(H5Lvisit_by_name_invalid_iter_order);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_invalid_iter_order);
+
+ PART_BEGIN(H5Lvisit_by_name_invalid_lapl)
+ {
+ TESTING_2("H5Lvisit_by_name2 with an invalid LAPL");
+
+ H5E_BEGIN_TRY
+ {
+ err_ret = H5Lvisit_by_name2(
+ file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_INVALID_PARAMS_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_INC, link_visit_invalid_params_cb, NULL, H5I_INVALID_HID);
+ }
+ H5E_END_TRY;
+
+ if (err_ret >= 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 succeeded with an invalid LAPL!\n");
+ PART_ERROR(H5Lvisit_by_name_invalid_lapl);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_invalid_lapl);
+ }
+ END_MULTIPART;
+
+ TESTING_2("test cleanup");
+
+ if (H5Sclose(fspace_id) < 0)
+ TEST_ERROR;
+ if (H5Tclose(dset_dtype) < 0)
+ TEST_ERROR;
+ if (H5Gclose(subgroup1) < 0)
+ TEST_ERROR;
+ if (H5Gclose(subgroup2) < 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(subgroup1);
+ H5Gclose(subgroup2);
+ H5Gclose(group_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * A test to check that recursive link iteration
+ * performed on a group with no links in it is
+ * not problematic.
+ */
+static int
+test_link_visit_0_links(void)
+{
+ hid_t file_id = H5I_INVALID_HID;
+ hid_t container_group = H5I_INVALID_HID, group_id = H5I_INVALID_HID;
+ hid_t gcpl_id = H5I_INVALID_HID;
+
+ TESTING_MULTIPART("link visiting on group with subgroups containing 0 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_ITERATE) || !(vol_cap_flags_g & H5VL_CAP_FLAG_CREATION_ORDER)) {
+ SKIPPED();
+ HDprintf(" API functions for basic file, group, 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, LINK_TEST_GROUP_NAME, H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't open container group '%s'\n", LINK_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, LINK_VISIT_0_LINKS_TEST_SUBGROUP_NAME, H5P_DEFAULT, gcpl_id,
+ H5P_DEFAULT)) < 0) {
+ H5_FAILED();
+ HDprintf(" couldn't create container subgroup '%s'\n", LINK_VISIT_0_LINKS_TEST_SUBGROUP_NAME);
+ goto error;
+ }
+
+ PASSED();
+
+ BEGIN_MULTIPART
+ {
+ PART_BEGIN(H5Lvisit_0_links_name_increasing)
+ {
+ TESTING_2("H5Lvisit2 by link name in increasing order");
+
+ if (H5Lvisit2(group_id, H5_INDEX_NAME, H5_ITER_INC, link_visit_0_links_cb, NULL) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type name in increasing order failed\n");
+ PART_ERROR(H5Lvisit_0_links_name_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_0_links_name_increasing);
+
+ PART_BEGIN(H5Lvisit_0_links_name_decreasing)
+ {
+ TESTING_2("H5Lvisit2 by link name in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ if (H5Lvisit2(group_id, H5_INDEX_NAME, H5_ITER_DEC, link_visit_0_links_cb, NULL) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type name in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_0_links_name_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lvisit_0_links_name_decreasing);
+#endif
+ }
+ PART_END(H5Lvisit_0_links_name_decreasing);
+
+ PART_BEGIN(H5Lvisit_0_links_creation_increasing)
+ {
+ TESTING_2("H5Lvisit2 by creation order in increasing order");
+
+ if (H5Lvisit2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_INC, link_visit_0_links_cb, NULL) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type creation order in increasing order failed\n");
+ PART_ERROR(H5Lvisit_0_links_creation_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_0_links_creation_increasing);
+
+ PART_BEGIN(H5Lvisit_0_links_creation_decreasing)
+ {
+ TESTING_2("H5Lvisit2 by creation order in decreasing order");
+
+ if (H5Lvisit2(group_id, H5_INDEX_CRT_ORDER, H5_ITER_DEC, link_visit_0_links_cb, NULL) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit2 by index type creation order in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_0_links_creation_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_0_links_creation_decreasing);
+
+ PART_BEGIN(H5Lvisit_by_name_0_links_name_increasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by link name in increasing order");
+
+ if (H5Lvisit_by_name2(file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_0_LINKS_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_INC, link_visit_0_links_cb, NULL, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type name in increasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_0_links_name_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_0_links_name_increasing);
+
+ PART_BEGIN(H5Lvisit_by_name_0_links_name_decreasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by link name in decreasing order");
+#ifndef NO_DECREASING_ALPHA_ITER_ORDER
+ if (H5Lvisit_by_name2(file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_0_LINKS_TEST_SUBGROUP_NAME,
+ H5_INDEX_NAME, H5_ITER_DEC, link_visit_0_links_cb, NULL, H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type name in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_0_links_name_decreasing);
+ }
+
+ PASSED();
+#else
+ SKIPPED();
+ PART_EMPTY(H5Lvisit_by_name_0_links_name_decreasing);
+#endif
+ }
+ PART_END(H5Lvisit_by_name_0_links_name_decreasing);
+
+ PART_BEGIN(H5Lvisit_by_name_0_links_creation_increasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by creation order in increasing order");
+
+ if (H5Lvisit_by_name2(file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_0_LINKS_TEST_SUBGROUP_NAME,
+ H5_INDEX_CRT_ORDER, H5_ITER_INC, link_visit_0_links_cb, NULL,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type creation order in increasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_0_links_creation_increasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_0_links_creation_increasing);
+
+ PART_BEGIN(H5Lvisit_by_name_0_links_creation_decreasing)
+ {
+ TESTING_2("H5Lvisit_by_name2 by creation order in decreasing order");
+
+ if (H5Lvisit_by_name2(file_id, "/" LINK_TEST_GROUP_NAME "/" LINK_VISIT_0_LINKS_TEST_SUBGROUP_NAME,
+ H5_INDEX_CRT_ORDER, H5_ITER_DEC, link_visit_0_links_cb, NULL,
+ H5P_DEFAULT) < 0) {
+ H5_FAILED();
+ HDprintf(" H5Lvisit_by_name2 by index type creation order in decreasing order failed\n");
+ PART_ERROR(H5Lvisit_by_name_0_links_creation_decreasing);
+ }
+
+ PASSED();
+ }
+ PART_END(H5Lvisit_by_name_0_links_creation_decreasing);
+ }
+ 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_id);
+ H5Gclose(container_group);
+ H5Fclose(file_id);
+ }
+ H5E_END_TRY;
+
+ return 1;
+}
+
+/*
+ * Link iteration callback for the hard links test which iterates
+ * through all of the links in the test group and checks to make sure
+ * their names and link classes match what is expected.
+ */
+static herr_t
+link_iter_hard_links_cb(hid_t group_id, const char *name, const H5L_info2_t *info, void *op_data)
+{
+ size_t *i = (size_t *)op_data;
+ size_t counter_val = *((size_t *)op_data);
+ size_t test_iteration;
+ char expected_link_name[LINK_ITER_HARD_LINKS_TEST_BUF_SIZE];
+ herr_t ret_val = H5_ITER_CONT;
+
+ UNUSED(group_id);
+ UNUSED(op_data);
+
+ if (H5L_TYPE_HARD != info->type) {
+ ret_val = H5_ITER_ERROR;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_HARD!\n", name);
+ goto done;
+ }
+
+ /*
+ * Four tests are run in the following order per link iteration API call:
+ *
+ * - iteration by link name in increasing order
+ * - iteration by link name in decreasing order
+ * - iteration by link creation order in increasing order
+ * - iteration by link creation order in decreasing order
+ *
+ * Based on how the test is written, this will mean that the dataset names
+ * will run in increasing order on the first and fourth tests and decreasing
+ * order on the second and third tests.
+ */
+ test_iteration = (counter_val / LINK_ITER_HARD_LINKS_TEST_NUM_LINKS);
+ if (test_iteration == 0 || test_iteration == 3) {
+ HDsnprintf(expected_link_name, LINK_ITER_HARD_LINKS_TEST_BUF_SIZE,
+ LINK_ITER_HARD_LINKS_TEST_LINK_NAME "%d",
+ (int)(counter_val % LINK_ITER_HARD_LINKS_TEST_NUM_LINKS));
+ }
+ else {
+ HDsnprintf(expected_link_name, LINK_ITER_HARD_LINKS_TEST_BUF_SIZE,
+ LINK_ITER_HARD_LINKS_TEST_LINK_NAME "%d",
+ (int)(LINK_ITER_HARD_LINKS_TEST_NUM_LINKS -
+ (counter_val % LINK_ITER_HARD_LINKS_TEST_NUM_LINKS) - 1));
+ }
+
+ if (HDstrncmp(name, expected_link_name, LINK_ITER_HARD_LINKS_TEST_BUF_SIZE)) {
+ HDprintf(" link name '%s' didn't match expected name '%s'\n", name, expected_link_name);
+ ret_val = H5_ITER_ERROR;
+ goto done;
+ }
+
+done:
+ (*i)++;
+
+ return ret_val;
+}
+
+/*
+ * Link iteration callback for the soft links test which iterates
+ * through all of the links in the test group and checks to make sure
+ * their names and link classes match what is expected.
+ */
+static herr_t
+link_iter_soft_links_cb(hid_t group_id, const char *name, const H5L_info2_t *info, void *op_data)
+{
+ size_t *i = (size_t *)op_data;
+ size_t counter_val = *((size_t *)op_data);
+ size_t test_iteration;
+ char expected_link_name[LINK_ITER_SOFT_LINKS_TEST_BUF_SIZE];
+ herr_t ret_val = H5_ITER_CONT;
+
+ UNUSED(group_id);
+ UNUSED(op_data);
+
+ if (H5L_TYPE_SOFT != info->type) {
+ ret_val = H5_ITER_ERROR;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_SOFT!\n", name);
+ goto done;
+ }
+
+ /*
+ * Four tests are run in the following order per link iteration API call:
+ *
+ * - iteration by link name in increasing order
+ * - iteration by link name in decreasing order
+ * - iteration by link creation order in increasing order
+ * - iteration by link creation order in decreasing order
+ *
+ * Based on how the test is written, this will mean that the link names
+ * will run in increasing order on the first and fourth tests and decreasing
+ * order on the second and third tests.
+ */
+ test_iteration = (counter_val / LINK_ITER_SOFT_LINKS_TEST_NUM_LINKS);
+ if (test_iteration == 0 || test_iteration == 3) {
+ HDsnprintf(expected_link_name, LINK_ITER_SOFT_LINKS_TEST_BUF_SIZE,
+ LINK_ITER_SOFT_LINKS_TEST_LINK_NAME "%d",
+ (int)(counter_val % LINK_ITER_SOFT_LINKS_TEST_NUM_LINKS));
+ }
+ else {
+ HDsnprintf(expected_link_name, LINK_ITER_SOFT_LINKS_TEST_BUF_SIZE,
+ LINK_ITER_SOFT_LINKS_TEST_LINK_NAME "%d",
+ (int)(LINK_ITER_SOFT_LINKS_TEST_NUM_LINKS -
+ (counter_val % LINK_ITER_SOFT_LINKS_TEST_NUM_LINKS) - 1));
+ }
+
+ if (HDstrncmp(name, expected_link_name, LINK_ITER_SOFT_LINKS_TEST_BUF_SIZE)) {
+ HDprintf(" link name '%s' didn't match expected name '%s'\n", name, expected_link_name);
+ ret_val = H5_ITER_ERROR;
+ goto done;
+ }
+
+done:
+ (*i)++;
+
+ return ret_val;
+}
+
+/*
+ * Link iteration callback for the external links test which iterates
+ * through all of the links in the test group and checks to make sure
+ * their names and link classes match what is expected.
+ */
+#ifndef NO_EXTERNAL_LINKS
+static herr_t
+link_iter_external_links_cb(hid_t group_id, const char *name, const H5L_info2_t *info, void *op_data)
+{
+ size_t *i = (size_t *)op_data;
+ size_t counter_val = *((size_t *)op_data);
+ size_t test_iteration;
+ char expected_link_name[LINK_ITER_EXT_LINKS_TEST_BUF_SIZE];
+ herr_t ret_val = H5_ITER_CONT;
+
+ UNUSED(group_id);
+ UNUSED(op_data);
+
+ if (H5L_TYPE_EXTERNAL != info->type) {
+ ret_val = H5_ITER_ERROR;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_EXTERNAL!\n", name);
+ goto done;
+ }
+
+ /*
+ * Four tests are run in the following order per link iteration API call:
+ *
+ * - iteration by link name in increasing order
+ * - iteration by link name in decreasing order
+ * - iteration by link creation order in increasing order
+ * - iteration by link creation order in decreasing order
+ *
+ * Based on how the test is written, this will mean that the link names
+ * will run in increasing order on the first and fourth tests and decreasing
+ * order on the second and third tests.
+ */
+ test_iteration = (counter_val / LINK_ITER_EXT_LINKS_TEST_NUM_LINKS);
+ if (test_iteration == 0 || test_iteration == 3) {
+ HDsnprintf(expected_link_name, LINK_ITER_EXT_LINKS_TEST_BUF_SIZE,
+ LINK_ITER_EXT_LINKS_TEST_LINK_NAME "%d",
+ (int)(counter_val % LINK_ITER_EXT_LINKS_TEST_NUM_LINKS));
+ }
+ else {
+ HDsnprintf(expected_link_name, LINK_ITER_EXT_LINKS_TEST_BUF_SIZE,
+ LINK_ITER_EXT_LINKS_TEST_LINK_NAME "%d",
+ (int)(LINK_ITER_EXT_LINKS_TEST_NUM_LINKS -
+ (counter_val % LINK_ITER_EXT_LINKS_TEST_NUM_LINKS) - 1));
+ }
+
+ if (HDstrncmp(name, expected_link_name, LINK_ITER_EXT_LINKS_TEST_BUF_SIZE)) {
+ HDprintf(" link name '%s' didn't match expected name '%s'\n", name, expected_link_name);
+ ret_val = H5_ITER_ERROR;
+ goto done;
+ }
+
+done:
+ (*i)++;
+
+ return ret_val;
+}
+#endif
+#ifndef NO_USER_DEFINED_LINKS
+static herr_t link_iter_ud_links_cb(hid_t group_id, const char *name, const H5L_info2_t *info, void *op_data);
+#endif
+/*
+ * Link iteration callback for the mixed link types test which iterates
+ * through all of the links in the test group and checks to make sure
+ * their names and link classes match what is expected.
+ */
+#if !defined(NO_EXTERNAL_LINKS) && !defined(NO_USER_DEFINED_LINKS)
+static herr_t
+link_iter_mixed_links_cb(hid_t group_id, const char *name, const H5L_info2_t *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(group_id);
+
+ if (!HDstrncmp(name, LINK_ITER_MIXED_LINKS_TEST_HARD_LINK_NAME,
+ strlen(LINK_ITER_MIXED_LINKS_TEST_HARD_LINK_NAME) + 1) &&
+ (counter_val == 1 || counter_val == 4 || counter_val == 6 || counter_val == 11)) {
+ if (H5L_TYPE_HARD != info->type) {
+ ret_val = -1;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_HARD!\n", name);
+ }
+
+ goto done;
+ }
+ else if (!HDstrncmp(name, LINK_ITER_MIXED_LINKS_TEST_SOFT_LINK_NAME,
+ strlen(LINK_ITER_MIXED_LINKS_TEST_SOFT_LINK_NAME) + 1) &&
+ (counter_val == 2 || counter_val == 3 || counter_val == 7 || counter_val == 10)) {
+ if (H5L_TYPE_SOFT != info->type) {
+ ret_val = -1;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_SOFT!\n", name);
+ }
+
+ goto done;
+ }
+ else if (!HDstrncmp(name, LINK_ITER_MIXED_LINKS_TEST_EXT_LINK_NAME,
+ strlen(LINK_ITER_MIXED_LINKS_TEST_EXT_LINK_NAME) + 1) &&
+ (counter_val == 0 || counter_val == 5 || counter_val == 8 || counter_val == 9)) {
+ if (H5L_TYPE_EXTERNAL != info->type) {
+ ret_val = -1;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_EXTERNAL!\n", name);
+ }
+
+ goto done;
+ }
+
+ HDprintf(" link name '%s' didn't match known names or came in an incorrect order\n", name);
+
+ ret_val = -1;
+
+done:
+ (*i)++;
+
+ return ret_val;
+}
+#endif
+
+/*
+ * Link iteration callback for the H5Literate(_by_name)2 invalid
+ * parameters test which simply does nothing.
+ */
+static herr_t
+link_iter_invalid_params_cb(hid_t group_id, const char *name, const H5L_info2_t *info, void *op_data)
+{
+ UNUSED(group_id);
+ UNUSED(name);
+ UNUSED(info);
+ UNUSED(op_data);
+
+ return 0;
+}
+
+/*
+ * Link iteration callback for the 0 links iteration test which
+ * simply does nothing.
+ */
+static herr_t
+link_iter_0_links_cb(hid_t group_id, const char *name, const H5L_info2_t *info, void *op_data)
+{
+ UNUSED(group_id);
+ UNUSED(name);
+ UNUSED(info);
+ UNUSED(op_data);
+
+ return 0;
+}
+
+/*
+ * Link iteration callback to test that the index-saving behavior of H5Literate2
+ * works correctly.
+ */
+#if !defined(NO_EXTERNAL_LINKS) && !defined(NO_USER_DEFINED_LINKS)
+static herr_t
+link_iter_idx_saving_cb(hid_t group_id, const char *name, const H5L_info2_t *info, void *op_data)
+{
+ int *broken = (int *)op_data;
+
+ UNUSED(group_id);
+
+ if (broken && !*broken &&
+ !HDstrncmp(name, LINK_ITER_MIXED_LINKS_TEST_SOFT_LINK_NAME,
+ strlen(LINK_ITER_MIXED_LINKS_TEST_SOFT_LINK_NAME) + 1)) {
+ return (*broken = 1);
+ }
+
+ if (!HDstrncmp(name, LINK_ITER_MIXED_LINKS_TEST_HARD_LINK_NAME,
+ strlen(LINK_ITER_MIXED_LINKS_TEST_HARD_LINK_NAME) + 1)) {
+ if (H5L_TYPE_HARD != info->type) {
+ H5_FAILED();
+ HDprintf(" link type did not match\n");
+ goto error;
+ }
+ }
+ else if (!HDstrncmp(name, LINK_ITER_MIXED_LINKS_TEST_SOFT_LINK_NAME,
+ strlen(LINK_ITER_MIXED_LINKS_TEST_SOFT_LINK_NAME) + 1)) {
+ if (H5L_TYPE_SOFT != info->type) {
+ H5_FAILED();
+ HDprintf(" link type did not match\n");
+ goto error;
+ }
+ }
+ else if (!HDstrncmp(name, LINK_ITER_MIXED_LINKS_TEST_EXT_LINK_NAME,
+ strlen(LINK_ITER_MIXED_LINKS_TEST_EXT_LINK_NAME) + 1)) {
+ if (H5L_TYPE_EXTERNAL != info->type) {
+ H5_FAILED();
+ HDprintf(" link type did not match\n");
+ goto error;
+ }
+ }
+ else {
+ H5_FAILED();
+ HDprintf(" link name didn't match known names\n");
+ goto error;
+ }
+
+ return 0;
+
+error:
+ return -1;
+}
+#endif
+
+/*
+ * Link visiting callback for the hard links + no cycles test which
+ * iterates recursively through all of the links in the test group and
+ * checks to make sure their names and link classes match what is expected.
+ */
+static herr_t
+link_visit_hard_links_no_cycles_cb(hid_t group_id, const char *name, const H5L_info2_t *info, void *op_data)
+{
+ hbool_t is_subgroup_link;
+ size_t *i = (size_t *)op_data;
+ size_t counter_val = *((size_t *)op_data);
+ size_t test_iteration;
+ size_t subgroup_number;
+ size_t link_idx_val;
+ char expected_link_name[LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_BUF_SIZE];
+ herr_t ret_val = H5_ITER_CONT;
+
+ UNUSED(group_id);
+ UNUSED(op_data);
+
+ if (H5L_TYPE_HARD != info->type) {
+ ret_val = H5_ITER_ERROR;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_HARD!\n", name);
+ goto done;
+ }
+
+ /*
+ * Four tests are run in the following order per link visiting API call:
+ *
+ * - visitation by link name in increasing order
+ * - visitation by link name in decreasing order
+ * - visitation by link creation order in increasing order
+ * - visitation by link creation order in decreasing order
+ *
+ * Based on how the test is written, this will mean that the dataset and group
+ * names will run in increasing order on the first and fourth tests and decreasing
+ * order on the second and third tests.
+ */
+ test_iteration = counter_val / LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ /* Determine which subgroup is currently being processed */
+ subgroup_number =
+ /* Take the current counter value modulo the total number of links per test iteration (datasets +
+ subgroups) */
+ (counter_val % LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST)
+ /* and divide it by the number of links per subgroup + 1 to get the subgroup's index number. */
+ / (LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_GROUP + 1);
+
+ /* Determine whether the current link points to the current subgroup itself */
+ is_subgroup_link = (counter_val % (LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_GROUP + 1) == 0);
+ if (!is_subgroup_link) {
+ /* Determine the index number of this link within its containing subgroup */
+ link_idx_val =
+ /* Take the current counter value modulo the total number of links per test iteration (datasets +
+ subgroups) */
+ (counter_val % LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST)
+ /* and take it modulo the number of links per subgroup + 1, finally subtracting 1 to get the
+ link's index number. */
+ % (LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_GROUP + 1) -
+ 1;
+ }
+
+ if (test_iteration == 0 || test_iteration == 3) {
+ if (is_subgroup_link) {
+ HDsnprintf(expected_link_name, LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NESTED_GRP_NAME "%d", (int)subgroup_number);
+ }
+ else {
+ HDsnprintf(expected_link_name, LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NESTED_GRP_NAME
+ "%d"
+ "/" LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_LINK_NAME "%d",
+ (int)subgroup_number, (int)link_idx_val);
+ }
+ }
+ else {
+ if (is_subgroup_link) {
+ HDsnprintf(expected_link_name, LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NESTED_GRP_NAME "%d",
+ (int)(LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NUM_SUBGROUPS - subgroup_number - 1));
+ }
+ else {
+ HDsnprintf(expected_link_name, LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NESTED_GRP_NAME
+ "%d"
+ "/" LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_LINK_NAME "%d",
+ (int)(LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NUM_SUBGROUPS - subgroup_number - 1),
+ (int)(LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_GROUP - link_idx_val - 1));
+ }
+ }
+
+ if (HDstrncmp(name, expected_link_name, LINK_VISIT_HARD_LINKS_NO_CYCLE_TEST_BUF_SIZE)) {
+ HDprintf(" link name '%s' didn't match expected name '%s'\n", name, expected_link_name);
+ ret_val = H5_ITER_ERROR;
+ goto done;
+ }
+
+done:
+ (*i)++;
+
+ return ret_val;
+}
+
+/*
+ * Link visiting callback for the soft links + no cycles test which
+ * iterates recursively through all of the links in the test group and
+ * checks to make sure their names and link classes match what is expected.
+ */
+static herr_t
+link_visit_soft_links_no_cycles_cb(hid_t group_id, const char *name, const H5L_info2_t *info, void *op_data)
+{
+ hbool_t is_subgroup_link;
+ size_t *i = (size_t *)op_data;
+ size_t counter_val = *((size_t *)op_data);
+ size_t test_iteration;
+ size_t subgroup_number;
+ size_t link_idx_val;
+ char expected_link_name[LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_BUF_SIZE];
+ herr_t ret_val = H5_ITER_CONT;
+
+ UNUSED(group_id);
+ UNUSED(op_data);
+
+ /* Determine whether the current link points to the current subgroup itself */
+ is_subgroup_link = (counter_val % (LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_GROUP + 1) == 0);
+
+ if (is_subgroup_link) {
+ if (H5L_TYPE_HARD != info->type) {
+ ret_val = H5_ITER_ERROR;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_HARD!\n", name);
+ goto done;
+ }
+ }
+ else {
+ if (H5L_TYPE_SOFT != info->type) {
+ ret_val = H5_ITER_ERROR;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_SOFT!\n", name);
+ goto done;
+ }
+ }
+
+ /*
+ * Four tests are run in the following order per link visiting API call:
+ *
+ * - visitation by link name in increasing order
+ * - visitation by link name in decreasing order
+ * - visitation by link creation order in increasing order
+ * - visitation by link creation order in decreasing order
+ *
+ * Based on how the test is written, this will mean that the link names will
+ * run in increasing order on the first and fourth tests and decreasing
+ * order on the second and third tests.
+ */
+ test_iteration = counter_val / LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ /* Determine which subgroup is currently being processed */
+ subgroup_number =
+ /* Take the current counter value modulo the total number of links per test iteration (links +
+ subgroups) */
+ (counter_val % LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST)
+ /* and divide it by the number of links per subgroup + 1 to get the subgroup's index number. */
+ / (LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_GROUP + 1);
+
+ if (!is_subgroup_link) {
+ /* Determine the index number of this link within its containing subgroup */
+ link_idx_val =
+ /* Take the current counter value modulo the total number of links per test iteration (links +
+ subgroups) */
+ (counter_val % LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST)
+ /* and take it modulo the number of links per subgroup + 1, finally subtracting 1 to get the
+ link's index number. */
+ % (LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_GROUP + 1) -
+ 1;
+ }
+
+ if (test_iteration == 0 || test_iteration == 3) {
+ if (is_subgroup_link) {
+ HDsnprintf(expected_link_name, LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NESTED_GRP_NAME "%d", (int)subgroup_number);
+ }
+ else {
+ HDsnprintf(expected_link_name, LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NESTED_GRP_NAME
+ "%d"
+ "/" LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_LINK_NAME "%d",
+ (int)subgroup_number, (int)link_idx_val);
+ }
+ }
+ else {
+ if (is_subgroup_link) {
+ HDsnprintf(expected_link_name, LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NESTED_GRP_NAME "%d",
+ (int)(LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NUM_SUBGROUPS - subgroup_number - 1));
+ }
+ else {
+ HDsnprintf(expected_link_name, LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NESTED_GRP_NAME
+ "%d"
+ "/" LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_LINK_NAME "%d",
+ (int)(LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NUM_SUBGROUPS - subgroup_number - 1),
+ (int)(LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_GROUP - link_idx_val - 1));
+ }
+ }
+
+ if (HDstrncmp(name, expected_link_name, LINK_VISIT_SOFT_LINKS_NO_CYCLE_TEST_BUF_SIZE)) {
+ HDprintf(" link name '%s' didn't match expected name '%s'\n", name, expected_link_name);
+ ret_val = H5_ITER_ERROR;
+ goto done;
+ }
+
+done:
+ (*i)++;
+
+ return ret_val;
+}
+
+/*
+ * Link visiting callback for the external links + no cycles test which
+ * iterates recursively through all of the links in the test group and
+ * checks to make sure their names and link classes match what is expected.
+ */
+#ifndef NO_EXTERNAL_LINKS
+static herr_t
+link_visit_external_links_no_cycles_cb(hid_t group_id, const char *name, const H5L_info2_t *info,
+ void *op_data)
+{
+ hbool_t is_subgroup_link;
+ size_t *i = (size_t *)op_data;
+ size_t counter_val = *((size_t *)op_data);
+ size_t test_iteration;
+ size_t subgroup_number;
+ size_t link_idx_val;
+ char expected_link_name[LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_BUF_SIZE];
+ herr_t ret_val = H5_ITER_CONT;
+
+ UNUSED(group_id);
+ UNUSED(op_data);
+
+ /* Determine whether the current link points to the current subgroup itself */
+ is_subgroup_link = (counter_val % (LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_GROUP + 1) == 0);
+
+ if (is_subgroup_link) {
+ if (H5L_TYPE_HARD != info->type) {
+ ret_val = H5_ITER_ERROR;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_HARD!\n", name);
+ goto done;
+ }
+ }
+ else {
+ if (H5L_TYPE_EXTERNAL != info->type) {
+ ret_val = H5_ITER_ERROR;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_EXTERNAL!\n", name);
+ goto done;
+ }
+ }
+
+ /*
+ * Four tests are run in the following order per link visiting API call:
+ *
+ * - visitation by link name in increasing order
+ * - visitation by link name in decreasing order
+ * - visitation by link creation order in increasing order
+ * - visitation by link creation order in decreasing order
+ *
+ * Based on how the test is written, this will mean that the link names will
+ * run in increasing order on the first and fourth tests and decreasing
+ * order on the second and third tests.
+ */
+ test_iteration = counter_val / LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ /* Determine which subgroup is currently being processed */
+ subgroup_number =
+ /* Take the current counter value modulo the total number of links per test iteration (links +
+ subgroups) */
+ (counter_val % LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST)
+ /* and divide it by the number of links per subgroup + 1 to get the subgroup's index number. */
+ / (LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_GROUP + 1);
+
+ if (!is_subgroup_link) {
+ /* Determine the index number of this link within its containing subgroup */
+ link_idx_val =
+ /* Take the current counter value modulo the total number of links per test iteration (links +
+ subgroups) */
+ (counter_val % LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_TEST)
+ /* and take it modulo the number of links per subgroup + 1, finally subtracting 1 to get the
+ link's index number. */
+ % (LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_GROUP + 1) -
+ 1;
+ }
+
+ if (test_iteration == 0 || test_iteration == 3) {
+ if (is_subgroup_link) {
+ HDsnprintf(expected_link_name, LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NESTED_GRP_NAME "%d", (int)subgroup_number);
+ }
+ else {
+ HDsnprintf(expected_link_name, LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NESTED_GRP_NAME
+ "%d"
+ "/" LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_LINK_NAME "%d",
+ (int)subgroup_number, (int)link_idx_val);
+ }
+ }
+ else {
+ if (is_subgroup_link) {
+ HDsnprintf(expected_link_name, LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NESTED_GRP_NAME "%d",
+ (int)(LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NUM_SUBGROUPS - subgroup_number - 1));
+ }
+ else {
+ HDsnprintf(expected_link_name, LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NESTED_GRP_NAME
+ "%d"
+ "/" LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_LINK_NAME "%d",
+ (int)(LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NUM_SUBGROUPS - subgroup_number - 1),
+ (int)(LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_NUM_LINKS_PER_GROUP - link_idx_val - 1));
+ }
+ }
+
+ if (HDstrncmp(name, expected_link_name, LINK_VISIT_EXT_LINKS_NO_CYCLE_TEST_BUF_SIZE)) {
+ HDprintf(" link name '%s' didn't match expected name '%s'\n", name, expected_link_name);
+ ret_val = H5_ITER_ERROR;
+ goto done;
+ }
+
+done:
+ (*i)++;
+
+ return ret_val;
+}
+#endif
+#ifndef NO_USER_DEFINED_LINKS
+static herr_t link_visit_ud_links_no_cycles_cb(hid_t group_id, const char *name, const H5L_info2_t *info,
+ void *op_data);
+#endif
+/*
+ * Link visiting callback for the mixed link types + no cycles test which
+ * iterates recursively through all of the links in the test group and
+ * checks to make sure their names and link classes match what is expected.
+ */
+#if !defined(NO_EXTERNAL_LINKS) && !defined(NO_USER_DEFINED_LINKS)
+static herr_t
+link_visit_mixed_links_no_cycles_cb(hid_t group_id, const char *name, const H5L_info2_t *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(group_id);
+ UNUSED(op_data);
+
+ if (!HDstrncmp(name,
+ LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME2
+ "/" LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_LINK_NAME1,
+ strlen(LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME2
+ "/" LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_LINK_NAME1) +
+ 1) &&
+ (counter_val == 2 || counter_val == 14 || counter_val == 18 || counter_val == 30)) {
+ if (H5L_TYPE_HARD != info->type) {
+ ret_val = -1;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_HARD!\n",
+ LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME2
+ "/" LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_LINK_NAME1);
+ }
+
+ goto done;
+ }
+ else if (!HDstrncmp(name,
+ LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME2
+ "/" LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_LINK_NAME2,
+ strlen(LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME2
+ "/" LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_LINK_NAME2) +
+ 1) &&
+ (counter_val == 3 || counter_val == 13 || counter_val == 19 || counter_val == 29)) {
+ if (H5L_TYPE_SOFT != info->type) {
+ ret_val = -1;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_SOFT!\n",
+ LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME2
+ "/" LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_LINK_NAME2);
+ }
+
+ goto done;
+ }
+ else if (!HDstrncmp(name,
+ LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME3
+ "/" LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_LINK_NAME3,
+ strlen(LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME3
+ "/" LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_LINK_NAME3) +
+ 1) &&
+ (counter_val == 6 || counter_val == 10 || counter_val == 22 || counter_val == 26)) {
+ if (H5L_TYPE_EXTERNAL != info->type) {
+ ret_val = -1;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_EXTERNAL!\n",
+ LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME3
+ "/" LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_LINK_NAME3);
+ }
+
+ goto done;
+ }
+ else if (!HDstrncmp(name,
+ LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME3
+ "/" LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_LINK_NAME4,
+ strlen(LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME3
+ "/" LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_LINK_NAME4) +
+ 1) &&
+ (counter_val == 7 || counter_val == 9 || counter_val == 23 || counter_val == 25)) {
+ if (H5L_TYPE_HARD != info->type) {
+ ret_val = -1;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_HARD!\n",
+ LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME3
+ "/" LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_LINK_NAME4);
+ }
+
+ goto done;
+ }
+ else if (!HDstrncmp(name,
+ LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME2
+ "/" LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_DSET_NAME,
+ strlen(LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME2
+ "/" LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_DSET_NAME) +
+ 1) &&
+ (counter_val == 1 || counter_val == 15 || counter_val == 17 || counter_val == 31)) {
+ if (H5L_TYPE_HARD != info->type) {
+ ret_val = -1;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_HARD!\n",
+ LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME2
+ "/" LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_DSET_NAME);
+ }
+
+ goto done;
+ }
+ else if (!HDstrncmp(name,
+ LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME3
+ "/" LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_DSET_NAME2,
+ strlen(LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME3
+ "/" LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_DSET_NAME2) +
+ 1) &&
+ (counter_val == 5 || counter_val == 11 || counter_val == 21 || counter_val == 27)) {
+ if (H5L_TYPE_HARD != info->type) {
+ ret_val = -1;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_HARD!\n",
+ LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME3
+ "/" LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_DSET_NAME2);
+ }
+
+ goto done;
+ }
+ else if (!HDstrncmp(name, LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME2,
+ strlen(LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME2) + 1) &&
+ (counter_val == 0 || counter_val == 12 || counter_val == 16 || counter_val == 28)) {
+ if (H5L_TYPE_HARD != info->type) {
+ ret_val = -1;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_HARD!\n",
+ LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME2);
+ }
+
+ goto done;
+ }
+ else if (!HDstrncmp(name, LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME3,
+ strlen(LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME3) + 1) &&
+ (counter_val == 4 || counter_val == 8 || counter_val == 20 || counter_val == 24)) {
+ if (H5L_TYPE_HARD != info->type) {
+ ret_val = -1;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_HARD!\n",
+ LINK_VISIT_MIXED_LINKS_NO_CYCLE_TEST_SUBGROUP_NAME3);
+ }
+
+ goto done;
+ }
+
+ HDprintf(" link name '%s' didn't match known names or came in an incorrect order\n", name);
+
+ ret_val = -1;
+
+done:
+ (*i)++;
+
+ return ret_val;
+}
+#endif
+
+/*
+ * Link visiting callback for the hard links + cycles test which
+ * iterates recursively through all of the links in the test group and
+ * checks to make sure their names and link classes match what is expected.
+ */
+static herr_t
+link_visit_hard_links_cycles_cb(hid_t group_id, const char *name, const H5L_info2_t *info, void *op_data)
+{
+ hbool_t is_subgroup_link;
+ size_t *i = (size_t *)op_data;
+ size_t counter_val = *((size_t *)op_data);
+ size_t test_iteration;
+ size_t subgroup_number;
+ size_t link_idx_val;
+ char expected_link_name[LINK_VISIT_HARD_LINKS_CYCLE_TEST_BUF_SIZE];
+ herr_t ret_val = H5_ITER_CONT;
+
+ UNUSED(group_id);
+ UNUSED(op_data);
+
+ if (H5L_TYPE_HARD != info->type) {
+ ret_val = H5_ITER_ERROR;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_HARD!\n", name);
+ goto done;
+ }
+
+ /*
+ * Four tests are run in the following order per link visiting API call:
+ *
+ * - visitation by link name in increasing order
+ * - visitation by link name in decreasing order
+ * - visitation by link creation order in increasing order
+ * - visitation by link creation order in decreasing order
+ *
+ * Based on how the test is written, this will mean that the link and group
+ * names will run in increasing order on the first and fourth tests and decreasing
+ * order on the second and third tests.
+ */
+ test_iteration = counter_val / LINK_VISIT_HARD_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ /* Determine which subgroup is currently being processed */
+ subgroup_number =
+ /* Take the current counter value modulo the total number of links per test iteration (links +
+ subgroups) */
+ (counter_val % LINK_VISIT_HARD_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST)
+ /* and divide it by the number of links per subgroup + 1 to get the subgroup's index number. */
+ / (LINK_VISIT_HARD_LINKS_CYCLE_TEST_NUM_LINKS_PER_GROUP + 1);
+
+ /* Determine whether the current link points to the current subgroup itself */
+ is_subgroup_link = (counter_val % (LINK_VISIT_HARD_LINKS_CYCLE_TEST_NUM_LINKS_PER_GROUP + 1) == 0);
+ if (!is_subgroup_link) {
+ /* Determine the index number of this link within its containing subgroup */
+ link_idx_val =
+ /* Take the current counter value modulo the total number of links per test iteration (links +
+ subgroups) */
+ (counter_val % LINK_VISIT_HARD_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST)
+ /* and take it modulo the number of links per subgroup + 1, finally subtracting 1 to get the
+ link's index number. */
+ % (LINK_VISIT_HARD_LINKS_CYCLE_TEST_NUM_LINKS_PER_GROUP + 1) -
+ 1;
+ }
+
+ if (test_iteration == 0 || test_iteration == 3) {
+ if (is_subgroup_link) {
+ HDsnprintf(expected_link_name, LINK_VISIT_HARD_LINKS_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_HARD_LINKS_CYCLE_TEST_NESTED_GRP_NAME "%d", (int)subgroup_number);
+ }
+ else {
+ HDsnprintf(expected_link_name, LINK_VISIT_HARD_LINKS_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_HARD_LINKS_CYCLE_TEST_NESTED_GRP_NAME
+ "%d"
+ "/" LINK_VISIT_HARD_LINKS_CYCLE_TEST_LINK_NAME "%d",
+ (int)subgroup_number, (int)link_idx_val);
+ }
+ }
+ else {
+ if (is_subgroup_link) {
+ HDsnprintf(expected_link_name, LINK_VISIT_HARD_LINKS_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_HARD_LINKS_CYCLE_TEST_NESTED_GRP_NAME "%d",
+ (int)(LINK_VISIT_HARD_LINKS_CYCLE_TEST_NUM_SUBGROUPS - subgroup_number - 1));
+ }
+ else {
+ HDsnprintf(expected_link_name, LINK_VISIT_HARD_LINKS_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_HARD_LINKS_CYCLE_TEST_NESTED_GRP_NAME
+ "%d"
+ "/" LINK_VISIT_HARD_LINKS_CYCLE_TEST_LINK_NAME "%d",
+ (int)(LINK_VISIT_HARD_LINKS_CYCLE_TEST_NUM_SUBGROUPS - subgroup_number - 1),
+ (int)(LINK_VISIT_HARD_LINKS_CYCLE_TEST_NUM_LINKS_PER_GROUP - link_idx_val - 1));
+ }
+ }
+
+ if (HDstrncmp(name, expected_link_name, LINK_VISIT_HARD_LINKS_CYCLE_TEST_BUF_SIZE)) {
+ HDprintf(" link name '%s' didn't match expected name '%s'\n", name, expected_link_name);
+ ret_val = H5_ITER_ERROR;
+ goto done;
+ }
+
+done:
+ (*i)++;
+
+ return ret_val;
+}
+
+/*
+ * Link visiting callback for the soft links + cycles test which
+ * iterates recursively through all of the links in the test group and
+ * checks to make sure their names and link classes match what is expected.
+ */
+static herr_t
+link_visit_soft_links_cycles_cb(hid_t group_id, const char *name, const H5L_info2_t *info, void *op_data)
+{
+ hbool_t is_subgroup_link;
+ size_t *i = (size_t *)op_data;
+ size_t counter_val = *((size_t *)op_data);
+ size_t test_iteration;
+ size_t subgroup_number;
+ size_t link_idx_val;
+ char expected_link_name[LINK_VISIT_SOFT_LINKS_CYCLE_TEST_BUF_SIZE];
+ herr_t ret_val = H5_ITER_CONT;
+
+ UNUSED(group_id);
+ UNUSED(op_data);
+
+ /* Determine whether the current link points to the current subgroup itself */
+ is_subgroup_link = (counter_val % (LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NUM_LINKS_PER_GROUP + 1) == 0);
+
+ if (is_subgroup_link) {
+ if (H5L_TYPE_HARD != info->type) {
+ ret_val = H5_ITER_ERROR;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_HARD!\n", name);
+ goto done;
+ }
+ }
+ else {
+ if (H5L_TYPE_SOFT != info->type) {
+ ret_val = H5_ITER_ERROR;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_SOFT!\n", name);
+ goto done;
+ }
+ }
+
+ /*
+ * Four tests are run in the following order per link visiting API call:
+ *
+ * - visitation by link name in increasing order
+ * - visitation by link name in decreasing order
+ * - visitation by link creation order in increasing order
+ * - visitation by link creation order in decreasing order
+ *
+ * Based on how the test is written, this will mean that the link and group
+ * names will run in increasing order on the first and fourth tests and decreasing
+ * order on the second and third tests.
+ */
+ test_iteration = counter_val / LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ /* Determine which subgroup is currently being processed */
+ subgroup_number =
+ /* Take the current counter value modulo the total number of links per test iteration (links +
+ subgroups) */
+ (counter_val % LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST)
+ /* and divide it by the number of links per subgroup + 1 to get the subgroup's index number. */
+ / (LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NUM_LINKS_PER_GROUP + 1);
+
+ if (!is_subgroup_link) {
+ /* Determine the index number of this link within its containing subgroup */
+ link_idx_val =
+ /* Take the current counter value modulo the total number of links per test iteration (links +
+ subgroups) */
+ (counter_val % LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST)
+ /* and take it modulo the number of links per subgroup + 1, finally subtracting 1 to get the
+ link's index number. */
+ % (LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NUM_LINKS_PER_GROUP + 1) -
+ 1;
+ }
+
+ if (test_iteration == 0 || test_iteration == 3) {
+ if (is_subgroup_link) {
+ HDsnprintf(expected_link_name, LINK_VISIT_SOFT_LINKS_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NESTED_GRP_NAME "%d", (int)subgroup_number);
+ }
+ else {
+ HDsnprintf(expected_link_name, LINK_VISIT_SOFT_LINKS_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NESTED_GRP_NAME
+ "%d"
+ "/" LINK_VISIT_SOFT_LINKS_CYCLE_TEST_LINK_NAME "%d",
+ (int)subgroup_number, (int)link_idx_val);
+ }
+ }
+ else {
+ if (is_subgroup_link) {
+ HDsnprintf(expected_link_name, LINK_VISIT_SOFT_LINKS_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NESTED_GRP_NAME "%d",
+ (int)(LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NUM_SUBGROUPS - subgroup_number - 1));
+ }
+ else {
+ HDsnprintf(expected_link_name, LINK_VISIT_SOFT_LINKS_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NESTED_GRP_NAME
+ "%d"
+ "/" LINK_VISIT_SOFT_LINKS_CYCLE_TEST_LINK_NAME "%d",
+ (int)(LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NUM_SUBGROUPS - subgroup_number - 1),
+ (int)(LINK_VISIT_SOFT_LINKS_CYCLE_TEST_NUM_LINKS_PER_GROUP - link_idx_val - 1));
+ }
+ }
+
+ if (HDstrncmp(name, expected_link_name, LINK_VISIT_SOFT_LINKS_CYCLE_TEST_BUF_SIZE)) {
+ HDprintf(" link name '%s' didn't match expected name '%s'\n", name, expected_link_name);
+ ret_val = H5_ITER_ERROR;
+ goto done;
+ }
+
+done:
+ (*i)++;
+
+ return ret_val;
+}
+
+/*
+ * Link visiting callback for the external links + cycles test which
+ * iterates recursively through all of the links in the test group and
+ * checks to make sure their names and link classes match what is expected.
+ */
+#ifndef NO_EXTERNAL_LINKS
+static herr_t
+link_visit_external_links_cycles_cb(hid_t group_id, const char *name, const H5L_info2_t *info, void *op_data)
+{
+ hbool_t is_subgroup_link;
+ size_t *i = (size_t *)op_data;
+ size_t counter_val = *((size_t *)op_data);
+ size_t test_iteration;
+ size_t subgroup_number;
+ size_t link_idx_val;
+ char expected_link_name[LINK_VISIT_EXT_LINKS_CYCLE_TEST_BUF_SIZE];
+ herr_t ret_val = H5_ITER_CONT;
+
+ UNUSED(group_id);
+ UNUSED(op_data);
+
+ /* Determine whether the current link points to the current subgroup itself */
+ is_subgroup_link = (counter_val % (LINK_VISIT_EXT_LINKS_CYCLE_TEST_NUM_LINKS_PER_GROUP + 1) == 0);
+
+ if (is_subgroup_link) {
+ if (H5L_TYPE_HARD != info->type) {
+ ret_val = H5_ITER_ERROR;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_HARD!\n", name);
+ goto done;
+ }
+ }
+ else {
+ if (H5L_TYPE_EXTERNAL != info->type) {
+ ret_val = H5_ITER_ERROR;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_EXTERNAL!\n", name);
+ goto done;
+ }
+ }
+
+ /*
+ * Four tests are run in the following order per link visiting API call:
+ *
+ * - visitation by link name in increasing order
+ * - visitation by link name in decreasing order
+ * - visitation by link creation order in increasing order
+ * - visitation by link creation order in decreasing order
+ *
+ * Based on how the test is written, this will mean that the link and group
+ * names will run in increasing order on the first and fourth tests and decreasing
+ * order on the second and third tests.
+ */
+ test_iteration = counter_val / LINK_VISIT_EXT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST;
+
+ /* Determine which subgroup is currently being processed */
+ subgroup_number =
+ /* Take the current counter value modulo the total number of links per test iteration (links +
+ subgroups) */
+ (counter_val % LINK_VISIT_EXT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST)
+ /* and divide it by the number of links per subgroup + 1 to get the subgroup's index number. */
+ / (LINK_VISIT_EXT_LINKS_CYCLE_TEST_NUM_LINKS_PER_GROUP + 1);
+
+ if (!is_subgroup_link) {
+ /* Determine the index number of this link within its containing subgroup */
+ link_idx_val =
+ /* Take the current counter value modulo the total number of links per test iteration (links +
+ subgroups) */
+ (counter_val % LINK_VISIT_EXT_LINKS_CYCLE_TEST_NUM_LINKS_PER_TEST)
+ /* and take it modulo the number of links per subgroup + 1, finally subtracting 1 to get the
+ link's index number. */
+ % (LINK_VISIT_EXT_LINKS_CYCLE_TEST_NUM_LINKS_PER_GROUP + 1) -
+ 1;
+ }
+
+ if (test_iteration == 0 || test_iteration == 3) {
+ if (is_subgroup_link) {
+ HDsnprintf(expected_link_name, LINK_VISIT_EXT_LINKS_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_EXT_LINKS_CYCLE_TEST_NESTED_GRP_NAME "%d", (int)subgroup_number);
+ }
+ else {
+ HDsnprintf(expected_link_name, LINK_VISIT_EXT_LINKS_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_EXT_LINKS_CYCLE_TEST_NESTED_GRP_NAME
+ "%d"
+ "/" LINK_VISIT_EXT_LINKS_CYCLE_TEST_LINK_NAME "%d",
+ (int)subgroup_number, (int)link_idx_val);
+ }
+ }
+ else {
+ if (is_subgroup_link) {
+ HDsnprintf(expected_link_name, LINK_VISIT_EXT_LINKS_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_EXT_LINKS_CYCLE_TEST_NESTED_GRP_NAME "%d",
+ (int)(LINK_VISIT_EXT_LINKS_CYCLE_TEST_NUM_SUBGROUPS - subgroup_number - 1));
+ }
+ else {
+ HDsnprintf(expected_link_name, LINK_VISIT_EXT_LINKS_CYCLE_TEST_BUF_SIZE,
+ LINK_VISIT_EXT_LINKS_CYCLE_TEST_NESTED_GRP_NAME
+ "%d"
+ "/" LINK_VISIT_EXT_LINKS_CYCLE_TEST_LINK_NAME "%d",
+ (int)(LINK_VISIT_EXT_LINKS_CYCLE_TEST_NUM_SUBGROUPS - subgroup_number - 1),
+ (int)(LINK_VISIT_EXT_LINKS_CYCLE_TEST_NUM_LINKS_PER_GROUP - link_idx_val - 1));
+ }
+ }
+
+ if (HDstrncmp(name, expected_link_name, LINK_VISIT_EXT_LINKS_CYCLE_TEST_BUF_SIZE)) {
+ HDprintf(" link name '%s' didn't match expected name '%s'\n", name, expected_link_name);
+ ret_val = H5_ITER_ERROR;
+ goto done;
+ }
+
+done:
+ (*i)++;
+
+ return ret_val;
+}
+#endif
+#ifndef NO_USER_DEFINED_LINKS
+static herr_t link_visit_ud_links_cycles_cb(hid_t group_id, const char *name, const H5L_info2_t *info,
+ void *op_data);
+#endif
+/*
+ * Link visiting callback for the mixed link types + cycles test which
+ * iterates recursively through all of the links in the test group and
+ * checks to make sure their names and link classes match what is expected.
+ */
+#if !defined(NO_EXTERNAL_LINKS) && !defined(NO_USER_DEFINED_LINKS)
+static herr_t
+link_visit_mixed_links_cycles_cb(hid_t group_id, const char *name, const H5L_info2_t *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(group_id);
+ UNUSED(op_data);
+
+ if (!HDstrncmp(name,
+ LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME2
+ "/" LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME1,
+ strlen(LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME2
+ "/" LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME1) +
+ 1) &&
+ (counter_val == 1 || counter_val == 11 || counter_val == 13 || counter_val == 23)) {
+ if (H5L_TYPE_HARD != info->type) {
+ ret_val = -1;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_HARD!\n",
+ LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME2
+ "/" LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME1);
+ }
+
+ goto done;
+ }
+ else if (!HDstrncmp(name,
+ LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME2
+ "/" LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME2,
+ strlen(LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME2
+ "/" LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME2) +
+ 1) &&
+ (counter_val == 2 || counter_val == 10 || counter_val == 14 || counter_val == 22)) {
+ if (H5L_TYPE_SOFT != info->type) {
+ ret_val = -1;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_SOFT!\n",
+ LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME2
+ "/" LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME2);
+ }
+
+ goto done;
+ }
+ else if (!HDstrncmp(name,
+ LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME3
+ "/" LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME3,
+ strlen(LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME3
+ "/" LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME3) +
+ 1) &&
+ (counter_val == 4 || counter_val == 8 || counter_val == 16 || counter_val == 20)) {
+ if (H5L_TYPE_EXTERNAL != info->type) {
+ ret_val = -1;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_EXTERNAL!\n",
+ LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME3
+ "/" LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME3);
+ }
+
+ goto done;
+ }
+ else if (!HDstrncmp(name,
+ LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME3
+ "/" LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME4,
+ strlen(LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME3
+ "/" LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME4) +
+ 1) &&
+ (counter_val == 5 || counter_val == 7 || counter_val == 17 || counter_val == 19)) {
+ if (H5L_TYPE_HARD != info->type) {
+ ret_val = -1;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_HARD!\n",
+ LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME3
+ "/" LINK_VISIT_MIXED_LINKS_CYCLE_TEST_LINK_NAME4);
+ }
+
+ goto done;
+ }
+ else if (!HDstrncmp(name, LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME2,
+ strlen(LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME2) + 1) &&
+ (counter_val == 0 || counter_val == 9 || counter_val == 12 || counter_val == 21)) {
+ if (H5L_TYPE_HARD != info->type) {
+ ret_val = -1;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_HARD!\n",
+ LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME2);
+ }
+
+ goto done;
+ }
+ else if (!HDstrncmp(name, LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME3,
+ strlen(LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME3) + 1) &&
+ (counter_val == 3 || counter_val == 6 || counter_val == 15 || counter_val == 18)) {
+ if (H5L_TYPE_HARD != info->type) {
+ ret_val = -1;
+ HDprintf(" link type for link '%s' was not H5L_TYPE_HARD!\n",
+ LINK_VISIT_MIXED_LINKS_CYCLE_TEST_SUBGROUP_NAME3);
+ }
+
+ goto done;
+ }
+
+ HDprintf(" link name '%s' didn't match known names or came in an incorrect order\n", name);
+
+ ret_val = -1;
+
+done:
+ (*i)++;
+
+ return ret_val;
+}
+#endif
+
+/*
+ * Link visiting callback for the H5Lvisit(_by_name)2 invalid
+ * parameters test which simply does nothing.
+ */
+static herr_t
+link_visit_invalid_params_cb(hid_t group_id, const char *name, const H5L_info2_t *info, void *op_data)
+{
+ UNUSED(group_id);
+ UNUSED(name);
+ UNUSED(info);
+ UNUSED(op_data);
+
+ return 0;
+}
+
+/*
+ * Link visiting callback for the 0 links visiting test which
+ * simply does nothing.
+ */
+static herr_t
+link_visit_0_links_cb(hid_t group_id, const char *name, const H5L_info2_t *info, void *op_data)
+{
+ UNUSED(group_id);
+ UNUSED(name);
+ UNUSED(info);
+ UNUSED(op_data);
+
+ return 0;
+}
+
+/*
+ * Cleanup temporary test files
+ */
+static void
+cleanup_files(void)
+{
+ H5Fdelete(EXTERNAL_LINK_TEST_FILE_NAME, H5P_DEFAULT);
+ H5Fdelete(EXTERNAL_LINK_INVALID_PARAMS_TEST_FILE_NAME, H5P_DEFAULT);
+}
+
+int
+H5_api_link_test(void)
+{
+ size_t i;
+ int nerrors;
+
+ HDprintf("**********************************************\n");
+ HDprintf("* *\n");
+ HDprintf("* API Link Tests *\n");
+ HDprintf("* *\n");
+ HDprintf("**********************************************\n\n");
+
+ for (i = 0, nerrors = 0; i < ARRAY_LENGTH(link_tests); i++) {
+ nerrors += (*link_tests[i])() ? 1 : 0;
+ }
+
+ HDprintf("\n");
+
+ HDprintf("Cleaning up testing files\n");
+ cleanup_files();
+
+ return nerrors;
+}