/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* 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;
}