diff options
| author | Allen Byrne <byrn@hdfgroup.org> | 2020-10-01 14:04:36 (GMT) |
|---|---|---|
| committer | Allen Byrne <byrn@hdfgroup.org> | 2020-10-01 14:04:36 (GMT) |
| commit | f1ba03cea5b82699a984c80bd2deac14fdc8df18 (patch) | |
| tree | ebe777c3e0b83f4c4cec9212731da9ebe0a0cfd3 /test/cache_tagging.c | |
| parent | 10343c197906415388f2a4c8d292e21d25cf7381 (diff) | |
| download | hdf5-f1ba03cea5b82699a984c80bd2deac14fdc8df18.zip hdf5-f1ba03cea5b82699a984c80bd2deac14fdc8df18.tar.gz hdf5-f1ba03cea5b82699a984c80bd2deac14fdc8df18.tar.bz2 | |
Source formatted
Diffstat (limited to 'test/cache_tagging.c')
| -rw-r--r-- | test/cache_tagging.c | 3048 |
1 files changed, 1854 insertions, 1194 deletions
diff --git a/test/cache_tagging.c b/test/cache_tagging.c index cf0cd8d..b4af425 100644 --- a/test/cache_tagging.c +++ b/test/cache_tagging.c @@ -15,14 +15,14 @@ * * This file contains tests for metadata tagging. */ -#define H5F_FRIEND /*suppress error about including H5Fpkg */ +#define H5F_FRIEND /*suppress error about including H5Fpkg */ #define H5F_TESTING #include "H5Fpkg.h" #include "testhdf5.h" #include "cache_common.h" -#include "H5CXprivate.h" /* API Contexts */ +#include "H5CXprivate.h" /* API Contexts */ #include "H5HLprivate.h" #include "H5VLnative_private.h" /* Native VOL connector */ @@ -30,23 +30,23 @@ /* Test Defines */ /* ============ */ -#define FILENAME "tagging_test.h5" -#define FILENAME2 "tagging_ext_test.h5" -#define GROUPNAME "Group" +#define FILENAME "tagging_test.h5" +#define FILENAME2 "tagging_ext_test.h5" +#define GROUPNAME "Group" #define GROUPNAMEPATH "/Group" #define GROUPNAMECOPY "GroupCopy" -#define ATTRNAME "Attribute 1" -#define ATTRNAME3 "Attribute 3" -#define DATASETNAME "Dataset" -#define DATASETNAME2 "Dataset2" -#define LINKNAME "Link" -#define RANK 2 -#define DIMS 32 +#define ATTRNAME "Attribute 1" +#define ATTRNAME3 "Attribute 3" +#define DATASETNAME "Dataset" +#define DATASETNAME2 "Dataset2" +#define LINKNAME "Link" +#define RANK 2 +#define DIMS 32 #define MULTIGROUPS 10 -#define TEST_DEFAULT 0 -#define TEST_SHMESG 1 +#define TEST_DEFAULT 0 +#define TEST_SHMESG 1 #define NUM_TEST_TYPES 2 /* ===================== */ @@ -92,12 +92,10 @@ static unsigned check_dense_attribute_tags(void); static unsigned check_link_iteration_tags(void); static unsigned check_invalid_tag_application(void); - /* ================ */ /* Helper Functions */ /* ================ */ - #ifndef NDEBUG /*------------------------------------------------------------------------- @@ -115,16 +113,17 @@ static unsigned check_invalid_tag_application(void); * *------------------------------------------------------------------------- */ -static int dump_cache(hid_t fid) +static int +dump_cache(hid_t fid) { - H5F_t *f; /* File Pointer */ + H5F_t *f; /* File Pointer */ /* Get Internal File / Cache Pointers */ - if(NULL == (f = (H5F_t *)H5VL_object(fid))) + if (NULL == (f = (H5F_t *)H5VL_object(fid))) TEST_ERROR; /* Dump the cache */ - if(H5AC_dump_cache(f) < 0) + if (H5AC_dump_cache(f) < 0) TEST_ERROR; return 0; @@ -134,7 +133,6 @@ error: } /* dump_cache */ #endif /* NDEBUG */ /* end debugging functions */ - /*------------------------------------------------------------------------- * Function: verify_no_unknown_tags() * @@ -155,26 +153,26 @@ static int verify_no_unknown_tags(hid_t fid) { - H5F_t *f; /* File Pointer */ - H5C_t *cache_ptr; /* Cache Pointer */ - int i; /* Iterator */ + H5F_t *f; /* File Pointer */ + H5C_t *cache_ptr; /* Cache Pointer */ + int i; /* Iterator */ /* Get Internal File / Cache Pointers */ - if(NULL == (f = (H5F_t *)H5VL_object(fid))) + if (NULL == (f = (H5F_t *)H5VL_object(fid))) TEST_ERROR; cache_ptr = f->shared->cache; - for(i = 0; i < H5C__HASH_TABLE_LEN; i++) { - H5C_cache_entry_t *entry_ptr; /* entry pointer */ + for (i = 0; i < H5C__HASH_TABLE_LEN; i++) { + H5C_cache_entry_t *entry_ptr; /* entry pointer */ entry_ptr = cache_ptr->index[i]; - while(entry_ptr != NULL) { - if(!entry_ptr->dirtied) + while (entry_ptr != NULL) { + if (!entry_ptr->dirtied) TEST_ERROR; entry_ptr = entry_ptr->ht_next; } /* end if */ - } /* end for */ + } /* end for */ return 0; @@ -182,7 +180,6 @@ error: return -1; } /* verify_no_unknown_tags */ - /*------------------------------------------------------------------------- * Function: mark_all_entries_investigated() * @@ -203,26 +200,26 @@ error: static int mark_all_entries_investigated(hid_t fid) { - H5F_t *f; /* File Pointer */ - H5C_t *cache_ptr; /* Cache Pointer */ - int i; /* Iterator */ + H5F_t *f; /* File Pointer */ + H5C_t *cache_ptr; /* Cache Pointer */ + int i; /* Iterator */ /* Get Internal File / Cache Pointers */ - if(NULL == (f = (H5F_t *)H5VL_object(fid))) + if (NULL == (f = (H5F_t *)H5VL_object(fid))) TEST_ERROR; cache_ptr = f->shared->cache; - for(i = 0; i < H5C__HASH_TABLE_LEN; i++) { - H5C_cache_entry_t *entry_ptr; /* entry pointer */ + for (i = 0; i < H5C__HASH_TABLE_LEN; i++) { + H5C_cache_entry_t *entry_ptr; /* entry pointer */ entry_ptr = cache_ptr->index[i]; - while(entry_ptr != NULL) { - if(!entry_ptr->dirtied) + while (entry_ptr != NULL) { + if (!entry_ptr->dirtied) entry_ptr->dirtied = TRUE; entry_ptr = entry_ptr->ht_next; } /* end if */ - } /* end for */ + } /* end for */ return 0; @@ -230,7 +227,6 @@ error: return -1; } /* mark_all_entries_investigated */ - /*------------------------------------------------------------------------- * Function: reset_all_entries_investigated() * @@ -249,26 +245,26 @@ error: static int reset_all_entries_investigated(hid_t fid) { - H5F_t *f; /* File Pointer */ - H5C_t *cache_ptr; /* Cache Pointer */ - int i; /* Iterator */ + H5F_t *f; /* File Pointer */ + H5C_t *cache_ptr; /* Cache Pointer */ + int i; /* Iterator */ /* Get Internal File / Cache Pointers */ - if(NULL == (f = (H5F_t *)H5VL_object(fid))) + if (NULL == (f = (H5F_t *)H5VL_object(fid))) TEST_ERROR; cache_ptr = f->shared->cache; - for(i = 0; i < H5C__HASH_TABLE_LEN; i++) { - H5C_cache_entry_t *entry_ptr; /* entry pointer */ + for (i = 0; i < H5C__HASH_TABLE_LEN; i++) { + H5C_cache_entry_t *entry_ptr; /* entry pointer */ entry_ptr = cache_ptr->index[i]; - while(entry_ptr != NULL) { - if(entry_ptr->dirtied) + while (entry_ptr != NULL) { + if (entry_ptr->dirtied) entry_ptr->dirtied = FALSE; entry_ptr = entry_ptr->ht_next; } /* end if */ - } /* end for */ + } /* end for */ return 0; @@ -276,7 +272,6 @@ error: return -1; } /* reset_all_entries_investigated */ - /*------------------------------------------------------------------------- * Function: verify_tag() * @@ -297,22 +292,22 @@ error: static int verify_tag(hid_t fid, int id, haddr_t tag) { - H5F_t *f; /* File Pointer */ - H5C_t *cache_ptr; /* Cache Pointer */ - int i; /* Iterator */ + H5F_t *f; /* File Pointer */ + H5C_t *cache_ptr; /* Cache Pointer */ + int i; /* Iterator */ /* Get Internal File / Cache Pointers */ - if(NULL == (f = (H5F_t *)H5VL_object(fid))) + if (NULL == (f = (H5F_t *)H5VL_object(fid))) TEST_ERROR; cache_ptr = f->shared->cache; - for(i = 0; i < H5C__HASH_TABLE_LEN; i++) { + for (i = 0; i < H5C__HASH_TABLE_LEN; i++) { H5C_cache_entry_t *entry_ptr; /* entry pointer */ entry_ptr = cache_ptr->index[i]; - while(entry_ptr != NULL) { - if(entry_ptr->type->id == id && !entry_ptr->dirtied) { - if(entry_ptr->tag_info->tag != tag) + while (entry_ptr != NULL) { + if (entry_ptr->type->id == id && !entry_ptr->dirtied) { + if (entry_ptr->tag_info->tag != tag) TEST_ERROR; /* Mark the entry/tag pair as found */ @@ -324,7 +319,7 @@ verify_tag(hid_t fid, int id, haddr_t tag) entry_ptr = entry_ptr->ht_next; } /* end if */ - } /* end for */ + } /* end for */ /* Didn't find the tagged entry, throw an error */ TEST_ERROR; @@ -339,18 +334,18 @@ error: static int evict_entries(hid_t fid) { - H5F_t *f; /* File Pointer */ + H5F_t *f; /* File Pointer */ /* Get Internal File / Cache Pointers */ - if(NULL == (f = (H5F_t *)H5VL_object(fid))) + if (NULL == (f = (H5F_t *)H5VL_object(fid))) TEST_ERROR; /* Mark all entries investigated */ mark_all_entries_investigated(fid); /* Evict all we can from the cache to examine full tag creation tree */ - /* This function will likely return failure since the root group - * is still protected. Thus, don't check its return value. */ + /* This function will likely return failure since the root group + * is still protected. Thus, don't check its return value. */ H5C_flush_cache(f, H5C__FLUSH_INVALIDATE_FLAG); return 0; @@ -359,7 +354,6 @@ error: return -1; } /* evict entries */ - /*------------------------------------------------------------------------- * Function: get_object_header_tag() * @@ -375,14 +369,14 @@ error: static int get_object_header_tag(hid_t loc_id, haddr_t *tag) { - H5O_info2_t oinfo; /* Object info */ + H5O_info2_t oinfo; /* Object info */ /* Retrieve the info for the object */ - if(H5Oget_info3(loc_id, &oinfo, H5O_INFO_BASIC) < 0) + if (H5Oget_info3(loc_id, &oinfo, H5O_INFO_BASIC) < 0) TEST_ERROR; /* Set the tag to return */ - if(H5VLnative_token_to_addr(loc_id, oinfo.token, tag) < 0) + if (H5VLnative_token_to_addr(loc_id, oinfo.token, tag) < 0) TEST_ERROR; return 0; @@ -391,7 +385,6 @@ error: return -1; } /* get_object_header_tag */ - /*------------------------------------------------------------------------- * Function: get_sbe_tag() * @@ -409,7 +402,7 @@ static int get_sbe_tag(hid_t fid, haddr_t *tag) { /* Retrieve the superblock extension's object header address for the file */ - if(H5F__get_sbe_addr_test(fid, tag) < 0) + if (H5F__get_sbe_addr_test(fid, tag) < 0) TEST_ERROR; return 0; @@ -422,7 +415,6 @@ error: /* Test Functions */ /* ============== */ - /*------------------------------------------------------------------------- * Function: check_file_creation_tags * @@ -440,69 +432,85 @@ static unsigned check_file_creation_tags(hid_t fcpl_id, int type) { /* Variable Declarations */ - hid_t fid = -1; /* File Identifier */ + hid_t fid = -1; /* File Identifier */ #ifndef NDEBUG - int verbose = FALSE; /* verbose test outout */ -#endif /* NDEBUG */ /* end debugging functions */ - hid_t fapl = -1; /* File access prop list */ + int verbose = FALSE; /* verbose test outout */ +#endif /* NDEBUG */ /* end debugging functions */ + hid_t fapl = -1; /* File access prop list */ haddr_t root_tag = 0; - haddr_t sbe_tag = 0; + haddr_t sbe_tag = 0; /* Testing Macro */ TESTING("tag application during file creation"); /* Create Fapl */ - if ( (fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0 ) TEST_ERROR; + if ((fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0) + TEST_ERROR; /* Create a test file with provided fcpl_t */ - if ( (fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, fcpl_id, fapl)) < 0 ) TEST_ERROR; + if ((fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, fcpl_id, fapl)) < 0) + TEST_ERROR; - if ( H5Pclose(fapl) < 0 ) TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; #ifndef NDEBUG /* if verbose, print cache index to screen before verification . */ - if ( verbose ) dump_cache(fid); + if (verbose) + dump_cache(fid); #endif /* NDEBUG */ /* end debugging functions */ /* verify there is a superblock entry with superblock tag */ - if ( verify_tag(fid, H5AC_SUPERBLOCK_ID, H5AC__SUPERBLOCK_TAG) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_SUPERBLOCK_ID, H5AC__SUPERBLOCK_TAG) < 0) + TEST_ERROR; - if ( type == TEST_SHMESG ) { + if (type == TEST_SHMESG) { /* determine tag value of superblock extension object header */ - if ( get_sbe_tag(fid, &sbe_tag) < 0 ) TEST_ERROR; + if (get_sbe_tag(fid, &sbe_tag) < 0) + TEST_ERROR; /* verify object header belonging to superblock extension */ - if ( verify_tag(fid, H5AC_OHDR_ID, sbe_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, sbe_tag) < 0) + TEST_ERROR; /* verify sohm master table with sohm tag */ - if ( verify_tag(fid, H5AC_SOHM_TABLE_ID, H5AC__SOHM_TAG) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_SOHM_TABLE_ID, H5AC__SOHM_TAG) < 0) + TEST_ERROR; /* verify object header chunk belonging to superblock extension */ - if ( verify_tag(fid, H5AC_OHDR_CHK_ID, sbe_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_CHK_ID, sbe_tag) < 0) + TEST_ERROR; - } /* end if */ + } /* end if */ /* determine tag value of root group's object header */ - if ( get_object_header_tag(fid, &root_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(fid, &root_tag) < 0) + TEST_ERROR; /* verify object header belonging to superblock extension */ - if ( verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0) + TEST_ERROR; /* verify local heap prefix belonging to root group */ - if ( verify_tag(fid, H5AC_LHEAP_PRFX_ID, root_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_LHEAP_PRFX_ID, root_tag) < 0) + TEST_ERROR; /* verify b-tree node belonging to root group */ - if ( verify_tag(fid, H5AC_BT_ID, root_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_BT_ID, root_tag) < 0) + TEST_ERROR; /* verify no other cache entries present */ - if ( verify_no_unknown_tags(fid) < 0 ) TEST_ERROR; + if (verify_no_unknown_tags(fid) < 0) + TEST_ERROR; /* Reset the changes we've made to the cache's data structures */ - if(reset_all_entries_investigated(fid) < 0) TEST_ERROR; + if (reset_all_entries_investigated(fid) < 0) + TEST_ERROR; /* Close the file */ - if ( H5Fclose(fid) < 0 ) TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; PASSED(); return 0; @@ -511,7 +519,6 @@ error: return 1; } /* check_file_creation_tags */ - /*------------------------------------------------------------------------- * Function: check_file_open_tags * @@ -529,13 +536,13 @@ static unsigned check_file_open_tags(hid_t fcpl, int type) { /* Variable Declarations */ - hid_t fid = -1; /* File Identifier */ + hid_t fid = -1; /* File Identifier */ #ifndef NDEBUG - int verbose = FALSE; /* verbose file outout */ -#endif /* NDEBUG */ /* end debugging functions */ - hid_t fapl = -1; /* File access prop list */ - haddr_t root_tag; /* Root Group Tag */ - haddr_t sbe_tag; /* Sblock Extension Tag */ + int verbose = FALSE; /* verbose file outout */ +#endif /* NDEBUG */ /* end debugging functions */ + hid_t fapl = -1; /* File access prop list */ + haddr_t root_tag; /* Root Group Tag */ + haddr_t sbe_tag; /* Sblock Extension Tag */ /* Testing Macro */ TESTING("tag application during file open"); @@ -545,74 +552,90 @@ check_file_open_tags(hid_t fcpl, int type) /* ===== */ /* Create Fapl */ - if ( (fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0 ) TEST_ERROR; + if ((fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0) + TEST_ERROR; /* Create a test file with provided fcpl_t */ - if ( (fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, fcpl, fapl)) < 0 ) TEST_ERROR; + if ((fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, fcpl, fapl)) < 0) + TEST_ERROR; - if ( H5Pclose(fapl) < 0 ) TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; /* determine tag value of root group's object header */ - if ( get_object_header_tag(fid, &root_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(fid, &root_tag) < 0) + TEST_ERROR; /* Retrieve various tags */ - if ( type == TEST_SHMESG ) { + if (type == TEST_SHMESG) { /* determine tag value of superblock extension object header */ - if ( get_sbe_tag(fid, &sbe_tag) < 0 ) TEST_ERROR; + if (get_sbe_tag(fid, &sbe_tag) < 0) + TEST_ERROR; } /* end if */ /* Close the file */ - if ( H5Fclose(fid) < 0 ) TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; /* =================== */ /* TEST: Open The File */ /* =================== */ - if ( (fid = H5Fopen(FILENAME, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((fid = H5Fopen(FILENAME, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0) + TEST_ERROR; - /* =================================== */ - /* Verification of Metadata Tag Values */ - /* =================================== */ + /* =================================== */ + /* Verification of Metadata Tag Values */ + /* =================================== */ #ifndef NDEBUG /* if verbose, print cache index to screen before verification . */ - if ( verbose ) dump_cache(fid); + if (verbose) + dump_cache(fid); #endif /* NDEBUG */ /* end debugging functions */ /* verify there is a superblock entry with superblock tag. */ - if ( verify_tag(fid, H5AC_SUPERBLOCK_ID, H5AC__SUPERBLOCK_TAG) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_SUPERBLOCK_ID, H5AC__SUPERBLOCK_TAG) < 0) + TEST_ERROR; /* Verify test-type-dependent tags */ - if ( type == TEST_DEFAULT ) { + if (type == TEST_DEFAULT) { /* verify there is an object header belonging to the root group. */ - if ( verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0 ) TEST_ERROR; - - } else if ( type == TEST_SHMESG ) { + if (verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0) + TEST_ERROR; + } + else if (type == TEST_SHMESG) { /* verify there is a superblock extension object header. */ - if ( verify_tag(fid, H5AC_OHDR_ID, sbe_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, sbe_tag) < 0) + TEST_ERROR; /* verify sohm master table with sohm tag */ - if ( verify_tag(fid, H5AC_SOHM_TABLE_ID, H5AC__SOHM_TAG) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_SOHM_TABLE_ID, H5AC__SOHM_TAG) < 0) + TEST_ERROR; /* verify object header chunk belonging to superblock extension */ - if ( verify_tag(fid, H5AC_OHDR_CHK_ID, sbe_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_CHK_ID, sbe_tag) < 0) + TEST_ERROR; } /* end if */ /* verify no other entries present */ - if ( verify_no_unknown_tags(fid) < 0 ) TEST_ERROR; + if (verify_no_unknown_tags(fid) < 0) + TEST_ERROR; /* Reset the changes we've made to the cache's data structures */ - if(reset_all_entries_investigated(fid) < 0) TEST_ERROR; + if (reset_all_entries_investigated(fid) < 0) + TEST_ERROR; /* ========== */ /* Close file */ /* ========== */ - if ( H5Fclose(fid) < 0 ) TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; /* ========================================== */ /* Finished Test. Print status and return. */ @@ -625,7 +648,6 @@ error: return 1; } /* check_file_open_tags */ - /*------------------------------------------------------------------------- * Function: check_group_creation_tags * @@ -643,14 +665,14 @@ static unsigned check_group_creation_tags(void) { /* Variable Declarations */ - hid_t fid = -1; /* File Identifier */ - hid_t gid = -1; /* Group Identifier */ + hid_t fid = -1; /* File Identifier */ + hid_t gid = -1; /* Group Identifier */ #ifndef NDEBUG - int verbose = FALSE; /* verbose file outout */ -#endif /* NDEBUG */ /* end debugging functions */ - hid_t fapl = -1; /* File access prop list */ - haddr_t root_tag = HADDR_UNDEF; /* Root Group Tag */ - haddr_t g_tag; /* Group Tag */ + int verbose = FALSE; /* verbose file outout */ +#endif /* NDEBUG */ /* end debugging functions */ + hid_t fapl = -1; /* File access prop list */ + haddr_t root_tag = HADDR_UNDEF; /* Root Group Tag */ + haddr_t g_tag; /* Group Tag */ /* Testing Macro */ TESTING("tag application during group creation"); @@ -660,62 +682,83 @@ check_group_creation_tags(void) /* ===== */ /* Create Fapl */ - if ( (fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0 ) TEST_ERROR; + if ((fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0) + TEST_ERROR; /* Create a test file with provided fcpl_t */ - if ( (fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0 ) TEST_ERROR; + if ((fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) + TEST_ERROR; - if ( H5Pclose(fapl) < 0 ) TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; /* determine tag value of root group's object header */ - if ( get_object_header_tag(fid, &root_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(fid, &root_tag) < 0) + TEST_ERROR; /* Close and Reopen the file */ - if ( H5Fclose(fid) < 0 ) TEST_ERROR; - if ( (fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; + if ((fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Evict as much as we can from the cache so we can track full tag path */ - if ( evict_entries(fid) < 0 ) TEST_ERROR; + if (evict_entries(fid) < 0) + TEST_ERROR; /* ==================== */ /* TEST: Create a Group */ /* ==================== */ - if ( (gid = H5Gcreate2(fid, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((gid = H5Gcreate2(fid, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) + TEST_ERROR; - /* =================================== */ - /* Verification of Metadata Tag Values */ - /* =================================== */ + /* =================================== */ + /* Verification of Metadata Tag Values */ + /* =================================== */ #ifndef NDEBUG /* if verbose, print cache index to screen for visual verification */ - if ( verbose ) dump_cache(fid); + if (verbose) + dump_cache(fid); #endif /* NDEBUG */ /* end debugging functions */ /* Verify root group's tagged metadata */ - if ( verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_SNODE_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_LHEAP_PRFX_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_BT_ID, root_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_SNODE_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_LHEAP_PRFX_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_BT_ID, root_tag) < 0) + TEST_ERROR; /* Verify new group's tagged metadata */ - if ( get_object_header_tag(gid, &g_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_OHDR_ID, g_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_BT_ID, g_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_LHEAP_PRFX_ID, g_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(gid, &g_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, g_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_BT_ID, g_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_LHEAP_PRFX_ID, g_tag) < 0) + TEST_ERROR; /* verify no other cache entries present */ - if ( verify_no_unknown_tags(fid) < 0 ) TEST_ERROR; + if (verify_no_unknown_tags(fid) < 0) + TEST_ERROR; /* Reset the changes we've made to the cache's data structures */ - if(reset_all_entries_investigated(fid) < 0) TEST_ERROR; + if (reset_all_entries_investigated(fid) < 0) + TEST_ERROR; /* =========================== */ /* Close open objects and file */ /* =========================== */ - if ( H5Gclose(gid) < 0 ) TEST_ERROR; - if ( H5Fclose(fid) < 0 ) TEST_ERROR; + if (H5Gclose(gid) < 0) + TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; /* ========================================== */ /* Finished Test. Print status and return. */ @@ -728,7 +771,6 @@ error: return 1; } /* check_group_creation_tags */ - /*------------------------------------------------------------------------- * Function: check_multi_group_creation_tags * @@ -746,34 +788,38 @@ static unsigned check_multi_group_creation_tags(void) { /* Variable Declarations */ - hid_t fid = -1; /* File Identifier */ - hid_t gid = -1; /* Group Identifier */ + hid_t fid = -1; /* File Identifier */ + hid_t gid = -1; /* Group Identifier */ #ifndef NDEBUG - int verbose = FALSE; /* verbose file outout */ -#endif /* NDEBUG */ /* end debugging functions */ - char gname[16]; /* group name buffer */ - int i = 0; /* iterator */ - hid_t fapl = -1; /* File access prop list */ - haddr_t g_tag = 0; /* Group tag value */ - haddr_t root_tag = 0; /* Root group tag value */ + int verbose = FALSE; /* verbose file outout */ +#endif /* NDEBUG */ /* end debugging functions */ + char gname[16]; /* group name buffer */ + int i = 0; /* iterator */ + hid_t fapl = -1; /* File access prop list */ + haddr_t g_tag = 0; /* Group tag value */ + haddr_t root_tag = 0; /* Root group tag value */ /* Testing Macro */ TESTING("tag application during multiple group creation"); /* Create Fapl */ - if ( (fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0 ) TEST_ERROR; + if ((fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0) + TEST_ERROR; /* Set latest version of library */ - if ( H5Pset_libver_bounds(fapl, H5F_LIBVER_LATEST, H5F_LIBVER_LATEST) < 0 ) TEST_ERROR; + if (H5Pset_libver_bounds(fapl, H5F_LIBVER_LATEST, H5F_LIBVER_LATEST) < 0) + TEST_ERROR; /* =========== */ /* Create File */ /* =========== */ - if ( (fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0 ) TEST_ERROR; + if ((fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) + TEST_ERROR; /* determine tag value of root group's object header */ - if ( get_object_header_tag(fid, &root_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(fid, &root_tag) < 0) + TEST_ERROR; /* Clear Metadata Tags (don't care about them for this test) */ mark_all_entries_investigated(fid); @@ -785,8 +831,10 @@ check_multi_group_creation_tags(void) for (i = 0; i < MULTIGROUPS; i++) { HDsprintf(gname, "%d", i); - if ( (gid = H5Gcreate2(fid, gname, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0 ) TEST_ERROR; - if ( H5Gclose(gid) < 0 ) TEST_ERROR; + if ((gid = H5Gcreate2(fid, gname, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) + TEST_ERROR; + if (H5Gclose(gid) < 0) + TEST_ERROR; } /* end for */ @@ -796,7 +844,8 @@ check_multi_group_creation_tags(void) #ifndef NDEBUG /* if verbose, print cache index to screen for visual verification */ - if ( verbose ) dump_cache(fid); + if (verbose) + dump_cache(fid); #endif /* NDEBUG */ /* end debugging functions */ /* Verify there is an object header for each group */ @@ -804,48 +853,63 @@ check_multi_group_creation_tags(void) /* Re-open the group */ HDsprintf(gname, "%d", i); - if ( (gid = H5Gopen2(fid, gname, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((gid = H5Gopen2(fid, gname, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Verify object header for root group */ /* ('dirtied' flag on entry gets cleared with each open operation) */ - if ( verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0) + TEST_ERROR; /* Retrieve the object address for the group */ - if ( get_object_header_tag(gid, &g_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(gid, &g_tag) < 0) + TEST_ERROR; /* Verify object header for group */ - if ( verify_tag(fid, H5AC_OHDR_ID, g_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, g_tag) < 0) + TEST_ERROR; /* Close the group */ - if ( H5Gclose(gid) < 0 ) TEST_ERROR; + if (H5Gclose(gid) < 0) + TEST_ERROR; } /* end for */ /* Verify free space header and section info */ - if ( verify_tag(fid, H5AC_FSPACE_SINFO_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_FSPACE_HDR_ID, root_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_FSPACE_SINFO_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_FSPACE_HDR_ID, root_tag) < 0) + TEST_ERROR; /* verify fractal heap header belonging to root group */ - if ( verify_tag(fid, H5AC_FHEAP_HDR_ID, root_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_FHEAP_HDR_ID, root_tag) < 0) + TEST_ERROR; /* verify fractal heap direct block belonging to root group */ - if ( verify_tag(fid, H5AC_FHEAP_DBLOCK_ID, root_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_FHEAP_DBLOCK_ID, root_tag) < 0) + TEST_ERROR; /* verify btree header and leaf node belonging to root group */ - if ( verify_tag(fid, H5AC_BT2_HDR_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_BT2_LEAF_ID, root_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_BT2_HDR_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_BT2_LEAF_ID, root_tag) < 0) + TEST_ERROR; /* verify no other entries present */ - if ( verify_no_unknown_tags(fid) < 0 ) TEST_ERROR; + if (verify_no_unknown_tags(fid) < 0) + TEST_ERROR; /* Reset the changes we've made to the cache's data structures */ - if(reset_all_entries_investigated(fid) < 0) TEST_ERROR; + if (reset_all_entries_investigated(fid) < 0) + TEST_ERROR; /* =========================== */ /* Close open objects and file */ /* =========================== */ - if ( H5Pclose(fapl) < 0 ) TEST_ERROR; - if ( H5Fclose(fid) < 0 ) TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; /* ========================================== */ /* Finished Test. Print status and return. */ @@ -858,7 +922,6 @@ error: return 1; } /* check_multi_group_creation_tags */ - /*------------------------------------------------------------------------- * Function: check_link_iteration_tags * @@ -876,49 +939,59 @@ static unsigned check_link_iteration_tags(void) { /* Variable Declarations */ - hid_t fid = -1; /* File Identifier */ - hid_t sid = -1; /* Group Identifier */ - hid_t did = -1; /* Group Identifier */ + hid_t fid = -1; /* File Identifier */ + hid_t sid = -1; /* Group Identifier */ + hid_t did = -1; /* Group Identifier */ #ifndef NDEBUG - int verbose = FALSE; /* verbose file outout */ -#endif /* NDEBUG */ /* end debugging functions */ - int i = 0; /* iterator */ - haddr_t root_tag = 0; /* Root Group Tag Value */ - char dsetname[500]; /* Name of dataset */ - H5G_info_t ginfo; /* Group Info Struct */ - hid_t fapl = -1; /* File access prop list */ - hid_t root_group = -1; /* Root Group Identifier */ + int verbose = FALSE; /* verbose file outout */ +#endif /* NDEBUG */ /* end debugging functions */ + int i = 0; /* iterator */ + haddr_t root_tag = 0; /* Root Group Tag Value */ + char dsetname[500]; /* Name of dataset */ + H5G_info_t ginfo; /* Group Info Struct */ + hid_t fapl = -1; /* File access prop list */ + hid_t root_group = -1; /* Root Group Identifier */ /* Testing Macro */ TESTING("tag application during iteration over links in a group"); /* Create Fapl */ - if ( (fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0 ) TEST_ERROR; + if ((fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0) + TEST_ERROR; /* =========== */ /* Create File */ /* =========== */ - if ( (fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0 ) TEST_ERROR; + if ((fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) + TEST_ERROR; - if ( H5Pclose(fapl) < 0 ) TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; /* Get root group tag */ - if ( get_object_header_tag(fid, &root_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(fid, &root_tag) < 0) + TEST_ERROR; /* Create dataspace */ - if ( (sid = H5Screate(H5S_SCALAR)) < 0 ) TEST_ERROR; + if ((sid = H5Screate(H5S_SCALAR)) < 0) + TEST_ERROR; /* Create many datasets in root group */ - for (i=0;i<500;i++) { + for (i = 0; i < 500; i++) { HDsprintf(dsetname, "Dset %d", i); - if ( (did = H5Dcreate2(fid, dsetname, H5T_NATIVE_UCHAR, sid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0 ) TEST_ERROR; - if ( H5Dclose(did) < 0 ) TEST_ERROR; + if ((did = H5Dcreate2(fid, dsetname, H5T_NATIVE_UCHAR, sid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < + 0) + TEST_ERROR; + if (H5Dclose(did) < 0) + TEST_ERROR; } /* Close and Reopen the file (to clear cache) */ - if ( H5Fclose(fid) < 0 ) TEST_ERROR; - if ( (fid = H5Fopen(FILENAME, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; + if ((fid = H5Fopen(FILENAME, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0) + TEST_ERROR; /* clear remaining metadata tags */ mark_all_entries_investigated(fid); @@ -928,44 +1001,55 @@ check_link_iteration_tags(void) /* ================================ */ /* Open root group */ - if ( (root_group = H5Gopen2(fid, "/", H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((root_group = H5Gopen2(fid, "/", H5P_DEFAULT)) < 0) + TEST_ERROR; /* Get root group info (will iterate over all links in group) */ - if ( H5Gget_info(root_group, &ginfo) < 0 ) TEST_ERROR; + if (H5Gget_info(root_group, &ginfo) < 0) + TEST_ERROR; - /* =================================== */ - /* Verification of Metadata Tag Values */ - /* =================================== */ + /* =================================== */ + /* Verification of Metadata Tag Values */ + /* =================================== */ #ifndef NDEBUG /* if verbose, print cache index to screen for visual verification */ - if ( verbose ) dump_cache(fid); + if (verbose) + dump_cache(fid); #endif /* NDEBUG */ /* end debugging functions */ /* Verify root group's tagged metadata */ - if ( verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0) + TEST_ERROR; /* Verify 112 symbol table nodes belonging to the root group */ for (i = 0; i < 112; i++) - if ( verify_tag(fid, H5AC_SNODE_ID, root_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_SNODE_ID, root_tag) < 0) + TEST_ERROR; /* Verify 9 b-tree nodes belonging to the root group */ for (i = 0; i < 9; i++) - if ( verify_tag(fid, H5AC_BT_ID, root_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_BT_ID, root_tag) < 0) + TEST_ERROR; /* verify no other entries present */ - if ( verify_no_unknown_tags(fid) < 0 ) TEST_ERROR; + if (verify_no_unknown_tags(fid) < 0) + TEST_ERROR; /* Reset the changes we've made to the cache's data structures */ - if(reset_all_entries_investigated(fid) < 0) TEST_ERROR; + if (reset_all_entries_investigated(fid) < 0) + TEST_ERROR; /* =========================== */ /* Close open objects and file */ /* =========================== */ - if ( H5Sclose(sid) < 0 ) TEST_ERROR; - if ( H5Gclose(root_group) < 0 ) TEST_ERROR; - if ( H5Fclose(fid) < 0 ) TEST_ERROR; + if (H5Sclose(sid) < 0) + TEST_ERROR; + if (H5Gclose(root_group) < 0) + TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; /* ========================================== */ /* Finished Test. Print status and return. */ @@ -978,7 +1062,6 @@ error: return 1; } /* check_link_iteration_tags */ - /*------------------------------------------------------------------------- * Function: check_dense_attribute_tags * @@ -996,49 +1079,59 @@ static unsigned check_dense_attribute_tags(void) { /* Variable Declarations */ - hid_t fid = -1; /* File Identifier */ - hid_t aid = -1; /* File Identifier */ - hid_t sid = -1; /* Group Identifier */ - hid_t did = -1; /* Group Identifier */ - hid_t dcpl = -1; /* Group Identifier */ + hid_t fid = -1; /* File Identifier */ + hid_t aid = -1; /* File Identifier */ + hid_t sid = -1; /* Group Identifier */ + hid_t did = -1; /* Group Identifier */ + hid_t dcpl = -1; /* Group Identifier */ #ifndef NDEBUG - int verbose = FALSE; /* verbose file outout */ -#endif /* NDEBUG */ /* end debugging functions */ - int i = 0; /* iterator */ - hid_t fapl = -1; /* File access property list */ - haddr_t d_tag = 0; /* Dataset tag value */ - haddr_t root_tag = 0; /* Root group tag value */ - char attrname[500]; /* Name of attribute */ + int verbose = FALSE; /* verbose file outout */ +#endif /* NDEBUG */ /* end debugging functions */ + int i = 0; /* iterator */ + hid_t fapl = -1; /* File access property list */ + haddr_t d_tag = 0; /* Dataset tag value */ + haddr_t root_tag = 0; /* Root group tag value */ + char attrname[500]; /* Name of attribute */ /* Testing Macro */ TESTING("tag application during dense attribute manipulation"); /* Create Fapl */ - if ( (fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0 ) TEST_ERROR; - if ( H5Pset_libver_bounds(fapl, H5F_LIBVER_LATEST, H5F_LIBVER_LATEST) < 0 ) TEST_ERROR; + if ((fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0) + TEST_ERROR; + if (H5Pset_libver_bounds(fapl, H5F_LIBVER_LATEST, H5F_LIBVER_LATEST) < 0) + TEST_ERROR; /* Create Dcpl */ - if ( (dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0 ) TEST_ERROR; + if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) + TEST_ERROR; /* =========== */ /* Create File */ /* =========== */ - if ( (fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0 ) TEST_ERROR; + if ((fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) + TEST_ERROR; - if ( H5Pclose(fapl) < 0 ) TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; /* determine tag value of root group's object header */ - if ( get_object_header_tag(fid, &root_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(fid, &root_tag) < 0) + TEST_ERROR; /* Create dataspace */ - if ( (sid = H5Screate(H5S_SCALAR)) < 0 ) TEST_ERROR; + if ((sid = H5Screate(H5S_SCALAR)) < 0) + TEST_ERROR; /* Create dataset */ - if ( (did = H5Dcreate2(fid, DATASETNAME, H5T_NATIVE_UCHAR, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0 ) TEST_ERROR; - if ( H5Pclose(dcpl) < 0 ) TEST_ERROR; + if ((did = H5Dcreate2(fid, DATASETNAME, H5T_NATIVE_UCHAR, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0) + TEST_ERROR; + if (H5Pclose(dcpl) < 0) + TEST_ERROR; /* get dataset object header */ - if ( get_object_header_tag(did, &d_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(did, &d_tag) < 0) + TEST_ERROR; /* Clear Metadata Tags (don't care about them for this test */ mark_all_entries_investigated(fid); @@ -1047,12 +1140,15 @@ check_dense_attribute_tags(void) /* Create Many attributes, triggering dense storage */ /* ================================================ */ - for (i=0;i<50;i++) { + for (i = 0; i < 50; i++) { HDsprintf(attrname, "attr %d", i); - if ( (aid = H5Acreate2(did, attrname, H5T_NATIVE_UINT, sid, H5P_DEFAULT, H5P_DEFAULT)) < 0 ) TEST_ERROR; - if ( H5Awrite(aid, H5T_NATIVE_UINT, &i) < 0 ) TEST_ERROR; - if ( H5Aclose(aid) < 0 ) TEST_ERROR; + if ((aid = H5Acreate2(did, attrname, H5T_NATIVE_UINT, sid, H5P_DEFAULT, H5P_DEFAULT)) < 0) + TEST_ERROR; + if (H5Awrite(aid, H5T_NATIVE_UINT, &i) < 0) + TEST_ERROR; + if (H5Aclose(aid) < 0) + TEST_ERROR; } /* end for */ @@ -1062,48 +1158,65 @@ check_dense_attribute_tags(void) #ifndef NDEBUG /* if verbose, print cache index to screen for visual verification */ - if ( verbose ) dump_cache(fid); + if (verbose) + dump_cache(fid); #endif /* NDEBUG */ /* end debugging functions */ /* Verify free space header and section info */ - if ( verify_tag(fid, H5AC_FSPACE_SINFO_ID, d_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_FSPACE_HDR_ID, d_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_FSPACE_SINFO_ID, d_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_FSPACE_HDR_ID, d_tag) < 0) + TEST_ERROR; /* verify object header belonging to dataset */ - if ( verify_tag(fid, H5AC_OHDR_ID, d_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, d_tag) < 0) + TEST_ERROR; /* verify fractal heap header belonging to dataset */ - if ( verify_tag(fid, H5AC_FHEAP_HDR_ID, d_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_FHEAP_HDR_ID, d_tag) < 0) + TEST_ERROR; /* verify fractal heap direct block belonging to root group */ - if ( verify_tag(fid, H5AC_FHEAP_DBLOCK_ID, d_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_FHEAP_DBLOCK_ID, d_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_FHEAP_DBLOCK_ID, d_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_FHEAP_DBLOCK_ID, d_tag) < 0) + TEST_ERROR; /* verify btree header and leaf node belonging to dataset */ - if ( verify_tag(fid, H5AC_BT2_HDR_ID, d_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_BT2_LEAF_ID, d_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_BT2_LEAF_ID, d_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_BT2_INT_ID, d_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_BT2_HDR_ID, d_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_BT2_LEAF_ID, d_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_BT2_LEAF_ID, d_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_BT2_INT_ID, d_tag) < 0) + TEST_ERROR; /* verify no other entries present */ - if ( verify_no_unknown_tags(fid) < 0 ) TEST_ERROR; + if (verify_no_unknown_tags(fid) < 0) + TEST_ERROR; /* Reset the changes we've made to the cache's data structures */ - if(reset_all_entries_investigated(fid) < 0) TEST_ERROR; + if (reset_all_entries_investigated(fid) < 0) + TEST_ERROR; /* =========================== */ /* Close open objects and file */ /* =========================== */ - if ( H5Dclose(did) < 0 ) TEST_ERROR; - if ( H5Fclose(fid) < 0 ) TEST_ERROR; + if (H5Dclose(did) < 0) + TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; /* ======================= */ /* Reopen file and dataset */ /* ======================= */ - if ( (fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0 ) TEST_ERROR; - if ( (did = H5Dopen2(fid, DATASETNAME, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) + TEST_ERROR; + if ((did = H5Dopen2(fid, DATASETNAME, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Clear Metadata Tags (don't care about them for this test */ mark_all_entries_investigated(fid); @@ -1112,47 +1225,64 @@ check_dense_attribute_tags(void) /* Open attribute by index */ /* ======================= */ - if ( (aid = H5Aopen_by_idx(did, ".", H5_INDEX_NAME, H5_ITER_INC, (hsize_t)4, H5P_DEFAULT, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((aid = H5Aopen_by_idx(did, ".", H5_INDEX_NAME, H5_ITER_INC, (hsize_t)4, H5P_DEFAULT, H5P_DEFAULT)) < + 0) + TEST_ERROR; - /* =================================== */ - /* Verification of Metadata Tag Values */ - /* =================================== */ + /* =================================== */ + /* Verification of Metadata Tag Values */ + /* =================================== */ #ifndef NDEBUG /* if verbose, print cache index to screen for visual verification */ - if ( verbose ) dump_cache(fid); + if (verbose) + dump_cache(fid); #endif /* NDEBUG */ /* end debugging functions */ /* verify object header belonging to dataset */ - if ( verify_tag(fid, H5AC_OHDR_ID, d_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, d_tag) < 0) + TEST_ERROR; /* verify fractal heap header belonging to dataset */ - if ( verify_tag(fid, H5AC_FHEAP_HDR_ID, d_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_FHEAP_HDR_ID, d_tag) < 0) + TEST_ERROR; /* verify fractal heap direct block belonging to root group */ - if ( verify_tag(fid, H5AC_FHEAP_DBLOCK_ID, d_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_FHEAP_DBLOCK_ID, d_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_FHEAP_IBLOCK_ID, d_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_FHEAP_DBLOCK_ID, d_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_FHEAP_DBLOCK_ID, d_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_FHEAP_IBLOCK_ID, d_tag) < 0) + TEST_ERROR; /* verify btree header and leaf node belonging to dataset */ - if ( verify_tag(fid, H5AC_BT2_HDR_ID, d_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_BT2_LEAF_ID, d_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_BT2_LEAF_ID, d_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_BT2_INT_ID, d_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_BT2_HDR_ID, d_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_BT2_LEAF_ID, d_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_BT2_LEAF_ID, d_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_BT2_INT_ID, d_tag) < 0) + TEST_ERROR; /* verify no other entries present */ - if ( verify_no_unknown_tags(fid) < 0 ) TEST_ERROR; + if (verify_no_unknown_tags(fid) < 0) + TEST_ERROR; /* Reset the changes we've made to the cache's data structures */ - if(reset_all_entries_investigated(fid) < 0) TEST_ERROR; + if (reset_all_entries_investigated(fid) < 0) + TEST_ERROR; /* =========================== */ /* Close open objects and file */ /* =========================== */ - if ( H5Aclose(aid) < 0 ) TEST_ERROR; - if ( H5Dclose(did) < 0 ) TEST_ERROR; - if ( H5Fclose(fid) < 0 ) TEST_ERROR; + if (H5Aclose(aid) < 0) + TEST_ERROR; + if (H5Dclose(did) < 0) + TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; /* ========================================== */ /* Finished Test. Print status and return. */ @@ -1165,7 +1295,6 @@ error: return 1; } /* check_dense_attribute_tags */ - /*------------------------------------------------------------------------- * Function: check_group_open_tags * @@ -1183,12 +1312,12 @@ static unsigned check_group_open_tags(void) { /* Variable Declarations */ - hid_t fid = -1; /* File Identifier */ - hid_t gid = -1; /* Group Identifier */ + hid_t fid = -1; /* File Identifier */ + hid_t gid = -1; /* Group Identifier */ #ifndef NDEBUG - int verbose = FALSE; /* verbose file output */ -#endif /* NDEBUG */ /* end debugging functions */ - hid_t fapl = -1; /* File access prop list */ + int verbose = FALSE; /* verbose file output */ +#endif /* NDEBUG */ /* end debugging functions */ + hid_t fapl = -1; /* File access prop list */ haddr_t root_tag = HADDR_UNDEF; haddr_t g_tag; @@ -1200,68 +1329,89 @@ check_group_open_tags(void) /* ===== */ /* Create Fapl */ - if ( (fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0 ) TEST_ERROR; + if ((fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0) + TEST_ERROR; /* Create a test file with provided fcpl_t */ - if ( (fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0 ) TEST_ERROR; + if ((fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) + TEST_ERROR; - if ( H5Pclose(fapl) < 0 ) TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; /* determine tag value of root group's object header */ - if ( get_object_header_tag(fid, &root_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(fid, &root_tag) < 0) + TEST_ERROR; /* Create group */ - if ( (gid = H5Gcreate2(fid, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((gid = H5Gcreate2(fid, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Retrieve group tag */ - if ( get_object_header_tag(gid, &g_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(gid, &g_tag) < 0) + TEST_ERROR; /* Close Group */ - if (H5Gclose(gid) < 0) TEST_ERROR; + if (H5Gclose(gid) < 0) + TEST_ERROR; /* Close and Reopen the file */ - if ( H5Fclose(fid) < 0 ) TEST_ERROR; - if ( (fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; + if ((fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Evict as much as we can from the cache so we can track full tag path */ - if ( evict_entries(fid) < 0 ) TEST_ERROR; + if (evict_entries(fid) < 0) + TEST_ERROR; /* ================ */ /* TEST: Open Group */ /* ================ */ - if ( (gid = H5Gopen2(fid, GROUPNAME, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((gid = H5Gopen2(fid, GROUPNAME, H5P_DEFAULT)) < 0) + TEST_ERROR; - /* =================================== */ - /* Verification of Metadata Tag Values */ - /* =================================== */ + /* =================================== */ + /* Verification of Metadata Tag Values */ + /* =================================== */ #ifndef NDEBUG /* if verbose, print cache index to screen for visual verification */ - if ( verbose ) dump_cache(fid); + if (verbose) + dump_cache(fid); #endif /* NDEBUG */ /* end debugging functions */ /* Verify root group metadata */ - if ( verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_SNODE_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_LHEAP_PRFX_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_BT_ID, root_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_SNODE_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_LHEAP_PRFX_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_BT_ID, root_tag) < 0) + TEST_ERROR; /* Verify opened group metadata */ - if ( verify_tag(fid, H5AC_OHDR_ID, g_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, g_tag) < 0) + TEST_ERROR; /* verify no other entries present */ - if ( verify_no_unknown_tags(fid) < 0 ) TEST_ERROR; + if (verify_no_unknown_tags(fid) < 0) + TEST_ERROR; /* Reset the changes we've made to the cache's data structures */ - if(reset_all_entries_investigated(fid) < 0) TEST_ERROR; + if (reset_all_entries_investigated(fid) < 0) + TEST_ERROR; /* =========================== */ /* Close open objects and file */ /* =========================== */ - if ( H5Gclose(gid) < 0 ) TEST_ERROR; - if ( H5Fclose(fid) < 0 ) TEST_ERROR; + if (H5Gclose(gid) < 0) + TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; /* ========================================== */ /* Finished Test. Print status and return. */ @@ -1274,7 +1424,6 @@ error: return 1; } /* check_group_open_tags */ - /*------------------------------------------------------------------------- * Function: check_attribute_creation_tags * @@ -1292,17 +1441,17 @@ static unsigned check_attribute_creation_tags(hid_t fcpl, int type) { /* Variable Declarations */ - hid_t fid = -1; /* File Identifier */ - hid_t aid = -1; /* Attribute Identifier */ - hid_t gid = -1; /* Group Identifier */ - hid_t sid = -1; /* Dataspace Identifier */ + hid_t fid = -1; /* File Identifier */ + hid_t aid = -1; /* Attribute Identifier */ + hid_t gid = -1; /* Group Identifier */ + hid_t sid = -1; /* Dataspace Identifier */ #ifndef NDEBUG int verbose = FALSE; /* verbose file outout */ -#endif /* NDEBUG */ /* end debugging functions */ - hid_t fapl = -1; /* File access prop list */ - haddr_t root_tag = 0; /* Root group tag */ - haddr_t g_tag = 0; - hsize_t dims1[2] = {DIMS, DIMS}; /* dimensions */ +#endif /* NDEBUG */ /* end debugging functions */ + hid_t fapl = -1; /* File access prop list */ + haddr_t root_tag = 0; /* Root group tag */ + haddr_t g_tag = 0; + hsize_t dims1[2] = {DIMS, DIMS}; /* dimensions */ hsize_t maxdims[2] = {H5S_UNLIMITED, H5S_UNLIMITED}; /* dimensions */ /* Testing Macro */ @@ -1313,91 +1462,121 @@ check_attribute_creation_tags(hid_t fcpl, int type) /* ===== */ /* Create Fapl */ - if ( (fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0 ) TEST_ERROR; + if ((fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0) + TEST_ERROR; /* Create a test file with provided fcpl_t */ - if ( (fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, fcpl, fapl)) < 0 ) TEST_ERROR; + if ((fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, fcpl, fapl)) < 0) + TEST_ERROR; /* determine tag value of root group's object header */ - if ( get_object_header_tag(fid, &root_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(fid, &root_tag) < 0) + TEST_ERROR; /* Create group */ - if ( (gid = H5Gcreate2(fid, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((gid = H5Gcreate2(fid, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Retrieve group tag */ - if ( get_object_header_tag(gid, &g_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(gid, &g_tag) < 0) + TEST_ERROR; /* Close and Reopen the file and group */ - if ( H5Gclose(gid) < 0 ) TEST_ERROR; - if ( H5Fclose(fid) < 0 ) TEST_ERROR; - if ( (fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0 ) TEST_ERROR; - if ( (gid = H5Gopen2(fid, GROUPNAME, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if (H5Gclose(gid) < 0) + TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; + if ((fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) + TEST_ERROR; + if ((gid = H5Gopen2(fid, GROUPNAME, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Evict as much as we can from the cache so we can track full tag path */ - if ( evict_entries(fid) < 0 ) TEST_ERROR; + if (evict_entries(fid) < 0) + TEST_ERROR; /* ========================= */ /* Create Attribute on Group */ /* ========================= */ - if ( (sid = H5Screate_simple(2, dims1, maxdims)) < 0 ) TEST_ERROR; + if ((sid = H5Screate_simple(2, dims1, maxdims)) < 0) + TEST_ERROR; - if ( (aid = H5Acreate2(gid, ATTRNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((aid = H5Acreate2(gid, ATTRNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, H5P_DEFAULT)) < 0) + TEST_ERROR; - /* =================================== */ - /* Verification of Metadata Tag Values */ - /* =================================== */ + /* =================================== */ + /* Verification of Metadata Tag Values */ + /* =================================== */ #ifndef NDEBUG /* if verbose, print cache index to screen for visual verification */ - if ( verbose ) dump_cache(fid); + if (verbose) + dump_cache(fid); #endif /* NDEBUG */ /* end debugging functions */ /* verify object header belonging to group */ - if ( verify_tag(fid, H5AC_OHDR_ID, g_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, g_tag) < 0) + TEST_ERROR; /* verify object header chunk belonging to group */ - if ( verify_tag(fid, H5AC_OHDR_CHK_ID, g_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_CHK_ID, g_tag) < 0) + TEST_ERROR; - if ( type == TEST_SHMESG ) { + if (type == TEST_SHMESG) { /* verify (another) object header chunk belonging to group */ - if ( verify_tag(fid, H5AC_OHDR_CHK_ID, g_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_CHK_ID, g_tag) < 0) + TEST_ERROR; /* verify shared message index tagged with sohm */ - if ( verify_tag(fid, H5AC_SOHM_LIST_ID, H5AC__SOHM_TAG) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_SOHM_TABLE_ID, H5AC__SOHM_TAG) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_SOHM_LIST_ID, H5AC__SOHM_TAG) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_SOHM_TABLE_ID, H5AC__SOHM_TAG) < 0) + TEST_ERROR; /* verify fractal heap header belonging to group */ - if ( verify_tag(fid, H5AC_FHEAP_HDR_ID, H5AC__SOHM_TAG) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_FHEAP_HDR_ID, H5AC__SOHM_TAG) < 0) + TEST_ERROR; /* verify fractal heap direct block belonging to group */ - if ( verify_tag(fid, H5AC_FHEAP_DBLOCK_ID, H5AC__SOHM_TAG) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_FHEAP_DBLOCK_ID, H5AC__SOHM_TAG) < 0) + TEST_ERROR; /* Verify free space header and free space section */ - if ( verify_tag(fid, H5AC_FSPACE_HDR_ID, H5AC__SOHM_TAG) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_FSPACE_SINFO_ID, H5AC__SOHM_TAG) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_FSPACE_HDR_ID, H5AC__SOHM_TAG) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_FSPACE_SINFO_ID, H5AC__SOHM_TAG) < 0) + TEST_ERROR; /* verify btree header and leaf node belonging to group */ - if ( verify_tag(fid, H5AC_BT2_HDR_ID, H5AC__SOHM_TAG) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_BT2_LEAF_ID, H5AC__SOHM_TAG) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_BT2_HDR_ID, H5AC__SOHM_TAG) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_BT2_LEAF_ID, H5AC__SOHM_TAG) < 0) + TEST_ERROR; } /* end if */ /* verify no other entries present */ - if ( verify_no_unknown_tags(fid) < 0 ) TEST_ERROR; + if (verify_no_unknown_tags(fid) < 0) + TEST_ERROR; /* Reset the changes we've made to the cache's data structures */ - if(reset_all_entries_investigated(fid) < 0) TEST_ERROR; + if (reset_all_entries_investigated(fid) < 0) + TEST_ERROR; /* =========================== */ /* Close open objects and file */ /* =========================== */ - if ( H5Aclose(aid) < 0 ) TEST_ERROR; - if ( H5Gclose(gid) < 0 ) TEST_ERROR; - if ( H5Pclose(fapl) < 0 ) TEST_ERROR; - if ( H5Fclose(fid) < 0 ) TEST_ERROR; + if (H5Aclose(aid) < 0) + TEST_ERROR; + if (H5Gclose(gid) < 0) + TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; /* ========================================== */ /* Finished Test. Print status and return. */ @@ -1410,7 +1589,6 @@ error: return 1; } /* check_attribute_creation_tags */ - /*------------------------------------------------------------------------- * Function: check_attribute_open_tags * @@ -1428,17 +1606,17 @@ static unsigned check_attribute_open_tags(hid_t fcpl, int type) { /* Variable Declarations */ - hid_t fid = -1; /* File Identifier */ - hid_t aid = -1; /* Attribute Identifier */ - hid_t gid = -1; /* Group Identifier */ - hid_t sid = -1; /* Dataspace Identifier */ + hid_t fid = -1; /* File Identifier */ + hid_t aid = -1; /* Attribute Identifier */ + hid_t gid = -1; /* Group Identifier */ + hid_t sid = -1; /* Dataspace Identifier */ #ifndef NDEBUG int verbose = FALSE; /* verbose file outout */ -#endif /* NDEBUG */ /* end debugging functions */ - hid_t fapl = -1; /* File access prop list */ - haddr_t root_tag = 0; - haddr_t g_tag = 0; - hsize_t dims1[2] = {DIMS, DIMS}; /* dimensions */ +#endif /* NDEBUG */ /* end debugging functions */ + hid_t fapl = -1; /* File access prop list */ + haddr_t root_tag = 0; + haddr_t g_tag = 0; + hsize_t dims1[2] = {DIMS, DIMS}; /* dimensions */ hsize_t maxdims[2] = {H5S_UNLIMITED, H5S_UNLIMITED}; /* dimensions */ /* Testing Macro */ @@ -1449,94 +1627,123 @@ check_attribute_open_tags(hid_t fcpl, int type) /* ===== */ /* Create Fapl */ - if ( (fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0 ) TEST_ERROR; + if ((fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0) + TEST_ERROR; /* Create a test file with provided fcpl_t */ - if ( (fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, fcpl, fapl)) < 0 ) TEST_ERROR; + if ((fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, fcpl, fapl)) < 0) + TEST_ERROR; - if ( H5Pclose(fapl) < 0 ) TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; /* determine tag value of root group's object header */ - if ( get_object_header_tag(fid, &root_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(fid, &root_tag) < 0) + TEST_ERROR; /* Create group */ - if ( (gid = H5Gcreate2(fid, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((gid = H5Gcreate2(fid, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Retrieve group tag */ - if ( get_object_header_tag(gid, &g_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(gid, &g_tag) < 0) + TEST_ERROR; /* Create attribute dataspace */ - if ( (sid = H5Screate_simple(2, dims1, maxdims)) < 0 ) TEST_ERROR; + if ((sid = H5Screate_simple(2, dims1, maxdims)) < 0) + TEST_ERROR; /* Create attribute on group */ - if ( (aid = H5Acreate2(gid, ATTRNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((aid = H5Acreate2(gid, ATTRNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Close attribute */ - if ( H5Aclose(aid) < 0 ) TEST_ERROR; + if (H5Aclose(aid) < 0) + TEST_ERROR; /* Close and Reopen the file and group */ - if ( H5Gclose(gid) < 0 ) TEST_ERROR; - if ( H5Fclose(fid) < 0 ) TEST_ERROR; - if ( (fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0 ) TEST_ERROR; - if ( (gid = H5Gopen2(fid, GROUPNAME, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if (H5Gclose(gid) < 0) + TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; + if ((fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) + TEST_ERROR; + if ((gid = H5Gopen2(fid, GROUPNAME, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Evict as much as we can from the cache so we can track full tag path */ - if ( evict_entries(fid) < 0 ) TEST_ERROR; + if (evict_entries(fid) < 0) + TEST_ERROR; /* ========================= */ /* Open Attribute of Group */ /* ========================= */ - if ( (aid = H5Aopen(gid, ATTRNAME, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((aid = H5Aopen(gid, ATTRNAME, H5P_DEFAULT)) < 0) + TEST_ERROR; - /* =================================== */ - /* Verification of Metadata Tag Values */ - /* =================================== */ + /* =================================== */ + /* Verification of Metadata Tag Values */ + /* =================================== */ #ifndef NDEBUG /* if verbose, print cache index to screen for visual verification */ - if ( verbose ) dump_cache(fid); + if (verbose) + dump_cache(fid); #endif /* NDEBUG */ /* end debugging functions */ /* verify object header belonging to group */ - if ( verify_tag(fid, H5AC_OHDR_ID, g_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, g_tag) < 0) + TEST_ERROR; /* verify object header chunk belonging to group */ - if ( verify_tag(fid, H5AC_OHDR_CHK_ID, g_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_CHK_ID, g_tag) < 0) + TEST_ERROR; - if ( type == TEST_SHMESG ) { + if (type == TEST_SHMESG) { /* verify (another) object header chunk belonging to group */ - if ( verify_tag(fid, H5AC_OHDR_CHK_ID, g_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_CHK_ID, g_tag) < 0) + TEST_ERROR; /* verify shared header message master table */ - if ( verify_tag(fid, H5AC_SOHM_TABLE_ID, H5AC__SOHM_TAG) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_SOHM_TABLE_ID, H5AC__SOHM_TAG) < 0) + TEST_ERROR; /* verify fractal heap header belonging to group */ - if ( verify_tag(fid, H5AC_FHEAP_HDR_ID, g_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_FHEAP_HDR_ID, g_tag) < 0) + TEST_ERROR; /* verify fractal heap direct block belonging to group */ - if ( verify_tag(fid, H5AC_FHEAP_DBLOCK_ID, g_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_FHEAP_DBLOCK_ID, g_tag) < 0) + TEST_ERROR; /* verify btree header and leaf node belonging to group */ - if ( verify_tag(fid, H5AC_BT2_HDR_ID, g_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_BT2_LEAF_ID, g_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_BT2_HDR_ID, g_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_BT2_LEAF_ID, g_tag) < 0) + TEST_ERROR; } /* end if */ /* verify no other entries present */ - if ( verify_no_unknown_tags(fid) < 0 ) TEST_ERROR; + if (verify_no_unknown_tags(fid) < 0) + TEST_ERROR; /* Reset the changes we've made to the cache's data structures */ - if(reset_all_entries_investigated(fid) < 0) TEST_ERROR; + if (reset_all_entries_investigated(fid) < 0) + TEST_ERROR; /* =========================== */ /* Close open objects and file */ /* =========================== */ - if ( H5Aclose(aid) < 0 ) TEST_ERROR; - if ( H5Gclose(gid) < 0 ) TEST_ERROR; - if ( H5Fclose(fid) < 0 ) TEST_ERROR; + if (H5Aclose(aid) < 0) + TEST_ERROR; + if (H5Gclose(gid) < 0) + TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; /* ========================================== */ /* Finished Test. Print status and return. */ @@ -1549,7 +1756,6 @@ error: return 1; } /* check_attribute_open_tags */ - /*------------------------------------------------------------------------- * Function: check_attribute_rename_tags * @@ -1567,20 +1773,20 @@ static unsigned check_attribute_rename_tags(hid_t fcpl, int type) { /* Variable declarations */ - hid_t fid = -1; /* File Identifier */ - hid_t gid = -1; /* Group Identifier */ - hid_t aid = -1; /* Attribute Identifier */ - hid_t sid = -1; /* Dataset Identifier */ + hid_t fid = -1; /* File Identifier */ + hid_t gid = -1; /* Group Identifier */ + hid_t aid = -1; /* Attribute Identifier */ + hid_t sid = -1; /* Dataset Identifier */ #ifndef NDEBUG - int verbose = FALSE; /* verbose file outout */ -#endif /* NDEBUG */ /* end debugging functions */ - int *data = NULL; /* data buffer */ - int i,j,k = 0; /* iterators */ - hid_t fapl = -1; /* File access prop list */ - haddr_t root_tag = 0; - haddr_t g_tag = 0; - hsize_t dims1[2] = {DIMS, DIMS}; /* dimensions */ - hsize_t maxdims[2] = {H5S_UNLIMITED, H5S_UNLIMITED}; /* dimensions */ + int verbose = FALSE; /* verbose file outout */ +#endif /* NDEBUG */ /* end debugging functions */ + int * data = NULL; /* data buffer */ + int i, j, k = 0; /* iterators */ + hid_t fapl = -1; /* File access prop list */ + haddr_t root_tag = 0; + haddr_t g_tag = 0; + hsize_t dims1[2] = {DIMS, DIMS}; /* dimensions */ + hsize_t maxdims[2] = {H5S_UNLIMITED, H5S_UNLIMITED}; /* dimensions */ hbool_t persistent_fsms = FALSE; /* Testing Macro */ @@ -1591,125 +1797,162 @@ check_attribute_rename_tags(hid_t fcpl, int type) /* ===== */ /* check to see if the FCPL specified persistent free space managers */ - if(H5Pget_file_space_strategy(fcpl, NULL, &persistent_fsms, NULL) < 0) + if (H5Pget_file_space_strategy(fcpl, NULL, &persistent_fsms, NULL) < 0) TEST_ERROR; /* Allocate array */ - if ( (NULL == (data = (int *)HDcalloc(DIMS * DIMS, sizeof(int)))) ) TEST_ERROR; + if ((NULL == (data = (int *)HDcalloc(DIMS * DIMS, sizeof(int))))) + TEST_ERROR; /* Create Fapl */ - if ( (fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0 ) TEST_ERROR; + if ((fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0) + TEST_ERROR; /* Create a test file with provided fcpl_t */ - if ( (fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, fcpl, fapl)) < 0 ) TEST_ERROR; + if ((fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, fcpl, fapl)) < 0) + TEST_ERROR; - if ( H5Pclose(fapl) < 0 ) TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; /* determine tag value of root group's object header */ - if ( get_object_header_tag(fid, &root_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(fid, &root_tag) < 0) + TEST_ERROR; /* Create group */ - if ( (gid = H5Gcreate2(fid, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((gid = H5Gcreate2(fid, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Retrieve group tag */ - if ( get_object_header_tag(gid, &g_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(gid, &g_tag) < 0) + TEST_ERROR; /* Set up attribute dataspace */ - if ( (sid = H5Screate_simple(2, dims1, maxdims)) < 0 ) TEST_ERROR; + if ((sid = H5Screate_simple(2, dims1, maxdims)) < 0) + TEST_ERROR; /* Create attribute */ - if ( (aid = H5Acreate2(gid, ATTRNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((aid = H5Acreate2(gid, ATTRNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, H5P_DEFAULT)) < 0) + TEST_ERROR; /* fill out data buffer */ - for(i = 0; i < DIMS; i++) - for(j = 0; j < DIMS; j++) + for (i = 0; i < DIMS; i++) + for (j = 0; j < DIMS; j++) data[(DIMS * i) + j] = k++; /* Write to attribute */ - if ( H5Awrite(aid, H5T_NATIVE_INT, data) < 0 ) TEST_ERROR; + if (H5Awrite(aid, H5T_NATIVE_INT, data) < 0) + TEST_ERROR; /* Close Attribute */ - if ( H5Aclose(aid) < 0 ) TEST_ERROR; + if (H5Aclose(aid) < 0) + TEST_ERROR; /* Close and Reopen the file and group */ - if ( H5Gclose(gid) < 0 ) TEST_ERROR; - if ( H5Fclose(fid) < 0 ) TEST_ERROR; + if (H5Gclose(gid) < 0) + TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; - if ( (fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0 ) TEST_ERROR; - if ( (gid = H5Gopen2(fid, GROUPNAME, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) + TEST_ERROR; + if ((gid = H5Gopen2(fid, GROUPNAME, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Evict as much as we can from the cache so we can track full tag path */ - if ( evict_entries(fid) < 0 ) TEST_ERROR; + if (evict_entries(fid) < 0) + TEST_ERROR; /* ========================= */ /* Rename Attribute of Group */ /* ========================= */ - if ( H5Arename_by_name(fid, GROUPNAME, ATTRNAME, ATTRNAME3, H5P_DEFAULT) < 0 ) TEST_ERROR; + if (H5Arename_by_name(fid, GROUPNAME, ATTRNAME, ATTRNAME3, H5P_DEFAULT) < 0) + TEST_ERROR; - /* =================================== */ - /* Verification of Metadata Tag Values */ - /* =================================== */ + /* =================================== */ + /* Verification of Metadata Tag Values */ + /* =================================== */ #ifndef NDEBUG /* if verbose, print cache index to screen for visual verification */ - if ( verbose ) dump_cache(fid); + if (verbose) + dump_cache(fid); #endif /* NDEBUG */ /* end debugging functions */ /* Verify root group metadata */ - if ( verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_SNODE_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_LHEAP_PRFX_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_BT_ID, root_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_SNODE_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_LHEAP_PRFX_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_BT_ID, root_tag) < 0) + TEST_ERROR; /* verify object header belonging to group */ - if ( verify_tag(fid, H5AC_OHDR_ID, g_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, g_tag) < 0) + TEST_ERROR; /* verify object header chunk belonging to group */ - if ( verify_tag(fid, H5AC_OHDR_CHK_ID, g_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_CHK_ID, g_tag) < 0) + TEST_ERROR; - if ( type == TEST_SHMESG ) { + if (type == TEST_SHMESG) { /* verify (another) object header chunk belonging to group */ - if ( verify_tag(fid, H5AC_OHDR_CHK_ID, g_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_CHK_ID, g_tag) < 0) + TEST_ERROR; /* verify shared header message master table */ - if ( verify_tag(fid, H5AC_SOHM_TABLE_ID, H5AC__SOHM_TAG) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_SOHM_TABLE_ID, H5AC__SOHM_TAG) < 0) + TEST_ERROR; /* verify fractal heap header belonging to group */ - if ( verify_tag(fid, H5AC_FHEAP_HDR_ID, g_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_FHEAP_HDR_ID, g_tag) < 0) + TEST_ERROR; /* verify fractal heap direct block belonging to group */ - if ( verify_tag(fid, H5AC_FHEAP_DBLOCK_ID, g_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_FHEAP_DBLOCK_ID, g_tag) < 0) + TEST_ERROR; /* verify shared header message stored as a list */ - if ( verify_tag(fid, H5AC_SOHM_LIST_ID, H5AC__SOHM_TAG) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_SOHM_LIST_ID, H5AC__SOHM_TAG) < 0) + TEST_ERROR; /* * one freespace header tag for H5FD_MEM_DRAW manager, * one freespace header tag for H5FD_MEM_SUPER manager */ - if ( verify_tag(fid, H5AC_FSPACE_HDR_ID, H5AC__FREESPACE_TAG) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_FSPACE_HDR_ID, H5AC__FREESPACE_TAG) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_FSPACE_HDR_ID, H5AC__FREESPACE_TAG) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_FSPACE_HDR_ID, H5AC__FREESPACE_TAG) < 0) + TEST_ERROR; /* verify btree header and leaf node belonging to group */ - if ( verify_tag(fid, H5AC_BT2_HDR_ID, g_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_BT2_LEAF_ID, g_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_BT2_HDR_ID, g_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_BT2_LEAF_ID, g_tag) < 0) + TEST_ERROR; } /* end if */ /* verify no other entries present */ - if ( verify_no_unknown_tags(fid) < 0 ) TEST_ERROR; + if (verify_no_unknown_tags(fid) < 0) + TEST_ERROR; /* Reset the changes we've made to the cache's data structures */ - if(reset_all_entries_investigated(fid) < 0) TEST_ERROR; + if (reset_all_entries_investigated(fid) < 0) + TEST_ERROR; /* =========================== */ /* Close open objects and file */ /* =========================== */ - if ( H5Gclose(gid) < 0 ) TEST_ERROR; - if ( H5Fclose(fid) < 0 ) TEST_ERROR; + if (H5Gclose(gid) < 0) + TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; /* ========================================== */ /* Finished Test. Print status and return. */ @@ -1721,12 +1964,11 @@ check_attribute_rename_tags(hid_t fcpl, int type) return 0; error: - if(data) + if (data) HDfree(data); return 1; } /* check_attribute_rename_tags */ - /*------------------------------------------------------------------------- * Function: check_attribute_delete_tags * @@ -1744,20 +1986,20 @@ static unsigned check_attribute_delete_tags(hid_t fcpl, int type) { /* Variable Declarations */ - hid_t fid = -1; /* File Identifier */ - hid_t gid = -1; /* Group Identifier */ - hid_t aid = -1; /* Attribute Identifier */ - hid_t sid = -1; /* Dataset Identifier */ + hid_t fid = -1; /* File Identifier */ + hid_t gid = -1; /* Group Identifier */ + hid_t aid = -1; /* Attribute Identifier */ + hid_t sid = -1; /* Dataset Identifier */ #ifndef NDEBUG - int verbose = FALSE; /* verbose file outout */ -#endif /* NDEBUG */ /* end debugging functions */ - int *data = NULL; /* data buffer */ - int i,j,k = 0; /* iterators */ - hid_t fapl = -1; /* File access prop list */ - haddr_t root_tag = 0; - haddr_t g_tag = 0; - hsize_t dims1[2] = {DIMS, DIMS}; /* dimensions */ - hsize_t maxdims[2] = {H5S_UNLIMITED, H5S_UNLIMITED}; /* dimensions */ + int verbose = FALSE; /* verbose file outout */ +#endif /* NDEBUG */ /* end debugging functions */ + int * data = NULL; /* data buffer */ + int i, j, k = 0; /* iterators */ + hid_t fapl = -1; /* File access prop list */ + haddr_t root_tag = 0; + haddr_t g_tag = 0; + hsize_t dims1[2] = {DIMS, DIMS}; /* dimensions */ + hsize_t maxdims[2] = {H5S_UNLIMITED, H5S_UNLIMITED}; /* dimensions */ hbool_t persistent_fsms = FALSE; /* Testing Macro */ @@ -1768,77 +2010,97 @@ check_attribute_delete_tags(hid_t fcpl, int type) /* ===== */ /* check to see if the FCPL specified persistent free space managers */ - if ( H5Pget_file_space_strategy(fcpl, NULL, &persistent_fsms, NULL) < 0 ) + if (H5Pget_file_space_strategy(fcpl, NULL, &persistent_fsms, NULL) < 0) TEST_ERROR; /* Allocate array */ - if ( (NULL == (data = (int *)HDcalloc(DIMS * DIMS, sizeof(int)))) ) TEST_ERROR; + if ((NULL == (data = (int *)HDcalloc(DIMS * DIMS, sizeof(int))))) + TEST_ERROR; /* Create Fapl */ - if ( (fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0 ) TEST_ERROR; + if ((fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0) + TEST_ERROR; /* Create a test file with provided fcpl_t */ - if ( (fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, fcpl, fapl)) < 0 ) TEST_ERROR; + if ((fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, fcpl, fapl)) < 0) + TEST_ERROR; - if ( H5Pclose(fapl) < 0 ) TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; /* determine tag value of root group's object header */ - if ( get_object_header_tag(fid, &root_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(fid, &root_tag) < 0) + TEST_ERROR; /* Create group */ - if ( (gid = H5Gcreate2(fid, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((gid = H5Gcreate2(fid, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Retrieve group tag */ - if ( get_object_header_tag(gid, &g_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(gid, &g_tag) < 0) + TEST_ERROR; /* Set up attribute dataspace */ - if ( (sid = H5Screate_simple(2, dims1, maxdims)) < 0 ) TEST_ERROR; + if ((sid = H5Screate_simple(2, dims1, maxdims)) < 0) + TEST_ERROR; /* Create attribute */ - if ( (aid = H5Acreate2(gid, ATTRNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((aid = H5Acreate2(gid, ATTRNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, H5P_DEFAULT)) < 0) + TEST_ERROR; /* fill out data buffer */ - for(i = 0;i < DIMS; i++) - for(j = 0;j < DIMS; j++) + for (i = 0; i < DIMS; i++) + for (j = 0; j < DIMS; j++) data[(DIMS * i) + j] = k++; /* Write to attribute */ - if ( (H5Awrite(aid, H5T_NATIVE_INT, data)) < 0 ) TEST_ERROR; + if ((H5Awrite(aid, H5T_NATIVE_INT, data)) < 0) + TEST_ERROR; /* Close Attribute */ - if ( H5Aclose(aid) < 0 ) TEST_ERROR; + if (H5Aclose(aid) < 0) + TEST_ERROR; /* Close and Reopen the file and group */ - if ( H5Gclose(gid) < 0 ) TEST_ERROR; - if ( H5Fclose(fid) < 0 ) TEST_ERROR; - if ( (fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0 ) TEST_ERROR; - if ( (gid = H5Gopen2(fid, GROUPNAME, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if (H5Gclose(gid) < 0) + TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; + if ((fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) + TEST_ERROR; + if ((gid = H5Gopen2(fid, GROUPNAME, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Evict as much as we can from the cache so we can track full tag path */ - if ( evict_entries(fid) < 0 ) TEST_ERROR; + if (evict_entries(fid) < 0) + TEST_ERROR; /* ========================= */ /* Delete Attribute of Group */ /* ========================= */ - if ( (H5Adelete(gid, ATTRNAME)) < 0 ) TEST_ERROR; + if ((H5Adelete(gid, ATTRNAME)) < 0) + TEST_ERROR; - /* =================================== */ - /* Verification of Metadata Tag Values */ - /* =================================== */ + /* =================================== */ + /* Verification of Metadata Tag Values */ + /* =================================== */ #ifndef NDEBUG /* if verbose, print cache index to screen for visual verification */ - if ( verbose ) dump_cache(fid); + if (verbose) + dump_cache(fid); #endif /* NDEBUG */ /* end debugging functions */ /* verify object header belonging to group */ - if ( verify_tag(fid, H5AC_OHDR_ID, g_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, g_tag) < 0) + TEST_ERROR; - if ( type == TEST_SHMESG ) { + if (type == TEST_SHMESG) { /* verify shared header message master table */ - if ( verify_tag(fid, H5AC_SOHM_TABLE_ID, H5AC__SOHM_TAG) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_SOHM_TABLE_ID, H5AC__SOHM_TAG) < 0) + TEST_ERROR; /* * 2 calls to verify_tag() for verifying free space: @@ -1846,11 +2108,11 @@ check_attribute_delete_tags(hid_t fcpl, int type) * one freespace header tag for free-space section info raw data * one freespace header tag for free-space header metadata */ - if ( verify_tag(fid, H5AC_FSPACE_HDR_ID, H5AC__FREESPACE_TAG) < 0 ) + if (verify_tag(fid, H5AC_FSPACE_HDR_ID, H5AC__FREESPACE_TAG) < 0) TEST_ERROR; - if ( verify_tag(fid, H5AC_FSPACE_SINFO_ID, H5AC__FREESPACE_TAG) < 0 ) + if (verify_tag(fid, H5AC_FSPACE_SINFO_ID, H5AC__FREESPACE_TAG) < 0) TEST_ERROR; - if ( verify_tag(fid, H5AC_FSPACE_HDR_ID, H5AC__FREESPACE_TAG) < 0 ) + if (verify_tag(fid, H5AC_FSPACE_HDR_ID, H5AC__FREESPACE_TAG) < 0) TEST_ERROR; #if 0 @@ -1868,17 +2130,21 @@ check_attribute_delete_tags(hid_t fcpl, int type) } /* end if */ /* verify no other entries present */ - if ( verify_no_unknown_tags(fid) < 0 ) TEST_ERROR; + if (verify_no_unknown_tags(fid) < 0) + TEST_ERROR; /* Reset the changes we've made to the cache's data structures */ - if(reset_all_entries_investigated(fid) < 0) TEST_ERROR; + if (reset_all_entries_investigated(fid) < 0) + TEST_ERROR; /* =========================== */ /* Close open objects and file */ /* =========================== */ - if ( H5Gclose(gid) < 0 ) TEST_ERROR; - if ( H5Fclose(fid) < 0 ) TEST_ERROR; + if (H5Gclose(gid) < 0) + TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; /* ========================================== */ /* Finished Test. Print status and return. */ @@ -1890,12 +2156,11 @@ check_attribute_delete_tags(hid_t fcpl, int type) return 0; error: - if(data) + if (data) HDfree(data); return 1; } /* check_attribute_delete_tags */ - /*------------------------------------------------------------------------- * Function: check_dataset_creation_tags * @@ -1913,19 +2178,19 @@ static unsigned check_dataset_creation_tags(hid_t fcpl, int type) { /* Variable Declarations */ - hid_t fid = -1; /* File Identifier */ - hid_t did = -1; /* Dataset Identifier */ - hid_t sid = -1; /* Dataspace Identifier */ + hid_t fid = -1; /* File Identifier */ + hid_t did = -1; /* Dataset Identifier */ + hid_t sid = -1; /* Dataspace Identifier */ #ifndef NDEBUG - int verbose = FALSE; /* verbose file outout */ -#endif /* NDEBUG */ /* end debugging functions */ - hid_t dcpl = -1; /* dataset creation pl */ - hsize_t cdims[2] = {1,1}; /* chunk dimensions */ - int fillval = 0; - hid_t fapl = -1; /* File access prop list */ - haddr_t root_tag = 0; - haddr_t d_tag = 0; - hsize_t dims1[2] = {DIMS, DIMS}; /* dimensions */ + int verbose = FALSE; /* verbose file outout */ +#endif /* NDEBUG */ /* end debugging functions */ + hid_t dcpl = -1; /* dataset creation pl */ + hsize_t cdims[2] = {1, 1}; /* chunk dimensions */ + int fillval = 0; + hid_t fapl = -1; /* File access prop list */ + haddr_t root_tag = 0; + haddr_t d_tag = 0; + hsize_t dims1[2] = {DIMS, DIMS}; /* dimensions */ hsize_t maxdims[2] = {H5S_UNLIMITED, H5S_UNLIMITED}; /* dimensions */ /* Testing Macro */ @@ -1936,21 +2201,28 @@ check_dataset_creation_tags(hid_t fcpl, int type) /* ===== */ /* Create Fapl */ - if ( (fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0 ) TEST_ERROR; + if ((fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0) + TEST_ERROR; - if ( (fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, fcpl, fapl)) < 0 ) TEST_ERROR; + if ((fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, fcpl, fapl)) < 0) + TEST_ERROR; - if ( H5Pclose(fapl) < 0 ) TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; /* determine tag value of root group's object header */ - if ( get_object_header_tag(fid, &root_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(fid, &root_tag) < 0) + TEST_ERROR; /* Close and Reopen the file */ - if ( H5Fclose(fid) < 0 ) TEST_ERROR; - if ( (fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; + if ((fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Evict as much as we can from the cache so we can track full tag path */ - if ( evict_entries(fid) < 0 ) TEST_ERROR; + if (evict_entries(fid) < 0) + TEST_ERROR; /* ============================ */ /* Create Dataset in Root Group */ @@ -1960,64 +2232,83 @@ check_dataset_creation_tags(hid_t fcpl, int type) dcpl = H5Pcreate(H5P_DATASET_CREATE); /* Enable chunking */ - if ( H5Pset_chunk(dcpl, RANK, cdims) < 0 ) TEST_ERROR; + if (H5Pset_chunk(dcpl, RANK, cdims) < 0) + TEST_ERROR; /* Set up a fill value */ - if ( H5Pset_fill_value(dcpl, H5T_NATIVE_INT, &fillval) < 0 ) TEST_ERROR; + if (H5Pset_fill_value(dcpl, H5T_NATIVE_INT, &fillval) < 0) + TEST_ERROR; /* Set up dataset dataspace */ - if ( (sid = H5Screate_simple(2, dims1, maxdims)) < 0 ) TEST_ERROR; + if ((sid = H5Screate_simple(2, dims1, maxdims)) < 0) + TEST_ERROR; /* Create Dataset */ - if (( did = H5Dcreate2(fid, DATASETNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0 ) TEST_ERROR; - if ( H5Pclose(dcpl) < 0 ) TEST_ERROR; + if ((did = H5Dcreate2(fid, DATASETNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0) + TEST_ERROR; + if (H5Pclose(dcpl) < 0) + TEST_ERROR; - /* =================================== */ - /* Verification of Metadata Tag Values */ - /* =================================== */ + /* =================================== */ + /* Verification of Metadata Tag Values */ + /* =================================== */ #ifndef NDEBUG /* if verbose, print cache index to screen for visual verification */ - if ( verbose ) dump_cache(fid); + if (verbose) + dump_cache(fid); #endif /* NDEBUG */ /* end debugging functions */ /* Verify root group metadata */ - if ( verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_SNODE_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_LHEAP_PRFX_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_BT_ID, root_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_SNODE_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_LHEAP_PRFX_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_BT_ID, root_tag) < 0) + TEST_ERROR; /* Get dataset's object header address */ - if ( get_object_header_tag(did, &d_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(did, &d_tag) < 0) + TEST_ERROR; /* Verify object header for group */ - if ( verify_tag(fid, H5AC_OHDR_ID, d_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, d_tag) < 0) + TEST_ERROR; - if ( type == TEST_SHMESG ) { + if (type == TEST_SHMESG) { /* verify shared header message master table */ - if ( verify_tag(fid, H5AC_SOHM_TABLE_ID, H5AC__SOHM_TAG) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_SOHM_TABLE_ID, H5AC__SOHM_TAG) < 0) + TEST_ERROR; /* Verify dataset's tagged metadata */ - if ( verify_tag(fid, H5AC_FHEAP_HDR_ID, H5AC__SOHM_TAG) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_FHEAP_HDR_ID, H5AC__SOHM_TAG) < 0) + TEST_ERROR; /* Verify shared object header message tags */ - if ( verify_tag(fid, H5AC_SOHM_LIST_ID, H5AC__SOHM_TAG) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_SOHM_LIST_ID, H5AC__SOHM_TAG) < 0) + TEST_ERROR; } /* end if */ /* verify no other entries present */ - if ( verify_no_unknown_tags(fid) < 0 ) TEST_ERROR; + if (verify_no_unknown_tags(fid) < 0) + TEST_ERROR; /* Reset the changes we've made to the cache's data structures */ - if(reset_all_entries_investigated(fid) < 0) TEST_ERROR; + if (reset_all_entries_investigated(fid) < 0) + TEST_ERROR; /* =========================== */ /* Close open objects and file */ /* =========================== */ - if ( H5Dclose(did) < 0 ) TEST_ERROR; - if ( H5Fclose(fid) < 0 ) TEST_ERROR; + if (H5Dclose(did) < 0) + TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; /* ========================================== */ /* Finished Test. Print status and return. */ @@ -2030,7 +2321,6 @@ error: return 1; } /* check_dataset_creation_tags */ - /*------------------------------------------------------------------------- * Function: check_dataset_creation_earlyalloc_tags * @@ -2048,21 +2338,21 @@ static unsigned check_dataset_creation_earlyalloc_tags(hid_t fcpl, int type) { /* Variable Declarations */ - hid_t fid = -1; /* File Identifier */ - hid_t did = -1; /* Dataset Identifier */ - hid_t sid = -1; /* Dataspace Identifier */ + hid_t fid = -1; /* File Identifier */ + hid_t did = -1; /* Dataset Identifier */ + hid_t sid = -1; /* Dataspace Identifier */ #ifndef NDEBUG - int verbose = FALSE; /* verbose file outout */ -#endif /* NDEBUG */ /* end debugging functions */ - hid_t dcpl = -1; /* dataset creation pl */ - hsize_t cdims[2] = {1,1}; /* chunk dimensions */ - int fillval = 0; - hid_t fapl = -1; /* File access prop list */ - haddr_t root_tag = 0; - haddr_t d_tag = 0; - hsize_t dims1[2] = {DIMS, DIMS}; /* dimensions */ + int verbose = FALSE; /* verbose file outout */ +#endif /* NDEBUG */ /* end debugging functions */ + hid_t dcpl = -1; /* dataset creation pl */ + hsize_t cdims[2] = {1, 1}; /* chunk dimensions */ + int fillval = 0; + hid_t fapl = -1; /* File access prop list */ + haddr_t root_tag = 0; + haddr_t d_tag = 0; + hsize_t dims1[2] = {DIMS, DIMS}; /* dimensions */ hsize_t maxdims[2] = {H5S_UNLIMITED, H5S_UNLIMITED}; /* dimensions */ - int i = 0; /* iterator */ + int i = 0; /* iterator */ /* Testing Macro */ TESTING("tag application during dataset creation with early allocation"); @@ -2072,21 +2362,28 @@ check_dataset_creation_earlyalloc_tags(hid_t fcpl, int type) /* ===== */ /* Create Fapl */ - if ( (fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0 ) TEST_ERROR; + if ((fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0) + TEST_ERROR; - if ( (fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, fcpl, fapl)) < 0 ) TEST_ERROR; + if ((fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, fcpl, fapl)) < 0) + TEST_ERROR; - if ( H5Pclose(fapl) < 0 ) TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; /* determine tag value of root group's object header */ - if ( get_object_header_tag(fid, &root_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(fid, &root_tag) < 0) + TEST_ERROR; /* Close and Reopen the file */ - if ( H5Fclose(fid) < 0 ) TEST_ERROR; - if ( (fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; + if ((fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Evict as much as we can from the cache so we can track full tag path */ - if ( evict_entries(fid) < 0 ) TEST_ERROR; + if (evict_entries(fid) < 0) + TEST_ERROR; /* ============================ */ /* Create Dataset in Root Group */ @@ -2094,69 +2391,90 @@ check_dataset_creation_earlyalloc_tags(hid_t fcpl, int type) dcpl = H5Pcreate(H5P_DATASET_CREATE); - if ( H5Pset_chunk(dcpl, RANK, cdims) < 0 ) TEST_ERROR; + if (H5Pset_chunk(dcpl, RANK, cdims) < 0) + TEST_ERROR; - if ( H5Pset_fill_value(dcpl, H5T_NATIVE_INT, &fillval) < 0 ) TEST_ERROR; + if (H5Pset_fill_value(dcpl, H5T_NATIVE_INT, &fillval) < 0) + TEST_ERROR; /* Set early allocation time */ - if ( H5Pset_alloc_time(dcpl, H5D_ALLOC_TIME_EARLY) < 0 ) TEST_ERROR; + if (H5Pset_alloc_time(dcpl, H5D_ALLOC_TIME_EARLY) < 0) + TEST_ERROR; /* Set up dataset dataspace */ - if ( (sid = H5Screate_simple(2, dims1, maxdims)) < 0 ) TEST_ERROR; + if ((sid = H5Screate_simple(2, dims1, maxdims)) < 0) + TEST_ERROR; - if (( did = H5Dcreate2(fid, DATASETNAME2, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0 ) TEST_ERROR; - if ( H5Pclose(dcpl) < 0 ) TEST_ERROR; + if ((did = H5Dcreate2(fid, DATASETNAME2, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0) + TEST_ERROR; + if (H5Pclose(dcpl) < 0) + TEST_ERROR; - /* =================================== */ - /* Verification of Metadata Tag Values */ - /* =================================== */ + /* =================================== */ + /* Verification of Metadata Tag Values */ + /* =================================== */ #ifndef NDEBUG /* if verbose, print cache index to screen for visual verification */ - if ( verbose ) dump_cache(fid); + if (verbose) + dump_cache(fid); #endif /* NDEBUG */ /* end debugging functions */ /* Verify root group metadata */ - if ( verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_SNODE_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_LHEAP_PRFX_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_BT_ID, root_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_SNODE_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_LHEAP_PRFX_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_BT_ID, root_tag) < 0) + TEST_ERROR; /* Get dataset's object header address */ - if ( get_object_header_tag(did, &d_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(did, &d_tag) < 0) + TEST_ERROR; /* Verify object header for group */ - if ( verify_tag(fid, H5AC_OHDR_ID, d_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, d_tag) < 0) + TEST_ERROR; - if ( type == TEST_SHMESG ) { + if (type == TEST_SHMESG) { /* verify shared header message master table */ - if ( verify_tag(fid, H5AC_SOHM_TABLE_ID, H5AC__SOHM_TAG) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_SOHM_TABLE_ID, H5AC__SOHM_TAG) < 0) + TEST_ERROR; /* Verify dataset's tagged metadata */ - if ( verify_tag(fid, H5AC_FHEAP_HDR_ID, H5AC__SOHM_TAG) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_FHEAP_HDR_ID, H5AC__SOHM_TAG) < 0) + TEST_ERROR; /* Verify shared object header message tags */ - if ( verify_tag(fid, H5AC_SOHM_LIST_ID, H5AC__SOHM_TAG) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_SOHM_LIST_ID, H5AC__SOHM_TAG) < 0) + TEST_ERROR; } /* end if */ /* Verify 19 b-tree nodes belonging to dataset */ - for (i=0; i<19; i++) - if ( verify_tag(fid, H5AC_BT_ID, d_tag) < 0 ) TEST_ERROR; + for (i = 0; i < 19; i++) + if (verify_tag(fid, H5AC_BT_ID, d_tag) < 0) + TEST_ERROR; /* verify no other entries present */ - if ( verify_no_unknown_tags(fid) < 0 ) TEST_ERROR; + if (verify_no_unknown_tags(fid) < 0) + TEST_ERROR; /* Reset the changes we've made to the cache's data structures */ - if(reset_all_entries_investigated(fid) < 0) TEST_ERROR; + if (reset_all_entries_investigated(fid) < 0) + TEST_ERROR; /* =========================== */ /* Close open objects and file */ /* =========================== */ - if ( H5Dclose(did) < 0 ) TEST_ERROR; - if ( H5Fclose(fid) < 0 ) TEST_ERROR; + if (H5Dclose(did) < 0) + TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; /* ========================================== */ /* Finished Test. Print status and return. */ @@ -2169,7 +2487,6 @@ error: return 1; } /* check_dataset_creation_earlyalloc_tags */ - /*------------------------------------------------------------------------- * Function: check_dataset_open_tags * @@ -2187,19 +2504,19 @@ static unsigned check_dataset_open_tags(void) { /* Variable Declarations */ - hid_t fid = -1; /* File Identifier */ - hid_t did = -1; /* Dataset Identifier */ - hid_t sid = -1; /* Dataspace Identifier */ + hid_t fid = -1; /* File Identifier */ + hid_t did = -1; /* Dataset Identifier */ + hid_t sid = -1; /* Dataspace Identifier */ #ifndef NDEBUG - int verbose = FALSE; /* verbose file outout */ -#endif /* NDEBUG */ /* end debugging functions */ - hid_t dcpl = -1; /* dataset creation pl */ - hsize_t cdims[2] = {1,1}; /* chunk dimensions */ - int fillval = 0; - hid_t fapl = -1; /* File access prop list */ - haddr_t root_tag = 0; - haddr_t d_tag = 0; - hsize_t dims1[2] = {DIMS, DIMS}; /* dimensions */ + int verbose = FALSE; /* verbose file outout */ +#endif /* NDEBUG */ /* end debugging functions */ + hid_t dcpl = -1; /* dataset creation pl */ + hsize_t cdims[2] = {1, 1}; /* chunk dimensions */ + int fillval = 0; + hid_t fapl = -1; /* File access prop list */ + haddr_t root_tag = 0; + haddr_t d_tag = 0; + hsize_t dims1[2] = {DIMS, DIMS}; /* dimensions */ hsize_t maxdims[2] = {H5S_UNLIMITED, H5S_UNLIMITED}; /* dimensions */ /* Testing Macro */ @@ -2210,81 +2527,106 @@ check_dataset_open_tags(void) /* ========= */ /* Create Fapl */ - if ( (fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0 ) TEST_ERROR; + if ((fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0) + TEST_ERROR; /* Create file */ - if ( (fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0 ) TEST_ERROR; + if ((fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) + TEST_ERROR; - if ( H5Pclose(fapl) < 0 ) TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; /* determine tag value of root group's object header */ - if ( get_object_header_tag(fid, &root_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(fid, &root_tag) < 0) + TEST_ERROR; /* Set up creation property list */ dcpl = H5Pcreate(H5P_DATASET_CREATE); /* Enable chunking */ - if ( H5Pset_chunk(dcpl, RANK, cdims) < 0 ) TEST_ERROR; + if (H5Pset_chunk(dcpl, RANK, cdims) < 0) + TEST_ERROR; /* Set up a fill value */ - if ( H5Pset_fill_value(dcpl, H5T_NATIVE_INT, &fillval) < 0 ) TEST_ERROR; + if (H5Pset_fill_value(dcpl, H5T_NATIVE_INT, &fillval) < 0) + TEST_ERROR; /* Set up dataset dataspace */ - if ( (sid = H5Screate_simple(2, dims1, maxdims)) < 0 ) TEST_ERROR; + if ((sid = H5Screate_simple(2, dims1, maxdims)) < 0) + TEST_ERROR; /* Create Dataset */ - if (( did = H5Dcreate2(fid, DATASETNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0 ) TEST_ERROR; - if ( H5Pclose(dcpl) < 0 ) TEST_ERROR; + if ((did = H5Dcreate2(fid, DATASETNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0) + TEST_ERROR; + if (H5Pclose(dcpl) < 0) + TEST_ERROR; /* Retrieve tag associated with this dataset */ - if ( get_object_header_tag(did, &d_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(did, &d_tag) < 0) + TEST_ERROR; /* Close Dataset */ - if (H5Dclose(did) < 0 ) TEST_ERROR; + if (H5Dclose(did) < 0) + TEST_ERROR; /* Close and Reopen the file */ - if ( H5Fclose(fid) < 0 ) TEST_ERROR; - if ( (fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; + if ((fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Evict as much as we can from the cache so we can track full tag path */ - if ( evict_entries(fid) < 0 ) TEST_ERROR; + if (evict_entries(fid) < 0) + TEST_ERROR; /* ========================== */ /* Open Dataset in Root Group */ /* ========================== */ - if (( did = H5Dopen2(fid, DATASETNAME, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((did = H5Dopen2(fid, DATASETNAME, H5P_DEFAULT)) < 0) + TEST_ERROR; - /* =================================== */ - /* Verification of Metadata Tag Values */ - /* =================================== */ + /* =================================== */ + /* Verification of Metadata Tag Values */ + /* =================================== */ #ifndef NDEBUG /* if verbose, print cache index to screen for visual verification */ - if ( verbose ) dump_cache(fid); + if (verbose) + dump_cache(fid); #endif /* NDEBUG */ /* end debugging functions */ /* Verify root group metadata */ - if ( verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_SNODE_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_LHEAP_PRFX_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_BT_ID, root_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_SNODE_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_LHEAP_PRFX_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_BT_ID, root_tag) < 0) + TEST_ERROR; /* Verify dataset's object header */ - if ( verify_tag(fid, H5AC_OHDR_ID, d_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, d_tag) < 0) + TEST_ERROR; /* verify no other entries present */ - if ( verify_no_unknown_tags(fid) < 0 ) TEST_ERROR; + if (verify_no_unknown_tags(fid) < 0) + TEST_ERROR; /* Reset the changes we've made to the cache's data structures */ - if(reset_all_entries_investigated(fid) < 0) TEST_ERROR; + if (reset_all_entries_investigated(fid) < 0) + TEST_ERROR; /* =========================== */ /* Close open objects and file */ /* =========================== */ - if ( H5Dclose(did) < 0 ) TEST_ERROR; - if ( H5Fclose(fid) < 0 ) TEST_ERROR; + if (H5Dclose(did) < 0) + TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; /* ========================================== */ /* Finished Test. Print status and return. */ @@ -2297,7 +2639,6 @@ error: return 1; } /* check_dataset_open_tags */ - /*------------------------------------------------------------------------- * Function: check_dataset_write_tags * @@ -2315,22 +2656,22 @@ static unsigned check_dataset_write_tags(void) { /* Variable Declarations */ - hid_t fid = -1; /* File Identifier */ - hid_t did = -1; /* Dataset Identifier */ - hid_t sid = -1; /* Dataspace Identifier */ + hid_t fid = -1; /* File Identifier */ + hid_t did = -1; /* Dataset Identifier */ + hid_t sid = -1; /* Dataspace Identifier */ #ifndef NDEBUG - int verbose = FALSE; /* verbose file outout */ -#endif /* NDEBUG */ /* end debugging functions */ - hid_t dcpl = -1; /* dataset creation pl */ - hsize_t cdims[2] = {1,1}; /* chunk dimensions */ - int fillval = 0; - hid_t fapl = -1; /* File access prop list */ - haddr_t root_tag = 0; - haddr_t d_tag = 0; - hsize_t dims1[2] = {DIMS, DIMS}; /* dimensions */ + int verbose = FALSE; /* verbose file outout */ +#endif /* NDEBUG */ /* end debugging functions */ + hid_t dcpl = -1; /* dataset creation pl */ + hsize_t cdims[2] = {1, 1}; /* chunk dimensions */ + int fillval = 0; + hid_t fapl = -1; /* File access prop list */ + haddr_t root_tag = 0; + haddr_t d_tag = 0; + hsize_t dims1[2] = {DIMS, DIMS}; /* dimensions */ hsize_t maxdims[2] = {H5S_UNLIMITED, H5S_UNLIMITED}; /* dimensions */ - int i,j,k = 0; /* iterators */ - int *data = NULL; /* data buffer */ + int i, j, k = 0; /* iterators */ + int * data = NULL; /* data buffer */ /* Testing Macro */ TESTING("tag application during dataset write"); @@ -2340,90 +2681,114 @@ check_dataset_write_tags(void) /* ===== */ /* Allocate array */ - if ( (NULL == (data = (int *)HDcalloc(DIMS * DIMS, sizeof(int)))) ) TEST_ERROR; + if ((NULL == (data = (int *)HDcalloc(DIMS * DIMS, sizeof(int))))) + TEST_ERROR; /* Create Fapl */ - if ( (fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0 ) TEST_ERROR; + if ((fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0) + TEST_ERROR; /* Create file */ - if ( (fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0 ) TEST_ERROR; + if ((fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) + TEST_ERROR; - if ( H5Pclose(fapl) < 0 ) TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; /* determine tag value of root group's object header */ - if ( get_object_header_tag(fid, &root_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(fid, &root_tag) < 0) + TEST_ERROR; /* Set up creation property list */ dcpl = H5Pcreate(H5P_DATASET_CREATE); /* Enable chunking */ - if ( H5Pset_chunk(dcpl, RANK, cdims) < 0 ) TEST_ERROR; + if (H5Pset_chunk(dcpl, RANK, cdims) < 0) + TEST_ERROR; /* Set up a fill value */ - if ( H5Pset_fill_value(dcpl, H5T_NATIVE_INT, &fillval) < 0 ) TEST_ERROR; + if (H5Pset_fill_value(dcpl, H5T_NATIVE_INT, &fillval) < 0) + TEST_ERROR; /* Set up dataset dataspace */ - if ( (sid = H5Screate_simple(2, dims1, maxdims)) < 0 ) TEST_ERROR; + if ((sid = H5Screate_simple(2, dims1, maxdims)) < 0) + TEST_ERROR; /* Create Dataset */ - if (( did = H5Dcreate2(fid, DATASETNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0 ) TEST_ERROR; - if ( H5Pclose(dcpl) < 0 ) TEST_ERROR; + if ((did = H5Dcreate2(fid, DATASETNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0) + TEST_ERROR; + if (H5Pclose(dcpl) < 0) + TEST_ERROR; /* Retrieve tag associated with this dataset */ - if ( get_object_header_tag(did, &d_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(did, &d_tag) < 0) + TEST_ERROR; /* Close and Reopen the file and dataset */ - if ( H5Dclose(did) < 0 ) TEST_ERROR; - if ( H5Fclose(fid) < 0 ) TEST_ERROR; - if ( (fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0 ) TEST_ERROR; - if (( did = H5Dopen2(fid, DATASETNAME, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if (H5Dclose(did) < 0) + TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; + if ((fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) + TEST_ERROR; + if ((did = H5Dopen2(fid, DATASETNAME, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Evict as much as we can from the cache so we can track full tag path */ - if ( evict_entries(fid) < 0 ) TEST_ERROR; + if (evict_entries(fid) < 0) + TEST_ERROR; /* ============================== */ /* Write to Dataset in Root Group */ /* ============================== */ /* fill out data buffer */ - for(i = 0;i < DIMS; i++) { - for(j = 0;j < DIMS; j++) { + for (i = 0; i < DIMS; i++) { + for (j = 0; j < DIMS; j++) { - data[(DIMS *i) + j] = k++; + data[(DIMS * i) + j] = k++; } /* end for */ - } /* end for */ + } /* end for */ /* Write to dataset */ - if( (H5Dwrite(did, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, data)) < 0 ) TEST_ERROR; + if ((H5Dwrite(did, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, data)) < 0) + TEST_ERROR; - /* =================================== */ - /* Verification of Metadata Tag Values */ - /* =================================== */ + /* =================================== */ + /* Verification of Metadata Tag Values */ + /* =================================== */ #ifndef NDEBUG /* if verbose, print cache index to screen for visual verification */ - if ( verbose ) dump_cache(fid); + if (verbose) + dump_cache(fid); #endif /* NDEBUG */ /* end debugging functions */ /* Verify 10 b-tree nodes belonging to dataset */ - for (i=0; i<10; i++) - if ( verify_tag(fid, H5AC_BT_ID, d_tag) < 0 ) TEST_ERROR; + for (i = 0; i < 10; i++) + if (verify_tag(fid, H5AC_BT_ID, d_tag) < 0) + TEST_ERROR; /* Verify object header for dataset */ - if ( verify_tag(fid, H5AC_OHDR_ID, d_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, d_tag) < 0) + TEST_ERROR; /* verify no other entries present */ - if ( verify_no_unknown_tags(fid) < 0 ) TEST_ERROR; + if (verify_no_unknown_tags(fid) < 0) + TEST_ERROR; /* Reset the changes we've made to the cache's data structures */ - if(reset_all_entries_investigated(fid) < 0) TEST_ERROR; + if (reset_all_entries_investigated(fid) < 0) + TEST_ERROR; /* =========================== */ /* Close open objects and file */ /* =========================== */ - if ( H5Dclose(did) < 0 ) TEST_ERROR; - if ( H5Fclose(fid) < 0 ) TEST_ERROR; + if (H5Dclose(did) < 0) + TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; /* ========================================== */ /* Finished Test. Print status and return. */ @@ -2435,12 +2800,11 @@ check_dataset_write_tags(void) return 0; error: - if(data) + if (data) HDfree(data); return 1; } /* check_dataset_write_tags */ - /*------------------------------------------------------------------------- * Function: check_attribute_write_tags * @@ -2458,19 +2822,19 @@ static unsigned check_attribute_write_tags(hid_t fcpl, int type) { /* Variable Declarations */ - hid_t fid = -1; /* File Identifier */ - hid_t gid = -1; /* Group Identifier */ - hid_t aid = -1; /* Attribute Identifier */ - hid_t sid = -1; /* Dataset Identifier */ + hid_t fid = -1; /* File Identifier */ + hid_t gid = -1; /* Group Identifier */ + hid_t aid = -1; /* Attribute Identifier */ + hid_t sid = -1; /* Dataset Identifier */ #ifndef NDEBUG - int verbose = FALSE; /* verbose file outout */ -#endif /* NDEBUG */ /* end debugging functions */ - int *data = NULL; /* data buffer */ - int i,j,k = 0; /* iterators */ - hid_t fapl = -1; /* File access prop list */ - haddr_t root_tag = 0; - haddr_t g_tag = 0; - hsize_t dims1[2] = {DIMS, DIMS}; /* dimensions */ + int verbose = FALSE; /* verbose file outout */ +#endif /* NDEBUG */ /* end debugging functions */ + int * data = NULL; /* data buffer */ + int i, j, k = 0; /* iterators */ + hid_t fapl = -1; /* File access prop list */ + haddr_t root_tag = 0; + haddr_t g_tag = 0; + hsize_t dims1[2] = {DIMS, DIMS}; /* dimensions */ hsize_t maxdims[2] = {H5S_UNLIMITED, H5S_UNLIMITED}; /* dimensions */ /* Testing Macro */ @@ -2481,105 +2845,137 @@ check_attribute_write_tags(hid_t fcpl, int type) /* ===== */ /* Allocate array */ - if ( (NULL == (data = (int *)HDcalloc(DIMS * DIMS, sizeof(int)))) ) TEST_ERROR; + if ((NULL == (data = (int *)HDcalloc(DIMS * DIMS, sizeof(int))))) + TEST_ERROR; /* Create Fapl */ - if ( (fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0 ) TEST_ERROR; + if ((fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0) + TEST_ERROR; /* Create a test file with provided fcpl_t */ - if ( (fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, fcpl, fapl)) < 0 ) TEST_ERROR; + if ((fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, fcpl, fapl)) < 0) + TEST_ERROR; - if ( H5Pclose(fapl) < 0 ) TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; /* determine tag value of root group's object header */ - if ( get_object_header_tag(fid, &root_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(fid, &root_tag) < 0) + TEST_ERROR; /* Create group */ - if ( (gid = H5Gcreate2(fid, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((gid = H5Gcreate2(fid, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Retrieve group tag */ - if ( get_object_header_tag(gid, &g_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(gid, &g_tag) < 0) + TEST_ERROR; /* Create attribute dataspace */ - if ( (sid = H5Screate_simple(2, dims1, maxdims)) < 0 ) TEST_ERROR; + if ((sid = H5Screate_simple(2, dims1, maxdims)) < 0) + TEST_ERROR; /* Create attribute on group */ - if ( (aid = H5Acreate2(gid, ATTRNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((aid = H5Acreate2(gid, ATTRNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Close and Reopen the file, group, and attribute */ - if ( H5Aclose(aid) < 0 ) TEST_ERROR; - if ( H5Gclose(gid) < 0 ) TEST_ERROR; - if ( H5Fclose(fid) < 0 ) TEST_ERROR; - if ( (fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0 ) TEST_ERROR; - if ( (gid = H5Gopen2(fid, GROUPNAME, H5P_DEFAULT)) < 0 ) TEST_ERROR; - if ( (aid = H5Aopen(gid, ATTRNAME, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if (H5Aclose(aid) < 0) + TEST_ERROR; + if (H5Gclose(gid) < 0) + TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; + if ((fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) + TEST_ERROR; + if ((gid = H5Gopen2(fid, GROUPNAME, H5P_DEFAULT)) < 0) + TEST_ERROR; + if ((aid = H5Aopen(gid, ATTRNAME, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Evict as much as we can from the cache so we can track full tag path */ - if ( evict_entries(fid) < 0 ) TEST_ERROR; + if (evict_entries(fid) < 0) + TEST_ERROR; /* =========================== */ /* Write to Attribute in Group */ /* =========================== */ /* fill out data buffer */ - for(i = 0; i < DIMS; i++) - for(j = 0;j < DIMS; j++) + for (i = 0; i < DIMS; i++) + for (j = 0; j < DIMS; j++) data[(DIMS * i) + j] = k++; /* Write attribute */ - if ( (H5Awrite(aid, H5T_NATIVE_INT, data)) < 0 ) TEST_ERROR; + if ((H5Awrite(aid, H5T_NATIVE_INT, data)) < 0) + TEST_ERROR; - /* =================================== */ - /* Verification of Metadata Tag Values */ - /* =================================== */ + /* =================================== */ + /* Verification of Metadata Tag Values */ + /* =================================== */ #ifndef NDEBUG /* if verbose, print cache index to screen for visual verification */ - if ( verbose ) dump_cache(fid); + if (verbose) + dump_cache(fid); #endif /* NDEBUG */ /* end debugging functions */ /* Verify object header of group */ - if ( verify_tag(fid, H5AC_OHDR_ID, g_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, g_tag) < 0) + TEST_ERROR; /* verify object header chunk belonging to group */ - if ( verify_tag(fid, H5AC_OHDR_CHK_ID, g_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_CHK_ID, g_tag) < 0) + TEST_ERROR; - if ( type == TEST_SHMESG ) { + if (type == TEST_SHMESG) { /* verify (another) object header chunk belonging to group */ - if ( verify_tag(fid, H5AC_OHDR_CHK_ID, g_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_CHK_ID, g_tag) < 0) + TEST_ERROR; /* verify shared header message master table and list */ - if ( verify_tag(fid, H5AC_SOHM_TABLE_ID, H5AC__SOHM_TAG) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_SOHM_TABLE_ID, H5AC__SOHM_TAG) < 0) + TEST_ERROR; /* verify fractal heap header belonging to group */ - if ( verify_tag(fid, H5AC_FHEAP_HDR_ID, g_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_FHEAP_HDR_ID, g_tag) < 0) + TEST_ERROR; /* verify fractal heap direct block belonging to group */ - if ( verify_tag(fid, H5AC_FHEAP_DBLOCK_ID, g_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_FHEAP_DBLOCK_ID, g_tag) < 0) + TEST_ERROR; /* Verify SOHM list */ - if ( verify_tag(fid, H5AC_SOHM_LIST_ID, H5AC__SOHM_TAG) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_SOHM_LIST_ID, H5AC__SOHM_TAG) < 0) + TEST_ERROR; /* verify btree header and leaf node belonging to group */ - if ( verify_tag(fid, H5AC_BT2_HDR_ID, g_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_BT2_LEAF_ID, g_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_BT2_HDR_ID, g_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_BT2_LEAF_ID, g_tag) < 0) + TEST_ERROR; } /* end if */ /* verify no other entries present */ - if ( verify_no_unknown_tags(fid) < 0 ) TEST_ERROR; + if (verify_no_unknown_tags(fid) < 0) + TEST_ERROR; /* Reset the changes we've made to the cache's data structures */ - if(reset_all_entries_investigated(fid) < 0) TEST_ERROR; + if (reset_all_entries_investigated(fid) < 0) + TEST_ERROR; /* =========================== */ /* Close open objects and file */ /* =========================== */ - if ( H5Aclose(aid) < 0 ) TEST_ERROR; - if ( H5Gclose(gid) < 0 ) TEST_ERROR; - if ( H5Fclose(fid) < 0 ) TEST_ERROR; + if (H5Aclose(aid) < 0) + TEST_ERROR; + if (H5Gclose(gid) < 0) + TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; /* ========================================== */ /* Finished Test. Print status and return. */ @@ -2591,12 +2987,11 @@ check_attribute_write_tags(hid_t fcpl, int type) return 0; error: - if(data) + if (data) HDfree(data); return 1; } /* check_attribute_write_tags */ - /*------------------------------------------------------------------------- * Function: check_dataset_read_tags * @@ -2614,22 +3009,22 @@ static unsigned check_dataset_read_tags(void) { /* Variable Declarations */ - hid_t fid = -1; /* File Identifier */ - hid_t did = -1; /* Dataset Identifier */ - hid_t sid = -1; /* Dataspace Identifier */ + hid_t fid = -1; /* File Identifier */ + hid_t did = -1; /* Dataset Identifier */ + hid_t sid = -1; /* Dataspace Identifier */ #ifndef NDEBUG - int verbose = FALSE; /* verbose file outout */ -#endif /* NDEBUG */ /* end debugging functions */ - hid_t dcpl = -1; /* dataset creation pl */ - hsize_t cdims[2] = {1,1}; /* chunk dimensions */ - int fillval = 0; - hid_t fapl = -1; /* File access prop list */ - haddr_t root_tag = 0; - haddr_t d_tag = 0; - hsize_t dims1[2] = {DIMS, DIMS}; /* dimensions */ + int verbose = FALSE; /* verbose file outout */ +#endif /* NDEBUG */ /* end debugging functions */ + hid_t dcpl = -1; /* dataset creation pl */ + hsize_t cdims[2] = {1, 1}; /* chunk dimensions */ + int fillval = 0; + hid_t fapl = -1; /* File access prop list */ + haddr_t root_tag = 0; + haddr_t d_tag = 0; + hsize_t dims1[2] = {DIMS, DIMS}; /* dimensions */ hsize_t maxdims[2] = {H5S_UNLIMITED, H5S_UNLIMITED}; /* dimensions */ - int i,j,k = 0; /* iterators */ - int *data = NULL; /* data buffer */ + int i, j, k = 0; /* iterators */ + int * data = NULL; /* data buffer */ /* Testing Macro */ TESTING("tag application during dataset read"); @@ -2639,86 +3034,110 @@ check_dataset_read_tags(void) /* ===== */ /* Allocate array */ - if ( (NULL == (data = (int *)HDcalloc(DIMS * DIMS, sizeof(int)))) ) TEST_ERROR; + if ((NULL == (data = (int *)HDcalloc(DIMS * DIMS, sizeof(int))))) + TEST_ERROR; /* Create Fapl */ - if ( (fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0 ) TEST_ERROR; + if ((fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0) + TEST_ERROR; /* Create file */ - if ( (fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0 ) TEST_ERROR; + if ((fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) + TEST_ERROR; - if ( H5Pclose(fapl) < 0 ) TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; /* determine tag value of root group's object header */ - if ( get_object_header_tag(fid, &root_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(fid, &root_tag) < 0) + TEST_ERROR; /* Set up creation property list */ dcpl = H5Pcreate(H5P_DATASET_CREATE); /* Enable chunking */ - if ( H5Pset_chunk(dcpl, RANK, cdims) < 0 ) TEST_ERROR; + if (H5Pset_chunk(dcpl, RANK, cdims) < 0) + TEST_ERROR; /* Set up a fill value */ - if ( H5Pset_fill_value(dcpl, H5T_NATIVE_INT, &fillval) < 0 ) TEST_ERROR; + if (H5Pset_fill_value(dcpl, H5T_NATIVE_INT, &fillval) < 0) + TEST_ERROR; /* Set up dataset dataspace */ - if ( (sid = H5Screate_simple(2, dims1, maxdims)) < 0 ) TEST_ERROR; + if ((sid = H5Screate_simple(2, dims1, maxdims)) < 0) + TEST_ERROR; /* Create Dataset */ - if (( did = H5Dcreate2(fid, DATASETNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0 ) TEST_ERROR; - if ( H5Pclose(dcpl) < 0 ) TEST_ERROR; + if ((did = H5Dcreate2(fid, DATASETNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0) + TEST_ERROR; + if (H5Pclose(dcpl) < 0) + TEST_ERROR; /* Retrieve tag associated with this dataset */ - if ( get_object_header_tag(did, &d_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(did, &d_tag) < 0) + TEST_ERROR; /* fill out data buffer */ - for(i = 0; i < DIMS; i++) - for(j = 0; j < DIMS; j++) + for (i = 0; i < DIMS; i++) + for (j = 0; j < DIMS; j++) data[(DIMS * i) + j] = k++; /* Write to dataset */ - if( (H5Dwrite(did, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, data)) < 0 ) TEST_ERROR; + if ((H5Dwrite(did, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, data)) < 0) + TEST_ERROR; /* Close and Reopen the file and dataset */ - if ( H5Dclose(did) < 0 ) TEST_ERROR; - if ( H5Fclose(fid) < 0 ) TEST_ERROR; - if ( (fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0 ) TEST_ERROR; - if (( did = H5Dopen2(fid, DATASETNAME, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if (H5Dclose(did) < 0) + TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; + if ((fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) + TEST_ERROR; + if ((did = H5Dopen2(fid, DATASETNAME, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Evict as much as we can from the cache so we can track full tag path */ - if ( evict_entries(fid) < 0 ) TEST_ERROR; + if (evict_entries(fid) < 0) + TEST_ERROR; /* ===================================== */ /* TEST: Read from Dataset in Root Group */ /* ===================================== */ - if( (H5Dread(did, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, data)) < 0 ) TEST_ERROR; + if ((H5Dread(did, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, data)) < 0) + TEST_ERROR; - /* =================================== */ - /* Verification of Metadata Tag Values */ - /* =================================== */ + /* =================================== */ + /* Verification of Metadata Tag Values */ + /* =================================== */ #ifndef NDEBUG /* if verbose, print cache index to screen for visual verification */ - if ( verbose ) dump_cache(fid); + if (verbose) + dump_cache(fid); #endif /* NDEBUG */ /* end debugging functions */ /* Verify 19 b-tree nodes belonging to dataset */ - for (i=0; i<19; i++) - if ( verify_tag(fid, H5AC_BT_ID, d_tag) < 0 ) TEST_ERROR; + for (i = 0; i < 19; i++) + if (verify_tag(fid, H5AC_BT_ID, d_tag) < 0) + TEST_ERROR; /* verify no other entries present */ - if ( verify_no_unknown_tags(fid) < 0 ) TEST_ERROR; + if (verify_no_unknown_tags(fid) < 0) + TEST_ERROR; /* Reset the changes we've made to the cache's data structures */ - if(reset_all_entries_investigated(fid) < 0) TEST_ERROR; + if (reset_all_entries_investigated(fid) < 0) + TEST_ERROR; /* =========================== */ /* Close open objects and file */ /* =========================== */ - if ( H5Dclose(did) < 0 ) TEST_ERROR; - if ( H5Fclose(fid) < 0 ) TEST_ERROR; + if (H5Dclose(did) < 0) + TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; /* ========================================== */ /* Finished Test. Print status and return. */ @@ -2730,12 +3149,11 @@ check_dataset_read_tags(void) return 0; error: - if(data) + if (data) HDfree(data); return 1; } /* check_dataset_read_tags */ - /*------------------------------------------------------------------------- * Function: check_dataset_size_retrieval * @@ -2753,22 +3171,22 @@ static unsigned check_dataset_size_retrieval(void) { /* Variable Declarations */ - hid_t fid = -1; /* File Identifier */ - hid_t did = -1; /* Dataset Identifier */ - hid_t sid = -1; /* Dataspace Identifier */ + hid_t fid = -1; /* File Identifier */ + hid_t did = -1; /* Dataset Identifier */ + hid_t sid = -1; /* Dataspace Identifier */ #ifndef NDEBUG - int verbose = FALSE; /* verbose file outout */ -#endif /* NDEBUG */ /* end debugging functions */ - hid_t dcpl = -1; /* dataset creation pl */ - hsize_t cdims[2] = {1,1}; /* chunk dimensions */ - int fillval = 0; - hid_t fapl = -1; /* File access prop list */ - haddr_t root_tag = 0; - haddr_t d_tag = 0; - hsize_t dims1[2] = {DIMS, DIMS}; /* dimensions */ + int verbose = FALSE; /* verbose file outout */ +#endif /* NDEBUG */ /* end debugging functions */ + hid_t dcpl = -1; /* dataset creation pl */ + hsize_t cdims[2] = {1, 1}; /* chunk dimensions */ + int fillval = 0; + hid_t fapl = -1; /* File access prop list */ + haddr_t root_tag = 0; + haddr_t d_tag = 0; + hsize_t dims1[2] = {DIMS, DIMS}; /* dimensions */ hsize_t maxdims[2] = {H5S_UNLIMITED, H5S_UNLIMITED}; /* dimensions */ - int i,j,k = 0; /* iterators */ - int *data = NULL; /* data buffer */ + int i, j, k = 0; /* iterators */ + int * data = NULL; /* data buffer */ hsize_t dsize = 0; /* Testing Macro */ @@ -2779,86 +3197,110 @@ check_dataset_size_retrieval(void) /* ===== */ /* Allocate array */ - if ( (NULL == (data = (int *)HDcalloc(DIMS * DIMS, sizeof(int)))) ) TEST_ERROR; + if ((NULL == (data = (int *)HDcalloc(DIMS * DIMS, sizeof(int))))) + TEST_ERROR; /* Create Fapl */ - if ( (fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0 ) TEST_ERROR; + if ((fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0) + TEST_ERROR; /* Create file */ - if ( (fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0 ) TEST_ERROR; + if ((fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) + TEST_ERROR; - if ( H5Pclose(fapl) < 0 ) TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; /* determine tag value of root group's object header */ - if ( get_object_header_tag(fid, &root_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(fid, &root_tag) < 0) + TEST_ERROR; /* Set up creation property list */ dcpl = H5Pcreate(H5P_DATASET_CREATE); /* Enable chunking */ - if ( H5Pset_chunk(dcpl, RANK, cdims) < 0 ) TEST_ERROR; + if (H5Pset_chunk(dcpl, RANK, cdims) < 0) + TEST_ERROR; /* Set up a fill value */ - if ( H5Pset_fill_value(dcpl, H5T_NATIVE_INT, &fillval) < 0 ) TEST_ERROR; + if (H5Pset_fill_value(dcpl, H5T_NATIVE_INT, &fillval) < 0) + TEST_ERROR; /* Set up dataset dataspace */ - if ( (sid = H5Screate_simple(2, dims1, maxdims)) < 0 ) TEST_ERROR; + if ((sid = H5Screate_simple(2, dims1, maxdims)) < 0) + TEST_ERROR; /* Create Dataset */ - if (( did = H5Dcreate2(fid, DATASETNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0 ) TEST_ERROR; - if ( H5Pclose(dcpl) < 0 ) TEST_ERROR; + if ((did = H5Dcreate2(fid, DATASETNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0) + TEST_ERROR; + if (H5Pclose(dcpl) < 0) + TEST_ERROR; /* Retrieve tag associated with this dataset */ - if ( get_object_header_tag(did, &d_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(did, &d_tag) < 0) + TEST_ERROR; /* fill out data buffer */ - for(i = 0; i < DIMS; i++) - for(j = 0; j < DIMS; j++) + for (i = 0; i < DIMS; i++) + for (j = 0; j < DIMS; j++) data[(DIMS * i) + j] = k++; /* Write to dataset */ - if( (H5Dwrite(did, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, data)) < 0 ) TEST_ERROR; + if ((H5Dwrite(did, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, data)) < 0) + TEST_ERROR; /* Close and Reopen the file and dataset */ - if ( H5Dclose(did) < 0 ) TEST_ERROR; - if ( H5Fclose(fid) < 0 ) TEST_ERROR; - if ( (fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0 ) TEST_ERROR; - if (( did = H5Dopen2(fid, DATASETNAME, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if (H5Dclose(did) < 0) + TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; + if ((fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) + TEST_ERROR; + if ((did = H5Dopen2(fid, DATASETNAME, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Evict as much as we can from the cache so we can track full tag path */ - if ( evict_entries(fid) < 0 ) TEST_ERROR; + if (evict_entries(fid) < 0) + TEST_ERROR; /* ========================================= */ /* Get storage size of dataset in Root Group */ /* ========================================= */ - if ( (dsize = H5Dget_storage_size(did)) == 0 ) TEST_ERROR; + if ((dsize = H5Dget_storage_size(did)) == 0) + TEST_ERROR; - /* =================================== */ - /* Verification of Metadata Tag Values */ - /* =================================== */ + /* =================================== */ + /* Verification of Metadata Tag Values */ + /* =================================== */ #ifndef NDEBUG /* if verbose, print cache index to screen for visual verification */ - if ( verbose ) dump_cache(fid); + if (verbose) + dump_cache(fid); #endif /* NDEBUG */ /* end debugging functions */ /* Verify 19 b-tree nodes belonging to dataset */ - for (i=0; i<19; i++) - if ( verify_tag(fid, H5AC_BT_ID, d_tag) < 0 ) TEST_ERROR; + for (i = 0; i < 19; i++) + if (verify_tag(fid, H5AC_BT_ID, d_tag) < 0) + TEST_ERROR; /* verify no other entries present */ - if ( verify_no_unknown_tags(fid) < 0 ) TEST_ERROR; + if (verify_no_unknown_tags(fid) < 0) + TEST_ERROR; /* Reset the changes we've made to the cache's data structures */ - if(reset_all_entries_investigated(fid) < 0) TEST_ERROR; + if (reset_all_entries_investigated(fid) < 0) + TEST_ERROR; /* =========================== */ /* Close open objects and file */ /* =========================== */ - if ( H5Dclose(did) < 0 ) TEST_ERROR; - if ( H5Fclose(fid) < 0 ) TEST_ERROR; + if (H5Dclose(did) < 0) + TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; /* ========================================== */ /* Finished Test. Print status and return. */ @@ -2870,12 +3312,11 @@ check_dataset_size_retrieval(void) return 0; error: - if(data) + if (data) HDfree(data); return 1; } /* check_dataset_size_retrieval */ - /*------------------------------------------------------------------------- * Function: check_dataset_extend_tags * @@ -2894,23 +3335,23 @@ check_dataset_extend_tags(void) { /* Variable Declarations */ - hid_t fid = -1; /* File Identifier */ - hid_t did = -1; /* Dataset Identifier */ - hid_t sid = -1; /* Dataspace Identifier */ + hid_t fid = -1; /* File Identifier */ + hid_t did = -1; /* Dataset Identifier */ + hid_t sid = -1; /* Dataspace Identifier */ #ifndef NDEBUG - int verbose = FALSE; /* verbose file outout */ -#endif /* NDEBUG */ /* end debugging functions */ - hid_t dcpl = -1; /* dataset creation pl */ - hsize_t cdims[2] = {1,1}; /* chunk dimensions */ - int fillval = 0; - hid_t fapl = -1; /* File access prop list */ - haddr_t root_tag = 0; - haddr_t d_tag = 0; - hsize_t dims1[2] = {DIMS, DIMS}; /* dimensions */ + int verbose = FALSE; /* verbose file outout */ +#endif /* NDEBUG */ /* end debugging functions */ + hid_t dcpl = -1; /* dataset creation pl */ + hsize_t cdims[2] = {1, 1}; /* chunk dimensions */ + int fillval = 0; + hid_t fapl = -1; /* File access prop list */ + haddr_t root_tag = 0; + haddr_t d_tag = 0; + hsize_t dims1[2] = {DIMS, DIMS}; /* dimensions */ hsize_t maxdims[2] = {H5S_UNLIMITED, H5S_UNLIMITED}; /* dimensions */ - int i,j,k = 0; /* iterators */ - int *data = NULL; /* data buffer */ - hsize_t newdims[2] = {DIMS*2, DIMS}; /* dimensions */ + int i, j, k = 0; /* iterators */ + int * data = NULL; /* data buffer */ + hsize_t newdims[2] = {DIMS * 2, DIMS}; /* dimensions */ /* Testing Macro */ TESTING("tag application during dataset extend"); @@ -2920,86 +3361,110 @@ check_dataset_extend_tags(void) /* ===== */ /* Allocate array */ - if ( (NULL == (data = (int *)HDcalloc(DIMS * DIMS, sizeof(int)))) ) TEST_ERROR; + if ((NULL == (data = (int *)HDcalloc(DIMS * DIMS, sizeof(int))))) + TEST_ERROR; /* Create Fapl */ - if ( (fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0 ) TEST_ERROR; + if ((fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0) + TEST_ERROR; /* Create file */ - if ( (fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0 ) TEST_ERROR; + if ((fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) + TEST_ERROR; - if ( H5Pclose(fapl) < 0 ) TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; /* determine tag value of root group's object header */ - if ( get_object_header_tag(fid, &root_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(fid, &root_tag) < 0) + TEST_ERROR; /* Set up creation property list */ dcpl = H5Pcreate(H5P_DATASET_CREATE); /* Enable chunking */ - if ( H5Pset_chunk(dcpl, RANK, cdims) < 0 ) TEST_ERROR; + if (H5Pset_chunk(dcpl, RANK, cdims) < 0) + TEST_ERROR; /* Set up a fill value */ - if ( H5Pset_fill_value(dcpl, H5T_NATIVE_INT, &fillval) < 0 ) TEST_ERROR; + if (H5Pset_fill_value(dcpl, H5T_NATIVE_INT, &fillval) < 0) + TEST_ERROR; /* Set up dataset dataspace */ - if ( (sid = H5Screate_simple(2, dims1, maxdims)) < 0 ) TEST_ERROR; + if ((sid = H5Screate_simple(2, dims1, maxdims)) < 0) + TEST_ERROR; /* Create Dataset */ - if (( did = H5Dcreate2(fid, DATASETNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0 ) TEST_ERROR; - if ( H5Pclose(dcpl) < 0 ) TEST_ERROR; + if ((did = H5Dcreate2(fid, DATASETNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0) + TEST_ERROR; + if (H5Pclose(dcpl) < 0) + TEST_ERROR; /* Retrieve tag associated with this dataset */ - if ( get_object_header_tag(did, &d_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(did, &d_tag) < 0) + TEST_ERROR; /* fill out data buffer */ - for(i = 0; i < DIMS; i++) - for(j = 0; j < DIMS; j++) + for (i = 0; i < DIMS; i++) + for (j = 0; j < DIMS; j++) data[(DIMS * i) + j] = k++; /* Write to dataset */ - if( (H5Dwrite(did, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, data)) < 0 ) TEST_ERROR; + if ((H5Dwrite(did, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, data)) < 0) + TEST_ERROR; /* Close and Reopen the file and dataset */ - if ( H5Dclose(did) < 0 ) TEST_ERROR; - if ( H5Fclose(fid) < 0 ) TEST_ERROR; - if ( (fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0 ) TEST_ERROR; - if (( did = H5Dopen2(fid, DATASETNAME, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if (H5Dclose(did) < 0) + TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; + if ((fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) + TEST_ERROR; + if ((did = H5Dopen2(fid, DATASETNAME, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Evict as much as we can from the cache so we can track full tag path */ - if ( evict_entries(fid) < 0 ) TEST_ERROR; + if (evict_entries(fid) < 0) + TEST_ERROR; /* ================== */ /* Set Dataset extent */ /* ================== */ - if ( H5Dset_extent(did, newdims) < 0 ) TEST_ERROR; + if (H5Dset_extent(did, newdims) < 0) + TEST_ERROR; - if ( H5Dclose(did) < 0 ) TEST_ERROR; + if (H5Dclose(did) < 0) + TEST_ERROR; - /* =================================== */ - /* Verification of Metadata Tag Values */ - /* =================================== */ + /* =================================== */ + /* Verification of Metadata Tag Values */ + /* =================================== */ #ifndef NDEBUG /* if verbose, print cache index to screen for visual verification */ - if ( verbose ) dump_cache(fid); + if (verbose) + dump_cache(fid); #endif /* NDEBUG */ /* end debugging functions */ /* Verify root group metadata */ - if ( verify_tag(fid, H5AC_OHDR_ID, d_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, d_tag) < 0) + TEST_ERROR; /* verify no other entries present */ - if ( verify_no_unknown_tags(fid) < 0 ) TEST_ERROR; + if (verify_no_unknown_tags(fid) < 0) + TEST_ERROR; /* Reset the changes we've made to the cache's data structures */ - if(reset_all_entries_investigated(fid) < 0) TEST_ERROR; + if (reset_all_entries_investigated(fid) < 0) + TEST_ERROR; /* =========================== */ /* Close open objects and file */ /* =========================== */ - if ( H5Fclose(fid) < 0 ) TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; /* ========================================== */ /* Finished Test. Print status and return. */ @@ -3011,12 +3476,11 @@ check_dataset_extend_tags(void) return 0; error: - if(data) + if (data) HDfree(data); return 1; } /* check_dataset_extend_tags */ - /*------------------------------------------------------------------------- * Function: check_object_info_tags * @@ -3034,15 +3498,15 @@ static unsigned check_object_info_tags(void) { /* Variable Declarations */ - hid_t fid = -1; /* File Identifier */ - hid_t gid = -1; /* Group Identifier */ + hid_t fid = -1; /* File Identifier */ + hid_t gid = -1; /* Group Identifier */ #ifndef NDEBUG - int verbose = FALSE; /* verbose file output */ -#endif /* NDEBUG */ /* end debugging functions */ - hid_t fapl = -1; /* File access prop list */ - haddr_t root_tag = HADDR_UNDEF; - haddr_t g_tag; - H5O_native_info_t ninfo; /* Native object info struct */ + int verbose = FALSE; /* verbose file output */ +#endif /* NDEBUG */ /* end debugging functions */ + hid_t fapl = -1; /* File access prop list */ + haddr_t root_tag = HADDR_UNDEF; + haddr_t g_tag; + H5O_native_info_t ninfo; /* Native object info struct */ /* Testing Macro */ TESTING("tag application during object info retrieval"); @@ -3052,31 +3516,41 @@ check_object_info_tags(void) /* ===== */ /* Create Fapl */ - if ( (fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0 ) TEST_ERROR; + if ((fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0) + TEST_ERROR; /* Create a test file */ - if ( (fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0 ) TEST_ERROR; + if ((fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) + TEST_ERROR; - if ( H5Pclose(fapl) < 0 ) TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; /* determine tag value of root group's object header */ - if ( get_object_header_tag(fid, &root_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(fid, &root_tag) < 0) + TEST_ERROR; /* Create group */ - if ( (gid = H5Gcreate2(fid, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((gid = H5Gcreate2(fid, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Retrieve group tag */ - if ( get_object_header_tag(gid, &g_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(gid, &g_tag) < 0) + TEST_ERROR; /* Close Group */ - if (H5Gclose(gid) < 0) TEST_ERROR; + if (H5Gclose(gid) < 0) + TEST_ERROR; /* Close and Reopen the file */ - if ( H5Fclose(fid) < 0 ) TEST_ERROR; - if ( (fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; + if ((fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Evict as much as we can from the cache so we can track full tag path */ - if ( evict_entries(fid) < 0 ) TEST_ERROR; + if (evict_entries(fid) < 0) + TEST_ERROR; /* ===================================== */ /* Get information on an object by name */ @@ -3085,39 +3559,51 @@ check_object_info_tags(void) /* Even though we do nothing with this, touching the internal * data structures is needed for the test to pass. */ - if ( H5Oget_native_info_by_name(fid, GROUPNAME, &ninfo, H5O_NATIVE_INFO_ALL, H5P_DEFAULT) < 0 ) TEST_ERROR; + if (H5Oget_native_info_by_name(fid, GROUPNAME, &ninfo, H5O_NATIVE_INFO_ALL, H5P_DEFAULT) < 0) + TEST_ERROR; - /* =================================== */ - /* Verification of Metadata Tag Values */ - /* =================================== */ + /* =================================== */ + /* Verification of Metadata Tag Values */ + /* =================================== */ #ifndef NDEBUG /* if verbose, print cache index to screen for visual verification */ - if ( verbose ) dump_cache(fid); + if (verbose) + dump_cache(fid); #endif /* NDEBUG */ /* end debugging functions */ /* Verify root group's tagged metadata */ - if ( verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_SNODE_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_LHEAP_PRFX_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_BT_ID, root_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_SNODE_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_LHEAP_PRFX_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_BT_ID, root_tag) < 0) + TEST_ERROR; /* Verify dataset's tagged metadata */ - if ( verify_tag(fid, H5AC_OHDR_ID, g_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_BT_ID, g_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_LHEAP_PRFX_ID, g_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, g_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_BT_ID, g_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_LHEAP_PRFX_ID, g_tag) < 0) + TEST_ERROR; /* verify no other entries present */ - if ( verify_no_unknown_tags(fid) < 0 ) TEST_ERROR; + if (verify_no_unknown_tags(fid) < 0) + TEST_ERROR; /* Reset the changes we've made to the cache's data structures */ - if(reset_all_entries_investigated(fid) < 0) TEST_ERROR; + if (reset_all_entries_investigated(fid) < 0) + TEST_ERROR; /* =========================== */ /* Close open objects and file */ /* =========================== */ - if ( H5Fclose(fid) < 0 ) TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; /* ========================================== */ /* Finished Test. Print status and return. */ @@ -3130,7 +3616,6 @@ error: return 1; } /* check_object_info_tags */ - /*------------------------------------------------------------------------- * Function: check_object_copy_tags * @@ -3148,12 +3633,12 @@ static unsigned check_object_copy_tags(void) { /* Variable Declarations */ - hid_t fid = -1; /* File Identifier */ - hid_t gid = -1; /* Group Identifier */ + hid_t fid = -1; /* File Identifier */ + hid_t gid = -1; /* Group Identifier */ #ifndef NDEBUG - int verbose = FALSE; /* verbose file output */ -#endif /* NDEBUG */ /* end debugging functions */ - hid_t fapl = -1; /* File access prop list */ + int verbose = FALSE; /* verbose file output */ +#endif /* NDEBUG */ /* end debugging functions */ + hid_t fapl = -1; /* File access prop list */ haddr_t root_tag = HADDR_UNDEF; haddr_t g_tag; haddr_t copy_tag; @@ -3166,79 +3651,107 @@ check_object_copy_tags(void) /* ===== */ /* Create Fapl */ - if ( (fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0 ) TEST_ERROR; + if ((fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0) + TEST_ERROR; /* Create a test file */ - if ( (fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0 ) TEST_ERROR; + if ((fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) + TEST_ERROR; - if ( H5Pclose(fapl) < 0 ) TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; /* determine tag value of root group's object header */ - if ( get_object_header_tag(fid, &root_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(fid, &root_tag) < 0) + TEST_ERROR; /* Create group */ - if ( (gid = H5Gcreate2(fid, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((gid = H5Gcreate2(fid, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Retrieve group tag */ - if ( get_object_header_tag(gid, &g_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(gid, &g_tag) < 0) + TEST_ERROR; /* Close Group */ - if (H5Gclose(gid) < 0) TEST_ERROR; + if (H5Gclose(gid) < 0) + TEST_ERROR; /* Close and Reopen the file */ - if ( H5Fclose(fid) < 0 ) TEST_ERROR; - if ( (fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; + if ((fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Evict as much as we can from the cache so we can track full tag path */ - if ( evict_entries(fid) < 0 ) TEST_ERROR; + if (evict_entries(fid) < 0) + TEST_ERROR; /* =========== */ /* Copy Group */ /* =========== */ - if ( H5Ocopy(fid, GROUPNAME, fid, GROUPNAMECOPY, H5P_DEFAULT, H5P_DEFAULT) < 0) TEST_ERROR; + if (H5Ocopy(fid, GROUPNAME, fid, GROUPNAMECOPY, H5P_DEFAULT, H5P_DEFAULT) < 0) + TEST_ERROR; /* Get tag for copied group */ - if ( (gid = H5Gopen2(fid, GROUPNAMECOPY, H5P_DEFAULT)) < 0 ) TEST_ERROR; - if ( get_object_header_tag(gid, ©_tag) < 0 ) TEST_ERROR; - if (H5Gclose(gid) < 0) TEST_ERROR; + if ((gid = H5Gopen2(fid, GROUPNAMECOPY, H5P_DEFAULT)) < 0) + TEST_ERROR; + if (get_object_header_tag(gid, ©_tag) < 0) + TEST_ERROR; + if (H5Gclose(gid) < 0) + TEST_ERROR; - /* =================================== */ - /* Verification of Metadata Tag Values */ - /* =================================== */ + /* =================================== */ + /* Verification of Metadata Tag Values */ + /* =================================== */ #ifndef NDEBUG /* if verbose, print cache index to screen for visual verification */ - if ( verbose ) dump_cache(fid); + if (verbose) + dump_cache(fid); #endif /* NDEBUG */ /* end debugging functions */ /* Verify root group's tagged metadata */ - if ( verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_SNODE_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_LHEAP_PRFX_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_BT_ID, root_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_SNODE_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_LHEAP_PRFX_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_BT_ID, root_tag) < 0) + TEST_ERROR; /* Verify group's tagged metadata */ - if ( verify_tag(fid, H5AC_OHDR_ID, g_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_BT_ID, g_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_LHEAP_PRFX_ID, g_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, g_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_BT_ID, g_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_LHEAP_PRFX_ID, g_tag) < 0) + TEST_ERROR; /* Verify copied group's tagged metadata */ - if ( verify_tag(fid, H5AC_OHDR_ID, copy_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_BT_ID, copy_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_LHEAP_PRFX_ID, copy_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, copy_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_BT_ID, copy_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_LHEAP_PRFX_ID, copy_tag) < 0) + TEST_ERROR; /* verify no other entries present */ - if ( verify_no_unknown_tags(fid) < 0 ) TEST_ERROR; + if (verify_no_unknown_tags(fid) < 0) + TEST_ERROR; /* Reset the changes we've made to the cache's data structures */ - if(reset_all_entries_investigated(fid) < 0) TEST_ERROR; + if (reset_all_entries_investigated(fid) < 0) + TEST_ERROR; /* =========================== */ /* Close open objects and file */ /* =========================== */ - if ( H5Fclose(fid) < 0 ) TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; /* ========================================== */ /* Finished Test. Print status and return. */ @@ -3251,7 +3764,6 @@ error: return 1; } /* check_object_copy_tags */ - /*------------------------------------------------------------------------- * Function: check_link_removal_tags * @@ -3269,24 +3781,24 @@ static unsigned check_link_removal_tags(hid_t fcpl, int type) { /* Variable Declarations */ - hid_t fid = -1; /* File Identifier */ - hid_t did = -1; /* Dataset Identifier */ - hid_t sid = -1; /* Dataspace Identifier */ - hid_t gid = -1; /* Dataspace Identifier */ + hid_t fid = -1; /* File Identifier */ + hid_t did = -1; /* Dataset Identifier */ + hid_t sid = -1; /* Dataspace Identifier */ + hid_t gid = -1; /* Dataspace Identifier */ #ifndef NDEBUG - int verbose = FALSE; /* verbose file outout */ -#endif /* NDEBUG */ /* end debugging functions */ - hid_t dcpl = -1; /* dataset creation pl */ - hsize_t cdims[2] = {1,1}; /* chunk dimensions */ - int fillval = 0; - hid_t fapl = -1; /* File access prop list */ - haddr_t root_tag = 0; - haddr_t d_tag = 0; - haddr_t g_tag = 0; - hsize_t dims1[2] = {DIMS, DIMS}; /* dimensions */ + int verbose = FALSE; /* verbose file outout */ +#endif /* NDEBUG */ /* end debugging functions */ + hid_t dcpl = -1; /* dataset creation pl */ + hsize_t cdims[2] = {1, 1}; /* chunk dimensions */ + int fillval = 0; + hid_t fapl = -1; /* File access prop list */ + haddr_t root_tag = 0; + haddr_t d_tag = 0; + haddr_t g_tag = 0; + hsize_t dims1[2] = {DIMS, DIMS}; /* dimensions */ hsize_t maxdims[2] = {H5S_UNLIMITED, H5S_UNLIMITED}; /* dimensions */ - int i,j,k = 0; /* iterators */ - int *data = NULL; /* data buffer */ + int i, j, k = 0; /* iterators */ + int * data = NULL; /* data buffer */ /* Testing Macro */ TESTING("tag application during link removal"); @@ -3296,105 +3808,134 @@ check_link_removal_tags(hid_t fcpl, int type) /* ===== */ /* Allocate array */ - if ( (NULL == (data = (int *)HDcalloc(DIMS * DIMS, sizeof(int)))) ) TEST_ERROR; + if ((NULL == (data = (int *)HDcalloc(DIMS * DIMS, sizeof(int))))) + TEST_ERROR; /* Create Fapl */ - if ( (fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0 ) TEST_ERROR; + if ((fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0) + TEST_ERROR; /* Create file */ - if ( (fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, fcpl, fapl)) < 0 ) TEST_ERROR; + if ((fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, fcpl, fapl)) < 0) + TEST_ERROR; - if ( H5Pclose(fapl) < 0 ) TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; /* determine tag value of root group's object header */ - if ( get_object_header_tag(fid, &root_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(fid, &root_tag) < 0) + TEST_ERROR; /* Create group */ - if ( (gid = H5Gcreate2(fid, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((gid = H5Gcreate2(fid, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Retrieve group tag */ - if ( get_object_header_tag(gid, &g_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(gid, &g_tag) < 0) + TEST_ERROR; /* Close Group */ - if (H5Gclose(gid) < 0) TEST_ERROR; + if (H5Gclose(gid) < 0) + TEST_ERROR; /* Set up creation property list */ dcpl = H5Pcreate(H5P_DATASET_CREATE); /* Enable chunking */ - if ( H5Pset_chunk(dcpl, RANK, cdims) < 0 ) TEST_ERROR; + if (H5Pset_chunk(dcpl, RANK, cdims) < 0) + TEST_ERROR; /* Set up a fill value */ - if ( H5Pset_fill_value(dcpl, H5T_NATIVE_INT, &fillval) < 0 ) TEST_ERROR; + if (H5Pset_fill_value(dcpl, H5T_NATIVE_INT, &fillval) < 0) + TEST_ERROR; /* Set up dataset dataspace */ - if ( (sid = H5Screate_simple(2, dims1, maxdims)) < 0 ) TEST_ERROR; + if ((sid = H5Screate_simple(2, dims1, maxdims)) < 0) + TEST_ERROR; /* Create Dataset */ - if (( did = H5Dcreate2(fid, DATASETNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0 ) TEST_ERROR; - if ( H5Pclose(dcpl) < 0 ) TEST_ERROR; + if ((did = H5Dcreate2(fid, DATASETNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0) + TEST_ERROR; + if (H5Pclose(dcpl) < 0) + TEST_ERROR; /* Retrieve tag associated with this dataset */ - if ( get_object_header_tag(did, &d_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(did, &d_tag) < 0) + TEST_ERROR; /* fill out data buffer */ - for(i = 0; i < DIMS; i++) - for(j = 0; j < DIMS; j++) + for (i = 0; i < DIMS; i++) + for (j = 0; j < DIMS; j++) data[(DIMS * i) + j] = k++; /* Write to dataset */ - if( (H5Dwrite(did, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, data)) < 0 ) TEST_ERROR; + if ((H5Dwrite(did, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, data)) < 0) + TEST_ERROR; /* Close Dataset */ - if ( H5Dclose(did) < 0 ) TEST_ERROR; + if (H5Dclose(did) < 0) + TEST_ERROR; /* Close and Reopen the file and dataset */ - if ( H5Fclose(fid) < 0 ) TEST_ERROR; - if ( (fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; + if ((fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Evict as much as we can from the cache so we can track full tag path */ - if ( evict_entries(fid) < 0 ) TEST_ERROR; + if (evict_entries(fid) < 0) + TEST_ERROR; /* ================================ */ /* Remove link to group and dataset */ /* ================================ */ - if ( (H5Ldelete(fid, GROUPNAME, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((H5Ldelete(fid, GROUPNAME, H5P_DEFAULT)) < 0) + TEST_ERROR; - if ( (H5Ldelete(fid, DATASETNAME, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((H5Ldelete(fid, DATASETNAME, H5P_DEFAULT)) < 0) + TEST_ERROR; - /* =================================== */ - /* Verification of Metadata Tag Values */ - /* =================================== */ + /* =================================== */ + /* Verification of Metadata Tag Values */ + /* =================================== */ #ifndef NDEBUG /* if verbose, print cache index to screen for visual verification */ - if ( verbose ) dump_cache(fid); + if (verbose) + dump_cache(fid); #endif /* NDEBUG */ /* end debugging functions */ /* Verify root group's tagged metadata */ - if ( verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_LHEAP_PRFX_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_BT_ID, root_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_LHEAP_PRFX_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_BT_ID, root_tag) < 0) + TEST_ERROR; - if ( type == TEST_SHMESG ) { + if (type == TEST_SHMESG) { /* verify shared header message master table */ - if ( verify_tag(fid, H5AC_SOHM_TABLE_ID, H5AC__SOHM_TAG) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_SOHM_TABLE_ID, H5AC__SOHM_TAG) < 0) + TEST_ERROR; } /* end if */ /* verify no other entries present */ - if ( verify_no_unknown_tags(fid) < 0 ) TEST_ERROR; + if (verify_no_unknown_tags(fid) < 0) + TEST_ERROR; /* Reset the changes we've made to the cache's data structures */ - if(reset_all_entries_investigated(fid) < 0) TEST_ERROR; + if (reset_all_entries_investigated(fid) < 0) + TEST_ERROR; /* =========================== */ /* Close open objects and file */ /* =========================== */ - if ( H5Fclose(fid) < 0 ) TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; /* ========================================== */ /* Finished Test. Print status and return. */ @@ -3406,12 +3947,11 @@ check_link_removal_tags(hid_t fcpl, int type) return 0; error: - if(data) + if (data) HDfree(data); return 1; } /* check_link_removal_tags */ - /*------------------------------------------------------------------------- * Function: check_link_getname_tags * @@ -3429,25 +3969,25 @@ static unsigned check_link_getname_tags(void) { /* Variable Declarations */ - char name[500]; - hid_t fid = -1; /* File Identifier */ - hid_t did = -1; /* Dataset Identifier */ - hid_t sid = -1; /* Dataspace Identifier */ - hid_t gid = -1; /* Dataspace Identifier */ + char name[500]; + hid_t fid = -1; /* File Identifier */ + hid_t did = -1; /* Dataset Identifier */ + hid_t sid = -1; /* Dataspace Identifier */ + hid_t gid = -1; /* Dataspace Identifier */ #ifndef NDEBUG - int verbose = FALSE; /* verbose file outout */ -#endif /* NDEBUG */ /* end debugging functions */ - hid_t dcpl = -1; /* dataset creation pl */ - hsize_t cdims[2] = {1,1}; /* chunk dimensions */ - int fillval = 0; - hid_t fapl = -1; /* File access prop list */ - haddr_t root_tag = 0; - haddr_t d_tag = 0; - haddr_t g_tag = 0; - hsize_t dims1[2] = {DIMS, DIMS}; /* dimensions */ + int verbose = FALSE; /* verbose file outout */ +#endif /* NDEBUG */ /* end debugging functions */ + hid_t dcpl = -1; /* dataset creation pl */ + hsize_t cdims[2] = {1, 1}; /* chunk dimensions */ + int fillval = 0; + hid_t fapl = -1; /* File access prop list */ + haddr_t root_tag = 0; + haddr_t d_tag = 0; + haddr_t g_tag = 0; + hsize_t dims1[2] = {DIMS, DIMS}; /* dimensions */ hsize_t maxdims[2] = {H5S_UNLIMITED, H5S_UNLIMITED}; /* dimensions */ - int i,j,k = 0; /* iterators */ - int *data = NULL; /* data buffer */ + int i, j, k = 0; /* iterators */ + int * data = NULL; /* data buffer */ /* Testing Macro */ TESTING("tag application during link name retrieval"); @@ -3457,64 +3997,83 @@ check_link_getname_tags(void) /* ===== */ /* Allocate array */ - if ( (NULL == (data = (int *)HDcalloc(DIMS * DIMS, sizeof(int)))) ) TEST_ERROR; + if ((NULL == (data = (int *)HDcalloc(DIMS * DIMS, sizeof(int))))) + TEST_ERROR; /* Create Fapl */ - if ( (fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0 ) TEST_ERROR; + if ((fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0) + TEST_ERROR; /* Create file */ - if ( (fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0 ) TEST_ERROR; + if ((fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) + TEST_ERROR; - if ( H5Pclose(fapl) < 0 ) TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; /* determine tag value of root group's object header */ - if ( get_object_header_tag(fid, &root_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(fid, &root_tag) < 0) + TEST_ERROR; /* Create group */ - if ( (gid = H5Gcreate2(fid, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((gid = H5Gcreate2(fid, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Retrieve group tag */ - if ( get_object_header_tag(gid, &g_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(gid, &g_tag) < 0) + TEST_ERROR; /* Close Group */ - if (H5Gclose(gid) < 0) TEST_ERROR; + if (H5Gclose(gid) < 0) + TEST_ERROR; /* Set up creation property list */ dcpl = H5Pcreate(H5P_DATASET_CREATE); /* Enable chunking */ - if ( H5Pset_chunk(dcpl, RANK, cdims) < 0 ) TEST_ERROR; + if (H5Pset_chunk(dcpl, RANK, cdims) < 0) + TEST_ERROR; /* Set up a fill value */ - if ( H5Pset_fill_value(dcpl, H5T_NATIVE_INT, &fillval) < 0 ) TEST_ERROR; + if (H5Pset_fill_value(dcpl, H5T_NATIVE_INT, &fillval) < 0) + TEST_ERROR; /* Set up dataset dataspace */ - if ( (sid = H5Screate_simple(2, dims1, maxdims)) < 0 ) TEST_ERROR; + if ((sid = H5Screate_simple(2, dims1, maxdims)) < 0) + TEST_ERROR; /* Create Dataset */ - if (( did = H5Dcreate2(fid, DATASETNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0 ) TEST_ERROR; - if ( H5Pclose(dcpl) < 0 ) TEST_ERROR; + if ((did = H5Dcreate2(fid, DATASETNAME, H5T_NATIVE_INT, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0) + TEST_ERROR; + if (H5Pclose(dcpl) < 0) + TEST_ERROR; /* Retrieve tag associated with this dataset */ - if ( get_object_header_tag(did, &d_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(did, &d_tag) < 0) + TEST_ERROR; /* fill out data buffer */ - for(i = 0; i < DIMS; i++) - for(j = 0; j < DIMS; j++) + for (i = 0; i < DIMS; i++) + for (j = 0; j < DIMS; j++) data[(DIMS * i) + j] = k++; /* Write to dataset */ - if( (H5Dwrite(did, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, data)) < 0 ) TEST_ERROR; + if ((H5Dwrite(did, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, data)) < 0) + TEST_ERROR; /* Close Dataset */ - if ( H5Dclose(did) < 0 ) TEST_ERROR; + if (H5Dclose(did) < 0) + TEST_ERROR; /* Close and Reopen the file and dataset */ - if ( H5Fclose(fid) < 0 ) TEST_ERROR; - if ( (fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; + if ((fid = H5Fopen(FILENAME, H5F_ACC_RDWR, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Evict as much as we can from the cache so we can track full tag path */ - if ( evict_entries(fid) < 0 ) TEST_ERROR; + if (evict_entries(fid) < 0) + TEST_ERROR; /* =========================== */ /* Get name by index location. */ @@ -3528,26 +4087,34 @@ check_link_getname_tags(void) #ifndef NDEBUG /* if verbose, print cache index to screen for visual verification */ - if ( verbose ) dump_cache(fid); + if (verbose) + dump_cache(fid); #endif /* NDEBUG */ /* end debugging functions */ /* Verify root group's tagged metadata */ - if ( verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_SNODE_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_LHEAP_PRFX_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_BT_ID, root_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_SNODE_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_LHEAP_PRFX_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_BT_ID, root_tag) < 0) + TEST_ERROR; /* verify no other entries present */ - if ( verify_no_unknown_tags(fid) < 0 ) TEST_ERROR; + if (verify_no_unknown_tags(fid) < 0) + TEST_ERROR; /* Reset the changes we've made to the cache's data structures */ - if(reset_all_entries_investigated(fid) < 0) TEST_ERROR; + if (reset_all_entries_investigated(fid) < 0) + TEST_ERROR; /* =========================== */ /* Close open objects and file */ /* =========================== */ - if ( H5Fclose(fid) < 0 ) TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; /* ========================================== */ /* Finished Test. Print status and return. */ @@ -3559,12 +4126,11 @@ check_link_getname_tags(void) return 0; error: - if(data) + if (data) HDfree(data); return 1; } /* check_link_getname_tags */ - /*------------------------------------------------------------------------- * Function: check_external_link_creation_tags * @@ -3582,13 +4148,13 @@ static unsigned check_external_link_creation_tags(void) { /* Variable Declarations */ - hid_t fid = -1; /* File Identifier */ - hid_t fid2 = -1; /* File Identifier */ - hid_t gid = -1; /* Dataspace Identifier */ + hid_t fid = -1; /* File Identifier */ + hid_t fid2 = -1; /* File Identifier */ + hid_t gid = -1; /* Dataspace Identifier */ #ifndef NDEBUG - int verbose = FALSE; /* verbose file outout */ -#endif /* NDEBUG */ /* end debugging functions */ - hid_t fapl = -1; /* File access prop list */ + int verbose = FALSE; /* verbose file outout */ +#endif /* NDEBUG */ /* end debugging functions */ + hid_t fapl = -1; /* File access prop list */ haddr_t root_tag = 0; /* Testing Macro */ @@ -3599,65 +4165,85 @@ check_external_link_creation_tags(void) /* ===== */ /* Create Fapl */ - if ( (fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0 ) TEST_ERROR; + if ((fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0) + TEST_ERROR; /* Create a test file */ - if ( (fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0 ) TEST_ERROR; + if ((fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) + TEST_ERROR; /* determine tag value of root group's object header */ - if ( get_object_header_tag(fid, &root_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(fid, &root_tag) < 0) + TEST_ERROR; /* Close and Reopen the file */ - if ( H5Fclose(fid) < 0 ) TEST_ERROR; - if ( (fid = H5Fopen(FILENAME, H5F_ACC_RDWR, fapl)) < 0 ) TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; + if ((fid = H5Fopen(FILENAME, H5F_ACC_RDWR, fapl)) < 0) + TEST_ERROR; /* Evict as much as we can from the cache so we can track full tag path */ - if ( evict_entries(fid) < 0 ) TEST_ERROR; + if (evict_entries(fid) < 0) + TEST_ERROR; /* Create a second file */ - if ( (fid2 = H5Fcreate(FILENAME2, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0 ) TEST_ERROR; + if ((fid2 = H5Fcreate(FILENAME2, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) + TEST_ERROR; - if ( H5Pclose(fapl) < 0 ) TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; /* Create group in second file */ - if ( (gid = H5Gcreate2(fid2, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((gid = H5Gcreate2(fid2, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Close out second file */ - if ( (H5Gclose(gid)) < 0 ) TEST_ERROR; - if ( (H5Fclose(fid2)) < 0 ) TEST_ERROR; + if ((H5Gclose(gid)) < 0) + TEST_ERROR; + if ((H5Fclose(fid2)) < 0) + TEST_ERROR; /* ==================== */ /* Create External Link */ /* ==================== */ - if (H5Lcreate_external(FILENAME2, GROUPNAMEPATH, fid, LINKNAME, H5P_DEFAULT, H5P_DEFAULT) < 0 ) TEST_ERROR; + if (H5Lcreate_external(FILENAME2, GROUPNAMEPATH, fid, LINKNAME, H5P_DEFAULT, H5P_DEFAULT) < 0) + TEST_ERROR; - /* =================================== */ - /* Verification of Metadata Tag Values */ - /* =================================== */ + /* =================================== */ + /* Verification of Metadata Tag Values */ + /* =================================== */ #ifndef NDEBUG /* if verbose, print cache index to screen for visual verification */ - if ( verbose ) dump_cache(fid); + if (verbose) + dump_cache(fid); #endif /* NDEBUG */ /* end debugging functions */ /* Verify root group metadata */ - if ( verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_OHDR_CHK_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_LHEAP_PRFX_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_BT_ID, root_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_CHK_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_LHEAP_PRFX_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_BT_ID, root_tag) < 0) + TEST_ERROR; /* verify no other entries present */ - if ( verify_no_unknown_tags(fid) < 0 ) TEST_ERROR; + if (verify_no_unknown_tags(fid) < 0) + TEST_ERROR; /* Reset the changes we've made to the cache's data structures */ - if(reset_all_entries_investigated(fid) < 0) TEST_ERROR; + if (reset_all_entries_investigated(fid) < 0) + TEST_ERROR; /* =========================== */ /* Close open objects and file */ /* =========================== */ - if ( H5Fclose(fid) < 0 ) TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; /* ========================================== */ /* Finished Test. Print status and return. */ @@ -3670,7 +4256,6 @@ error: return 1; } /* check_external_link_creation_tags */ - /*------------------------------------------------------------------------- * Function: check_external_link_open_tags * @@ -3688,18 +4273,18 @@ static unsigned check_external_link_open_tags(void) { /* Variable Declarations */ - haddr_t link_tag = 0; /* link tag */ - hid_t fid = -1; /* File Identifier */ - hid_t fid2 = -1; /* File Identifier */ - hid_t gid = -1; /* Dataspace Identifier */ - hid_t xid = -1; /* Dataspace Identifier */ + haddr_t link_tag = 0; /* link tag */ + hid_t fid = -1; /* File Identifier */ + hid_t fid2 = -1; /* File Identifier */ + hid_t gid = -1; /* Dataspace Identifier */ + hid_t xid = -1; /* Dataspace Identifier */ #ifndef NDEBUG - int verbose = FALSE; /* verbose file outout */ -#endif /* NDEBUG */ /* end debugging functions */ - H5O_native_info_t ninfo; /* Native object info struct */ - hid_t fapl = -1; /* File access prop list */ - haddr_t root_tag = 0; - haddr_t root2_tag = 0; + int verbose = FALSE; /* verbose file outout */ +#endif /* NDEBUG */ /* end debugging functions */ + H5O_native_info_t ninfo; /* Native object info struct */ + hid_t fapl = -1; /* File access prop list */ + haddr_t root_tag = 0; + haddr_t root2_tag = 0; /* Testing Macro */ TESTING("tag application during external link open"); @@ -3709,93 +4294,128 @@ check_external_link_open_tags(void) /* ===== */ /* Create Fapl */ - if ( (fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0 ) TEST_ERROR; + if ((fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0) + TEST_ERROR; /* Create a test file */ - if ( (fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0 ) TEST_ERROR; + if ((fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) + TEST_ERROR; /* determine tag value of root group's object header */ - if ( get_object_header_tag(fid, &root_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(fid, &root_tag) < 0) + TEST_ERROR; /* Create a second file */ - if ( (fid2 = H5Fcreate(FILENAME2, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0 ) TEST_ERROR; + if ((fid2 = H5Fcreate(FILENAME2, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) + TEST_ERROR; /* determine tag value of root group's object header */ - if ( get_object_header_tag(fid2, &root2_tag) < 0 ) TEST_ERROR; + if (get_object_header_tag(fid2, &root2_tag) < 0) + TEST_ERROR; /* Create group in second file */ - if ( (gid = H5Gcreate2(fid2, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0 ) TEST_ERROR; + if ((gid = H5Gcreate2(fid2, GROUPNAME, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) + TEST_ERROR; /* Close out second file */ - if ( (H5Gclose(gid)) < 0 ) TEST_ERROR; - if ( (H5Fclose(fid2)) < 0 ) TEST_ERROR; + if ((H5Gclose(gid)) < 0) + TEST_ERROR; + if ((H5Fclose(fid2)) < 0) + TEST_ERROR; /* Create external link to second file */ - if ( H5Lcreate_external(FILENAME2, GROUPNAMEPATH, fid, LINKNAME, H5P_DEFAULT, H5P_DEFAULT) < 0 ) TEST_ERROR; + if (H5Lcreate_external(FILENAME2, GROUPNAMEPATH, fid, LINKNAME, H5P_DEFAULT, H5P_DEFAULT) < 0) + TEST_ERROR; /* Close and Reopen the file */ - if ( H5Fclose(fid) < 0 ) TEST_ERROR; - if ( (fid = H5Fopen(FILENAME, H5F_ACC_RDWR, fapl)) < 0 ) TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; + if ((fid = H5Fopen(FILENAME, H5F_ACC_RDWR, fapl)) < 0) + TEST_ERROR; - if ( H5Pclose(fapl) < 0 ) TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; /* Evict as much as we can from the cache so we can track full tag path */ - if ( evict_entries(fid) < 0 ) TEST_ERROR; + if (evict_entries(fid) < 0) + TEST_ERROR; /* ================== */ /* Open External Link */ /* ================== */ - if ( (xid = H5Gopen2(fid, LINKNAME, H5P_DEFAULT)) < 0 ) TEST_ERROR; - if ( (fid2 = H5Iget_file_id(xid)) < 0) TEST_ERROR; - if ( get_object_header_tag(xid, &link_tag) < 0 ) TEST_ERROR; + if ((xid = H5Gopen2(fid, LINKNAME, H5P_DEFAULT)) < 0) + TEST_ERROR; + if ((fid2 = H5Iget_file_id(xid)) < 0) + TEST_ERROR; + if (get_object_header_tag(xid, &link_tag) < 0) + TEST_ERROR; /* Even though we do nothing with this, touching the internal * data structures is needed for the test to pass. */ - if ( H5Oget_native_info(xid, &ninfo, H5O_NATIVE_INFO_ALL) < 0 ) TEST_ERROR; + if (H5Oget_native_info(xid, &ninfo, H5O_NATIVE_INFO_ALL) < 0) + TEST_ERROR; - /* =================================== */ - /* Verification of Metadata Tag Values */ - /* =================================== */ + /* =================================== */ + /* Verification of Metadata Tag Values */ + /* =================================== */ #ifndef NDEBUG /* if verbose, print cache index to screen for visual verification */ - if ( verbose ) dump_cache(fid); + if (verbose) + dump_cache(fid); #endif /* NDEBUG */ /* end debugging functions */ /* verify tag value of first file's root group */ - if ( verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid, H5AC_OHDR_CHK_ID, root_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_ID, root_tag) < 0) + TEST_ERROR; + if (verify_tag(fid, H5AC_OHDR_CHK_ID, root_tag) < 0) + TEST_ERROR; /* verify there is a superblock entry with superblock tag. */ - if ( verify_tag(fid2, H5AC_SUPERBLOCK_ID, H5AC__SUPERBLOCK_TAG) < 0 ) TEST_ERROR; + if (verify_tag(fid2, H5AC_SUPERBLOCK_ID, H5AC__SUPERBLOCK_TAG) < 0) + TEST_ERROR; /* verify tag value of linked file's root group */ - if ( verify_tag(fid2, H5AC_OHDR_ID, root2_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid2, H5AC_LHEAP_PRFX_ID, root2_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid2, H5AC_BT_ID, root2_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid2, H5AC_SNODE_ID, root2_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid2, H5AC_OHDR_ID, root2_tag) < 0) + TEST_ERROR; + if (verify_tag(fid2, H5AC_LHEAP_PRFX_ID, root2_tag) < 0) + TEST_ERROR; + if (verify_tag(fid2, H5AC_BT_ID, root2_tag) < 0) + TEST_ERROR; + if (verify_tag(fid2, H5AC_SNODE_ID, root2_tag) < 0) + TEST_ERROR; /* verify tag value of linked group's object header */ - if ( verify_tag(fid2, H5AC_OHDR_ID, link_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid2, H5AC_LHEAP_PRFX_ID, link_tag) < 0 ) TEST_ERROR; - if ( verify_tag(fid2, H5AC_BT_ID, link_tag) < 0 ) TEST_ERROR; + if (verify_tag(fid2, H5AC_OHDR_ID, link_tag) < 0) + TEST_ERROR; + if (verify_tag(fid2, H5AC_LHEAP_PRFX_ID, link_tag) < 0) + TEST_ERROR; + if (verify_tag(fid2, H5AC_BT_ID, link_tag) < 0) + TEST_ERROR; /* verify no other entries present */ - if ( verify_no_unknown_tags(fid) < 0 ) TEST_ERROR; - if ( verify_no_unknown_tags(fid2) < 0 ) TEST_ERROR; + if (verify_no_unknown_tags(fid) < 0) + TEST_ERROR; + if (verify_no_unknown_tags(fid2) < 0) + TEST_ERROR; /* Reset the changes we've made to the cache's data structures */ - if(reset_all_entries_investigated(fid) < 0) TEST_ERROR; - if(reset_all_entries_investigated(fid2) < 0) TEST_ERROR; + if (reset_all_entries_investigated(fid) < 0) + TEST_ERROR; + if (reset_all_entries_investigated(fid2) < 0) + TEST_ERROR; /* =========================== */ /* Close open objects and file */ /* =========================== */ - if ( H5Gclose(xid) < 0 ) TEST_ERROR; - if ( H5Fclose(fid) < 0 ) TEST_ERROR; - if ( H5Fclose(fid2) < 0 ) TEST_ERROR; + if (H5Gclose(xid) < 0) + TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; + if (H5Fclose(fid2) < 0) + TEST_ERROR; /* ========================================== */ /* Finished Test. Print status and return. */ @@ -3808,7 +4428,6 @@ error: return 1; } /* check_external_link_open_tags */ - /*------------------------------------------------------------------------- * Function: check_invalid_tag_application * @@ -3828,65 +4447,77 @@ check_invalid_tag_application(void) { #if H5C_DO_TAGGING_SANITY_CHECKS /* Variables */ - H5F_t * f = NULL; - hid_t fid = -1; + H5F_t * f = NULL; + hid_t fid = -1; haddr_t addr; - H5HL_t * lheap = NULL; - hid_t fapl = -1; /* File access prop list */ - hbool_t api_ctx_pushed = FALSE; /* Whether API context pushed */ -#endif /* H5C_DO_TAGGING_SANITY_CHECKS */ + H5HL_t *lheap = NULL; + hid_t fapl = -1; /* File access prop list */ + hbool_t api_ctx_pushed = FALSE; /* Whether API context pushed */ +#endif /* H5C_DO_TAGGING_SANITY_CHECKS */ /* Testing Macro */ TESTING("failure on invalid tag application"); #if H5C_DO_TAGGING_SANITY_CHECKS /* Create Fapl */ - if ( (fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0 ) TEST_ERROR; + if ((fapl = h5_fileaccess_flags(H5_FILEACCESS_LIBVER)) < 0) + TEST_ERROR; /* Create a test file */ - if ( (fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0 ) TEST_ERROR; + if ((fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0) + TEST_ERROR; - if ( H5Pclose(fapl) < 0 ) TEST_ERROR; + if (H5Pclose(fapl) < 0) + TEST_ERROR; /* Push API context */ - if(H5CX_push() < 0) TEST_ERROR + if (H5CX_push() < 0) + TEST_ERROR api_ctx_pushed = TRUE; /* Get internal file pointer*/ - if ( NULL == (f = (H5F_t *)H5VL_object(fid)) ) TEST_ERROR; + if (NULL == (f = (H5F_t *)H5VL_object(fid))) + TEST_ERROR; /* Call H5HL_create, an internal function that calls H5AC_insert_entry without setting up a tag */ /* Ensure this returns FAILURE, as a tag has not been set up. */ - if ( H5HL_create(f, (size_t)1024, &addr) >= 0) TEST_ERROR; + if (H5HL_create(f, (size_t)1024, &addr) >= 0) + TEST_ERROR; /* Now set up a tag in the API context */ H5AC_tag((haddr_t)25, NULL); /* Verify the same call to H5HL_create now works as intended, with a tag set up. */ - if ( H5HL_create(f, (size_t)1024, &addr) < 0) TEST_ERROR; + if (H5HL_create(f, (size_t)1024, &addr) < 0) + TEST_ERROR; /* Reset API context to use invalid tag. */ H5AC_tag(H5AC__INVALID_TAG, NULL); /* Call H5HL_protect to protect the local heap created above. */ /* This should fail as no tag is set up during the protect call */ - if (( lheap = H5HL_protect(f, addr, H5AC__NO_FLAGS_SET)) != NULL ) TEST_ERROR; + if ((lheap = H5HL_protect(f, addr, H5AC__NO_FLAGS_SET)) != NULL) + TEST_ERROR; /* Again, set up a valid tag in the API context */ H5AC_tag((haddr_t)25, NULL); /* Call H5HL_protect again to protect the local heap. This should succeed. */ - if (( lheap = H5HL_protect(f, addr, H5AC__NO_FLAGS_SET)) == NULL ) TEST_ERROR; + if ((lheap = H5HL_protect(f, addr, H5AC__NO_FLAGS_SET)) == NULL) + TEST_ERROR; /* Now unprotect the heap, as we're done with the test. */ - if ( H5HL_unprotect(lheap) < 0 ) TEST_ERROR; + if (H5HL_unprotect(lheap) < 0) + TEST_ERROR; /* Pop API context */ - if(api_ctx_pushed && H5CX_pop() < 0) TEST_ERROR + if (api_ctx_pushed && H5CX_pop() < 0) + TEST_ERROR api_ctx_pushed = FALSE; /* Close open objects and file */ - if ( H5Fclose(fid) < 0 ) TEST_ERROR; + if (H5Fclose(fid) < 0) + TEST_ERROR; /* Finished Test. Print status and return. */ PASSED(); @@ -3899,14 +4530,14 @@ check_invalid_tag_application(void) #if H5C_DO_TAGGING_SANITY_CHECKS error: - if(api_ctx_pushed) H5CX_pop(); + if (api_ctx_pushed) + H5CX_pop(); return 1; #endif /* H5C_DO_TAGGING_SANITY_CHECKS */ } /* check_invalid_tag_application */ - /*------------------------------------------------------------------------- * Function: main * @@ -3923,11 +4554,11 @@ int main(void) { /* Variable Declarations */ - hid_t fcpl_default = -1; /* file creation prop list */ - hid_t fcpl_shmesg_all = -1; /* file creation prop list */ - hid_t fcpl = -1; /* file creation prop list */ - unsigned nerrs = 0; /* Error Encountered */ - int test_type = 0; /* test type iterator */ + hid_t fcpl_default = -1; /* file creation prop list */ + hid_t fcpl_shmesg_all = -1; /* file creation prop list */ + hid_t fcpl = -1; /* file creation prop list */ + unsigned nerrs = 0; /* Error Encountered */ + int test_type = 0; /* test type iterator */ /* Open the HDF5 Library */ H5open(); @@ -3949,54 +4580,83 @@ main(void) /* Run Tests */ /* ========= */ - for (test_type=0; test_type<NUM_TEST_TYPES; test_type++) { + for (test_type = 0; test_type < NUM_TEST_TYPES; test_type++) { /* Run tests on each fcpl set up above. */ if (test_type == TEST_DEFAULT) { - if (!nerrs) HDprintf("Testing standard tag application cases w/ default fcpl:\n"); + if (!nerrs) + HDprintf("Testing standard tag application cases w/ default fcpl:\n"); fcpl = fcpl_default; + } + else if (test_type == TEST_SHMESG) { - } else if (test_type == TEST_SHMESG) { - - if (!nerrs) HDprintf("Testing standard tag application cases w/ shared messages:\n"); + if (!nerrs) + HDprintf("Testing standard tag application cases w/ shared messages:\n"); fcpl = fcpl_shmesg_all; - - } else { + } + else { TEST_ERROR; } /* Check tag application under different circumstances */ - if (!nerrs) nerrs += check_file_creation_tags(fcpl, test_type); - if (!nerrs) nerrs += check_file_open_tags(fcpl, test_type); - if (!nerrs) nerrs += check_attribute_creation_tags(fcpl, test_type); - if (!nerrs) nerrs += check_attribute_open_tags(fcpl, test_type); - if (!nerrs) nerrs += check_attribute_write_tags(fcpl, test_type); - if (!nerrs) nerrs += check_attribute_delete_tags(fcpl, test_type); - if (!nerrs) nerrs += check_attribute_rename_tags(fcpl, test_type); - if (!nerrs) nerrs += check_dataset_creation_tags(fcpl, test_type); - if (!nerrs) nerrs += check_dataset_creation_earlyalloc_tags(fcpl, test_type); - if (!nerrs) nerrs += check_link_removal_tags(fcpl, test_type); + if (!nerrs) + nerrs += check_file_creation_tags(fcpl, test_type); + if (!nerrs) + nerrs += check_file_open_tags(fcpl, test_type); + if (!nerrs) + nerrs += check_attribute_creation_tags(fcpl, test_type); + if (!nerrs) + nerrs += check_attribute_open_tags(fcpl, test_type); + if (!nerrs) + nerrs += check_attribute_write_tags(fcpl, test_type); + if (!nerrs) + nerrs += check_attribute_delete_tags(fcpl, test_type); + if (!nerrs) + nerrs += check_attribute_rename_tags(fcpl, test_type); + if (!nerrs) + nerrs += check_dataset_creation_tags(fcpl, test_type); + if (!nerrs) + nerrs += check_dataset_creation_earlyalloc_tags(fcpl, test_type); + if (!nerrs) + nerrs += check_link_removal_tags(fcpl, test_type); } /* end for */ - if (!nerrs) HDprintf("Testing other specific tag application cases:\n"); - if (!nerrs) nerrs += check_group_creation_tags(); - if (!nerrs) nerrs += check_multi_group_creation_tags(); - if (!nerrs) nerrs += check_group_open_tags(); - if (!nerrs) nerrs += check_dataset_open_tags(); - if (!nerrs) nerrs += check_dataset_write_tags(); - if (!nerrs) nerrs += check_dataset_read_tags(); - if (!nerrs) nerrs += check_dataset_size_retrieval(); - if (!nerrs) nerrs += check_dataset_extend_tags(); - if (!nerrs) nerrs += check_object_info_tags(); - if (!nerrs) nerrs += check_object_copy_tags(); - if (!nerrs) nerrs += check_link_getname_tags(); - if (!nerrs) nerrs += check_external_link_creation_tags(); - if (!nerrs) nerrs += check_external_link_open_tags(); - - if (!nerrs) nerrs += check_dense_attribute_tags(); - if (!nerrs) nerrs += check_link_iteration_tags(); - if (!nerrs) nerrs += check_invalid_tag_application(); + if (!nerrs) + HDprintf("Testing other specific tag application cases:\n"); + if (!nerrs) + nerrs += check_group_creation_tags(); + if (!nerrs) + nerrs += check_multi_group_creation_tags(); + if (!nerrs) + nerrs += check_group_open_tags(); + if (!nerrs) + nerrs += check_dataset_open_tags(); + if (!nerrs) + nerrs += check_dataset_write_tags(); + if (!nerrs) + nerrs += check_dataset_read_tags(); + if (!nerrs) + nerrs += check_dataset_size_retrieval(); + if (!nerrs) + nerrs += check_dataset_extend_tags(); + if (!nerrs) + nerrs += check_object_info_tags(); + if (!nerrs) + nerrs += check_object_copy_tags(); + if (!nerrs) + nerrs += check_link_getname_tags(); + if (!nerrs) + nerrs += check_external_link_creation_tags(); + if (!nerrs) + nerrs += check_external_link_open_tags(); + + if (!nerrs) + nerrs += check_dense_attribute_tags(); + if (!nerrs) + nerrs += check_link_iteration_tags(); + if (!nerrs) + nerrs += check_invalid_tag_application(); /* Delete test files */ HDremove(FILENAME); |