mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2024-12-27 08:01:04 +08:00
Code Issues Packages Projects Releases Wiki Activity
ecc687c4ff
hdf5/test/getname.c
jhendersonHDF 27bb358f7a
Subfiling VFD (#1883) 
* Added support for vector I/O calls to the VFD layer, and
associated test code.  Note that this includes the optimization
to allow shortened sizes and types arrays to allow more space
efficient representations of vectors in which all entries are
of the same size and/or type.  See the Selection I/o RFC for
further details.

Tested serial and parallel, debug and production on Charis.
       serial and parallel debug only on Jelly.

* ran code formatter

quick serial build and test on jelly

* Add H5FD_read_selection() and H5FD_write_selection().  Currently only
translate to scalar calls.  Fix const buf in H5FD_write_vector().

* Format source

* Fix comments

* Add selection I/O to chunk code, used when: not using chunk cache, no
datatype conversion, no I/O filters, no page buffer, not using collective
I/O.  Requires global variable H5_use_selection_io_g be set to TRUE.
Implemented selection to vector I/O transaltion at the file driver
layer.

* Fix formatting unrelated to previous change to stop github from
complaining.

* Add full API support for selection I/O.  Add tests for this.

* Implement selection I/O for contiguous datasets.  Fix bug in selection
I/O translation.  Add const qualifiers to some internal selection I/O
routines to maintain const-correctness while avoiding memcpys.

* Added vector read / write support to the MPIO VFD, with associated
test code (see testpar/t_vfd.c).

Note that this implementation does NOT support vector entries of
size greater than 2 GB.  This must be repaired before release,
but it should be good enough for correctness testing.

As MPIO requires vector I/O requests to be sorted in increasing
address order, also added a vector sort utility in H5FDint.c  This
function is tested in passing by the MPIO vector I/O extension.

In passing, repaired a bug in size / type vector extension management
in H5FD_read/write_vector()

Tested parallel debug and production on charis and Jelly.

* Ran source code formatter

* Add support for independent parallel I/O with selection I/O.  Add
HDF5_USE_SELECTION_IO env var to control selection I/O (default off).

* Implement parallel collective support for selection I/O.

* Fix comments and run formatter.

* Update selection IO branch with develop (#1215)

Merged branch 'develop' into selection_io

* Sync with develop (#1262)

Updated the branch with develop changes.

* Implement big I/O support for vector I/O requests in the MPIO file
driver.

* Free arrays in H5FD__mpio_read/write_vector() as soon as they're not
needed, to cut down on memory usage during I/O.

* Address comments from code review.  Fix const warnings with
H5S_SEL_ITER_INIT().

* Committing clang-format changes

* Feature/subfiling (#1464)

* Initial checkin of merged sub-filing VFD.

Passes regression tests (debug/shared/paralle) on Jelly.
However, bugs and many compiler warnings remain -- not suitable
for merge to develop.

* Minor mods to src/H5FDsubfile_mpi.c to address errors reported by autogen.sh

* Code formatting run -- no test

* Merged my subfiling code fixes into the new selection_io_branch

* Forgot to add the FindMERCURY.cmake file. This will probably disappear soon

* attempting to make a more reliable subfile file open which doesn't return errors. For some unknown reason, the regular posix open will occasionally fail to create a subfile.  Some better error handling for file close has been added.

* added NULL option for H5FD_subfiling_config_t in H5Pset_fapl_subfiling (#1034)

* NULL option automatically stacks IOC VFD for subfiling and returns a valid fapl.
* added doxygen subfiling APIs

* Various fixes which allow the IOR benchmark to run correctly

* Lots of updates including the packaging up of the mercury_util source files to enable easier builds for our Benchmarking

* Interim checkin of selection_io_with_subfiling_vfd branch

    Moddified testpar/t_vfd.c to test the subfiling vfd with default configuration.
    Must update this code to run with a variety of configurations -- most particularly
    multiple IO concentrators, and stripe depth small enough to test the other IO
    concentrators.

    testpar/t_vfd.c exposed a large number of race condidtions -- symtoms included:

      1) Crashes (usually seg faults)

      2) Heap corruption

      3) Stack corruption

      4) Double frees of heap space

      5) Hangs

      6) Out of order execution of I/O requests / violations of POSIX semantics

      7) Swapped write requests

        Items 1 - 4 turned out to be primarily caused by file close issues --
    specifically, the main I/O concentrator thread and its pool of worker threads
    were not being shut down properly on file close.  Addressing this issue in
    combination with some other minor fixes seems to have addressed these issues.

        Items 5 & 6 appear to have been caused by issue of I/O requests to the
    thread pool in an order that did not maintain POSIX semantics.  A rewrite of
    the I/O request dispatch code appears to have solved these issues.

        Item 7 seems to have been caused by multiple write requests from a given
    rank being read by the wrong worker thread.  Code to issue "unique" tags for
    each write request via the ACK message appears to have cleaned this up.

        Note that the code is still in poor condtition.  A partial list of known
    defects includes:

     a) Race condiditon on file close that allows superblock writes to arrive
        at the I/O concentrator after it has been shutdown.  This defect is
        most evident when testpar/t_subfiling_vfd is run with 8 ranks.

     b) No error reporting from I/O concentrators -- must design and implement
        this.  For now, mostly just asserts, which suggests that it should be
        run in debug mode.

     c) Much commented out and/or un-used code.

     d) Code orgnaization

     e) Build system with bits of Mercury is awkward -- think of shifting
        to pthreads with our own thread pool code.

     f) Need to add native support for vector and selection I/O to the subfiling
        VFD.

     g) Need to review, and posibly rework configuration code.

     h) Need to store subfile configuration data in a superblock extension message,
        and add code to use this data on file open.

     i) Test code is inadequate -- expect more issues as it is extended.

        In particular, there is no unit test code for the I/O request dispatch code.
        While I think it is correct at present, we need test code to verify this.

        Similarly, we need to test with multiple I/O concentrators and much smaller
        stripe depth.

    My actual code changes were limited to:

          src/H5FDioc.c
          src/H5FDioc_threads.c
          src/H5FDsubfile_int.c
          src/H5FDsubfile_mpi.c
          src/H5FDsubfiling.c
          src/H5FDsubfiling.h
          src/H5FDsubfiling_priv.h
          testpar/t_subfiling_vfd.c
          testpar/t_vfd.c

    I'm not sure what is going on with the deletions in src/mercury/src/util.

    Tested parallel/debug on Charis and Jelly

* subfiling with selection IO (#1219)

Merged branch 'selection_io' into subfiling branch.

* Subfile name fixes (#1250)

* fixed subfiling naming convention, and added leading zero to rank names.

* Merge branch 'selection_io' into selection_io_with_subfiling_vfd (#1265)

* Added script to join subfiles into a single HDF5 file (#1350)

* Modified  H5FD__subfiling_query() to report that the sub-filing VFD supports MPI
This exposed issues with truncate and get EOF in the sub-filing VFD.
I believe I have addressed these issues (get EOF not as fully tested as it should be), howeer,
it exposed race conditions resulting in hangs.  As of this writing, I have not been able
to chase these down.

Note that the tests that expose these race conditions are in testpar/t_subfiling_vfd.c, and
are currently skipped.  Unskip these tests to reproduce the race conditions.

tested (to the extent possible) debug/parallel on charis and jelly.

* Committing clang-format changes

* fixed H5MM_free

Co-authored-by: mainzer <mainzer#hdfgroup.org>
Co-authored-by: jrmainzer <72230804+jrmainzer@users.noreply.github.com>
Co-authored-by: Richard Warren <Richard.Warren@hdfgroup.org>
Co-authored-by: Richard.Warren <richard.warren@jelly.ad.hdfgroup.org>
Co-authored-by: github-actions <41898282+github-actions[bot]@users.noreply.github.com>

* Move Subfiling VFD components into H5FDsubfiling source directory

* Update Autotools build and add H5_HAVE_SUBFILING_VFD macro to H5pubconf.h

* Tidy up CMake build of subfiling sources

* Merge branch 'develop' into feature/subfiling (#1539)

Merge branch 'develop' into feature/subfiling

* Add VFD interface version field to Subfiling and IOC VFDs

* Merge branch 'develop' into feature/subfiling (#1557)

Merge branch 'develop' into feature/subfiling

* Merge branch 'develop' into feature/subfiling (#1563)

Merge branch 'develop' into feature/subfiling

* Tidy up merge artifacts after rebase on develop

* Fix incorrect variable in mirror VFD utils CMake

* Ensure VFD values are always defined

* Add subfiling to CMake VFD_LIST if built

* Mark MPI I/O driver self-initialization global as static

* Add Subfiling VFD to predefined VFDs for HDF5_DRIVER env. variable

* Initial progress towards separating private vs. public subfiling code

* include libgen.h in t_vfd tests for correct dirname/basename

* Committing clang-format changes

* removed mercury option, included subfiling header path (#1577)

Added subfiling status to configure output, installed h5fuse.sh to build directory for use in future tests.

* added check for stdatomic.h (#1578)

* added check for stdatomic.h with subfiling
* added H5_HAVE_SUBFILING_VFD for cmake

* fix old-style-definition warning (#1582)

* fix old-style-definition warning

* added test for enable parallel with subfiling VFD (#1586)

Fails if subfiling VFD is not used with parallel support.

* Subfiling/IOC VFD fixes and tidying (#1619)

* Rename CMake option for Subfiling VFD to be consistent with other VFDs

* Miscellaneous Subfiling fixes

Add error message for unset MPI communicator

Support dynamic loading of subfiling VFD with default configuration

* Temporary fix for subfile name issue

* Added subfile checks (#1634)

* added subfile checks

* Feature/subfiling (#1655)

* Subfiling/IOC VFD cleanup

Fix misuse of MPI_COMM_WORLD in IOC VFD

Propagate Subfiling FAPL MPI settings down to IOC FAPL in default
configuration case

Cleanup IOC VFD debugging code

Change sprintf to snprintf in a few places

* Major work on separating Subfiling and IOC VFDs from each other

* Re-write async_completion func to not overuse stack

* Replace usage of MPI_COMM_WORLD with file's actual MPI communicator

* Refactor H5FDsubfile_mpi.c

* Remove empty file H5FDsubfile_mpi.c

* Separate IOC VFD errors to its own error stack

* Committing clang-format changes

* Remove H5TRACE macros from H5FDioc.c

* Integrate H5FDioc_threads.c with IOC error stack

* Fix for subfile name generation

Use number of I/O concentrators from existing subfiling configuration file, if one exists

* Add temporary barrier in "Get EOF" operation to prevent races on EOF

Co-authored-by: github-actions <41898282+github-actions[bot]@users.noreply.github.com>

* Fix for retrieval of machine Host ID

* Default to MPI_COMM_WORLD if no MPI params set

* added libs rt and pthreads (#1673)

* added libs rt and pthreads

* Feature/subfiling (#1689)

* More tidying of IOC VFD and subfiling debug code

* Remove old unused log file code

* Clear FID from active file map on failure

* Fix bug in generation of subfile names when truncating file

* Change subfile names to start from 1 instead of 0

* Use long long for user-specified stripe size from environment variable

* Skip 0-sized I/Os in low-level IOC I/O routines

* Don't update EOF on read

* Convert printed warning about data size mismatch to assertion

* Don't add base file address to I/O addresses twice

Base address should already be applied as part of H5FDwrite/read_vector calls

* Account for 0-sized I/O vector entries in subfile write/read functions

* Rewrite init_indep_io for clarity

* Correction for IOC wraparound calculations

* Some corrections to iovec calculations

* Remove temporary barrier on EOF retrieval

* Complete work request queue entry on error instead of skipping over

* Account for stripe size wraparound for sf_col_offset calculation

* Committing clang-format changes

Co-authored-by: github-actions <41898282+github-actions[bot]@users.noreply.github.com>

* Re-write and fix bugs in I/O vector filling routines (#1703)

* Rewrite I/O vector filling routines for clarity

* Fix bug with iovec_fill_last when last I/O size is 0

* added subfiling_dir line read (#1714)

* added subfiling_dir line read and use it
* shellcheck fixes

* I/O request dispatch logic update (#1731)

Short-circuit I/O request dispatch when head of I/O queue is an
in-progress get EOF or truncate operation. This prevents an issue where
a write operation can be dispatched alongside a get EOF/truncate
operation, whereas all I/O requests are supposed to be ineligible for
dispatch until the get EOF/truncate is completed

* h5fuse.sh.in clean-up (#1757)

* Added command-line options

* Committing clang-format changes

* Align with changes from develop

* Mimic MPI I/O VFD for EOF handling

* Initialize context_id field for work request objects

* Use logfile for some debugging information

* Use atomic store to set IOC ready flag

* Use separate communicator for sending file EOF data

Minor IOC cleanup

* Use H5_subfile_fid_to_context to get context ID for file in Subfiling
VFD

* IOVEC calculation fixes

* Updates for debugging code

* Minor fixes for threaded code

* Committing clang-format changes

* Use separate MPI communicator for barrier operations

* Committing clang-format changes

* Rewrite EOF routine to use nonblocking MPI communication

* Committing clang-format changes

* Always dispatch I/O work requests in IOC main loop

* Return distinct MPI communicator to library when requested

* Minor warning cleanup

* Committing clang-format changes

* Generate h5fuse.sh from h5fuse.sh.in in CMake

* Send truncate messages to correct IOC rank

* Committing clang-format changes

* Miscellaneous cleanup

Post some MPI receives before sends

Free some duplicated MPI communicator/Info objects

Remove unnecessary extra MPI_Barrier

* Warning cleanup

* Fix for leaked MPI communicator

* Retrieve file EOF on single rank and bcast it

* Fixes for a few failure paths

* Cleanup of IOC file opens

* Committing clang-format changes

* Use plan MPI_Send for send of EOF messages

* Always check MPI thread support level during Subfiling init

* Committing clang-format changes

* Handle a hang on failure when IOCs can't open subfiles

* Committing clang-format changes

* Refactor file open status consensus check

* Committing clang-format changes

* Fix for MPI_Comm_free being called after MPI_Finalize

* Fix VFD test by setting MPI params before setting subfiling on FAPL

* Update Subfiling VFD error handling and error stack usage

* Improvements for Subfiling logfiles

* Remove prototypes for currently unused routines

* Disable I/O queue stat collecting by default

* Remove unused serialization mutex variable

* Update VFD testing to take subfiling VFD into account

* Fix usage of global subfiling application layout object

* Minor fixes for failure pathways

* Keep track of the number of failures in an IOC I/O queue

* Make sure not to exceed MPI_TAG_UB value for data communication messages

* Committing clang-format changes

* Update for rename of some H5FD 'ctl' opcodes

* Always include Subfiling's public header files in hdf5.h

* Remove old unused code and comments

* Implement support for per-file I/O queues

Allows the subfiling VFD to have multiple HDF5 files open simultaneously

* Use simple MPI_Iprobe over unnecessary MPI_Improbe

* Committing clang-format changes

* Update HDF5 testing to query driver for H5FD_FEAT_DEFAULT_VFD_COMPATIBLE
flag

* Fix a few bugs related to file multi-opens

* Avoid calling MPI routines if subfiling gets reinitialized

* Fix issue when files are closed in a random order

* Update HDF5 testing to query VFD for "using MPI" feature flag

* Register atexit handler in subfiling VFD to call MPI_Finalize after HDF5
closes

* Fail for collective I/O requests until support is implemented

* Correct VOL test function prototypes

* Minor cleanup of old code and comments

* Update mercury dependency

* Cleanup of subfiling configuration structure

* Committing clang-format changes

* Build system updates for Subfiling VFD

* Fix possible hang on failure in t_vfd tests caused by mismatched
MPI_Barrier calls

* Copy subfiling IOC fapl in "fapl get" method

* Mirror subfiling superblock writes to stub file for legacy POSIX-y HDF5
applications

* Allow collective I/O for MPI_BYTE types and rank 0 bcast strategy

* Committing clang-format changes

* Use different scheme for subfiling write message MPI tag calculations

* Committing clang-format changes

* Avoid performing fstat calls on all MPI ranks

* Add MPI_Barrier before finalizing IOC threads

* Use try_lock in I/O queue dispatch to minimize contention from worker threads

* Use simple Waitall for nonblocking I/O waits

* Add configurable IOC main thread delay and try_lock option to I/O queue dispatch

* Fix bug that could cause serialization of non-overlapping I/O requests

* Temporarily treat collective subfiling vector I/O calls as independent

* Removed unused mercury bits

* Add stubs for subfiling and IOC file delete callback

* Update VFD testing for Subfiling VFD

* Work around HDF5 metadata cache bug for Subfiling VFD when MPI Comm size
= 1

* Committing clang-format changes

Co-authored-by: mainzer <mainzer#hdfgroup.org>
Co-authored-by: Neil Fortner <nfortne2@hdfgroup.org>
Co-authored-by: Scot Breitenfeld <brtnfld@hdfgroup.org>
Co-authored-by: github-actions <41898282+github-actions[bot]@users.noreply.github.com>
Co-authored-by: jrmainzer <72230804+jrmainzer@users.noreply.github.com>
Co-authored-by: Richard Warren <Richard.Warren@hdfgroup.org>
Co-authored-by: Richard.Warren <richard.warren@jelly.ad.hdfgroup.org>
2022-07-22 13:03:12 -07:00

3815 lines
121 KiB
C
Raw Blame History

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* Copyright by The HDF Group. *
* Copyright by the Board of Trustees of the University of Illinois. *
* All rights reserved. *
* *
* This file is part of HDF5. The full HDF5 copyright notice, including *
* terms governing use, modification, and redistribution, is contained in *
* the COPYING file, which can be found at the root of the source code *
* distribution tree, or in https://www.hdfgroup.org/licenses. *
* If you do not have access to either file, you may request a copy from *
* help@hdfgroup.org. *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
/*
* Programmer: Pedro Vicente
* April 12, 2002
*
* Purpose: Tests the "ID to name" functionality
*/
#define H5G_FRIEND /*suppress error about including H5Gpkg */
#define H5I_FRIEND /*suppress error about including H5Ipkg */
/* Define these macros to indicate that the testing APIs should be available */
#define H5G_TESTING
#define H5I_TESTING
#include "h5test.h"
#include "H5Gpkg.h" /* Groups */
#include "H5Ipkg.h" /* IDs */
/* Compound datatype */
typedef struct s1_t {
unsigned int a;
unsigned int b;
float c;
} s1_t;
const char *FILENAME[] = {"getname", "getname1", "getname2", "getname3", NULL};
#define NAME_BUF_SIZE 64
#define SMALL_NAME_BUF_SIZE 2
/* Object reference macros */
#define SPACE1_RANK 1
#define SPACE1_DIM1 8
/* Dataset region reference macros */
#define REFREG_DSETNAMEV "MATRIX"
#define REFREG_DSETNAMER "REGION_REFERENCES"
static int
check_name(hid_t id, const char *chk_name, const char *chk_user_path)
{
char name[NAME_BUF_SIZE]; /* Buffer to hold name and its size */
char user_path[NAME_BUF_SIZE]; /* Buffer to hold user path */
size_t user_path_len; /* Length of user path */
unsigned user_path_hidden; /* Whether the user path is hidden */
/* Get name */
*name = '\0';
if (H5Iget_name(id, name, NAME_BUF_SIZE) < 0)
TEST_ERROR;
/* Get user path */
*user_path = '\0';
if (H5G__user_path_test(id, user_path, &user_path_len, &user_path_hidden) < 0)
TEST_ERROR;
/* Check on name from H5Iget_name() */
if (HDstrcmp(name, chk_name) != 0)
goto error;
/* Check on user path */
if (HDstrcmp(user_path, chk_user_path) != 0)
goto error;
/* Check that if user path is hidden, the name from H5Iget_name() and the user path should be different */
if (user_path_hidden && !HDstrcmp(chk_name, chk_user_path))
TEST_ERROR;
/* Everything matches */
return 0;
error:
/* Something doesn't match or something bad happened */
return -1;
}
static int
test_main(hid_t file_id, hid_t fapl)
{
char filename1[1024];
char filename2[1024];
char filename3[1024];
hid_t file1_id, file2_id, file3_id;
hid_t group_id, group2_id, group3_id, group4_id, group5_id, group6_id, group7_id;
hid_t dataset_id, dataset2_id;
hid_t space_id;
hid_t type_id, type2_id;
hsize_t dims[1] = {5};
size_t name_len; /* Name length */
H5O_info2_t oinfo; /* Object info structs */
hid_t dtype; /* Object identifier for testing */
hid_t dtype_anon; /* Object identifier for testing anonymous */
ssize_t size; /* Size returned by H5Iget_name */
/* Initialize the file names */
h5_fixname(FILENAME[1], fapl, filename1, sizeof filename1);
h5_fixname(FILENAME[2], fapl, filename2, sizeof filename2);
h5_fixname(FILENAME[3], fapl, filename3, sizeof filename3);
/*-------------------------------------------------------------------------
* Test H5Iget_name with one group
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with one group");
/* Create group "g0" in the root group using absolute name */
if ((group_id = H5Gcreate2(file_id, "/g0", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group_id, "/g0", "/g0") < 0)
TEST_ERROR;
/* Close */
H5Gclose(group_id);
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with more than one group
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with more than one group");
/* Create group "g1" in the root group using absolute name */
if ((group_id = H5Gcreate2(file_id, "/g1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Create group "g2" in group "g1" using absolute name */
if ((group2_id = H5Gcreate2(file_id, "/g1/g2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group_id, "/g1", "/g1") < 0)
TEST_ERROR;
/* Verify */
if (check_name(group2_id, "/g1/g2", "/g1/g2") < 0)
TEST_ERROR;
/* Close */
H5Gclose(group_id);
H5Gclose(group2_id);
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with H5Gopen2
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with H5Gopen2");
/* Reopen the group */
if ((group_id = H5Gopen2(file_id, "/g1", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Reopen the group */
if ((group2_id = H5Gopen2(file_id, "/g1/g2", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group_id, "/g1", "/g1") < 0)
TEST_ERROR;
/* Verify */
if (check_name(group2_id, "/g1/g2", "/g1/g2") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with H5Dcreate2
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with H5Dcreate2");
/* Create the dataspace */
if ((space_id = H5Screate_simple(1, dims, NULL)) < 0)
TEST_ERROR;
/* Create a new dataset */
if ((dataset_id =
H5Dcreate2(file_id, "d1", H5T_NATIVE_INT, space_id, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
TEST_ERROR;
/* Verify */
if (check_name(dataset_id, "/d1", "/d1") < 0)
TEST_ERROR;
/* Close */
if (H5Dclose(dataset_id) < 0)
FAIL_STACK_ERROR;
/* Reopen the group */
if ((group_id = H5Gopen2(file_id, "g1", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Create a new dataset inside "g1" */
if ((dataset_id =
H5Dcreate2(group_id, "d1", H5T_NATIVE_INT, space_id, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(dataset_id, "/g1/d1", "/g1/d1") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Dclose(dataset_id) < 0)
FAIL_STACK_ERROR;
if (H5Sclose(space_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with H5Dopen2
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with H5Dopen2");
/* Reopen the dataset */
if ((dataset_id = H5Dopen2(file_id, "d1", H5P_DEFAULT)) < 0)
TEST_ERROR;
/* Verify */
if (check_name(dataset_id, "/d1", "/d1") < 0)
TEST_ERROR;
/* Close */
if (H5Dclose(dataset_id) < 0)
FAIL_STACK_ERROR;
/* Reopen the group */
if ((group_id = H5Gopen2(file_id, "g1", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Reopen the dataset */
if ((dataset_id = H5Dopen2(group_id, "d1", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(dataset_id, "/g1/d1", "/g1/d1") < 0)
TEST_ERROR;
/* Close */
if (H5Dclose(dataset_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with a long path
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with a long path");
/* Create group "g2/bar/baz" */
if ((group_id = H5Gcreate2(file_id, "g2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file_id, "g2/bar", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file_id, "g2/bar/baz", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Create a dataset */
if ((space_id = H5Screate_simple(1, dims, NULL)) < 0)
TEST_ERROR;
if ((dataset_id = H5Dcreate2(group3_id, "d1", H5T_NATIVE_INT, space_id, H5P_DEFAULT, H5P_DEFAULT,
H5P_DEFAULT)) < 0)
TEST_ERROR;
/* Close */
if (H5Dclose(dataset_id) < 0)
FAIL_STACK_ERROR;
if (H5Sclose(space_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
/* Reopen the dataset */
if ((dataset_id = H5Dopen2(file_id, "/g2/bar/baz/d1", H5P_DEFAULT)) < 0)
TEST_ERROR;
/* Verify */
if (check_name(dataset_id, "/g2/bar/baz/d1", "/g2/bar/baz/d1") < 0)
TEST_ERROR;
/* Close */
if (H5Dclose(dataset_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with H5Tcommit2
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with H5Tcommit2");
/* Create a datatype */
if ((type_id = H5Tcreate(H5T_COMPOUND, sizeof(s1_t))) < 0)
TEST_ERROR;
/* Insert fields */
if (H5Tinsert(type_id, "a", HOFFSET(s1_t, a), H5T_NATIVE_INT) < 0)
TEST_ERROR;
if (H5Tinsert(type_id, "b", HOFFSET(s1_t, b), H5T_NATIVE_INT) < 0)
TEST_ERROR;
if (H5Tinsert(type_id, "c", HOFFSET(s1_t, c), H5T_NATIVE_FLOAT) < 0)
TEST_ERROR;
/* Save datatype for later */
if (H5Tcommit2(file_id, "t1", type_id, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT) < 0)
TEST_ERROR;
/* Verify */
if (check_name(type_id, "/t1", "/t1") < 0)
TEST_ERROR;
/* Close datatype */
H5Tclose(type_id);
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with H5Topen2
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with H5Topen2");
/* Open the named datatype */
if ((type_id = H5Topen2(file_id, "t1", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(type_id, "/t1", "/t1") < 0)
TEST_ERROR;
/* Close datatype */
if (H5Tclose(type_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with H5Lmove and H5Gopen2
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with H5Lmove and H5Gopen2");
/* Reopen the group */
if ((group_id = H5Gopen2(file_id, "/g1", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Rename group */
if (H5Lmove(file_id, "/g1", H5L_SAME_LOC, "/g1a", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group_id, "/g1a", "/g1a") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with H5Lmove and H5Dopen2
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with H5Lmove and H5Dopen2");
/* Reopen the dataset */
if ((dataset_id = H5Dopen2(file_id, "/d1", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Rename dataset */
if (H5Lmove(file_id, "/d1", H5L_SAME_LOC, "/d1a", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(dataset_id, "/d1a", "/d1a") < 0)
FAIL_STACK_ERROR;
/* Close */
if (H5Dclose(dataset_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with H5Lmove and H5Topen2
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with H5Lmove and H5Topen2");
/* Open the named datatype */
if ((type_id = H5Topen2(file_id, "/t1", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Rename datatype */
if (H5Lmove(file_id, "/t1", H5L_SAME_LOC, "/t1a", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(type_id, "/t1a", "/t1a") < 0)
FAIL_STACK_ERROR;
/* Close datatype */
if (H5Tclose(type_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with H5Lmove and relative names
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with H5Lmove and relative names");
/* Create group "/g3" */
if ((group_id = H5Gcreate2(file_id, "/g3", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Create group "/g3/foo" using absolute name */
if ((group2_id = H5Gcreate2(file_id, "/g3/foo1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Open group "/g3/foo" again */
if ((group3_id = H5Gopen2(file_id, "/g3/foo1", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Rename group */
if (H5Lmove(group_id, "foo1", H5L_SAME_LOC, "foo2", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group_id, "/g3", "/g3") < 0)
TEST_ERROR;
/* Verify */
if (check_name(group2_id, "/g3/foo2", "/g3/foo2") < 0)
TEST_ERROR;
/* Verify */
if (check_name(group3_id, "/g3/foo2", "/g3/foo2") < 0)
TEST_ERROR;
/* Rename group again */
if (H5Lmove(file_id, "g3/foo2", H5L_SAME_LOC, "g3/foo1", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group_id, "/g3", "/g3") < 0)
TEST_ERROR;
/* Verify */
if (check_name(group2_id, "/g3/foo1", "/g3/foo1") < 0)
TEST_ERROR;
/* Verify */
if (check_name(group3_id, "/g3/foo1", "/g3/foo1") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with H5Lmove and a long path
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with H5Lmove and a long path");
/* Create group "g4/A/B" */
if ((group_id = H5Gcreate2(file_id, "g4", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file_id, "g4/A", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file_id, "g4/A/B", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Create group "g5/C" */
if ((group4_id = H5Gcreate2(file_id, "g5", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group5_id = H5Gcreate2(file_id, "g5/C", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group3_id, "/g4/A/B", "/g4/A/B") < 0)
TEST_ERROR;
/* Move group "B" to "D"*/
if (H5Lmove(file_id, "/g4/A/B", H5L_SAME_LOC, "/g5/C/D", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group3_id, "/g5/C/D", "/g5/C/D") < 0)
TEST_ERROR;
/* Move group "/g5/C/D" back to "/g4/A/B" using relative name */
if (H5Lmove(group5_id, "D", group2_id, "B", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group3_id, "/g4/A/B", "/g4/A/B") < 0)
TEST_ERROR;
/* Move group "/g4/A/B" to "/g4/F/B" using relative name */
if (H5Lmove(group_id, "A", group_id, "F", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group3_id, "/g4/F/B", "/g4/F/B") < 0)
TEST_ERROR;
/* Verify */
if (check_name(group2_id, "/g4/F", "/g4/F") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group4_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group5_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with H5Lmove and a long path #2
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with H5Lmove and a long path #2");
/* Create group "g6/A/B" and "g7" */
if ((group_id = H5Gcreate2(file_id, "g6", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file_id, "g6/A", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file_id, "g6/A/B", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group4_id = H5Gcreate2(file_id, "g7", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group3_id, "/g6/A/B", "/g6/A/B") < 0)
TEST_ERROR;
/* Move group "A" to "C"*/
if (H5Lmove(file_id, "/g6/A", H5L_SAME_LOC, "/g7/C", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group2_id, "/g7/C", "/g7/C") < 0)
TEST_ERROR;
/* Verify */
if (check_name(group3_id, "/g7/C/B", "/g7/C/B") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group4_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with H5Ldelete
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with H5Ldelete");
/* Create a new group. */
if ((group_id = H5Gcreate2(file_id, "/g8", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Delete */
if (H5Ldelete(file_id, "/g8", H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group_id, "", "") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with H5Ldelete and a long path
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with H5Ldelete and a long path");
/* Create group "g9/a/b" */
if ((group_id = H5Gcreate2(file_id, "g9", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file_id, "g9/a", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file_id, "g9/a/b", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Delete */
if (H5Ldelete(file_id, "/g9/a", H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group2_id, "", "") < 0)
TEST_ERROR;
/* Verify */
if (check_name(group3_id, "", "") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
/* Recreate groups */
if ((group2_id = H5Gcreate2(group_id, "a", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(group_id, "a/b", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Delete, using relative path */
if (H5Ldelete(group_id, "a", H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group2_id, "", "") < 0)
TEST_ERROR;
/* Verify */
if (check_name(group3_id, "", "") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
/* Create group "g10/a/b" */
if ((group_id = H5Gcreate2(file_id, "g10", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file_id, "g10/a", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file_id, "g10/a/b", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Delete */
if (H5Ldelete(file_id, "/g10/a/b", H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group3_id, "", "") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
/* Recreate group */
if ((group3_id = H5Gcreate2(group_id, "a/b", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Delete, using relative path */
if (H5Ldelete(group_id, "a/b", H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group3_id, "", "") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with H5Ldelete, same names
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with H5Ldelete, same names");
/* Create group "g11/g" */
if ((group_id = H5Gcreate2(file_id, "g11", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file_id, "g11/g", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Create two datasets "g11/d" and "g11/g/d"*/
if ((space_id = H5Screate_simple(1, dims, NULL)) < 0)
FAIL_STACK_ERROR;
if ((dataset_id =
H5Dcreate2(group_id, "d", H5T_NATIVE_INT, space_id, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((dataset2_id =
H5Dcreate2(group2_id, "d", H5T_NATIVE_INT, space_id, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Delete */
if (H5Ldelete(file_id, "/g11/d", H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(dataset_id, "", "") < 0)
TEST_ERROR;
/* Verify */
if (check_name(dataset2_id, "/g11/g/d", "/g11/g/d") < 0)
TEST_ERROR;
/* Close */
if (H5Dclose(dataset_id) < 0)
FAIL_STACK_ERROR;
if (H5Dclose(dataset2_id) < 0)
FAIL_STACK_ERROR;
if (H5Sclose(space_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with H5Fmount; with IDs on the list
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with H5Fmount; with IDs on the list");
/* Create a group "g12" in the first file */
if ((group_id = H5Gcreate2(file_id, "/g12", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
/* Create second file and dataset "d" in it */
if ((file1_id = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR;
/* Create a dataspace */
if ((space_id = H5Screate_simple(1, dims, NULL)) < 0)
TEST_ERROR;
/* Create the dataset */
if ((dataset_id =
H5Dcreate2(file1_id, "d", H5T_NATIVE_INT, space_id, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
TEST_ERROR;
/* Close */
if (H5Dclose(dataset_id) < 0)
FAIL_STACK_ERROR;
/* Mount second file under "g12" in the first file */
if (H5Fmount(file_id, "/g12", file1_id, H5P_DEFAULT) < 0)
TEST_ERROR;
/* Access dataset D in the first file under "/G/D" name */
if ((dataset_id = H5Dopen2(file_id, "/g12/d", H5P_DEFAULT)) < 0)
TEST_ERROR;
/* Verify */
if (check_name(dataset_id, "/g12/d", "/g12/d") < 0)
TEST_ERROR;
if (H5Funmount(file_id, "/g12") < 0)
TEST_ERROR;
/* Close */
if (H5Dclose(dataset_id) < 0)
FAIL_STACK_ERROR;
if (H5Fclose(file1_id) < 0)
FAIL_STACK_ERROR;
if (H5Sclose(space_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with H5Fmount; long name
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with H5Fmount; long name");
/* Create a group "g13/g1/g2" in the first file */
if ((group_id = H5Gcreate2(file_id, "/g13", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file_id, "/g13/g1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file_id, "/g13/g1/g2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
/* Create second file and group "g" in it */
file1_id = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, fapl);
if ((group_id = H5Gcreate2(file1_id, "/g14", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file1_id, "/g14/g3", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file1_id, "/g14/g3/g4", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
/* Mount second file under "/g13/g1" in the first file */
if (H5Fmount(file_id, "/g13/g1", file1_id, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Access group in the first file */
if ((group_id = H5Gopen2(file_id, "/g13/g1/g14/g3/g4", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group_id, "/g13/g1/g14/g3/g4", "/g13/g1/g14/g3/g4") < 0)
TEST_ERROR;
if (H5Funmount(file_id, "/g13/g1") < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group_id, "/g14/g3/g4", "") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
/* Access group in the file to mount */
if ((group3_id = H5Gopen2(file1_id, "/g14/g3/g4", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Mount second file under "/g13/g1" in the first file(again) */
if (H5Fmount(file_id, "/g13/g1", file1_id, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Get a group ID for the parent of the newly mounted group */
if ((group2_id = H5Gopen2(file_id, "/g13", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Access group in the first file */
if ((group_id = H5Gopen2(file_id, "/g13/g1/g14/g3/g4", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group_id, "/g13/g1/g14/g3/g4", "/g13/g1/g14/g3/g4") < 0)
TEST_ERROR;
if (check_name(group3_id, "/g14/g3/g4", "/g14/g3/g4") < 0)
TEST_ERROR;
if (H5Funmount(group2_id, "g1") < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group_id, "/g14/g3/g4", "") < 0)
TEST_ERROR;
if (check_name(group3_id, "/g14/g3/g4", "/g14/g3/g4") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
/* Mount second file under "/g13/g1" in the first file(again) */
if (H5Fmount(file_id, "/g13/g1", file1_id, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Get a group ID for the newly mounted group */
if ((group2_id = H5Gopen2(file_id, "/g13/g1", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Access group in the first file */
if ((group_id = H5Gopen2(file_id, "/g13/g1/g14/g3/g4", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group_id, "/g13/g1/g14/g3/g4", "/g13/g1/g14/g3/g4") < 0)
TEST_ERROR;
if (check_name(group2_id, "/g13/g1", "/g13/g1") < 0)
TEST_ERROR;
if (H5Funmount(group2_id, ".") < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group_id, "/g14/g3/g4", "") < 0)
TEST_ERROR;
if (check_name(group2_id, "/", "") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
/* Mount second file under "/g13/g1" in the first file, using relative path */
if ((group3_id = H5Gopen2(file_id, "/g13", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group3_id, "/g13", "/g13") < 0)
TEST_ERROR;
if (H5Fmount(group3_id, "g1", file1_id, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Get a group ID for the newly mounted group */
if ((group2_id = H5Gopen2(file_id, "/g13/g1", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group2_id, "/g13/g1", "/g13/g1") < 0)
TEST_ERROR;
/* Access group in the first file */
if ((group_id = H5Gopen2(file_id, "/g13/g1/g14/g3/g4", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group_id, "/g13/g1/g14/g3/g4", "/g13/g1/g14/g3/g4") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
/* Access group in the first file, with relative path */
if ((group_id = H5Gopen2(group2_id, "g14/g3/g4", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group_id, "/g13/g1/g14/g3/g4", "/g13/g1/g14/g3/g4") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Funmount(group2_id, ".") < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group2_id, "/", "") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
/* Mount second file under "/g13/g1" in the first file, using relative path */
if ((group3_id = H5Gopen2(file_id, "/g13/g1", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group3_id, "/g13/g1", "/g13/g1") < 0)
TEST_ERROR;
if (H5Fmount(group3_id, ".", file1_id, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Get a group ID for the newly mounted group */
if ((group2_id = H5Gopen2(file_id, "/g13/g1", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group2_id, "/g13/g1", "/g13/g1") < 0)
TEST_ERROR;
/* Access group in the first file */
if ((group_id = H5Gopen2(file_id, "/g13/g1/g14/g3/g4", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group_id, "/g13/g1/g14/g3/g4", "/g13/g1/g14/g3/g4") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
/* Access group in the first file, with relative path */
if ((group_id = H5Gopen2(group2_id, "g14/g3/g4", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group_id, "/g13/g1/g14/g3/g4", "/g13/g1/g14/g3/g4") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Funmount(group2_id, ".") < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group2_id, "/", "") < 0)
TEST_ERROR;
if (check_name(group3_id, "/g13/g1", "/g13/g1") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
if (H5Fclose(file1_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with H5Funmount
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with H5Funmount");
/* Create a group "g15/g1/g2" in the first file */
if ((group_id = H5Gcreate2(file_id, "/g15", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file_id, "/g15/g1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file_id, "/g15/g1/g2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group4_id = H5Gcreate2(file_id, "/g15/g1/g2/g3", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Close */
H5Gclose(group_id);
H5Gclose(group2_id);
H5Gclose(group3_id);
H5Gclose(group4_id);
/* Create second file and group "g" in it */
file1_id = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, fapl);
if ((group_id = H5Gcreate2(file1_id, "/g16", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file1_id, "/g16/g4", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file1_id, "/g16/g4/g5", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
/* Access group in the first file */
if ((group_id = H5Gopen2(file_id, "/g15/g1/g2/g3", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Mount second file under "/g13/g1" in the first file */
if (H5Fmount(file_id, "/g15/g1", file1_id, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Access group in the second file */
if ((group2_id = H5Gopen2(file_id, "/g15/g1/g16/g4/g5", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group_id, "", "/g15/g1/g2/g3") < 0)
TEST_ERROR;
/* Verify */
if (check_name(group2_id, "/g15/g1/g16/g4/g5", "/g15/g1/g16/g4/g5") < 0)
TEST_ERROR;
if (H5Funmount(file_id, "/g15/g1") < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group_id, "/g15/g1/g2/g3", "/g15/g1/g2/g3") < 0)
TEST_ERROR;
/* Verify */
if (check_name(group2_id, "/g16/g4/g5", "") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Fclose(file1_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with a defined type dataset
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with a defined type dataset");
/* Create a datatype */
if ((type_id = H5Tcreate(H5T_COMPOUND, sizeof(s1_t))) < 0)
FAIL_STACK_ERROR;
/* Insert fields */
if (H5Tinsert(type_id, "a", HOFFSET(s1_t, a), H5T_NATIVE_INT) < 0)
FAIL_STACK_ERROR;
if (H5Tinsert(type_id, "b", HOFFSET(s1_t, b), H5T_NATIVE_INT) < 0)
FAIL_STACK_ERROR;
if (H5Tinsert(type_id, "c", HOFFSET(s1_t, c), H5T_NATIVE_FLOAT) < 0)
FAIL_STACK_ERROR;
/* Create group "g17" */
if ((group_id = H5Gcreate2(file_id, "g17", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Save datatype for later */
if (H5Tcommit2(group_id, "t", type_id, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Create a dataspace */
if ((space_id = H5Screate_simple(1, dims, NULL)) < 0)
FAIL_STACK_ERROR;
/* Create a new dataset */
if ((dataset_id = H5Dcreate2(group_id, "d", type_id, space_id, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) <
0)
FAIL_STACK_ERROR;
/* Close */
if (H5Dclose(dataset_id) < 0)
FAIL_STACK_ERROR;
if (H5Tclose(type_id) < 0)
FAIL_STACK_ERROR;
if (H5Sclose(space_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
/* Open the named datatype */
if ((type_id = H5Topen2(file_id, "/g17/t", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(type_id, "/g17/t", "/g17/t") < 0)
TEST_ERROR;
/* Close datatype */
if (H5Tclose(type_id) < 0)
FAIL_STACK_ERROR;
/* Reopen the dataset */
if ((dataset_id = H5Dopen2(file_id, "/g17/d", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Get datatype*/
if ((type_id = H5Dget_type(dataset_id)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(type_id, "/g17/t", "/g17/t") < 0)
TEST_ERROR;
/* Close */
if (H5Dclose(dataset_id) < 0)
FAIL_STACK_ERROR;
if (H5Tclose(type_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with objects that have two names
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with datasets that have two names");
/* Open dataset named "d"*/
if ((dataset_id = H5Dopen2(file_id, "/g17/d", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Create link to dataset named "link" */
if (H5Lcreate_hard(dataset_id, ".", file_id, "/g17/link", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
if ((dataset2_id = H5Dopen2(file_id, "/g17/link", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Make sure that the two IDs use two different names */
if (check_name(dataset_id, "/g17/d", "/g17/d") < 0)
TEST_ERROR;
if (check_name(dataset2_id, "/g17/link", "/g17/link") < 0)
TEST_ERROR;
if (H5Dclose(dataset_id) < 0)
FAIL_STACK_ERROR;
if (H5Dclose(dataset2_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with different files, test1
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with different files");
/* Create a new file using default properties. */
if ((file2_id = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR;
/* Create a new file using default properties. */
if ((file3_id = H5Fcreate(filename3, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR;
/* Create the dataspace */
if ((space_id = H5Screate_simple(1, dims, NULL)) < 0)
FAIL_STACK_ERROR;
/* Create a new dataset */
if ((dataset_id =
H5Dcreate2(file2_id, "d", H5T_NATIVE_INT, space_id, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Create a new dataset */
if ((dataset2_id =
H5Dcreate2(file3_id, "d", H5T_NATIVE_INT, space_id, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Delete */
if (H5Ldelete(file2_id, "/d", H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(dataset_id, "", "") < 0)
TEST_ERROR;
/* Verify */
if (check_name(dataset2_id, "/d", "/d") < 0)
TEST_ERROR;
/* Close */
if (H5Dclose(dataset_id) < 0)
FAIL_STACK_ERROR;
if (H5Dclose(dataset2_id) < 0)
FAIL_STACK_ERROR;
if (H5Sclose(space_id) < 0)
FAIL_STACK_ERROR;
if (H5Fclose(file2_id) < 0)
FAIL_STACK_ERROR;
if (H5Fclose(file3_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with different files, test2
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with different files #2");
/* Create a new file using default properties. */
if ((file2_id = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR;
/* Create a new file using default properties. */
if ((file3_id = H5Fcreate(filename3, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR;
/* Create the dataspace */
if ((space_id = H5Screate_simple(1, dims, NULL)) < 0)
FAIL_STACK_ERROR;
/* Create a new dataset */
if ((dataset_id =
H5Dcreate2(file2_id, "d", H5T_NATIVE_INT, space_id, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Create a new dataset */
if ((dataset2_id =
H5Dcreate2(file3_id, "d", H5T_NATIVE_INT, space_id, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Delete */
if (H5Ldelete(file3_id, "/d", H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(dataset_id, "/d", "/d") < 0)
TEST_ERROR;
/* Verify */
if (check_name(dataset2_id, "", "") < 0)
TEST_ERROR;
/* Close */
if (H5Dclose(dataset_id) < 0)
FAIL_STACK_ERROR;
if (H5Dclose(dataset2_id) < 0)
FAIL_STACK_ERROR;
if (H5Sclose(space_id) < 0)
FAIL_STACK_ERROR;
if (H5Fclose(file2_id) < 0)
FAIL_STACK_ERROR;
if (H5Fclose(file3_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with a small buffer for name
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with a small buffer for name");
/* Reopen the group */
if ((group_id = H5Gopen2(file_id, "/g17", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
{
/*small buffer to hold name and its size */
char name2[SMALL_NAME_BUF_SIZE];
/* Get name */
*name2 = '\0';
name_len = (size_t)H5Iget_name(group_id, name2, SMALL_NAME_BUF_SIZE);
/* Check that name is longer */
if (name_len <= SMALL_NAME_BUF_SIZE)
TEST_ERROR;
if (HDstrcmp(name2, "/") != 0)
TEST_ERROR;
}
/* Verify */
if (check_name(group_id, "/g17", "/g17") < 0)
TEST_ERROR;
/* Close */
H5Gclose(group_id);
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with a dynamic buffer for name
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with a dynamic buffer for name");
/* Reopen the group */
if ((group_id = H5Gopen2(file_id, "/g17", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Get name */
name_len = (size_t)H5Iget_name(group_id, NULL, NAME_BUF_SIZE);
{
/* dynamic buffer to hold name */
char *name3;
/* Include the extra null character */
name3 = (char *)HDmalloc(name_len + 1);
if (!name3)
TEST_ERROR;
/* Get name with dynamic buffer */
*name3 = '\0';
if (H5Iget_name(group_id, name3, name_len + 1) < 0)
TEST_ERROR;
/* Verify */
if (HDstrcmp(name3, "/g17") != 0)
TEST_ERROR;
*name3 = '\0';
/* Get name with smaller buffer */
*name3 = '\0';
if (H5Iget_name(group_id, name3, 3) < 0)
TEST_ERROR;
/* Verify */
if (HDstrcmp(name3, "/g") != 0)
TEST_ERROR;
HDfree(name3);
}
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with invalid IDs
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with invalid IDs");
/* Create a dataspace */
if ((space_id = H5Screate_simple(1, dims, NULL)) < 0)
TEST_ERROR;
/* Define a datatype */
if ((type_id = H5Tcopy(H5T_NATIVE_INT)) < 0)
TEST_ERROR;
/* Create a new dataset */
if ((dataset_id = H5Dcreate2(file_id, "d2", type_id, space_id, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) <
0)
TEST_ERROR;
{
char name[NAME_BUF_SIZE]; /* Buffer to hold name and its size */
/* Get name for non committed datatype, it should fail */
H5E_BEGIN_TRY
{
if (H5Iget_name(type_id, name, NAME_BUF_SIZE) > 0)
TEST_ERROR;
}
H5E_END_TRY;
/* Get name for dataspace, it should fail */
H5E_BEGIN_TRY
{
if (H5Iget_name(space_id, name, NAME_BUF_SIZE) > 0)
TEST_ERROR;
}
H5E_END_TRY;
}
/* Close */
if (H5Dclose(dataset_id) < 0)
FAIL_STACK_ERROR;
if (H5Sclose(space_id) < 0)
FAIL_STACK_ERROR;
if (H5Tclose(type_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with added names with mounting
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with added names with mounting");
/* Create a group "g18/g2" in the first file */
if ((group_id = H5Gcreate2(file_id, "/g18", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file_id, "/g18/g2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Also create a dataset and a datatype */
if ((space_id = H5Screate_simple(1, dims, NULL)) < 0)
FAIL_STACK_ERROR;
if ((type_id = H5Tcopy(H5T_NATIVE_INT)) < 0)
FAIL_STACK_ERROR;
if ((dataset_id =
H5Dcreate2(file_id, "g18/d2", type_id, space_id, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if (H5Tcommit2(file_id, "g18/t2", type_id, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Create second file and group "/g3/g4/g5" in it */
if ((file1_id = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file1_id, "/g3", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group4_id = H5Gcreate2(file1_id, "/g3/g4", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group5_id = H5Gcreate2(file1_id, "/g3/g4/g5", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Mount first file at "g3/g4" in the second file */
if (H5Fmount(file1_id, "/g3/g4", file_id, H5P_DEFAULT) < 0)
TEST_ERROR;
/* Get name for the group ID in the first file, should be "/g18/g2" still */
if (check_name(group2_id, "/g18/g2", "/g18/g2") < 0)
TEST_ERROR;
/* Get name for the dataset ID in the first file, should be "/g18/g2/d2" still */
if (check_name(dataset_id, "/g18/d2", "/g18/d2") < 0)
TEST_ERROR;
/* Get name for the datatype ID in the first file, should be "/g18/g2/t2" still */
if (check_name(type_id, "/g18/t2", "/g18/t2") < 0)
TEST_ERROR;
/* Open the mounted group, dataset, and datatype through their new names */
if ((group6_id = H5Gopen2(file1_id, "/g3/g4/g18/g2", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((dataset2_id = H5Dopen2(file1_id, "/g3/g4/g18/d2", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((type2_id = H5Topen2(file1_id, "/g3/g4/g18/t2", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify names */
if (check_name(group6_id, "/g3/g4/g18/g2", "/g3/g4/g18/g2") < 0)
TEST_ERROR;
if (check_name(dataset2_id, "/g3/g4/g18/d2", "/g3/g4/g18/d2") < 0)
TEST_ERROR;
if (check_name(type2_id, "/g3/g4/g18/t2", "/g3/g4/g18/t2") < 0)
TEST_ERROR;
/* Verify that old IDs still refer to objects by their old names */
if (check_name(group2_id, "/g18/g2", "/g18/g2") < 0)
TEST_ERROR;
if (check_name(dataset_id, "/g18/d2", "/g18/d2") < 0)
TEST_ERROR;
if (check_name(type_id, "/g18/t2", "/g18/t2") < 0)
TEST_ERROR;
/* Unmount */
if (H5Funmount(file1_id, "/g3/g4") < 0)
FAIL_STACK_ERROR;
/* Get name for the IDs of the first file, should be unchanged */
if (check_name(group2_id, "/g18/g2", "/g18/g2") < 0)
TEST_ERROR;
if (check_name(dataset_id, "/g18/d2", "/g18/d2") < 0)
TEST_ERROR;
if (check_name(type_id, "/g18/t2", "/g18/t2") < 0)
TEST_ERROR;
/* Get name for the IDs of the second file, should be local names now */
if (check_name(group6_id, "/g18/g2", "") < 0)
TEST_ERROR;
if (check_name(dataset2_id, "/g18/d2", "") < 0)
TEST_ERROR;
if (check_name(type2_id, "/g18/t2", "") < 0)
TEST_ERROR;
if (H5Tclose(type_id) < 0)
FAIL_STACK_ERROR;
if (H5Tclose(type2_id) < 0)
FAIL_STACK_ERROR;
if (H5Dclose(dataset_id) < 0)
FAIL_STACK_ERROR;
if (H5Dclose(dataset2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group4_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group5_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group6_id) < 0)
FAIL_STACK_ERROR;
if (H5Fclose(file1_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with H5Fclose
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with H5Fclose");
/* Create a file and group "/g1/g2" in it */
if ((file1_id = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR;
if ((group_id = H5Gcreate2(file1_id, "/g1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file1_id, "/g1/g2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group2_id, "/g1/g2", "/g1/g2") < 0)
TEST_ERROR;
/* Close file */
if (H5Fclose(file1_id) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group2_id, "/g1/g2", "/g1/g2") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with H5Fmount and H5Ldelete
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with H5Fmount and H5Ldelete");
/* Create a file and group "/g1/g2" in it */
if ((file1_id = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR;
if ((group_id = H5Gcreate2(file1_id, "/g1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file1_id, "/g1/g2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Create a new file and group "/g3/g4" in it */
if ((file2_id = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file2_id, "/g3", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group4_id = H5Gcreate2(file2_id, "/g3/g4", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Mount first file at "/g3/g4" in the second file */
if (H5Fmount(file2_id, "/g3/g4", file1_id, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Open the mounted group */
if ((group5_id = H5Gopen2(file2_id, "/g3/g4/g1/g2", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group5_id, "/g3/g4/g1/g2", "/g3/g4/g1/g2") < 0)
TEST_ERROR;
/* Delete */
if (H5Ldelete(file1_id, "/g3/g4/g1/g2", H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group5_id, "", "") < 0)
TEST_ERROR;
/* Verify */
if (check_name(group2_id, "", "") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group4_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group5_id) < 0)
FAIL_STACK_ERROR;
if (H5Fclose(file1_id) < 0)
FAIL_STACK_ERROR;
if (H5Fclose(file2_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with H5Fmount and H5Lmove
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with H5Fmount and H5Lmove");
/* Create a file and group "/g1/g2" in it */
if ((file1_id = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR;
if ((group_id = H5Gcreate2(file1_id, "/g1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file1_id, "/g1/g2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Create a new file and group "/g3/g4" in it */
if ((file2_id = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file2_id, "/g3", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group4_id = H5Gcreate2(file2_id, "/g3/g4", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Mount first file at "g3/g4" in the second file */
if (H5Fmount(file2_id, "/g3/g4", file1_id, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group4_id, "/g3/g4", "/g3/g4") < 0)
TEST_ERROR;
/* Open the mounted group */
if ((group5_id = H5Gopen2(file2_id, "/g3/g4/g1/g2", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group5_id, "/g3/g4/g1/g2", "/g3/g4/g1/g2") < 0)
TEST_ERROR;
/* Open another mounted group, in the middle of the path */
if ((group6_id = H5Gopen2(file2_id, "/g3/g4/g1", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group6_id, "/g3/g4/g1", "/g3/g4/g1") < 0)
TEST_ERROR;
/* Rename group */
if (H5Lmove(file2_id, "/g3/g4/g1/g2", H5L_SAME_LOC, "/g3/g4/g1/g5", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group5_id, "/g3/g4/g1/g5", "/g3/g4/g1/g5") < 0)
TEST_ERROR;
if (check_name(group2_id, "/g1/g5", "/g1/g5") < 0)
TEST_ERROR;
/* Rename group */
if (H5Lmove(file2_id, "/g3/g4/g1", H5L_SAME_LOC, "/g3/g4/g1a", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group5_id, "/g3/g4/g1a/g5", "/g3/g4/g1a/g5") < 0)
TEST_ERROR;
if (check_name(group2_id, "/g1a/g5", "/g1a/g5") < 0)
TEST_ERROR;
/* Verify */
if (check_name(group6_id, "/g3/g4/g1a", "/g3/g4/g1a") < 0)
TEST_ERROR;
if (check_name(group_id, "/g1a", "/g1a") < 0)
TEST_ERROR;
/* Rename middle group back, using relative path */
if (H5Lmove(group3_id, "g4/g1a", H5L_SAME_LOC, "g4/g1", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group5_id, "/g3/g4/g1/g5", "/g3/g4/g1/g5") < 0)
TEST_ERROR;
if (check_name(group2_id, "/g1/g5", "/g1/g5") < 0)
TEST_ERROR;
if (check_name(group6_id, "/g3/g4/g1", "/g3/g4/g1") < 0)
TEST_ERROR;
if (check_name(group_id, "/g1", "/g1") < 0)
TEST_ERROR;
/* Rename end group back, using relative path */
if (H5Lmove(group3_id, "g4/g1/g5", H5L_SAME_LOC, "g4/g1/g2", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group5_id, "/g3/g4/g1/g2", "/g3/g4/g1/g2") < 0)
TEST_ERROR;
if (check_name(group2_id, "/g1/g2", "/g1/g2") < 0)
TEST_ERROR;
if (check_name(group6_id, "/g3/g4/g1", "/g3/g4/g1") < 0)
TEST_ERROR;
if (check_name(group_id, "/g1", "/g1") < 0)
TEST_ERROR;
/* Rename mount point */
if (H5Lmove(file2_id, "/g3/g4", H5L_SAME_LOC, "/g3/g4a", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group4_id, "/g3/g4a", "/g3/g4a") < 0)
TEST_ERROR;
if (check_name(group5_id, "/g3/g4a/g1/g2", "/g3/g4a/g1/g2") < 0)
TEST_ERROR;
if (check_name(group6_id, "/g3/g4a/g1", "/g3/g4a/g1") < 0)
TEST_ERROR;
/* Rename mount point back, using relative path*/
if (H5Lmove(group3_id, "g4a", H5L_SAME_LOC, "g4", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group4_id, "/g3/g4", "/g3/g4") < 0)
TEST_ERROR;
if (check_name(group5_id, "/g3/g4/g1/g2", "/g3/g4/g1/g2") < 0)
TEST_ERROR;
if (check_name(group6_id, "/g3/g4/g1", "/g3/g4/g1") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group4_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group5_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group6_id) < 0)
FAIL_STACK_ERROR;
if (H5Fclose(file1_id) < 0)
FAIL_STACK_ERROR;
if (H5Fclose(file2_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with H5Lcreate_hard
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with H5Lcreate_hard");
/* Create group "g19/g1" */
if ((group_id = H5Gcreate2(file_id, "/g19", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file_id, "/g19/g1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Create hard link to "g19/g1/ group */
if (H5Lcreate_hard(file_id, "/g19/g1", H5L_SAME_LOC, "/g19/g2", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group2_id, "/g19/g1", "/g19/g1") < 0)
TEST_ERROR;
/* Open the group */
if ((group3_id = H5Gopen2(file_id, "/g19/g2", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group3_id, "/g19/g2", "/g19/g2") < 0)
TEST_ERROR;
/* Rename original group */
if (H5Lmove(file_id, "/g19/g1", H5L_SAME_LOC, "/g19/g3", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group2_id, "/g19/g3", "/g19/g3") < 0)
TEST_ERROR;
if (check_name(group3_id, "/g19/g2", "/g19/g2") < 0)
TEST_ERROR;
/* Rename original group back, using relative path */
if (H5Lmove(group_id, "g3", H5L_SAME_LOC, "g1", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group2_id, "/g19/g1", "/g19/g1") < 0)
TEST_ERROR;
if (check_name(group3_id, "/g19/g2", "/g19/g2") < 0)
TEST_ERROR;
/* Create another hard link to "/g19/g1" group */
if (H5Lcreate_hard(file_id, "/g19/g1", H5L_SAME_LOC, "/g19/g3", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Open the group */
if ((group4_id = H5Gopen2(file_id, "/g19/g3", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group4_id, "/g19/g3", "/g19/g3") < 0)
TEST_ERROR;
/* Delete group */
if (H5Ldelete(file_id, "/g19/g3", H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group4_id, "/g19/g1", "") < 0)
TEST_ERROR;
if (check_name(group2_id, "/g19/g1", "/g19/g1") < 0)
TEST_ERROR;
if (check_name(group3_id, "/g19/g2", "/g19/g2") < 0)
TEST_ERROR;
/* Close the unlinked group */
if (H5Gclose(group4_id) < 0)
FAIL_STACK_ERROR;
/* Create another hard link to "/g19/g1" group */
if (H5Lcreate_hard(file_id, "/g19/g1", H5L_SAME_LOC, "/g19/g3", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Open the group */
if ((group4_id = H5Gopen2(file_id, "/g19/g3", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group4_id, "/g19/g3", "/g19/g3") < 0)
TEST_ERROR;
/* Delete group, using relative path */
if (H5Ldelete(group_id, "g3", H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group4_id, "/g19/g1", "") < 0)
TEST_ERROR;
if (check_name(group2_id, "/g19/g1", "/g19/g1") < 0)
TEST_ERROR;
if (check_name(group3_id, "/g19/g2", "/g19/g2") < 0)
TEST_ERROR;
/* Close the unlinked group */
if (H5Gclose(group4_id) < 0)
FAIL_STACK_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with H5Lcreate_soft
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with H5Lcreate_soft");
/* Create group "g20/g1" */
if ((group_id = H5Gcreate2(file_id, "/g20", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file_id, "/g20/g1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Create symbolic link to "g20/g1/ group */
if (H5Lcreate_soft("/g20/g1", file_id, "/g20/g2", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group2_id, "/g20/g1", "/g20/g1") < 0)
TEST_ERROR;
/* Open the group */
if ((group3_id = H5Gopen2(file_id, "/g20/g2", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group3_id, "/g20/g2", "/g20/g2") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with H5Lcreate_soft and move target
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with H5Lcreate_soft and move target");
/* Create group "g21/g1" */
if ((group_id = H5Gcreate2(file_id, "/g21", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file_id, "/g21/g1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Create symbolic link to "g21/g1/ group */
if (H5Lcreate_soft("/g21/g1", file_id, "/g21/g2", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group2_id, "/g21/g1", "/g21/g1") < 0)
TEST_ERROR;
/* Open the group */
if ((group3_id = H5Gopen2(file_id, "/g21/g2", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Rename group */
if (H5Lmove(file_id, "/g21/g1", H5L_SAME_LOC, "/g21/g3", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group2_id, "/g21/g3", "/g21/g3") < 0)
TEST_ERROR;
if (check_name(group3_id, "/g21/g2", "/g21/g2") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with H5Lcreate_soft and move source
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with H5Lcreate_soft and move source");
/* Create group "g22/g1" */
if ((group_id = H5Gcreate2(file_id, "/g22", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file_id, "/g22/g1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Create symbolic link to "g22/g1/ group */
if (H5Lcreate_soft("/g22/g1", file_id, "/g22/g2", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group2_id, "/g22/g1", "/g22/g1") < 0)
TEST_ERROR;
/* Open the group */
if ((group3_id = H5Gopen2(file_id, "/g22/g2", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Rename soft link */
if (H5Lmove(file_id, "/g22/g2", H5L_SAME_LOC, "/g22/g3", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group2_id, "/g22/g1", "/g22/g1") < 0)
TEST_ERROR;
if (check_name(group3_id, "/g22/g3", "/g22/g3") < 0)
TEST_ERROR;
/* Rename soft link, using relative paths */
if (H5Lmove(group_id, "g3", H5L_SAME_LOC, "g2", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group2_id, "/g22/g1", "/g22/g1") < 0)
TEST_ERROR;
if (check_name(group3_id, "/g22/g2", "/g22/g2") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with H5Lcreate_soft and unlink target
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with H5Lcreate_soft and unlink target");
/* Create group "g23/g1" */
if ((group_id = H5Gcreate2(file_id, "/g23", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file_id, "/g23/g1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Create symbolic link to "g23/g1/ group */
if (H5Lcreate_soft("/g23/g1", file_id, "/g23/g2", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group2_id, "/g23/g1", "/g23/g1") < 0)
TEST_ERROR;
/* Open the group */
if ((group3_id = H5Gopen2(file_id, "/g23/g2", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Delete group */
if (H5Ldelete(file_id, "/g23/g1", H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group3_id, "/g23/g2", "/g23/g2") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with H5Lcreate_soft and unlink source
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with H5Lcreate_soft and unlink source");
/* Create group "g24/g1" */
if ((group_id = H5Gcreate2(file_id, "/g24", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file_id, "/g24/g1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Create symbolic link to "g24/g1/ group */
if (H5Lcreate_soft("/g24/g1", file_id, "/g24/g2", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group2_id, "/g24/g1", "/g24/g1") < 0)
TEST_ERROR;
/* Open the group */
if ((group3_id = H5Gopen2(file_id, "/g24/g2", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Delete symbolic link */
if (H5Ldelete(file_id, "/g24/g2", H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group3_id, "/g24/g1", "") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with several nested mounted files
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with several nested mounted files");
/* Create a group "g25/g1/g2" in the first file */
if ((group_id = H5Gcreate2(file_id, "/g25", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file_id, "/g25/g1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file_id, "/g25/g1/g2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
/* Create second file and group "/g26/g3/g4" in it */
if ((file1_id = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR;
if ((group_id = H5Gcreate2(file1_id, "/g26", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file1_id, "/g26/g3", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file1_id, "/g26/g3/g4", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
/* Create third file and group "/g27/g5/g6" in it */
if ((file2_id = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR;
if ((group_id = H5Gcreate2(file2_id, "/g27", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file2_id, "/g27/g5", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file2_id, "/g27/g5/g6", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
/* Create fourth file and group "/g28/g5/g6" in it */
if ((file3_id = H5Fcreate(filename3, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR;
if ((group_id = H5Gcreate2(file3_id, "/g28", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file3_id, "/g28/g7", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file3_id, "/g28/g7/g8", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
/* Access group which will be hidden in the first file */
if ((group_id = H5Gopen2(file_id, "/g25/g1/g2", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group_id, "/g25/g1/g2", "/g25/g1/g2") < 0)
TEST_ERROR;
/* Mount second file under "/g25/g1" in the first file */
if (H5Fmount(file_id, "/g25/g1", file1_id, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group_id, "", "/g25/g1/g2") < 0)
TEST_ERROR;
/* Access group which will be hidden in the second file */
if ((group2_id = H5Gopen2(file_id, "/g25/g1/g26/g3/g4", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group2_id, "/g25/g1/g26/g3/g4", "/g25/g1/g26/g3/g4") < 0)
TEST_ERROR;
/* Mount third file under "/g25/g1/g26/g3" in the first file */
if (H5Fmount(file_id, "/g25/g1/g26/g3", file2_id, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group2_id, "", "/g25/g1/g26/g3/g4") < 0)
TEST_ERROR;
/* Access group in the third file */
if ((group3_id = H5Gopen2(file_id, "/g25/g1/g26/g3/g27/g5/g6", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group3_id, "/g25/g1/g26/g3/g27/g5/g6", "/g25/g1/g26/g3/g27/g5/g6") < 0)
TEST_ERROR;
/* Mount fourth file under "/g25/g1/g26/g3/g27/g5" in the first file */
if (H5Fmount(file_id, "/g25/g1/g26/g3/g27/g5", file3_id, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group3_id, "", "/g25/g1/g26/g3/g27/g5/g6") < 0)
TEST_ERROR;
/* Access group in the fourth file */
if ((group4_id = H5Gopen2(file_id, "/g25/g1/g26/g3/g27/g5/g28/g7/g8", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group4_id, "/g25/g1/g26/g3/g27/g5/g28/g7/g8", "/g25/g1/g26/g3/g27/g5/g28/g7/g8") < 0)
TEST_ERROR;
if (H5Funmount(file_id, "/g25/g1/g26/g3/g27/g5") < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group4_id, "/g28/g7/g8", "") < 0)
TEST_ERROR;
if (check_name(group3_id, "/g25/g1/g26/g3/g27/g5/g6", "/g25/g1/g26/g3/g27/g5/g6") < 0)
TEST_ERROR;
if (check_name(group2_id, "", "/g25/g1/g26/g3/g4") < 0)
TEST_ERROR;
if (check_name(group_id, "", "/g25/g1/g2") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group4_id) < 0)
FAIL_STACK_ERROR;
if (H5Fclose(file3_id) < 0)
FAIL_STACK_ERROR;
if (H5Funmount(file_id, "/g25/g1/g26/g3") < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group3_id, "/g27/g5/g6", "") < 0)
TEST_ERROR;
if (check_name(group2_id, "/g25/g1/g26/g3/g4", "/g25/g1/g26/g3/g4") < 0)
TEST_ERROR;
if (check_name(group_id, "", "/g25/g1/g2") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
if (H5Fclose(file2_id) < 0)
FAIL_STACK_ERROR;
if (H5Funmount(file_id, "/g25/g1") < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group2_id, "/g26/g3/g4", "") < 0)
TEST_ERROR;
if (check_name(group_id, "/g25/g1/g2", "/g25/g1/g2") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Fclose(file1_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name and H5Lmove with repeated path components
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name and H5Lmove with repeated path components");
/* Create a group "g29/g1/g2/g1/g2" in a file */
if ((group_id = H5Gcreate2(file_id, "/g29", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file_id, "/g29/g1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file_id, "/g29/g1/g2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group4_id = H5Gcreate2(file_id, "/g29/g1/g2/g1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group5_id = H5Gcreate2(file_id, "/g29/g1/g2/g1/g2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Rename group */
if (H5Lmove(file_id, "/g29/g1/g2/g1/g2", H5L_SAME_LOC, "/g29/g1/g2/g1/g3", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group5_id, "/g29/g1/g2/g1/g3", "/g29/g1/g2/g1/g3") < 0)
TEST_ERROR;
/* Rename group in middle of path, keeping within the same group */
if (H5Lmove(file_id, "/g29/g1/g2/g1", H5L_SAME_LOC, "/g29/g1/g2/g3", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group4_id, "/g29/g1/g2/g3", "/g29/g1/g2/g3") < 0)
TEST_ERROR;
if (check_name(group5_id, "/g29/g1/g2/g3/g3", "/g29/g1/g2/g3/g3") < 0)
TEST_ERROR;
/* Rename group in middle of path, moving to another group in file */
if (H5Lmove(file_id, "/g29/g1/g2/g3", H5L_SAME_LOC, "/g29/g3", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group4_id, "/g29/g3", "/g29/g3") < 0)
TEST_ERROR;
if (check_name(group5_id, "/g29/g3/g3", "/g29/g3/g3") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group4_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group5_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with higher mounted file
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with higher mounted file");
/* Create a group "/g30/g1/g2" in the first file */
if ((group_id = H5Gcreate2(file_id, "/g30", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file_id, "/g30/g1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file_id, "/g30/g1/g2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Close */
H5Gclose(group_id);
H5Gclose(group2_id);
H5Gclose(group3_id);
/* Create second file and group "/g31/g3/g4" in it */
file1_id = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, fapl);
if ((group_id = H5Gcreate2(file1_id, "/g31", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file1_id, "/g31/g3", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file1_id, "/g31/g3/g4", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Close */
H5Gclose(group_id);
H5Gclose(group2_id);
H5Gclose(group3_id);
/* Create third file and group "/g32/g5/g6" in it */
file2_id = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, fapl);
if ((group_id = H5Gcreate2(file2_id, "/g32", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file2_id, "/g32/g5", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file2_id, "/g32/g5/g6", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Close */
H5Gclose(group_id);
H5Gclose(group2_id);
H5Gclose(group3_id);
/* Create fourth file and group "/g33/g5/g6" in it */
file3_id = H5Fcreate(filename3, H5F_ACC_TRUNC, H5P_DEFAULT, fapl);
if ((group_id = H5Gcreate2(file3_id, "/g33", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file3_id, "/g33/g7", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file3_id, "/g33/g7/g8", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Close */
H5Gclose(group_id);
H5Gclose(group2_id);
H5Gclose(group3_id);
/* Access group which will be hidden in the first file */
if ((group_id = H5Gopen2(file_id, "/g30/g1/g2", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group_id, "/g30/g1/g2", "/g30/g1/g2") < 0)
TEST_ERROR;
/* Mount second file under "/g30/g1" in the first file */
if (H5Fmount(file_id, "/g30/g1", file1_id, H5P_DEFAULT) < 0)
TEST_ERROR;
/* Verify */
if (check_name(group_id, "", "/g30/g1/g2") < 0)
TEST_ERROR;
/* Access group which will be hidden in the second file */
if ((group2_id = H5Gopen2(file_id, "/g30/g1/g31/g3/g4", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group2_id, "/g30/g1/g31/g3/g4", "/g30/g1/g31/g3/g4") < 0)
TEST_ERROR;
/* Mount third file under "/g30/g1/g31/g3" in the first file */
if (H5Fmount(file_id, "/g30/g1/g31/g3", file2_id, H5P_DEFAULT) < 0)
TEST_ERROR;
/* Verify */
if (check_name(group2_id, "", "/g30/g1/g31/g3/g4") < 0)
TEST_ERROR;
/* Access group which will be hidden in the third file */
if ((group3_id = H5Gopen2(file_id, "/g30/g1/g31/g3/g32/g5/g6", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group3_id, "/g30/g1/g31/g3/g32/g5/g6", "/g30/g1/g31/g3/g32/g5/g6") < 0)
TEST_ERROR;
/* Mount fourth file under "/g30" in the first file, hiding the files below it */
if (H5Fmount(file_id, "/g30", file3_id, H5P_DEFAULT) < 0)
TEST_ERROR;
/* Verify */
if (check_name(group3_id, "", "/g30/g1/g31/g3/g32/g5/g6") < 0)
TEST_ERROR;
/* Access group which will be in the fourth file */
if ((group4_id = H5Gopen2(file_id, "/g30/g33/g7/g8", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group4_id, "/g30/g33/g7/g8", "/g30/g33/g7/g8") < 0)
TEST_ERROR;
/* Unmount fourth file */
if (H5Funmount(file_id, "/g30") < 0)
TEST_ERROR;
/* Verify */
if (check_name(group4_id, "/g33/g7/g8", "") < 0)
TEST_ERROR;
if (check_name(group3_id, "/g30/g1/g31/g3/g32/g5/g6", "/g30/g1/g31/g3/g32/g5/g6") < 0)
TEST_ERROR;
if (check_name(group2_id, "", "/g30/g1/g31/g3/g4") < 0)
TEST_ERROR;
if (check_name(group_id, "", "/g30/g1/g2") < 0)
TEST_ERROR;
/* Unmount third file */
if (H5Funmount(file_id, "/g30/g1/g31/g3") < 0)
TEST_ERROR;
/* Verify */
if (check_name(group4_id, "/g33/g7/g8", "") < 0)
TEST_ERROR;
if (check_name(group3_id, "/g32/g5/g6", "") < 0)
TEST_ERROR;
if (check_name(group2_id, "/g30/g1/g31/g3/g4", "/g30/g1/g31/g3/g4") < 0)
TEST_ERROR;
if (check_name(group_id, "", "/g30/g1/g2") < 0)
TEST_ERROR;
/* Unmount second file */
if (H5Funmount(file_id, "/g30/g1") < 0)
TEST_ERROR;
/* Verify */
if (check_name(group4_id, "/g33/g7/g8", "") < 0)
TEST_ERROR;
if (check_name(group3_id, "/g32/g5/g6", "") < 0)
TEST_ERROR;
if (check_name(group2_id, "/g31/g3/g4", "") < 0)
TEST_ERROR;
if (check_name(group_id, "/g30/g1/g2", "/g30/g1/g2") < 0)
TEST_ERROR;
/* Close groups */
H5Gclose(group_id);
H5Gclose(group2_id);
H5Gclose(group3_id);
H5Gclose(group4_id);
/* Close files */
H5Fclose(file1_id);
H5Fclose(file2_id);
H5Fclose(file3_id);
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with multiple hard links and mounted files
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with multiple hard links and mounted files");
/* Create second file and group "/g35/g3/g4" in it */
if ((file1_id = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR;
if ((group_id = H5Gcreate2(file1_id, "/g35", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file1_id, "/g35/g3", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file1_id, "/g35/g3/g4", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
/* Create group "/g34/g1/g2" in first file */
if ((group_id = H5Gcreate2(file_id, "/g34", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file_id, "/g34/g1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file_id, "/g34/g1/g2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Create hard link to "/g34/g1/g2 group */
if (H5Lcreate_hard(file_id, "/g34/g1/g2", H5L_SAME_LOC, "/g34/g2a", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group3_id, "/g34/g1/g2", "/g34/g1/g2") < 0)
TEST_ERROR;
/* Open the link to the group */
if ((group4_id = H5Gopen2(file_id, "/g34/g2a", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group4_id, "/g34/g2a", "/g34/g2a") < 0)
TEST_ERROR;
/* Mount second file under "/g34/g1" in the first file */
if (H5Fmount(file_id, "/g34/g1", file1_id, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group3_id, "", "/g34/g1/g2") < 0)
TEST_ERROR;
if (check_name(group4_id, "/g34/g2a", "/g34/g2a") < 0)
TEST_ERROR;
/* Unmount second file */
if (H5Funmount(file_id, "/g34/g1") < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group3_id, "/g34/g1/g2", "/g34/g1/g2") < 0)
TEST_ERROR;
if (check_name(group4_id, "/g34/g2a", "/g34/g2a") < 0)
TEST_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group4_id) < 0)
FAIL_STACK_ERROR;
if (H5Fclose(file1_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with mounted files and unlinking
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with mounted files and unlinking");
/* Create group "/g36/g1/g2" in first file */
if ((group_id = H5Gcreate2(file_id, "/g36", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file_id, "/g36/g1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file_id, "/g36/g1/g2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
/* Create second file and group "/g37/g4" in it */
if ((file1_id = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR;
if ((group_id = H5Gcreate2(file1_id, "/g37", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file1_id, "/g37/g4", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file1_id, "/g37/g4/g5a", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group4_id = H5Gcreate2(file1_id, "/g37/g4/g5b", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Mount second file under "/g36/g1" in the first file */
if (H5Fmount(file_id, "/g36/g1", file1_id, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Open group in mounted file */
if ((group5_id = H5Gopen2(file_id, "/g36/g1/g37/", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group5_id, "/g36/g1/g37", "/g36/g1/g37") < 0)
TEST_ERROR;
/* Open group to delete in mounted file */
if ((group6_id = H5Gopen2(file_id, "/g36/g1/g37/g4/g5a", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group6_id, "/g36/g1/g37/g4/g5a", "/g36/g1/g37/g4/g5a") < 0)
TEST_ERROR;
/* Delete end group in mounted file, using relative paths */
if (H5Ldelete(group5_id, "g4/g5a", H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group6_id, "", "") < 0)
TEST_ERROR;
if (check_name(group3_id, "", "") < 0)
TEST_ERROR;
/* Close deleted group */
if (H5Gclose(group6_id) < 0)
FAIL_STACK_ERROR;
/* Open groups to delete in mounted file */
if ((group6_id = H5Gopen2(file_id, "/g36/g1/g37/g4", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group7_id = H5Gopen2(file_id, "/g36/g1/g37/g4/g5b", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group6_id, "/g36/g1/g37/g4", "/g36/g1/g37/g4") < 0)
TEST_ERROR;
if (check_name(group7_id, "/g36/g1/g37/g4/g5b", "/g36/g1/g37/g4/g5b") < 0)
TEST_ERROR;
/* Delete middle group in mounted file, using relative paths */
if (H5Ldelete(group5_id, "g4", H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group6_id, "", "") < 0)
TEST_ERROR;
if (check_name(group2_id, "", "") < 0)
TEST_ERROR;
if (check_name(group7_id, "", "") < 0)
TEST_ERROR;
if (check_name(group4_id, "", "") < 0)
TEST_ERROR;
/* Close deleted groups */
if (H5Gclose(group6_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group7_id) < 0)
FAIL_STACK_ERROR;
/* Close group in mounted file */
if (H5Gclose(group5_id) < 0)
FAIL_STACK_ERROR;
if (H5Funmount(file_id, "/g36/g1") < 0)
FAIL_STACK_ERROR;
/* Close */
if (H5Gclose(group_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group3_id) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group4_id) < 0)
FAIL_STACK_ERROR;
if (H5Fclose(file1_id) < 0)
FAIL_STACK_ERROR;
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with mounting already mounted files
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with mounting already mounted files");
/* Create file and group "/g38/g1/g2" in it */
if ((file1_id = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR;
if ((group_id = H5Gcreate2(file1_id, "/g38", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file1_id, "/g38/g1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file1_id, "/g38/g1/g2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Close */
H5Gclose(group_id);
H5Gclose(group2_id);
H5Gclose(group3_id);
/* Create second file and group "/g39/g1/g2" in it */
if ((file2_id = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR;
if ((group_id = H5Gcreate2(file2_id, "/g39", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file2_id, "/g39/g3", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file2_id, "/g39/g3/g4", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Close */
H5Gclose(group_id);
H5Gclose(group2_id);
H5Gclose(group3_id);
/* Create third file and group "/g40/g5/g6" in it */
if ((file3_id = H5Fcreate(filename3, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR;
if ((group_id = H5Gcreate2(file3_id, "/g40", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file3_id, "/g40/g5", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file3_id, "/g40/g5/g6", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Close */
H5Gclose(group_id);
H5Gclose(group2_id);
H5Gclose(group3_id);
/* Mount second file under "/g38/g1" in the first file */
if (H5Fmount(file1_id, "/g38/g1", file2_id, H5P_DEFAULT) < 0)
TEST_ERROR;
if ((group_id = H5Gopen2(file1_id, "/g38/g1/g39/g3/g4", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group_id, "/g38/g1/g39/g3/g4", "/g38/g1/g39/g3/g4") < 0)
TEST_ERROR;
/* Mount first file under "/g40/g5" in the third file */
if (H5Fmount(file3_id, "/g40/g5", file1_id, H5P_DEFAULT) < 0)
TEST_ERROR;
if ((group2_id = H5Gopen2(file3_id, "/g40/g5/g38/g1/g39/g3/g4", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group2_id, "/g40/g5/g38/g1/g39/g3/g4", "/g40/g5/g38/g1/g39/g3/g4") < 0)
TEST_ERROR;
if (check_name(group_id, "/g38/g1/g39/g3/g4", "/g38/g1/g39/g3/g4") < 0)
TEST_ERROR;
/* Unmount first file */
if (H5Funmount(file3_id, "/g40/g5") < 0)
TEST_ERROR;
/* Verify */
if (check_name(group2_id, "/g38/g1/g39/g3/g4", "") < 0)
TEST_ERROR;
if (check_name(group_id, "/g38/g1/g39/g3/g4", "/g38/g1/g39/g3/g4") < 0)
TEST_ERROR;
/* Unmount second file */
if (H5Funmount(file1_id, "/g38/g1") < 0)
TEST_ERROR;
/* Verify */
if (check_name(group_id, "/g39/g3/g4", "") < 0)
TEST_ERROR;
/* Close */
H5Gclose(group_id);
H5Gclose(group2_id);
H5Fclose(file1_id);
H5Fclose(file2_id);
H5Fclose(file3_id);
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with opening object in unmounted file
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with opening object in unmounted file");
/* Create file and group "/g39/g1/g2" in it */
file1_id = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, fapl);
if ((group_id = H5Gcreate2(file1_id, "/g41", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file1_id, "/g41/g1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file1_id, "/g41/g1/g2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Close */
H5Gclose(group_id);
H5Gclose(group2_id);
H5Gclose(group3_id);
/* Create second file and group "/g42/g1/g2" in it */
file2_id = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, fapl);
if ((group_id = H5Gcreate2(file2_id, "/g42", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group2_id = H5Gcreate2(file2_id, "/g42/g3", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((group3_id = H5Gcreate2(file2_id, "/g42/g3/g4", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Close */
H5Gclose(group_id);
H5Gclose(group2_id);
H5Gclose(group3_id);
/* Mount second file under "/g41/g1" in the first file */
if (H5Fmount(file1_id, "/g41/g1", file2_id, H5P_DEFAULT) < 0)
TEST_ERROR;
if ((group_id = H5Gopen2(file1_id, "/g41/g1/g42/g3", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group_id, "/g41/g1/g42/g3", "/g41/g1/g42/g3") < 0)
TEST_ERROR;
/* Unmount file */
if (H5Funmount(file1_id, "/g41/g1") < 0)
TEST_ERROR;
if ((group2_id = H5Gopen2(group_id, "g4", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Verify */
if (check_name(group2_id, "/g42/g3/g4", "") < 0)
TEST_ERROR;
/* Close */
H5Gclose(group_id);
H5Gclose(group2_id);
H5Fclose(file1_id);
PASSED();
/*-------------------------------------------------------------------------
* Test H5Iget_name with anonymous datatypes
*-------------------------------------------------------------------------
*/
TESTING("H5Iget_name with anonymous datatypes");
/* Commit the type anonymously and link it in */
if ((dtype = H5Tcopy(H5T_NATIVE_INT)) < 0)
TEST_ERROR;
/* Test H5Iget_name with created datatype, should fail because not committed */
H5E_BEGIN_TRY
{
if ((size = H5Iget_name(dtype, NULL, 0)) >= 0)
TEST_ERROR;
}
H5E_END_TRY;
if (H5Tcommit_anon(file2_id, dtype, H5P_DEFAULT, H5P_DEFAULT))
TEST_ERROR;
/* Test H5Iget_name with anonymously created datatype, should pass because committed */
if ((size = H5Iget_name(dtype, NULL, 0)) != 0)
TEST_ERROR;
/* Create a link to the object */
if (H5Olink(dtype, file2_id, "datatype", H5P_DEFAULT, H5P_DEFAULT) < 0)
TEST_ERROR;
/* Commit a second datatype with no links to it and commit it */
if ((dtype_anon = H5Tcopy(H5T_NATIVE_INT)) < 0)
TEST_ERROR;
if (H5Tcommit_anon(file2_id, dtype_anon, H5P_DEFAULT, H5P_DEFAULT) < 0)
TEST_ERROR;
/* Test H5Iget_name with anonymously created datatype, should pass because committed */
if ((size = H5Iget_name(dtype_anon, NULL, 0)) != 0)
TEST_ERROR;
/* Store the address of the datatype for later use */
if (H5Oget_info3(dtype_anon, &oinfo, H5O_INFO_BASIC) < 0)
TEST_ERROR;
/* Update the reference count to dtype_anon to preserve the datatype */
if (H5Oincr_refcount(dtype_anon) < 0)
TEST_ERROR;
if (H5Tclose(dtype) < 0)
TEST_ERROR;
if (H5Tclose(dtype_anon) < 0)
TEST_ERROR;
if (H5Fclose(file2_id) < 0)
TEST_ERROR;
/* Re-open the file and check that the anonymous datatypes persist */
if ((file2_id = H5Fopen(filename2, H5F_ACC_RDONLY, fapl)) < 0)
TEST_ERROR;
/* Check the H5Iget_name does not return an error for anon committed datatypes */
if ((dtype_anon = H5Oopen_by_token(file2_id, oinfo.token)) < 0)
TEST_ERROR;
if ((size = H5Iget_name(dtype_anon, NULL, 0)) != 0)
TEST_ERROR;
if (H5Tclose(dtype_anon) < 0)
TEST_ERROR;
if (H5Fclose(file2_id) < 0)
TEST_ERROR;
PASSED();
return 0;
error:
return 1;
}
static int
test_obj_ref(hid_t fapl)
{
char filename1[1024];
char filename2[1024];
hid_t fid1, fid2; /* HDF5 File IDs */
hid_t dataset, dataset2; /* Dataset ID */
hid_t group, group2; /* Group ID */
hid_t sid1; /* Dataspace ID */
hid_t tid1; /* Datatype ID */
hsize_t dims1[] = {SPACE1_DIM1};
hobj_ref_t wbuf[SPACE1_DIM1]; /* Buffer to write to disk */
int tu32[SPACE1_DIM1]; /* Int data */
ssize_t namelen; /* Length of the name */
int i; /* counting variables */
char buf[100];
/* Initialize the file names */
h5_fixname(FILENAME[1], fapl, filename1, sizeof filename1);
h5_fixname(FILENAME[2], fapl, filename2, sizeof filename2);
/* Create files */
if ((fid1 = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR;
if ((fid2 = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR;
/* Create dataspace for datasets */
if ((sid1 = H5Screate_simple(SPACE1_RANK, dims1, NULL)) < 0)
FAIL_STACK_ERROR;
/* Create a group */
if ((group = H5Gcreate2(fid1, "Group1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Create a single dataset inside the second file, which will be mounted
* and used to mask objects in the first file */
if ((dataset = H5Dcreate2(fid2, "Dataset1", H5T_STD_U32LE, sid1, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) <
0)
FAIL_STACK_ERROR;
if (H5Dclose(dataset) < 0)
FAIL_STACK_ERROR;
/* Create a dataset(inside Group1) */
if ((dataset =
H5Dcreate2(group, "Dataset1", H5T_STD_U32LE, sid1, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Initialize data buffer */
for (i = 0; i < SPACE1_DIM1; i++)
tu32[i] = i * 3;
/* Write selection to disk */
if (H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, tu32) < 0)
FAIL_STACK_ERROR;
/* Close Dataset */
if (H5Dclose(dataset) < 0)
FAIL_STACK_ERROR;
/* Create another dataset(inside Group1) */
if ((dataset = H5Dcreate2(group, "Dataset2", H5T_NATIVE_UCHAR, sid1, H5P_DEFAULT, H5P_DEFAULT,
H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Close Dataset */
if (H5Dclose(dataset) < 0)
FAIL_STACK_ERROR;
/* Create a datatype to refer to */
if ((tid1 = H5Tcreate(H5T_COMPOUND, sizeof(s1_t))) < 0)
FAIL_STACK_ERROR;
/* Insert fields */
if (H5Tinsert(tid1, "a", HOFFSET(s1_t, a), H5T_NATIVE_INT) < 0)
FAIL_STACK_ERROR;
if (H5Tinsert(tid1, "b", HOFFSET(s1_t, b), H5T_NATIVE_INT) < 0)
FAIL_STACK_ERROR;
if (H5Tinsert(tid1, "c", HOFFSET(s1_t, c), H5T_NATIVE_FLOAT) < 0)
FAIL_STACK_ERROR;
/* Save datatype for later */
if (H5Tcommit2(group, "Datatype1", tid1, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Close datatype */
if (H5Tclose(tid1) < 0)
FAIL_STACK_ERROR;
/* Create a new group in group1 */
if ((group2 = H5Gcreate2(group, "Group2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Create a hard link to group1 in group2 */
if (H5Lcreate_hard(fid1, "/Group1", H5L_SAME_LOC, "/Group1/Group2/Link", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Create dataset in that group */
if ((dataset = H5Dcreate2(group2, "Dataset4", H5T_NATIVE_UCHAR, sid1, H5P_DEFAULT, H5P_DEFAULT,
H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Close Dataset */
if (H5Dclose(dataset) < 0)
FAIL_STACK_ERROR;
/* Close group */
if (H5Gclose(group) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group2) < 0)
FAIL_STACK_ERROR;
/* Open up that hard link and make a new dataset there */
if ((group = H5Gopen2(fid1, "/Group1/Group2/Link", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if ((dataset = H5Dcreate2(group, "Dataset5", H5T_NATIVE_UCHAR, sid1, H5P_DEFAULT, H5P_DEFAULT,
H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
if (H5Dclose(dataset) < 0)
FAIL_STACK_ERROR;
if (H5Gclose(group) < 0)
FAIL_STACK_ERROR;
/* Create a dataset to store references */
if ((dataset =
H5Dcreate2(fid1, "Dataset3", H5T_STD_REF_OBJ, sid1, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Create reference to dataset */
if (H5Rcreate(&wbuf[0], fid1, "/Dataset3", H5R_OBJECT, (hid_t)-1) < 0)
FAIL_STACK_ERROR;
/* Create reference to dataset */
if (H5Rcreate(&wbuf[1], fid1, "/Group1/Dataset2", H5R_OBJECT, (hid_t)-1) < 0)
FAIL_STACK_ERROR;
/* Create reference to group */
if (H5Rcreate(&wbuf[2], fid1, "/Group1", H5R_OBJECT, (hid_t)-1) < 0)
FAIL_STACK_ERROR;
/* Create reference to named datatype */
if (H5Rcreate(&wbuf[3], fid1, "/Group1/Datatype1", H5R_OBJECT, (hid_t)-1) < 0)
FAIL_STACK_ERROR;
if (H5Rcreate(&wbuf[4], fid1, "/Group1/Group2/Dataset4", H5R_OBJECT, (hid_t)-1) < 0)
FAIL_STACK_ERROR;
if (H5Rcreate(&wbuf[5], fid1, "/Group1/Group2", H5R_OBJECT, (hid_t)-1) < 0)
FAIL_STACK_ERROR;
if (H5Rcreate(&wbuf[6], fid1, "/Group1/Group2/Link/Dataset5", H5R_OBJECT, (hid_t)-1) < 0)
FAIL_STACK_ERROR;
/* Create reference to root group */
if (H5Rcreate(&wbuf[7], fid1, "/", H5R_OBJECT, (hid_t)-1) < 0)
FAIL_STACK_ERROR;
/* Write selection to disk */
if (H5Dwrite(dataset, H5T_STD_REF_OBJ, H5S_ALL, H5S_ALL, H5P_DEFAULT, wbuf) < 0)
FAIL_STACK_ERROR;
TESTING("getting path to normal dataset in root group");
if ((dataset2 = H5Rdereference2(dataset, H5P_DEFAULT, H5R_OBJECT, &wbuf[0])) < 0)
FAIL_STACK_ERROR;
*buf = '\0';
namelen = H5Iget_name(dataset2, (char *)buf, sizeof(buf));
if (H5Dclose(dataset2) < 0)
FAIL_STACK_ERROR;
if (!((HDstrcmp(buf, "/Dataset3") == 0) && (namelen == 9)))
TEST_ERROR;
*buf = '\0';
/* Check H5Rget_name returns the correct length of the name when name is NULL */
namelen = H5Rget_name(dataset, H5R_OBJECT, &wbuf[0], NULL, 0);
if (namelen != 9)
TEST_ERROR;
/* Make sure size parameter is ignored */
namelen = H5Rget_name(dataset, H5R_OBJECT, &wbuf[0], NULL, 200);
if (namelen != 9)
TEST_ERROR;
namelen = H5Rget_name(dataset, H5R_OBJECT, &wbuf[0], (char *)buf, sizeof(buf));
if (!((HDstrcmp(buf, "/Dataset3") == 0) && (namelen == 9)))
TEST_ERROR;
PASSED();
HDmemset(buf, 0, sizeof(buf));
TESTING("getting path to dataset in /Group1");
if ((dataset2 = H5Rdereference2(dataset, H5P_DEFAULT, H5R_OBJECT, &wbuf[1])) < 0)
FAIL_STACK_ERROR;
*buf = '\0';
namelen = H5Iget_name(dataset2, (char *)buf, sizeof(buf));
if (H5Dclose(dataset2) < 0)
FAIL_STACK_ERROR;
if (!((HDstrcmp(buf, "/Group1/Dataset2") == 0) && (namelen == 16)))
TEST_ERROR;
*buf = '\0';
namelen = H5Rget_name(dataset, H5R_OBJECT, &wbuf[1], (char *)buf, sizeof(buf));
if (!((HDstrcmp(buf, "/Group1/Dataset2") == 0) && (namelen == 16)))
TEST_ERROR;
PASSED();
HDmemset(buf, 0, sizeof(buf));
TESTING("getting path to /Group1");
if ((group = H5Rdereference2(dataset, H5P_DEFAULT, H5R_OBJECT, &wbuf[2])) < 0)
FAIL_STACK_ERROR;
*buf = '\0';
namelen = H5Iget_name(group, (char *)buf, sizeof(buf));
if (H5Gclose(group) < 0)
FAIL_STACK_ERROR;
if (!((HDstrcmp(buf, "/Group1") == 0) && (namelen == 7)))
TEST_ERROR;
*buf = '\0';
namelen = H5Rget_name(dataset, H5R_OBJECT, &wbuf[2], (char *)buf, sizeof(buf));
if (!((HDstrcmp(buf, "/Group1") == 0) && (namelen == 7)))
TEST_ERROR;
PASSED();
HDmemset(buf, 0, sizeof(buf));
TESTING("getting path to datatype in /Group1");
if ((tid1 = H5Rdereference2(dataset, H5P_DEFAULT, H5R_OBJECT, &wbuf[3])) < 0)
FAIL_STACK_ERROR;
*buf = '\0';
namelen = H5Iget_name(tid1, (char *)buf, sizeof(buf));
if (H5Tclose(tid1) < 0)
FAIL_STACK_ERROR;
if (!((HDstrcmp(buf, "/Group1/Datatype1") == 0) && (namelen == 17)))
TEST_ERROR;
*buf = '\0';
namelen = H5Rget_name(dataset, H5R_OBJECT, &wbuf[3], (char *)buf, sizeof(buf));
if (!((HDstrcmp(buf, "/Group1/Datatype1") == 0) && (namelen == 17)))
TEST_ERROR;
PASSED();
HDmemset(buf, 0, sizeof(buf));
TESTING("getting path to dataset in nested group");
if ((dataset2 = H5Rdereference2(dataset, H5P_DEFAULT, H5R_OBJECT, &wbuf[4])) < 0)
FAIL_STACK_ERROR;
*buf = '\0';
namelen = H5Iget_name(dataset2, (char *)buf, sizeof(buf));
if (H5Dclose(dataset2) < 0)
FAIL_STACK_ERROR;
if (!((HDstrcmp(buf, "/Group1/Group2/Dataset4") == 0) && (namelen == 23)))
TEST_ERROR;
*buf = '\0';
namelen = H5Rget_name(dataset, H5R_OBJECT, &wbuf[4], (char *)buf, sizeof(buf));
if (!((HDstrcmp(buf, "/Group1/Group2/Dataset4") == 0) && (namelen == 23)))
TEST_ERROR;
PASSED();
HDmemset(buf, 0, sizeof(buf));
TESTING("getting path to nested group");
if ((group = H5Rdereference2(dataset, H5P_DEFAULT, H5R_OBJECT, &wbuf[5])) < 0)
FAIL_STACK_ERROR;
*buf = '\0';
namelen = H5Iget_name(group, (char *)buf, sizeof(buf));
if (H5Gclose(group) < 0)
FAIL_STACK_ERROR;
if (!((HDstrcmp(buf, "/Group1/Group2") == 0) && (namelen == 14)))
TEST_ERROR;
*buf = '\0';
namelen = H5Rget_name(dataset, H5R_OBJECT, &wbuf[5], (char *)buf, sizeof(buf));
if (!((HDstrcmp(buf, "/Group1/Group2") == 0) && (namelen == 14)))
TEST_ERROR;
PASSED();
HDmemset(buf, 0, sizeof(buf));
TESTING("getting path to dataset created via hard link");
if ((dataset2 = H5Rdereference2(dataset, H5P_DEFAULT, H5R_OBJECT, &wbuf[6])) < 0)
FAIL_STACK_ERROR;
*buf = '\0';
namelen = H5Iget_name(dataset2, (char *)buf, sizeof(buf));
if (H5Dclose(dataset2) < 0)
FAIL_STACK_ERROR;
if (!((HDstrcmp(buf, "/Group1/Dataset5") == 0) && (namelen == 16)))
TEST_ERROR;
*buf = '\0';
namelen = H5Rget_name(dataset, H5R_OBJECT, &wbuf[6], (char *)buf, sizeof(buf));
if (!((HDstrcmp(buf, "/Group1/Dataset5") == 0) && (namelen == 16)))
TEST_ERROR;
PASSED();
HDmemset(buf, 0, sizeof(buf));
TESTING("getting path to root group");
if ((group = H5Rdereference2(dataset, H5P_DEFAULT, H5R_OBJECT, &wbuf[7])) < 0)
FAIL_STACK_ERROR;
*buf = '\0';
namelen = H5Iget_name(group, (char *)buf, sizeof(buf));
if (H5Gclose(group) < 0)
FAIL_STACK_ERROR;
if (!((HDstrcmp(buf, "/") == 0) && (namelen == 1)))
TEST_ERROR;
*buf = '\0';
namelen = H5Rget_name(dataset, H5R_OBJECT, &wbuf[7], (char *)buf, sizeof(buf));
if (!((HDstrcmp(buf, "/") == 0) && (namelen == 1)))
TEST_ERROR;
PASSED();
/* Now we mount fid2 at /Group2 and look for dataset4. It shouldn't be found */
if (H5Fmount(fid1, "/Group1/Group2", fid2, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
TESTING("getting path to dataset hidden by a mounted file");
if ((dataset2 = H5Rdereference2(dataset, H5P_DEFAULT, H5R_OBJECT, &wbuf[4])) < 0)
FAIL_STACK_ERROR;
*buf = '\0';
namelen = H5Iget_name(dataset2, (char *)buf, sizeof(buf));
if (H5Dclose(dataset2) < 0)
FAIL_STACK_ERROR;
if (namelen != 0)
TEST_ERROR;
*buf = '\0';
namelen = H5Rget_name(dataset, H5R_OBJECT, &wbuf[4], (char *)buf, sizeof(buf));
if (namelen != 0)
TEST_ERROR;
PASSED();
/* Now we try unlinking dataset2 from the file and searching for it. It shouldn't be found */
if ((dataset2 = H5Rdereference2(dataset, H5P_DEFAULT, H5R_OBJECT, &wbuf[1])) < 0)
FAIL_STACK_ERROR;
if (H5Ldelete(fid1, "/Group1/Dataset2", H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
TESTING("getting path to dataset that has been unlinked");
*buf = '\0';
namelen = H5Iget_name(dataset2, (char *)buf, sizeof(buf));
if (H5Dclose(dataset2) < 0)
FAIL_STACK_ERROR;
if (namelen != 0)
TEST_ERROR;
*buf = '\0';
namelen = H5Rget_name(dataset, H5R_OBJECT, &wbuf[1], (char *)buf, sizeof(buf));
if (namelen != 0)
TEST_ERROR;
PASSED();
/* Close disk dataspace */
if (H5Sclose(sid1) < 0)
FAIL_STACK_ERROR;
/* Close Dataset */
if (H5Dclose(dataset) < 0)
FAIL_STACK_ERROR;
/* Close file */
if (H5Fclose(fid1) < 0)
FAIL_STACK_ERROR;
if (H5Fclose(fid2) < 0)
FAIL_STACK_ERROR;
return 0;
error:
return 1;
}
static int
test_reg_ref(hid_t fapl)
{
char filename1[1024];
hid_t file_id; /* file identifier */
hid_t dsetv_id; /*dataset identifiers*/
hid_t dsetr_id;
hid_t space_id, spacer_id;
hsize_t dims[2] = {2, 9};
hsize_t dimsr[1] = {2};
int rank = 2;
int rankr = 1;
hdset_reg_ref_t ref[2];
hdset_reg_ref_t ref_out[2];
int data[2][9] = {{1, 1, 2, 3, 3, 4, 5, 5, 6}, {1, 2, 2, 3, 4, 4, 5, 6, 6}};
hsize_t start[2];
hsize_t count[2];
hsize_t coord[2][3] = {{0, 0, 1}, {6, 0, 8}};
unsigned num_points = 3;
ssize_t name_size1, name_size2;
char buf1[NAME_BUF_SIZE], buf2[NAME_BUF_SIZE];
/* Initialize the file name */
h5_fixname(FILENAME[1], fapl, filename1, sizeof filename1);
/* Create file with default file create property but vfd access property. */
if ((file_id = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
TEST_ERROR;
/* Create dataspace for datasets */
if ((space_id = H5Screate_simple(rank, dims, NULL)) < 0)
TEST_ERROR;
if ((spacer_id = H5Screate_simple(rankr, dimsr, NULL)) < 0)
TEST_ERROR;
/* Create integer dataset */
if ((dsetv_id = H5Dcreate2(file_id, REFREG_DSETNAMEV, H5T_NATIVE_INT, space_id, H5P_DEFAULT, H5P_DEFAULT,
H5P_DEFAULT)) < 0)
TEST_ERROR;
/* Write data to the dataset */
if (H5Dwrite(dsetv_id, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, data) < 0)
TEST_ERROR;
if (H5Dclose(dsetv_id) < 0)
TEST_ERROR;
/* Dataset with references */
if ((dsetr_id = H5Dcreate2(file_id, REFREG_DSETNAMER, H5T_STD_REF_DSETREG, spacer_id, H5P_DEFAULT,
H5P_DEFAULT, H5P_DEFAULT)) < 0)
TEST_ERROR;
/*
* Create a reference to the hyperslab.
*/
start[0] = 0;
start[1] = 3;
count[0] = 2;
count[1] = 3;
if (H5Sselect_hyperslab(space_id, H5S_SELECT_SET, start, NULL, count, NULL) < 0)
TEST_ERROR;
if (H5Rcreate(&ref[0], file_id, REFREG_DSETNAMEV, H5R_DATASET_REGION, space_id) < 0)
TEST_ERROR;
/* Create a reference to elements selection */
if (H5Sselect_none(space_id) < 0)
TEST_ERROR;
if (H5Sselect_elements(space_id, H5S_SELECT_SET, num_points, (const hsize_t *)coord) < 0)
TEST_ERROR;
if (H5Rcreate(&ref[1], file_id, REFREG_DSETNAMEV, H5R_DATASET_REGION, space_id) < 0)
TEST_ERROR;
/* Write dataset with the references */
if (H5Dwrite(dsetr_id, H5T_STD_REF_DSETREG, H5S_ALL, H5S_ALL, H5P_DEFAULT, ref) < 0)
TEST_ERROR;
/* Close all objects */
if (H5Sclose(space_id) < 0)
TEST_ERROR;
if (H5Sclose(spacer_id) < 0)
TEST_ERROR;
if (H5Dclose(dsetr_id) < 0)
TEST_ERROR;
if (H5Fclose(file_id) < 0)
TEST_ERROR;
/* Reopen the file to read selections back */
if ((file_id = H5Fopen(filename1, H5F_ACC_RDWR, fapl)) < 0)
TEST_ERROR;
/* Reopen the dataset with object references and read references to the buffer */
if ((dsetr_id = H5Dopen2(file_id, REFREG_DSETNAMER, H5P_DEFAULT)) < 0)
TEST_ERROR;
if (H5Dread(dsetr_id, H5T_STD_REF_DSETREG, H5S_ALL, H5S_ALL, H5P_DEFAULT, ref_out) < 0)
TEST_ERROR;
/* Get name of the dataset the first region reference points to using H5Rget_name */
TESTING("H5Rget_name to get name from region reference(hyperslab)");
*buf1 = '\0';
/* Check H5Rget_name returns the correct length of the name when name is NULL */
name_size1 = H5Rget_name(dsetr_id, H5R_DATASET_REGION, &ref_out[0], NULL, 0);
if (name_size1 != 7)
TEST_ERROR;
name_size1 = H5Rget_name(dsetr_id, H5R_DATASET_REGION, &ref_out[0], (char *)buf1, NAME_BUF_SIZE);
if (!((HDstrcmp(buf1, "/MATRIX") == 0) && (name_size1 == 7)))
TEST_ERROR;
PASSED();
TESTING("H5Iget_name to get name from region reference(hyperslab)");
/* Dereference the first reference */
dsetv_id = H5Rdereference2(dsetr_id, H5P_DEFAULT, H5R_DATASET_REGION, &ref_out[0]);
/* Get name of the dataset the first region reference points using H5Iget_name */
*buf2 = '\0';
name_size2 = H5Iget_name(dsetv_id, (char *)buf2, NAME_BUF_SIZE);
if (!((HDstrcmp(buf2, "/MATRIX") == 0) && (name_size2 == 7)))
TEST_ERROR;
if (H5Dclose(dsetv_id) < 0)
TEST_ERROR;
PASSED();
/* Get name of the dataset the second region reference points to using H5Rget_name */
TESTING("H5Rget_name to get name from region reference(pnt selec)");
*buf1 = '\0';
name_size1 = H5Rget_name(dsetr_id, H5R_DATASET_REGION, &ref_out[1], (char *)buf1, NAME_BUF_SIZE);
if (!((HDstrcmp(buf1, "/MATRIX") == 0) && (name_size1 == 7)))
TEST_ERROR;
PASSED();
TESTING("H5Iget_name to get name from region reference(pnt selec)");
/* Dereference the second reference */
if ((dsetv_id = H5Rdereference2(dsetr_id, H5P_DEFAULT, H5R_DATASET_REGION, &ref_out[1])) < 0)
TEST_ERROR;
/* Get name of the dataset the first region reference points using H5Iget_name */
*buf2 = '\0';
name_size2 = H5Iget_name(dsetv_id, (char *)buf2, NAME_BUF_SIZE);
if (!((HDstrcmp(buf2, "/MATRIX") == 0) && (name_size2 == 7)))
TEST_ERROR;
if (H5Dclose(dsetv_id) < 0)
TEST_ERROR;
PASSED();
if (H5Dclose(dsetr_id) < 0)
TEST_ERROR;
if (H5Fclose(file_id) < 0)
TEST_ERROR;
return 0;
error:
return 1;
}
/*-------------------------------------------------------------------------
* Function: test_elinks
*
* Purpose: Verify that querying names of objects reached via external
* links uses cached path/name information for object and doesn't
* search the file.
*
* Return: Success: 0
* Failure: 1
*
* Programmer: Quincey Koziol
* Tuesday, July 27, 2010
*
*-------------------------------------------------------------------------
*/
static int
test_elinks(hid_t fapl)
{
char filename1[1024], filename2[1024]; /* Filenames */
hid_t fid1, fid2; /* HDF5 File IDs */
hid_t group, group2; /* Group IDs */
char name[NAME_BUF_SIZE]; /* Buffer for storing object's name */
ssize_t namelen; /* Length of object's name */
hbool_t name_cached; /* Indicate if name is cached */
/* Initialize the file names */
h5_fixname(FILENAME[1], fapl, filename1, sizeof filename1);
h5_fixname(FILENAME[2], fapl, filename2, sizeof filename2);
/* Create files */
if ((fid1 = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR;
if ((fid2 = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
FAIL_STACK_ERROR;
/* Create a group in the second file */
if ((group2 = H5Gcreate2(fid2, "Group2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Close Group */
if (H5Gclose(group2) < 0)
FAIL_STACK_ERROR;
/* Create an external link in first file to the group in the second file */
if (H5Lcreate_external(filename2, "Group2", fid1, "Link_to_Group2", H5P_DEFAULT, H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Create an external link in second file to the external link in the first file */
if (H5Lcreate_external(filename1, "Link_to_Group2", fid2, "Link_to_Link_to_Group2", H5P_DEFAULT,
H5P_DEFAULT) < 0)
FAIL_STACK_ERROR;
/* Open the group in thesecond file through the external link */
if ((group = H5Gopen2(fid1, "Link_to_Group2", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Query the external link object's name */
*name = '\0';
name_cached = FALSE;
namelen = H5I__get_name_test(group, (char *)name, sizeof(name), &name_cached);
if (!((HDstrcmp(name, "/Group2") == 0) && (namelen == 7) && name_cached))
TEST_ERROR;
/* Close Group */
if (H5Gclose(group) < 0)
FAIL_STACK_ERROR;
/* Open the group in the second file through the external link to the external link */
if ((group = H5Gopen2(fid2, "Link_to_Link_to_Group2", H5P_DEFAULT)) < 0)
FAIL_STACK_ERROR;
/* Query the external link to external link object's name */
*name = '\0';
name_cached = FALSE;
namelen = H5I__get_name_test(group, (char *)name, sizeof(name), &name_cached);
if (!((HDstrcmp(name, "/Group2") == 0) && (namelen == 7) && name_cached))
TEST_ERROR;
/* Close Group */
if (H5Gclose(group) < 0)
FAIL_STACK_ERROR;
/* Close files */
if (H5Fclose(fid1) < 0)
FAIL_STACK_ERROR;
if (H5Fclose(fid2) < 0)
FAIL_STACK_ERROR;
return 0;
error:
return 1;
}
int
main(void)
{
hid_t file_id = (-1);
int nerrors = 0;
hid_t fapl;
char filename0[1024];
hbool_t driver_is_parallel;
/* Reset the library and get the file access property list */
h5_reset();
fapl = h5_fileaccess();
h5_fixname(FILENAME[0], fapl, filename0, sizeof filename0);
if (h5_using_parallel_driver(fapl, &driver_is_parallel) < 0)
TEST_ERROR;
/* Create a new file_id using default create property but vfd access
* property.
*/
if ((file_id = H5Fcreate(filename0, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
TEST_ERROR;
/* Call "main" test routine */
nerrors += test_main(file_id, fapl);
if (!driver_is_parallel) {
nerrors += test_obj_ref(fapl);
nerrors += test_reg_ref(fapl);
}
nerrors += test_elinks(fapl);
/* Close file */
H5Fclose(file_id);
/* Verify symbol table messages are cached */
nerrors += (h5_verify_cached_stabs(FILENAME, fapl) < 0 ? 1 : 0);
if (nerrors)
goto error;
HDputs("All getname tests passed.");
h5_cleanup(FILENAME, fapl);
return 0;
error:
H5E_BEGIN_TRY
{
H5Fclose(file_id);
}
H5E_END_TRY;
HDputs("***** GET NAME TESTS FAILED *****");
return 1;
}
Reference in New Issue View Git Blame Copy Permalink