/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 * Copyright by The HDF Group.                                               *
 * All rights reserved.                                                      *
 *                                                                           *
 * This file is part of HDF5.  The full HDF5 copyright notice, including     *
 * terms governing use, modification, and redistribution, is contained in    *
 * the COPYING file, which can be found at the root of the source code       *
 * distribution tree, or in https://www.hdfgroup.org/licenses.               *
 * If you do not have access to either file, you may request a copy from     *
 * help@hdfgroup.org.                                                        *
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */

/*
 * Programmer:  Robb Matzke
 *              Wednesday, October  7, 1998
 *
 * Purpose:	Tests file mounting.
 */
#include "h5test.h"
#include "H5Fprivate.h" /* File access				*/
#include "H5Iprivate.h" /* IDs			  		*/

const char *FILENAME[] = {"mount_1", "mount_2", "mount_3", "mount_4", "mount_5", "mount_6", "mount_7", NULL};

/* For "mount_after_close" test */
#define RANK          2
#define NX            4
#define NY            5
#define NAME_BUF_SIZE 40
int bm[NX][NY], bm_out[NX][NY]; /* Data buffers */

/*-------------------------------------------------------------------------
 * Function:	setup
 *
 * Purpose:	Create some files and populate them with a few groups.
 *
 * Return:	Success:	0
 *
 *		Failure:	-1
 *
 * Programmer:	Robb Matzke
 *              Wednesday, October  7, 1998
 *
 *-------------------------------------------------------------------------
 */
static int
setup(hid_t fapl)
{
    hid_t file = -1;
    char  filename[1024];

    /* file 1 */
    h5_fixname(FILENAME[0], fapl, filename, sizeof filename);
    if ((file = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
        FAIL_STACK_ERROR;
    if (H5Gclose(H5Gcreate2(file, "/mnt1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;
    if (H5Gclose(H5Gcreate2(file, "/mnt1/file1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;
    if (H5Gclose(H5Gcreate2(file, "/mnt_unlink", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;
    if (H5Gclose(H5Gcreate2(file, "/mnt_move_a", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;
    if (H5Lcreate_hard(file, "/mnt1/file1", H5L_SAME_LOC, "/file1", H5P_DEFAULT, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;
    if (H5Lcreate_hard(file, "/mnt1", H5L_SAME_LOC, "/mnt1_link", H5P_DEFAULT, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file) < 0)
        FAIL_STACK_ERROR;

    /* file 2 */
    h5_fixname(FILENAME[1], fapl, filename, sizeof filename);
    if ((file = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
        FAIL_STACK_ERROR;
    if (H5Gclose(H5Gcreate2(file, "/file2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;
    if (H5Gclose(H5Gcreate2(file, "/rename_a", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;
    if (H5Gclose(H5Gcreate2(file, "/rename_b", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;
    if (H5Gclose(H5Gcreate2(file, "/rename_a/x", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file) < 0)
        FAIL_STACK_ERROR;

    /* file 3 */
    h5_fixname(FILENAME[2], fapl, filename, sizeof filename);
    if ((file = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file) < 0)
        FAIL_STACK_ERROR;

    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Fclose(file);
    }
    H5E_END_TRY;
    return -1;
} /* end setup() */

/*-------------------------------------------------------------------------
 * Function:	test_basic
 *
 * Purpose:	Mount file1 at file2:/mnt1 and try accessing an object in
 *		file2.  Then unmount.
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Robb Matzke
 *              Wednesday, October  7, 1998
 *
 *-------------------------------------------------------------------------
 */
static int
test_basic(hid_t fapl)
{
    hid_t file1 = -1, file2 = -1, grp = -1;
    char  filename1[1024], filename2[1024];

    TESTING("basic functionality");
    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);

    if ((file1 = H5Fopen(filename1, H5F_ACC_RDONLY, fapl)) < 0 ||
        (file2 = H5Fopen(filename2, H5F_ACC_RDONLY, fapl)) < 0)
        FAIL_STACK_ERROR;
    if (H5Fmount(file1, "/mnt1", file2, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;
    if ((grp = H5Gopen2(file1, "/mnt1/file2", H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;
    if (H5Gclose(grp) < 0)
        FAIL_STACK_ERROR;
    if (H5Funmount(file1, "/mnt1") < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file1) < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file2) < 0)
        FAIL_STACK_ERROR;

    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Fclose(file1);
        H5Fclose(file2);
    }
    H5E_END_TRY;
    return 1;
} /* end test_basic() */

/*-------------------------------------------------------------------------
 * Function:	test_illegal
 *
 * Purpose:	Test things that are illegal to do.  We should get a failure
 *		from the library for each of them.
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Robb Matzke
 *              Wednesday, October  7, 1998
 *
 *-------------------------------------------------------------------------
 */
static int
test_illegal(hid_t fapl)
{
    hid_t  file1 = -1, file1b = -1, file2 = -1, file3 = -1, file3b = -1, mnt = -1;
    char   filename1[1024], filename2[1024], filename3[1024];
    herr_t status;

    TESTING("illegal mount operations");
    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);
    h5_fixname(FILENAME[2], fapl, filename3, sizeof filename3);

    /* Open the files */
    if ((file1 = H5Fopen(filename1, H5F_ACC_RDONLY, fapl)) < 0 ||
        (file2 = H5Fopen(filename2, H5F_ACC_RDONLY, fapl)) < 0 ||
        (file3 = H5Fopen(filename3, H5F_ACC_RDONLY, fapl)) < 0)
        FAIL_STACK_ERROR;
    if ((file1b = H5Fopen(filename1, H5F_ACC_RDONLY, fapl)) < 0)
        FAIL_STACK_ERROR;
    if ((file3b = H5Fopen(filename3, H5F_ACC_RDONLY, fapl)) < 0)
        FAIL_STACK_ERROR;

    /* Try mounting a file on itself */
    H5E_BEGIN_TRY
    {
        status = H5Fmount(file1, "/mnt1", file1, H5P_DEFAULT);
    }
    H5E_END_TRY;
    if (status >= 0) {
        H5_FAILED();
        HDputs("    Mounting a file on itself should have failed.");
        TEST_ERROR;
    } /* end if */

    /*
     * Try mounting two files at the same place.  We have to open the mount
     * point before we mount the first file or we'll end up mounting file3 at
     * the root of file2 and the mount will succeed.
     */
    if ((mnt = H5Gopen2(file1, "/mnt1", H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;
    if (H5Fmount(mnt, ".", file2, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;
    H5E_BEGIN_TRY
    {
        status = H5Fmount(mnt, ".", file3, H5P_DEFAULT);
    }
    H5E_END_TRY;
    if (status >= 0) {
        H5_FAILED();
        HDputs("    Mounting two files at one mount point should have failed.");
        TEST_ERROR;
    } /* end if */
    if (H5Funmount(mnt, ".") < 0)
        FAIL_STACK_ERROR;
    if (H5Gclose(mnt) < 0)
        FAIL_STACK_ERROR;

    /*
     * Try mounting the same file opened twice at the same place.
     *
     * We have to open the mount point before we mount the first file or we'll
     * end up mounting file3b at the root of file3 and the mount will succeed.
     */
    if ((mnt = H5Gopen2(file1, "/mnt1", H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;
    if (H5Fmount(mnt, ".", file3, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;
    H5E_BEGIN_TRY
    {
        status = H5Fmount(mnt, ".", file3b, H5P_DEFAULT);
    }
    H5E_END_TRY;
    if (status >= 0) {
        H5_FAILED();
        HDputs("    Mounting same file opened twice at one mount point should have failed.");
        TEST_ERROR;
    } /* end if */
    if (H5Funmount(mnt, ".") < 0)
        FAIL_STACK_ERROR;
    if (H5Gclose(mnt) < 0)
        FAIL_STACK_ERROR;

    /* Try to create a "weak" cycle */
    if (H5Fmount(file1, "/mnt1", file2, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;
    H5E_BEGIN_TRY
    {
        status = H5Fmount(file2, "/mnt1/file2", file1b, H5P_DEFAULT);
    }
    H5E_END_TRY;
    if (status >= 0) {
        H5_FAILED();
        HDputs("    Creating a cycle with mount points should have failed.");
        TEST_ERROR;
    } /* end if */
    if (H5Funmount(file1, "/mnt1") < 0)
        FAIL_STACK_ERROR;

    /* Close everything and return */
    if (H5Fclose(file1) < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file1b) < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file2) < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file3) < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file3b) < 0)
        FAIL_STACK_ERROR;

    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Gclose(mnt);
        H5Fclose(file1);
        H5Fclose(file1b);
        H5Fclose(file2);
        H5Fclose(file3);
        H5Fclose(file3b);
    }
    H5E_END_TRY;
    return 1;
} /* end test_illegal() */

/*-------------------------------------------------------------------------
 * Function:	test_samefile
 *
 * Purpose:	Test opening the same file twice and then mounting another
 *              file on each.
 *
 * Return:	Success:	0
 *		Failure:	number of errors
 *
 * Programmer:	Quincey Koziol
 *              Tuesday, July 15, 2008
 *
 *-------------------------------------------------------------------------
 */
static int
test_samefile(hid_t fapl)
{
    hid_t      file1a = -1, file1b = -1, file2 = -1, file3 = -1;
    hid_t      mnt1a = -1, mnt1b = -1;
    char       filename1[1024], filename2[1024], filename3[1024];
    H5G_info_t grp_info;
    herr_t     status;

    TESTING("same file mount operations");
    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);
    h5_fixname(FILENAME[2], fapl, filename3, sizeof filename3);

    /* Open the files */
    if ((file1a = H5Fopen(filename1, H5F_ACC_RDONLY, fapl)) < 0)
        FAIL_STACK_ERROR;
    if ((file1b = H5Fopen(filename1, H5F_ACC_RDONLY, fapl)) < 0)
        FAIL_STACK_ERROR;
    if ((file2 = H5Fopen(filename2, H5F_ACC_RDONLY, fapl)) < 0)
        FAIL_STACK_ERROR;
    if ((file3 = H5Fopen(filename3, H5F_ACC_RDONLY, fapl)) < 0)
        FAIL_STACK_ERROR;

    /*
     * Try mounting different files at the same place in each of the "top"
     *  files.
     *
     * We have to open the mount point before we mount the first file or we'll
     * end up mounting file4 at the root of file3 and the mount will succeed.
     */
    if ((mnt1a = H5Gopen2(file1a, "/mnt1", H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;
    if (H5Gget_info(mnt1a, &grp_info) < 0)
        FAIL_STACK_ERROR;
    if (grp_info.mounted)
        FAIL_PUTS_ERROR("    Group shouldn't have 'mounted' flag set.");
    if ((mnt1b = H5Gopen2(file1b, "/mnt1", H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;
    if (H5Gget_info(mnt1b, &grp_info) < 0)
        FAIL_STACK_ERROR;
    if (grp_info.mounted)
        FAIL_PUTS_ERROR("    Group shouldn't have 'mounted' flag set.");
    if (H5Fmount(mnt1a, ".", file2, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;
    if (H5Gget_info(mnt1a, &grp_info) < 0)
        FAIL_STACK_ERROR;
    if (!grp_info.mounted)
        FAIL_PUTS_ERROR("    Group should have 'mounted' flag set.");
    H5E_BEGIN_TRY
    {
        status = H5Fmount(mnt1b, ".", file3, H5P_DEFAULT);
    }
    H5E_END_TRY;
    if (status >= 0)
        FAIL_PUTS_ERROR("    Mounting different files at one mount point should have failed.");
    if (H5Funmount(mnt1a, ".") < 0)
        FAIL_STACK_ERROR;
    if (H5Gclose(mnt1a) < 0)
        FAIL_STACK_ERROR;
    if (H5Gclose(mnt1b) < 0)
        FAIL_STACK_ERROR;

    /*
     * Try mounting same files at the same place in each of the "top"
     *  files.
     *
     * We have to open the mount point before we mount the first file or we'll
     * end up mounting file4 at the root of file3 and the mount will succeed.
     */
    if ((mnt1a = H5Gopen2(file1a, "/mnt1", H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;
    if (H5Gget_info(mnt1a, &grp_info) < 0)
        FAIL_STACK_ERROR;
    if (grp_info.mounted)
        FAIL_PUTS_ERROR("    Group shouldn't have 'mounted' flag set.");
    if ((mnt1b = H5Gopen2(file1b, "/mnt1", H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;
    if (H5Gget_info(mnt1b, &grp_info) < 0)
        FAIL_STACK_ERROR;
    if (grp_info.mounted)
        FAIL_PUTS_ERROR("    Group shouldn't have 'mounted' flag set.");
    if (H5Fmount(mnt1a, ".", file2, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;
    if (H5Gget_info(mnt1a, &grp_info) < 0)
        FAIL_STACK_ERROR;
    if (!grp_info.mounted)
        FAIL_PUTS_ERROR("    Group should have 'mounted' flag set.");
    H5E_BEGIN_TRY
    {
        status = H5Fmount(mnt1b, ".", file2, H5P_DEFAULT);
    }
    H5E_END_TRY;
    if (status >= 0)
        FAIL_PUTS_ERROR("    Mounting same files at one mount point should have failed.");
    if (H5Funmount(mnt1a, ".") < 0)
        FAIL_STACK_ERROR;
    if (H5Gclose(mnt1a) < 0)
        FAIL_STACK_ERROR;
    if (H5Gclose(mnt1b) < 0)
        FAIL_STACK_ERROR;

    /* Close everything and return */
    if (H5Fclose(file1a) < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file1b) < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file2) < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file3) < 0)
        FAIL_STACK_ERROR;

    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Gclose(mnt1a);
        H5Gclose(mnt1b);
        H5Fclose(file1a);
        H5Fclose(file1b);
        H5Fclose(file2);
        H5Fclose(file3);
    }
    H5E_END_TRY;
    return 1;
} /* end test_samefile() */

/*-------------------------------------------------------------------------
 * Function:	test_hide
 *
 * Purpose:	The previous contents of the mount point is temporarily
 *		hidden. If objects in that group had names from other groups
 *		then the objects will still be visible by those other names.
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Robb Matzke
 *              Wednesday, October  7, 1998
 *
 *-------------------------------------------------------------------------
 */
static int
test_hide(hid_t fapl)
{
    hid_t       file1 = -1, file2 = -1, grp = -1;
    H5O_info2_t oi1, oi2;
    char        filename1[1024], filename2[1024];
    hbool_t     same_obj;

    TESTING("name hiding under mount point");
    h5_fixname(FILENAME[0], fapl, filename1, sizeof(filename1));
    h5_fixname(FILENAME[1], fapl, filename2, sizeof(filename2));

    if ((file1 = H5Fopen(filename1, H5F_ACC_RDONLY, fapl)) < 0 ||
        (file2 = H5Fopen(filename2, H5F_ACC_RDONLY, fapl)) < 0)
        FAIL_STACK_ERROR;

    /* Get information about file1:/mnt1/file1 for later */
    if (H5Oget_info_by_name3(file1, "/mnt1/file1", &oi1, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;

    /* Build the virtual file */
    if (H5Fmount(file1, "/mnt1", file2, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;

    /* Original names under file1:/mnt1 should not be accessible */
    H5E_BEGIN_TRY
    {
        grp = H5Gopen2(file1, "/mnt1/file1", H5P_DEFAULT);
    }
    H5E_END_TRY;
    if (grp >= 0) {
        H5_FAILED();
        HDputs("    Name is still accessible under mount point.");
        TEST_ERROR;
    }

    /*
     * The original objects under file1:/mnt1 are still accessible by their
     * other names.  This is a rather stupid test but demonstrates a point.
     */
    if (H5Oget_info_by_name3(file1, "/file1", &oi2, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;

    same_obj = TRUE;
    if (oi1.fileno == oi2.fileno) {
        int token_cmp;

        if (H5Otoken_cmp(file1, &oi1.token, &oi2.token, &token_cmp) < 0)
            FAIL_STACK_ERROR;
        if (token_cmp)
            same_obj = FALSE;
    }
    else
        same_obj = FALSE;

    if (!same_obj) {
        H5_FAILED();
        HDputs("    Hard link failed for hidden object.");
        TEST_ERROR;
    }

    /* Unmount and close objects */
    if (H5Funmount(file1, "/mnt1") < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file1) < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file2) < 0)
        FAIL_STACK_ERROR;

    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Gclose(grp);
        H5Fclose(file1);
        H5Fclose(file2);
    }
    H5E_END_TRY;
    return 1;
} /* end test_hide() */

/*-------------------------------------------------------------------------
 * Function:	test_assoc
 *
 * Purpose:	Opening the mount point is the same as opening the root group
 *		of the mounted file before the file was mounted.
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Robb Matzke
 *              Tuesday, October 13, 1998
 *
 *-------------------------------------------------------------------------
 */
static int
test_assoc(hid_t fapl)
{
    hid_t       file1 = -1, file2 = -1;
    H5O_info2_t oi1, oi2;
    char        filename1[1024], filename2[1024];
    hbool_t     same_obj;

    TESTING("mount point open");
    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);

    /* Open the files */
    if ((file1 = H5Fopen(filename1, H5F_ACC_RDONLY, fapl)) < 0 ||
        (file2 = H5Fopen(filename2, H5F_ACC_RDONLY, fapl)) < 0)
        FAIL_STACK_ERROR;

    /* Get information about the root of file2 */
    if (H5Oget_info3(file2, &oi1, H5O_INFO_BASIC) < 0)
        FAIL_STACK_ERROR;

    /* Create the virtual file */
    if (H5Fmount(file1, "/mnt1", file2, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;

    /*
     * Get info about the mount point -- should be the same as the root group
     * of file2.
     */
    if (H5Oget_info_by_name3(file1, "/mnt1", &oi2, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;

    same_obj = TRUE;
    if (oi1.fileno == oi2.fileno) {
        int token_cmp;

        if (H5Otoken_cmp(file1, &oi1.token, &oi2.token, &token_cmp) < 0)
            FAIL_STACK_ERROR;
        if (token_cmp)
            same_obj = FALSE;
    }
    else
        same_obj = FALSE;

    if (!same_obj) {
        H5_FAILED();
        HDputs("    Association failed.");
        TEST_ERROR;
    } /* end if */

    /* Shut down */
    if (H5Funmount(file1, "/mnt1_link") < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file1) < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file2) < 0)
        FAIL_STACK_ERROR;

    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Fclose(file2);
        H5Fclose(file1);
    }
    H5E_END_TRY;
    return 1;
} /* end test_assoc() */

/*-------------------------------------------------------------------------
 * Function:	test_mntlnk
 *
 * Purpose:	The mount point is actually an OID (not a name) so if there
 *		are other names for that group then the root group of the
 *		child will be visible in all those names.
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Robb Matzke
 *              Wednesday, October  7, 1998
 *
 *-------------------------------------------------------------------------
 */
static int
test_mntlnk(hid_t fapl)
{
    hid_t file1 = -1, file2 = -1, grp = -1;
    char  filename1[1024], filename2[1024];

    TESTING("multi-linked mount point");
    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);

    /* Build the virtual file */
    if ((file1 = H5Fopen(filename1, H5F_ACC_RDONLY, fapl)) < 0 ||
        (file2 = H5Fopen(filename2, H5F_ACC_RDONLY, fapl)) < 0)
        FAIL_STACK_ERROR;
    if (H5Fmount(file1, "/mnt1", file2, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;

    /*
     * Can we see file2:/file2 as both file1:/mnt1/file2 and
     * file1:/mnt1_link/file2?
     */
    if ((grp = H5Gopen2(file1, "/mnt1/file2", H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;
    if (H5Gclose(grp) < 0)
        FAIL_STACK_ERROR;
    if ((grp = H5Gopen2(file1, "/mnt1_link/file2", H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;
    if (H5Gclose(grp) < 0)
        FAIL_STACK_ERROR;

    /* Unlink using second name */
    if (H5Funmount(file1, "/mnt1_link") < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file1) < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file2) < 0)
        FAIL_STACK_ERROR;

    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Gclose(grp);
        H5Fclose(file1);
        H5Fclose(file2);
    }
    H5E_END_TRY;
    return 1;
} /* end test_mntlnk() */

/*-------------------------------------------------------------------------
 * Function:	test_move
 *
 * Purpose:	An object cannot be moved or renamed with H5Lmove() in such a
 *		way that the new location would be in a different file than
 *		the original location.
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Robb Matzke
 *              Wednesday, October  7, 1998
 *
 *-------------------------------------------------------------------------
 */
static int
test_move(hid_t fapl)
{
    hid_t  file1 = -1, file2 = -1;
    herr_t status;
    char   filename1[1024], filename2[1024];

    TESTING("object renaming");
    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);

    /* Build the virtual file */
    if ((file1 = H5Fopen(filename1, H5F_ACC_RDWR, fapl)) < 0 ||
        (file2 = H5Fopen(filename2, H5F_ACC_RDWR, fapl)) < 0)
        FAIL_STACK_ERROR;
    if (H5Fmount(file1, "/mnt1", file2, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;

    /* First rename an object in the mounted file, then try it across files */
    if (H5Lmove(file1, "/mnt1/rename_a/x", H5L_SAME_LOC, "/mnt1/rename_b/y", H5P_DEFAULT, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;
    H5E_BEGIN_TRY
    {
        status = H5Lmove(file1, "/mnt1/rename_b/y", H5L_SAME_LOC, "/y", H5P_DEFAULT, H5P_DEFAULT);
    }
    H5E_END_TRY;
    if (status >= 0) {
        H5_FAILED();
        HDputs("    Moving an object across files shouldn't have been possible");
        TEST_ERROR;
    } /* end if */

    /* Shut down */
    if (H5Funmount(file1, "/mnt1") < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file1) < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file2) < 0)
        FAIL_STACK_ERROR;

    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Fclose(file1);
        H5Fclose(file2);
    }
    H5E_END_TRY;
    return 1;
} /* end test_move() */

/*-------------------------------------------------------------------------
 * Function:	test_preopen
 *
 * Purpose:	Objects that are opened under the mount point before the
 *		child is mounted will remain accessible.
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Robb Matzke
 *              Wednesday, October  7, 1998
 *
 *-------------------------------------------------------------------------
 */
static int
test_preopen(hid_t fapl)
{
    hid_t       file1 = -1, file2 = -1, grp = -1;
    H5O_info2_t oinfo;
    char        filename1[1024], filename2[1024];

    TESTING("preopening objects under the mount point");
    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);

    if ((file1 = H5Fopen(filename1, H5F_ACC_RDONLY, fapl)) < 0 ||
        (file2 = H5Fopen(filename2, H5F_ACC_RDONLY, fapl)) < 0)
        FAIL_STACK_ERROR;

    /* Open something under the mount point */
    if ((grp = H5Gopen2(file1, "/mnt1/file1", H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;

    /* Build the virtual file */
    if (H5Fmount(file1, "/mnt1", file2, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;

    /* Now access the thing we previously opened */
    if (H5Oget_info3(grp, &oinfo, H5O_INFO_BASIC) < 0)
        FAIL_STACK_ERROR;

    /* Shut down */
    if (H5Funmount(file1, "/mnt1") < 0)
        FAIL_STACK_ERROR;
    if (H5Gclose(grp) < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file1) < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file2) < 0)
        FAIL_STACK_ERROR;

    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Gclose(grp);
        H5Fclose(file2);
        H5Fclose(file1);
    }
    H5E_END_TRY;
    return 1;
} /* end test_preopen() */

/*-------------------------------------------------------------------------
 * Function:	test_postopen
 *
 * Purpose:	Objects that are open in a mounted file remain accessible
 *		after the file is unmounted.  Unmounting the file doesn't
 *		close the file.
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Robb Matzke
 *              Wednesday, October 14, 1998
 *
 *-------------------------------------------------------------------------
 */
static int
test_postopen(hid_t fapl)
{

    hid_t       file1 = -1, file2 = -1, grp = -1;
    H5O_info2_t oinfo;
    char        filename1[1024], filename2[1024];

    TESTING("open object access after unmount");
    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);

    /* Create the virtual file */
    if ((file1 = H5Fopen(filename1, H5F_ACC_RDONLY, fapl)) < 0 ||
        (file2 = H5Fopen(filename2, H5F_ACC_RDONLY, fapl)) < 0)
        FAIL_STACK_ERROR;
    if (H5Fmount(file1, "/mnt1", file2, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;

    /* Open some object in the mounted file */
    if ((grp = H5Gopen2(file1, "/mnt1/file2", H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;

    /* Unmount the file */
    if (H5Funmount(file1, "/mnt1") < 0)
        FAIL_STACK_ERROR;

    /* Now access the thing we previously opened */
    if (H5Oget_info3(grp, &oinfo, H5O_INFO_BASIC) < 0)
        FAIL_STACK_ERROR;

    /* Try accessing it from the file */
    if (H5Oget_info_by_name3(file2, "/file2", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;

    /* Shut down */
    if (H5Gclose(grp) < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file1) < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file2) < 0)
        FAIL_STACK_ERROR;

    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Gclose(grp);
        H5Fclose(file2);
        H5Fclose(file1);
    }
    H5E_END_TRY;
    return 1;
} /* end test_postopen() */

/*-------------------------------------------------------------------------
 * Function:	test_unlink
 *
 * Purpose:	Unlinking the mount point from its name doesn't affect its
 *		existence or the fact that there is a file that is mounted
 *		there.
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Robb Matzke
 *              Tuesday, October 13, 1998
 *
 *-------------------------------------------------------------------------
 */
static int
test_unlink(hid_t fapl)
{
    hid_t       file1 = -1, file2 = -1, mnt = -1, root = -1;
    H5O_info2_t oinfo;
    char        filename1[1024], filename2[1024];
    herr_t      status;

    TESTING("mount point unlinking");
    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);

    /* Open files */
    if ((file1 = H5Fopen(filename1, H5F_ACC_RDWR, fapl)) < 0 ||
        (file2 = H5Fopen(filename2, H5F_ACC_RDWR, fapl)) < 0)
        FAIL_STACK_ERROR;

    /*
     * Opening the mount point before mounting opens the group in the parent
     * file, but opening the mount point after mounting is the same as
     * opening the root group of the child file.
     */
    if ((mnt = H5Gopen2(file1, "/mnt_unlink", H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;
    if (H5Fmount(file1, "/mnt_unlink", file2, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;
    if ((root = H5Gopen2(file1, "/mnt_unlink", H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;

    /*
     * "/file2" of file2 should be visible as an absolute name through either
     * file handle but not from the `mnt' handle since that handle was opened
     * before the H5Fmount() and thus refers to the mount point itself rather
     * than the group mounted there.
     */
    if (H5Oget_info_by_name3(file1, "/mnt_unlink/file2", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;
    if (H5Oget_info_by_name3(mnt, "/mnt_unlink/file2", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;
    if (H5Oget_info_by_name3(root, "/mnt_unlink/file2", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;
    if (H5Oget_info_by_name3(root, "file2", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;
    H5E_BEGIN_TRY
    {
        status = H5Oget_info_by_name3(mnt, "file2", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT);
    }
    H5E_END_TRY;
    if (status >= 0) {
        H5_FAILED();
        HDputs("    Incorrect traversal from mount point!");
        TEST_ERROR;
    } /* end if */

    /* Unlink the mount point */
    if (H5Ldelete(file1, "/mnt_unlink", H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;

    /*
     * We should still be able to get to "/file2" of file2 by starting at
     * `root' which is still open, but not by name.
     */
    if (H5Oget_info_by_name3(root, "file2", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;
    H5E_BEGIN_TRY
    {
        status = H5Oget_info_by_name3(mnt, "file2", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT);
    }
    H5E_END_TRY;
    if (status >= 0) {
        H5_FAILED();
        HDputs("    Traversal through mount point should not have worked!");
        TEST_ERROR;
    } /* end if */
    H5E_BEGIN_TRY
    {
        status = H5Oget_info_by_name3(file2, "/mnt_unlink/file2", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT);
    }
    H5E_END_TRY;
    if (status >= 0) {
        H5_FAILED();
        HDputs("    Traversal through mount point should not have worked!");
        TEST_ERROR;
    } /* end if */

    /*
     * It's no longer possible to unmount the child by supplying the name of
     * the mount point because the name doesn't exist anymore.  We must
     * supply the mount point directly.
     */
    H5E_BEGIN_TRY
    {
        status = H5Funmount(file1, "/mnt_unlink");
    }
    H5E_END_TRY;
    if (status >= 0) {
        H5_FAILED();
        HDprintf("    %d: Unmount by name should not have been allowed!\n", __LINE__);
        TEST_ERROR;
    } /* end if */
    H5E_BEGIN_TRY
    {
        status = H5Funmount(file2, "/");
    }
    H5E_END_TRY;
    if (status >= 0) {
        H5_FAILED();
        HDprintf("    %d: Unmount by name should not have been allowed!\n", __LINE__);
        TEST_ERROR;
    } /* end if */
    if (H5Funmount(mnt, ".") < 0)
        FAIL_STACK_ERROR;

    /* Close files */
    if (H5Gclose(mnt) < 0)
        FAIL_STACK_ERROR;
    if (H5Gclose(root) < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file1) < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file2) < 0)
        FAIL_STACK_ERROR;

    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Gclose(mnt);
        H5Gclose(root);
        H5Fclose(file2);
        H5Fclose(file1);
    }
    H5E_END_TRY;
    return 1;
} /* end test_unlink() */

/*-------------------------------------------------------------------------
 * Function:	test_mvmpt
 *
 * Purpose:	Try renaming the mount point while a file is mounted there.
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Robb Matzke
 *              Tuesday, October 13, 1998
 *
 *-------------------------------------------------------------------------
 */
static int
test_mvmpt(hid_t fapl)
{
    hid_t       file1 = -1, file2 = -1;
    H5O_info2_t oinfo;
    char        filename1[1024], filename2[1024];

    TESTING("mount point renaming");
    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);

    /* Build the virtual file */
    if ((file1 = H5Fopen(filename1, H5F_ACC_RDWR, fapl)) < 0 ||
        (file2 = H5Fopen(filename2, H5F_ACC_RDWR, fapl)) < 0)
        FAIL_STACK_ERROR;
    if (H5Fmount(file1, "/mnt_move_a", file2, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;

    /* Rename the mount point */
    if (H5Lmove(file1, "/mnt_move_a", H5L_SAME_LOC, "/mnt_move_b", H5P_DEFAULT, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;

    /* Access something under the new name */
    if (H5Oget_info_by_name3(file1, "/mnt_move_b/file2", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;

    /* Shut down */
    if (H5Funmount(file1, "/mnt_move_b") < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file1) < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file2) < 0)
        FAIL_STACK_ERROR;

    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Fclose(file1);
        H5Fclose(file2);
    }
    H5E_END_TRY;
    return 1;
} /* end test_mvmpt() */

/*-------------------------------------------------------------------------
 * Function:	test_interlink
 *
 * Purpose:	Hard links cannot cross file boundaries.
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Robb Matzke
 *              Wednesday, October 14, 1998
 *
 *-------------------------------------------------------------------------
 */
static int
test_interlink(hid_t fapl)
{
    hid_t file1 = -1, file2 = -1;
#ifdef NOT_NOW
    hid_t   type = -1, space = -1, dset = -1;
    hsize_t cur_dims[1] = {2};
#endif /* NOT_NOW */
    char   filename1[1024], filename2[1024];
    herr_t status;

    TESTING("interfile hard links");
    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);

    /* Build the virtual file */
    if ((file1 = H5Fopen(filename1, H5F_ACC_RDWR, fapl)) < 0 ||
        (file2 = H5Fopen(filename2, H5F_ACC_RDWR, fapl)) < 0)
        FAIL_STACK_ERROR;
    if (H5Fmount(file1, "/mnt1", file2, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;

    /* Try an interfile hard link directly */
    H5E_BEGIN_TRY
    {
        status = H5Lcreate_hard(file1, "/mnt1/file2", H5L_SAME_LOC, "/file2", H5P_DEFAULT, H5P_DEFAULT);
    }
    H5E_END_TRY;
    if (status >= 0) {
        H5_FAILED();
        HDputs("    Interfile hard link should not have been allowed!");
        TEST_ERROR;
    } /* end if */

    /* Try an interfile hard link by renaming something */
    H5E_BEGIN_TRY
    {
        status = H5Lmove(file1, "/mnt1/file2", H5L_SAME_LOC, "/file2", H5P_DEFAULT, H5P_DEFAULT);
    }
    H5E_END_TRY;
    if (status >= 0) {
        H5_FAILED();
        HDputs("    Interfile renaming should not have been allowed!");
        TEST_ERROR;
    } /* end if */

/* Commented this code out until Jira issue #7638 is resolved.  Once that
 * issue is resolved (hopefully by refactored the file code to use shared
 * file pointers for all operations), this should be uncommented. -QAK
 */
#ifdef NOT_NOW
    /* Try an interfile hard link by sharing a data type */
    if ((type = H5Tcopy(H5T_NATIVE_INT)) < 0)
        FAIL_STACK_ERROR;
    if (H5Tcommit2(file1, "/type1", type, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;
    if ((space = H5Screate_simple(1, cur_dims, NULL)) < 0)
        FAIL_STACK_ERROR;
    H5E_BEGIN_TRY
    {
        dset = H5Dcreate2(file1, "/mnt1/file2/dset", type, space, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
    }
    H5E_END_TRY;
    if (dset >= 0) {
        H5_FAILED();
        HDputs("    Dataset and shared type must be in the same file!");
        TEST_ERROR;
    } /* end if */

    /* Close IDs */
    if (H5Sclose(space) < 0)
        FAIL_STACK_ERROR;
    if (H5Tclose(type) < 0)
        FAIL_STACK_ERROR;
#else  /* NOT_NOW */
    SKIPPED();
    HDputs("    Test skipped due file pointer sharing issue (Jira 7638).");
#endif /* NOT_NOW */

    /* Shut down */
    if (H5Funmount(file1, "/mnt1") < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file1) < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file2) < 0)
        FAIL_STACK_ERROR;

    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
#ifdef NOT_NOW
        H5Dclose(dset);
        H5Sclose(space);
        H5Tclose(type);
#endif /* NOT_NOW */
        H5Fclose(file1);
        H5Fclose(file2);
    }
    H5E_END_TRY;
    return 1;
} /* end test_interlink() */

/*-------------------------------------------------------------------------
 * Function:	test_uniformity
 *
 * Purpose:	Any file handle is equivalent to any other file handle in the
 *		same virtual file.
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Robb Matzke
 *              Wednesday, October 14, 1998
 *
 *-------------------------------------------------------------------------
 */
static int
test_uniformity(hid_t fapl)
{
    hid_t       file1 = -1, file2 = -1;
    H5O_info2_t oinfo;
    char        filename1[1024], filename2[1024];

    TESTING("file handle uniformity");
    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);

    /* Build the virtual file */
    if ((file1 = H5Fopen(filename1, H5F_ACC_RDWR, fapl)) < 0 ||
        (file2 = H5Fopen(filename2, H5F_ACC_RDWR, fapl)) < 0)
        FAIL_STACK_ERROR;
    if (H5Fmount(file1, "/mnt1", file2, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;

    /* Access some things from the file1 handle */
    if (H5Oget_info_by_name3(file1, "/", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;
    if (H5Oget_info_by_name3(file1, "/mnt1", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;
    if (H5Oget_info_by_name3(file1, "mnt1", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;
    if (H5Oget_info_by_name3(file1, "/mnt1/file2", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;
    if (H5Oget_info_by_name3(file1, "mnt1/file2", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;

    /* Access the same things from the file2 handle */
    if (H5Oget_info_by_name3(file2, "/", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;
    if (H5Oget_info_by_name3(file2, "/mnt1", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;
    if (H5Oget_info_by_name3(file2, "mnt1", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;
    if (H5Oget_info_by_name3(file2, "/mnt1/file2", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;
    if (H5Oget_info_by_name3(file2, "mnt1/file2", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;

    /* Shut down */
    if (H5Funmount(file1, "/mnt1") < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file1) < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file2) < 0)
        FAIL_STACK_ERROR;

    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Fclose(file1);
        H5Fclose(file2);
    }
    H5E_END_TRY;
    return 1;
} /* end test_uniformity() */

/*-------------------------------------------------------------------------
 * Function:	test_close
 *
 * Purpose:	Closing any file handle closes the entire virtual file.
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Robb Matzke
 *              Wednesday, October 14, 1998
 *
 *-------------------------------------------------------------------------
 */
static int
test_close(hid_t fapl)
{
    hid_t       file1 = -1, file2 = -1;
    H5O_info2_t oinfo;
    char        filename1[1024], filename2[1024];

    TESTING("file handle close");
    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);

    /* Build the virtual file */
    if ((file1 = H5Fopen(filename1, H5F_ACC_RDWR, fapl)) < 0 ||
        (file2 = H5Fopen(filename2, H5F_ACC_RDWR, fapl)) < 0)
        FAIL_STACK_ERROR;
    if (H5Fmount(file1, "/mnt1", file2, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;

    /*
     * Close file1 unmounting it from the virtual file.  Objects in file1 are
     * still accessible through the file2 handle.
     */
    if (H5Fclose(file1) < 0)
        FAIL_STACK_ERROR;
    if (H5Oget_info_by_name3(file2, "/mnt1", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT) < 0) {
        H5_FAILED();
        HDputs("    File1 contents are not accessible!");
        TEST_ERROR;
    } /* end if */
    if (H5Fclose(file2) < 0)
        FAIL_STACK_ERROR;

    /* Check that all file IDs have been closed */
    if (H5I_nmembers(H5I_FILE) != 0)
        TEST_ERROR;
    H5F_sfile_assert_num(0);

    /* Build the virtual file again */
    if ((file1 = H5Fopen(filename1, H5F_ACC_RDWR, fapl)) < 0 ||
        (file2 = H5Fopen(filename2, H5F_ACC_RDWR, fapl)) < 0)
        FAIL_STACK_ERROR;
    if (H5Fmount(file1, "/mnt1", file2, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;

    /*
     * Close file2.  It is not actually closed because it's a child of file1.
     */
    if (H5Fclose(file2) < 0)
        FAIL_STACK_ERROR;
    if (H5Oget_info_by_name3(file1, "/mnt1/file2", &oinfo, H5O_INFO_BASIC, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(file1) < 0)
        FAIL_STACK_ERROR;

    /* Check that all file IDs have been closed */
    if (H5I_nmembers(H5I_FILE) != 0)
        TEST_ERROR;
    H5F_sfile_assert_num(0);

    /* Shut down */
    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Fclose(file1);
        H5Fclose(file2);
    }
    H5E_END_TRY;
    return 1;
} /* end test_close() */

/*-------------------------------------------------------------------------
 * Function:	test_mount_after_close
 *
 * Purpose:	Test that the library handles mounting a file on a group
 *              if the group is the only object holding the file open.
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Quincey Koziol
 *              Wednesday, May  4, 2005
 *
 *-------------------------------------------------------------------------
 */
static int
test_mount_after_close(hid_t fapl)
{
    hid_t   fid1 = -1, fid2 = -1;                                      /* File IDs */
    hid_t   gidA = -1, gidAB = -1, gidABM = -1, gidX = -1, gidXY = -1; /* Group identifiers */
    hid_t   gidABMX = -1, gidABC = -1, gidABT = -1;                    /* Group IDs for testing */
    hid_t   didABMXYD = -1;                                            /* Dataset ID for testing */
    hid_t   did = -1, sid = -1;                                        /* Dataset and dataspace identifiers */
    char    filename1[1024], filename2[1024];                          /* Name of files to mount */
    char    objname[NAME_BUF_SIZE];                                    /* Name of object opened */
    hsize_t dims[] = {NX, NY};                                         /* Dataset dimensions */
    int     i, j;                                                      /* Local index variable */

    TESTING("mounting on group after file is closed");
    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);

    /*
     * Initialization of buffer matrix "bm"
     */
    for (i = 0; i < NX; i++)
        for (j = 0; j < NY; j++)
            bm[i][j] = i + j;

    /* Create first file and a groups in it. */
    /* h5ls -r shows: */
    /* /A                       Group
      /A/B                     Group
      /A/B/C                   -> ./M/X/Y
      /A/B/M                   Group
      /A/B/T                   -> /A
    */
    if ((fid1 = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
        FAIL_STACK_ERROR;
    if ((gidA = H5Gcreate2(fid1, "A", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;
    if ((gidAB = H5Gcreate2(gidA, "B", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;
    /* Mount point */
    if ((gidABM = H5Gcreate2(gidAB, "M", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;
    /* Soft link */
    if (H5Lcreate_soft("./M/X/Y", gidAB, "C", H5P_DEFAULT, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;
    /* Soft link */
    if (H5Lcreate_soft("/A", gidAB, "T", H5P_DEFAULT, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;

    /* Close groups and file */
    if (H5Gclose(gidABM) < 0)
        FAIL_STACK_ERROR;
    if (H5Gclose(gidAB) < 0)
        FAIL_STACK_ERROR;
    if (H5Gclose(gidA) < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(fid1) < 0)
        FAIL_STACK_ERROR;

    /* Create second file and dataset "D" in it. */
    /* h5ls shows: */
    /* /X                       Group
       /X/T                     -> ./Y
       /X/Y                     Group
       /X/Y/D                   Dataset {4, 5}
     */
    if ((fid2 = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
        FAIL_STACK_ERROR;

    dims[0] = NX;
    dims[1] = NY;
    if ((sid = H5Screate_simple(RANK, dims, NULL)) < 0)
        FAIL_STACK_ERROR;

    if ((gidX = H5Gcreate2(fid2, "/X", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;
    if ((gidXY = H5Gcreate2(gidX, "Y", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;
    if ((did = H5Dcreate2(gidXY, "D", H5T_NATIVE_INT, sid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;
    /* Soft link */
    if (H5Lcreate_soft("./Y", gidX, "T", H5P_DEFAULT, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;

    /* Write data to the dataset. */
    if (H5Dwrite(did, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, bm) < 0)
        FAIL_STACK_ERROR;

    /* Close all identifiers. */
    if (H5Sclose(sid) < 0)
        FAIL_STACK_ERROR;
    if (H5Dclose(did) < 0)
        FAIL_STACK_ERROR;
    if (H5Gclose(gidXY) < 0)
        FAIL_STACK_ERROR;
    if (H5Gclose(gidX) < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(fid2) < 0)
        FAIL_STACK_ERROR;

    /* Beginning of the actual test code */

    /*
     * Reopen both files
     */
    if ((fid1 = H5Fopen(filename1, H5F_ACC_RDONLY, fapl)) < 0)
        FAIL_STACK_ERROR;
    if ((fid2 = H5Fopen(filename2, H5F_ACC_RDONLY, fapl)) < 0)
        FAIL_STACK_ERROR;
    /*
     *  Open /A/B to use as a mount point
     */
    if ((gidAB = H5Gopen2(fid1, "/A/B", H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;

    /*
     *  Close the parent file. This keeps the file open because of the other handle on the group within
     */
    /* We close the file (it should stay open from the group) */
    if (H5Fclose(fid1) < 0)
        FAIL_STACK_ERROR;

    /*
     * Mount second file under G in the first file.
     */
    if (H5Fmount(gidAB, "M", fid2, H5P_DEFAULT) < 0)
        FAIL_STACK_ERROR;

    /* Open "normal" group in mounted file */
    /* (This shows we successfully mounted) */
    if ((gidABMX = H5Gopen2(gidAB, "M/X", H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;

    /* Check name */
    *objname = '\0';
    if (H5Iget_name(gidABMX, objname, (size_t)NAME_BUF_SIZE) < 0)
        FAIL_STACK_ERROR;
    if (HDstrcmp(objname, "/A/B/M/X") != 0)
        TEST_ERROR;

    /* Close object in mounted file */
    if (H5Gclose(gidABMX) < 0)
        FAIL_STACK_ERROR;

    /* Open group in mounted file through softlink */
    if ((gidABC = H5Gopen2(gidAB, "C", H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;

    /* Check name */
    *objname = '\0';
    if (H5Iget_name(gidABC, objname, (size_t)NAME_BUF_SIZE) < 0)
        FAIL_STACK_ERROR;
    if (HDstrcmp(objname, "/A/B/C") != 0)
        TEST_ERROR;

    /* Close object in mounted file */
    if (H5Gclose(gidABC) < 0)
        FAIL_STACK_ERROR;

    /* Open group in original file through softlink */
    if ((gidABT = H5Gopen2(gidAB, "T", H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;

    /* Check name */
    *objname = '\0';
    if (H5Iget_name(gidABT, objname, (size_t)NAME_BUF_SIZE) < 0)
        FAIL_STACK_ERROR;
    if (HDstrcmp(objname, "/A/B/T") != 0)
        TEST_ERROR;

    /* Close object in original file */
    if (H5Gclose(gidABT) < 0)
        FAIL_STACK_ERROR;

    /* Open "normal" dataset in mounted file */
    if ((didABMXYD = H5Dopen2(gidAB, "M/X/Y/D", H5P_DEFAULT)) < 0)
        FAIL_STACK_ERROR;

    /* Check name */
    *objname = '\0';
    if (H5Iget_name(didABMXYD, objname, (size_t)NAME_BUF_SIZE) < 0)
        FAIL_STACK_ERROR;
    if (HDstrcmp(objname, "/A/B/M/X/Y/D") != 0)
        TEST_ERROR;

    /* Close object in mounted file */
    if (H5Dclose(didABMXYD) < 0)
        FAIL_STACK_ERROR;

    if (H5Gclose(gidAB) < 0)
        FAIL_STACK_ERROR;
    if (H5Fclose(fid2) < 0)
        FAIL_STACK_ERROR;

    /* Shut down */
    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Sclose(sid);
        H5Dclose(did);
        H5Gclose(didABMXYD);
        H5Gclose(gidABT);
        H5Gclose(gidABC);
        H5Gclose(gidABMX);
        H5Gclose(gidXY);
        H5Gclose(gidX);
        H5Gclose(gidABM);
        H5Gclose(gidAB);
        H5Gclose(gidA);
        H5Fclose(fid1);
        H5Fclose(fid2);
    }
    H5E_END_TRY;
    return 1;
} /* end test_mount_after_close() */

/*-------------------------------------------------------------------------
 * Function:	test_mount_after_unmount
 *
 * Purpose:	Test that the library handles mounting a file while holding
 *				objects open in a file which has been unmounted.
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Quincey Koziol
 *              Monday, June  6, 2005
 *
 *-------------------------------------------------------------------------
 */
static int
test_mount_after_unmount(hid_t fapl)
{
    hid_t fid1 = -1, fid2 = -1, fid3 = -1, fid4 = -1;                         /* File IDs */
    hid_t gidA = -1, gidB = -1, gidX = -1, gidY = -1, gidZ = -1;              /* Group identifiers */
    hid_t gidBM    = -1;                                                      /* Group identifiers */
    hid_t gidBMZ   = -1;                                                      /* Group identifiers */
    hid_t gidAM    = -1;                                                      /* Group identifiers */
    hid_t gidAMX   = -1;                                                      /* Group identifiers */
    hid_t gidAMXX  = -1;                                                      /* Group identifiers */
    hid_t gidAMXMY = -1;                                                      /* Group identifiers */
    hid_t gidXM    = -1;                                                      /* Group identifiers */
    hid_t gidXX    = -1;                                                      /* Group identifiers */
    char  filename1[1024], filename2[1024], filename3[1024], filename4[1024]; /* Name of files to mount */
    char  objname[NAME_BUF_SIZE];                                             /* Name of object opened */

    TESTING("mounting after file is unmounted");
    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);
    h5_fixname(FILENAME[2], fapl, filename3, sizeof filename3);
    h5_fixname(FILENAME[3], fapl, filename4, sizeof filename4);

    /* Create first file and some groups in it. */
    if ((fid1 = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
        TEST_ERROR;
    if ((gidA = H5Gcreate2(fid1, "A", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if ((gidAM = H5Gcreate2(gidA, "M", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(gidAM) < 0)
        TEST_ERROR;
    if (H5Gclose(gidA) < 0)
        TEST_ERROR;
    if ((gidB = H5Gcreate2(fid1, "B", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if ((gidBM = H5Gcreate2(gidB, "M", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(gidBM) < 0)
        TEST_ERROR;
    if (H5Gclose(gidB) < 0)
        TEST_ERROR;
    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    /* Create second file and a group in it. */
    if ((fid2 = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
        TEST_ERROR;
    if ((gidX = H5Gcreate2(fid2, "/X", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if ((gidXM = H5Gcreate2(gidX, "M", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(gidXM) < 0)
        TEST_ERROR;
    if ((gidXX = H5Gcreate2(gidX, "X", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(gidXX) < 0)
        TEST_ERROR;
    if (H5Gclose(gidX) < 0)
        TEST_ERROR;
    if (H5Fclose(fid2) < 0)
        TEST_ERROR;

    /* Create third file and a group in it. */
    if ((fid3 = H5Fcreate(filename3, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
        TEST_ERROR;
    if ((gidY = H5Gcreate2(fid3, "/Y", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(gidY) < 0)
        TEST_ERROR;
    if (H5Fclose(fid3) < 0)
        TEST_ERROR;

    /* Create fourth file and a group in it. */
    if ((fid4 = H5Fcreate(filename4, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
        TEST_ERROR;
    if ((gidZ = H5Gcreate2(fid4, "/Z", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(gidZ) < 0)
        TEST_ERROR;
    if (H5Fclose(fid4) < 0)
        TEST_ERROR;

    /* Beginning of the actual test code */

    /*
     * Reopen all three files
     */
    if ((fid1 = H5Fopen(filename1, H5F_ACC_RDWR, fapl)) < 0)
        TEST_ERROR;
    if ((fid2 = H5Fopen(filename2, H5F_ACC_RDWR, fapl)) < 0)
        TEST_ERROR;
    if ((fid3 = H5Fopen(filename3, H5F_ACC_RDWR, fapl)) < 0)
        TEST_ERROR;
    if ((fid4 = H5Fopen(filename4, H5F_ACC_RDWR, fapl)) < 0)
        TEST_ERROR;

    /*
     *  Open /A & /B to use as a mount points
     */
    if ((gidA = H5Gopen2(fid1, "/A", H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if ((gidB = H5Gopen2(fid1, "/B", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /*
     * Mount second file on /A/M in the first file.
     */
    if (H5Fmount(gidA, "M", fid2, H5P_DEFAULT) < 0)
        TEST_ERROR;

    /* Open group in mounted file */
    /* (This shows we successfully mounted) */
    if ((gidAMXX = H5Gopen2(gidA, "M/X/X", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Check name */
    *objname = '\0';
    if (H5Iget_name(gidAMXX, objname, (size_t)NAME_BUF_SIZE) < 0)
        TEST_ERROR;
    if (HDstrcmp(objname, "/A/M/X/X") != 0)
        TEST_ERROR;

    /* Open group in mounted file #2 */
    if ((gidAMX = H5Gopen2(gidA, "M/X", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Mount third file */
    if (H5Fmount(gidAMX, "M", fid3, H5P_DEFAULT) < 0)
        TEST_ERROR;

    /* Open group in mounted file #3 */
    /* (This shows we successfully mounted) */
    if ((gidAMXMY = H5Gopen2(gidAMX, "M/Y", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Check name */
    *objname = '\0';
    if (H5Iget_name(gidAMXMY, objname, (size_t)NAME_BUF_SIZE) < 0)
        TEST_ERROR;
    if (HDstrcmp(objname, "/A/M/X/M/Y") != 0)
        TEST_ERROR;

    /* Unmount second file */
    if (H5Funmount(fid1, "/A/M") < 0)
        TEST_ERROR;

    /* Check name */
    *objname = '\0';
    if (H5Iget_name(gidAMXMY, objname, (size_t)NAME_BUF_SIZE) < 0)
        TEST_ERROR;
    if (HDstrcmp(objname, "/X/M/Y") != 0)
        TEST_ERROR;

    /* Rename object in file #3 that is "disconnected" from name hierarchy */
    /* (It is "disconnected" because it's parent file has been unmounted) */
    if (H5Lmove(gidAMX, "M/Y", gidAMX, "M/Z", H5P_DEFAULT, H5P_DEFAULT) < 0)
        TEST_ERROR;

    /* Close group in file #3 */
    if (H5Gclose(gidAMXMY) < 0)
        TEST_ERROR;

    /* Re-open group in file #3 */
    if ((gidAMXMY = H5Gopen2(gidAMX, "M/Z", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Check name again */
    *objname = '\0';
    if (H5Iget_name(gidAMXMY, objname, (size_t)NAME_BUF_SIZE) < 0)
        TEST_ERROR;
    if (HDstrcmp(objname, "/X/M/Z") != 0)
        TEST_ERROR;

    /* Mount fourth file */
    if (H5Fmount(gidB, "M", fid4, H5P_DEFAULT) < 0)
        TEST_ERROR;

    /* Open group in mounted file */
    /* (This shows we successfully mounted) */
    if ((gidBMZ = H5Gopen2(gidB, "M/Z", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Check name */
    *objname = '\0';
    if (H5Iget_name(gidBMZ, objname, (size_t)NAME_BUF_SIZE) < 0)
        TEST_ERROR;
    if (HDstrcmp(objname, "/B/M/Z") != 0)
        TEST_ERROR;

    /* Unmount third file */
    if (H5Funmount(fid2, "/X/M") < 0)
        TEST_ERROR;

    /* Unmount fourth file */
    if (H5Funmount(fid1, "/B/M") < 0)
        TEST_ERROR;

    /* Close objects in mounted files */
    if (H5Gclose(gidBMZ) < 0)
        TEST_ERROR;
    if (H5Gclose(gidAMXMY) < 0)
        TEST_ERROR;
    if (H5Gclose(gidAMXX) < 0)
        TEST_ERROR;
    if (H5Gclose(gidAMX) < 0)
        TEST_ERROR;

    /* Close objects in original file */
    if (H5Gclose(gidB) < 0)
        TEST_ERROR;
    if (H5Gclose(gidA) < 0)
        TEST_ERROR;

    /* Close files */
    if (H5Fclose(fid4) < 0)
        TEST_ERROR;
    if (H5Fclose(fid3) < 0)
        TEST_ERROR;
    if (H5Fclose(fid2) < 0)
        TEST_ERROR;
    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    /* Shut down */
    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Gclose(gidZ);
        H5Gclose(gidY);
        H5Gclose(gidXX);
        H5Gclose(gidXM);
        H5Gclose(gidX);
        H5Gclose(gidBMZ);
        H5Gclose(gidBM);
        H5Gclose(gidB);
        H5Gclose(gidAMXMY);
        H5Gclose(gidAMXX);
        H5Gclose(gidAMX);
        H5Gclose(gidAM);
        H5Gclose(gidA);
        H5Fclose(fid4);
        H5Fclose(fid3);
        H5Fclose(fid2);
        H5Fclose(fid1);
    }
    H5E_END_TRY;
    return 1;
}

/*-------------------------------------------------------------------------
 * Function:	test_missing_unmount
 *
 * Purpose:	Test that the library correctly closes open files when they
 *              have child files that have not been unmounted.
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Quincey Koziol
 *              Thursday, June 30, 2005
 *
 *-------------------------------------------------------------------------
 */
static int
test_missing_unmount(hid_t fapl)
{
    hid_t fid1 = -1, fid2 = -1, fid3 = -1;                   /* File IDs */
    hid_t gidA = -1, gidE = -1, gidM = -1;                   /* Group IDs */
    hid_t gidAE = -1, gidAEM = -1;                           /* Group IDs */
    char  filename1[1024], filename2[1024], filename3[1024]; /* Name of files to mount */

    TESTING("missing unmount");

    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);
    h5_fixname(FILENAME[2], fapl, filename3, sizeof filename3);

    /* Create file #1 */
    if ((fid1 = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidA = H5Gcreate2(fid1, "A", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Gclose(gidA) < 0)
        TEST_ERROR;

    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    /* Create file #2 */
    if ((fid2 = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidE = H5Gcreate2(fid2, "E", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Gclose(gidE) < 0)
        TEST_ERROR;

    if (H5Fclose(fid2) < 0)
        TEST_ERROR;

    /* Create file #3 */
    if ((fid3 = H5Fcreate(filename3, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidM = H5Gcreate2(fid3, "M", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Gclose(gidM) < 0)
        TEST_ERROR;

    if (H5Fclose(fid3) < 0)
        TEST_ERROR;

    /* Re-open files and mount file #2 in file #1 and file #3 in file #2 */
    if ((fid1 = H5Fopen(filename1, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidA = H5Gopen2(fid1, "A", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Close file #1 */
    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    if ((fid2 = H5Fopen(filename2, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Fmount(gidA, ".", fid2, H5P_DEFAULT) < 0)
        TEST_ERROR;

    /* Open group in mounted file */
    if ((gidAE = H5Gopen2(fid2, "A/E", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Close file #2 */
    if (H5Fclose(fid2) < 0)
        TEST_ERROR;

    if ((fid3 = H5Fopen(filename3, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Fmount(gidAE, ".", fid3, H5P_DEFAULT) < 0)
        TEST_ERROR;

    /* Open group in mounted file */
    if ((gidAEM = H5Gopen2(fid3, "A/E/M", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Close file #3 */
    if (H5Fclose(fid3) < 0)
        TEST_ERROR;

    /* (Still have all file #2 & #3 mounted and groups open in all three files) */

    /* Unmount file #2 & #3 */
    if (H5Funmount(gidAE, ".") < 0)
        TEST_ERROR;

    /* Skip unmounting file #2 from file #1 */

    /* Close groups in mounted file */
    if (H5Gclose(gidAEM) < 0)
        TEST_ERROR;

    if (H5Gclose(gidAE) < 0)
        TEST_ERROR;

    /* Close group in top file */
    if (H5Gclose(gidA) < 0)
        TEST_ERROR;

    /* Check that all file IDs have been closed */
    if (H5I_nmembers(H5I_FILE) != 0)
        TEST_ERROR;
    H5F_sfile_assert_num(0);

    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Gclose(gidM);
        H5Gclose(gidE);
        H5Gclose(gidAEM);
        H5Gclose(gidAE);
        H5Gclose(gidA);
        H5Fclose(fid3);
        H5Fclose(fid2);
        H5Fclose(fid1);
    }
    H5E_END_TRY;
    return 1;
} /* end test_missing_unmount() */

/*-------------------------------------------------------------------------
 * Function:	test_hold_open_file
 *
 * Purpose:	Test that the library correctly holds open files when they
 *              have child files that have not been unmounted.
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Quincey Koziol
 *              Tuesday, July  5, 2005
 *
 *-------------------------------------------------------------------------
 */
static int
test_hold_open_file(hid_t fapl)
{
    hid_t fid1 = -1, fid2 = -1;             /* File IDs */
    hid_t gidA = -1, gidM = -1, gidAM = -1; /* Group IDs */
    char  filename1[1024], filename2[1024]; /* Name of files to mount */

    TESTING("hold open w/file");

    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);

    /* Create file #1 */
    if ((fid1 = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidA = H5Gcreate2(fid1, "A", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Gclose(gidA) < 0)
        TEST_ERROR;

    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    /* Create file #2 */
    if ((fid2 = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidM = H5Gcreate2(fid2, "M", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Gclose(gidM) < 0)
        TEST_ERROR;

    if (H5Fclose(fid2) < 0)
        TEST_ERROR;

    /* Re-open files and mount file #2 in file #1 */
    if ((fid1 = H5Fopen(filename1, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidA = H5Gopen2(fid1, "A", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((fid2 = H5Fopen(filename2, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Fmount(gidA, ".", fid2, H5P_DEFAULT) < 0)
        TEST_ERROR;

    if ((gidAM = H5Gopen2(fid1, "A/M", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Close file #2 */
    if (H5Fclose(fid2) < 0)
        TEST_ERROR;

    /* Close group in mounted file */
    if (H5Gclose(gidAM) < 0)
        TEST_ERROR;

    /* Attempt to open group in mounted file */
    /* (Should work because file is still mounted) */
    if ((gidAM = H5Gopen2(fid1, "A/M", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Close file #1 */
    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    /* Close group in mounted file */
    if (H5Gclose(gidAM) < 0)
        TEST_ERROR;

    /* Attempt to open group in mounted file */
    /* (Should work because file is still mounted) */
    if ((gidAM = H5Gopen2(gidA, "/A/M", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Close group in mounted file */
    if (H5Gclose(gidAM) < 0)
        TEST_ERROR;

    /* Unmount file #2 */
    if (H5Funmount(gidA, ".") < 0)
        TEST_ERROR;

    /* Close group in top file */
    if (H5Gclose(gidA) < 0)
        TEST_ERROR;

    /* Check that all file IDs have been closed */
    if (H5I_nmembers(H5I_FILE) != 0)
        TEST_ERROR;
    H5F_sfile_assert_num(0);

    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Gclose(gidM);
        H5Gclose(gidAM);
        H5Gclose(gidA);
        H5Fclose(fid2);
        H5Fclose(fid1);
    }
    H5E_END_TRY;
    return 1;
} /* end test_hold_open_file() */

/*-------------------------------------------------------------------------
 * Function:	test_hold_open_group
 *
 * Purpose:	Test that the library correctly holds open file mount
 *              hierarchies when they have objects open.
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Quincey Koziol
 *              Thursday, July 14, 2005
 *
 *-------------------------------------------------------------------------
 */
static int
test_hold_open_group(hid_t fapl)
{
    hid_t fid1 = -1, fid2 = -1;                                    /* File IDs */
    hid_t gid = -1, gidA = -1, gidM = -1, gidAM = -1, gidAM2 = -1; /* Group IDs */
    char  filename1[1024], filename2[1024];                        /* Name of files to mount */

    TESTING("hold open w/group");

    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);

    /* Create file #1 */
    if ((fid1 = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidA = H5Gcreate2(fid1, "A", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Gclose(gidA) < 0)
        TEST_ERROR;

    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    /* Create file #2 */
    if ((fid2 = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidM = H5Gcreate2(fid2, "M", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Gclose(gidM) < 0)
        TEST_ERROR;

    if (H5Fclose(fid2) < 0)
        TEST_ERROR;

    /* Re-open files and mount file #2 in file #1 */
    if ((fid1 = H5Fopen(filename1, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidA = H5Gopen2(fid1, "A", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((fid2 = H5Fopen(filename2, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Fmount(gidA, ".", fid2, H5P_DEFAULT) < 0)
        TEST_ERROR;

    if ((gidAM = H5Gopen2(fid1, "A/M", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Close file #2 */
    if (H5Fclose(fid2) < 0)
        TEST_ERROR;

    /* Close group in parent file */
    if (H5Gclose(gidA) < 0)
        TEST_ERROR;

    /* Keep fid1 & gidAM open, everything else closed */

    /* Retry to opening group in mounted file */
    /* (Should work because file is still mounted) */
    if ((gidAM2 = H5Gopen2(fid1, "A/M", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Close group in mounted file */
    if (H5Gclose(gidAM2) < 0)
        TEST_ERROR;

    /* Close original group in mount file */
    if (H5Gclose(gidAM) < 0)
        TEST_ERROR;

    /* Attempt to open group in mounted file */
    /* (Should work because file is still mounted) */
    if ((gidAM2 = H5Gopen2(fid1, "/A/M", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Close file #1 */
    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    /* Get ID of file #2 */
    if ((fid2 = H5Iget_file_id(gidAM2)) < 0)
        TEST_ERROR;

    /* Close group in mounted file */
    if (H5Gclose(gidAM2) < 0)
        TEST_ERROR;

    /* Attempt to open group in mounted file */
    /* (Should work because file is still mounted) */
    if ((gidAM2 = H5Gopen2(fid2, "/A/M", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Close file #2 */
    if (H5Fclose(fid2) < 0)
        TEST_ERROR;

    /* Attempt to open group in parent file */
    /* (Should work because files should be mounted together) */
    if ((gid = H5Gopen2(gidAM2, "/", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Close group in mounted file */
    if (H5Gclose(gidAM2) < 0)
        TEST_ERROR;

    /* Close group in parent file */
    if (H5Gclose(gid) < 0)
        TEST_ERROR;

    /* Check that all file IDs have been closed */
    if (H5I_nmembers(H5I_FILE) != 0)
        TEST_ERROR;
    H5F_sfile_assert_num(0);

    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Gclose(gidM);
        H5Gclose(gidAM);
        H5Gclose(gidAM2);
        H5Gclose(gidA);
        H5Gclose(gid);
        H5Fclose(fid2);
        H5Fclose(fid1);
    }
    H5E_END_TRY;
    return 1;
} /* end test_hold_open_group() */

/*-------------------------------------------------------------------------
 * Function:	test_fcdegree_same
 *
 * Purpose:	Test that the library will only allow files with same file
 *              close degree to be mounted together.
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Quincey Koziol
 *              Tuesday, July 19, 2005
 *
 *-------------------------------------------------------------------------
 */
static int
test_fcdegree_same(hid_t fapl)
{
    hid_t  fid1 = -1, fid2 = -1;             /* File IDs */
    hid_t  gidA = -1, gidM = -1, gidAM = -1; /* Group IDs */
    hid_t  fapl_id = -1;                     /* FAPL IDs */
    herr_t ret;                              /* Generic return value */
    char   filename1[1024], filename2[1024]; /* Name of files to mount */

    TESTING("file close degrees must be same");

    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);

    /* Create file #1 */
    if ((fid1 = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidA = H5Gcreate2(fid1, "A", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Gclose(gidA) < 0)
        TEST_ERROR;

    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    /* Create file #2 */
    if ((fid2 = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidM = H5Gcreate2(fid2, "M", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Gclose(gidM) < 0)
        TEST_ERROR;

    if (H5Fclose(fid2) < 0)
        TEST_ERROR;

    /* Re-open files and mount file #2 in file #1 */
    if ((fid1 = H5Fopen(filename1, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidA = H5Gopen2(fid1, "A", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Create FAPL & set file close degree for file #2 to be different */
    if ((fapl_id = H5Pcreate(H5P_FILE_ACCESS)) < 0)
        TEST_ERROR;

    /* Set file close mode to H5F_CLOSE_STRONG */
    if (H5Pset_fclose_degree(fapl_id, H5F_CLOSE_STRONG) < 0)
        TEST_ERROR;

    if ((fid2 = H5Fopen(filename2, H5F_ACC_RDONLY, fapl_id)) < 0)
        TEST_ERROR;

    /* Try mounting file with different file close degree (should fail) */
    H5E_BEGIN_TRY
    {
        ret = H5Fmount(gidA, ".", fid2, H5P_DEFAULT);
    }
    H5E_END_TRY;
    if (ret >= 0)
        TEST_ERROR;

    /* Set file close mode to H5F_CLOSE_WEAK */
    if (H5Pset_fclose_degree(fapl_id, H5F_CLOSE_WEAK) < 0)
        TEST_ERROR;

    /* Close file #2 & re-open with same file close degree as file #1 */
    if (H5Fclose(fid2) < 0)
        TEST_ERROR;
    if ((fid2 = H5Fopen(filename2, H5F_ACC_RDONLY, fapl_id)) < 0)
        TEST_ERROR;

    /* Try mounting files again (should work now) */
    if (H5Fmount(gidA, ".", fid2, H5P_DEFAULT) < 0)
        TEST_ERROR;

    /* Verify opening group in mounted file */
    if ((gidAM = H5Gopen2(fid1, "A/M", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Close group in mounted file */
    if (H5Gclose(gidAM) < 0)
        TEST_ERROR;

    /* Close group in parent file */
    if (H5Gclose(gidA) < 0)
        TEST_ERROR;

    /* Close file #2 */
    if (H5Fclose(fid2) < 0)
        TEST_ERROR;

    /* Close file #1 */
    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    /* Close FAPL ID */
    if (H5Pclose(fapl_id) < 0)
        TEST_ERROR;

    /* Check that all file IDs have been closed */
    if (H5I_nmembers(H5I_FILE) != 0)
        TEST_ERROR;
    H5F_sfile_assert_num(0);

    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Pclose(fapl_id);
        H5Gclose(gidM);
        H5Gclose(gidAM);
        H5Gclose(gidA);
        H5Fclose(fid2);
        H5Fclose(fid1);
    }
    H5E_END_TRY;
    return 1;
} /* end test_fcdegree_same() */

/*-------------------------------------------------------------------------
 * Function:	test_fcdegree_semi
 *
 * Purpose:	Test that the library perform correct actions when using
 *              "semi" file close degree on mounted files
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Quincey Koziol
 *              Tuesday, July 19, 2005
 *
 *-------------------------------------------------------------------------
 */
static int
test_fcdegree_semi(hid_t fapl)
{
    hid_t  fid1 = -1, fid2 = -1;             /* File IDs */
    hid_t  gidA = -1, gidM = -1, gidAM = -1; /* Group IDs */
    hid_t  fapl_id = -1;                     /* FAPL IDs */
    herr_t ret;                              /* Generic return value */
    char   filename1[1024], filename2[1024]; /* Name of files to mount */

    TESTING("'semi' file close degree");

    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);

    /* Create file #1 */
    if ((fid1 = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidA = H5Gcreate2(fid1, "A", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Gclose(gidA) < 0)
        TEST_ERROR;

    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    /* Create file #2 */
    if ((fid2 = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidM = H5Gcreate2(fid2, "M", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Gclose(gidM) < 0)
        TEST_ERROR;

    if (H5Fclose(fid2) < 0)
        TEST_ERROR;

    /* Create FAPL & set file close degree to be "semi" */
    if ((fapl_id = H5Pcreate(H5P_FILE_ACCESS)) < 0)
        TEST_ERROR;

    /* Set file close mode to H5F_CLOSE_SEMI */
    if (H5Pset_fclose_degree(fapl_id, H5F_CLOSE_SEMI) < 0)
        TEST_ERROR;

    /* Re-open files and mount file #2 in file #1 */
    if ((fid1 = H5Fopen(filename1, H5F_ACC_RDONLY, fapl_id)) < 0)
        TEST_ERROR;

    if ((gidA = H5Gopen2(fid1, "A", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((fid2 = H5Fopen(filename2, H5F_ACC_RDONLY, fapl_id)) < 0)
        TEST_ERROR;

    /* Mount files together */
    if (H5Fmount(gidA, ".", fid2, H5P_DEFAULT) < 0)
        TEST_ERROR;

    /* Verify opening group in mounted file */
    if ((gidAM = H5Gopen2(fid1, "A/M", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Close file #1 (should succeed, since file #2 is open still) */
    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    /* Try closing file #2 (should fail, since there are still objects open) */
    H5E_BEGIN_TRY
    {
        ret = H5Fclose(fid2);
    }
    H5E_END_TRY;
    if (ret >= 0)
        TEST_ERROR;

    /* Close group in parent file */
    if (H5Gclose(gidA) < 0)
        TEST_ERROR;

    /* Try closing file #2 (should still fail, since there are still objects open in child file) */
    H5E_BEGIN_TRY
    {
        ret = H5Fclose(fid2);
    }
    H5E_END_TRY;
    if (ret >= 0)
        TEST_ERROR;

    /* Close group in mounted file */
    if (H5Gclose(gidAM) < 0)
        TEST_ERROR;

    /* Close file #2 (should succeed now) */
    if (H5Fclose(fid2) < 0)
        TEST_ERROR;

    /* Close FAPL ID */
    if (H5Pclose(fapl_id) < 0)
        TEST_ERROR;

    /* Check that all file IDs have been closed */
    if (H5I_nmembers(H5I_FILE) != 0)
        TEST_ERROR;
    H5F_sfile_assert_num(0);

    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Pclose(fapl_id);
        H5Gclose(gidM);
        H5Gclose(gidAM);
        H5Gclose(gidA);
        H5Fclose(fid2);
        H5Fclose(fid1);
    }
    H5E_END_TRY;
    return 1;
} /* end test_fcdegree_semi() */

/*-------------------------------------------------------------------------
 * Function:	test_fcdegree_strong
 *
 * Purpose:	Test that the library perform correct actions when using
 *              "strong" file close degree on mounted files
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Quincey Koziol
 *              Tuesday, July 19, 2005
 *
 *-------------------------------------------------------------------------
 */
static int
test_fcdegree_strong(hid_t fapl)
{
    hid_t       fid1 = -1, fid2 = -1;             /* File IDs */
    hid_t       gidA = -1, gidM = -1, gidAM = -1; /* Group IDs */
    hid_t       fapl_id = -1;                     /* FAPL IDs */
    H5O_info2_t oinfo;
    char        filename1[1024], filename2[1024]; /* Name of files to mount */
    herr_t      ret;                              /* Generic return value */

    TESTING("'strong' file close degree");

    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);

    /* Create file #1 */
    if ((fid1 = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidA = H5Gcreate2(fid1, "A", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Gclose(gidA) < 0)
        TEST_ERROR;

    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    /* Create file #2 */
    if ((fid2 = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidM = H5Gcreate2(fid2, "M", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Gclose(gidM) < 0)
        TEST_ERROR;

    if (H5Fclose(fid2) < 0)
        TEST_ERROR;

    /* Create FAPL & set file close degree to be "strong" */
    if ((fapl_id = H5Pcreate(H5P_FILE_ACCESS)) < 0)
        TEST_ERROR;

    /* Set file close mode to H5F_CLOSE_STRONG */
    if (H5Pset_fclose_degree(fapl_id, H5F_CLOSE_STRONG) < 0)
        TEST_ERROR;

    /* Re-open files and mount file #2 in file #1 */
    if ((fid1 = H5Fopen(filename1, H5F_ACC_RDONLY, fapl_id)) < 0)
        TEST_ERROR;

    if ((gidA = H5Gopen2(fid1, "A", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((fid2 = H5Fopen(filename2, H5F_ACC_RDONLY, fapl_id)) < 0)
        TEST_ERROR;

    /* Mount files together */
    if (H5Fmount(gidA, ".", fid2, H5P_DEFAULT) < 0)
        TEST_ERROR;

    /* Open group in mounted file */
    if ((gidAM = H5Gopen2(fid1, "A/M", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Close file #1 */
    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    /* Check that objects are still open */
    if (H5Oget_info3(gidA, &oinfo, H5O_INFO_BASIC) < 0)
        TEST_ERROR;
    if (H5Oget_info3(gidAM, &oinfo, H5O_INFO_BASIC) < 0)
        TEST_ERROR;

    /* Close file #2 (should close open objects also) */
    if (H5Fclose(fid2) < 0)
        TEST_ERROR;

    /* Check that objects are closed */
    H5E_BEGIN_TRY
    {
        ret = H5Oget_info3(gidA, &oinfo, H5O_INFO_BASIC);
    }
    H5E_END_TRY;
    if (ret >= 0)
        TEST_ERROR;
    H5E_BEGIN_TRY
    {
        ret = H5Oget_info3(gidAM, &oinfo, H5O_INFO_BASIC);
    }
    H5E_END_TRY;
    if (ret >= 0)
        TEST_ERROR;

    /* Close FAPL ID */
    if (H5Pclose(fapl_id) < 0)
        TEST_ERROR;

    /* Check that all file IDs have been closed */
    if (H5I_nmembers(H5I_FILE) != 0)
        TEST_ERROR;
    H5F_sfile_assert_num(0);

    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Pclose(fapl_id);
        H5Gclose(gidM);
        H5Gclose(gidAM);
        H5Gclose(gidA);
        H5Fclose(fid2);
        H5Fclose(fid1);
    }
    H5E_END_TRY;
    return 1;
} /* end test_fcdegree_strong() */

/*-------------------------------------------------------------------------
 * Function:	test_acc_perm
 *
 * Purpose:	Test that the library correctly segregates operations in
 *              parts of mounted file hierarchy with files that have different
 *              R/W access permissions.
 *
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Quincey Koziol
 *              Tuesday, July 19, 2005
 *
 *-------------------------------------------------------------------------
 */
static int
test_acc_perm(hid_t fapl)
{
    hid_t fid1 = -1, fid2 = -1, fid3 = -1;                                     /* File IDs */
    hid_t gidA = -1, gidB = -1, gidC = -1, gidM = -1, gidAM = -1, gidAMZ = -1; /* Group IDs */
    hid_t bad_id = -1;                                                         /* Bad ID from object create */
    char  name[NAME_BUF_SIZE];                               /* Buffer for filename retrieved */
    char  filename1[1024], filename2[1024], filename3[1024]; /* Name of files to mount */

    TESTING("access permissions");

    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);
    h5_fixname(FILENAME[2], fapl, filename3, sizeof filename3);

    /* Create file #1 */
    if ((fid1 = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidA = H5Gcreate2(fid1, "A", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Gclose(gidA) < 0)
        TEST_ERROR;

    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    /* Create file #2 */
    if ((fid2 = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidM = H5Gcreate2(fid2, "M", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Gclose(gidM) < 0)
        TEST_ERROR;

    if (H5Fclose(fid2) < 0)
        TEST_ERROR;

    /* Re-open files and mount file #2 in file #1 */
    if ((fid1 = H5Fopen(filename1, H5F_ACC_RDWR, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidA = H5Gopen2(fid1, "A", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Get and verify file name */
    if (H5Fget_name(gidA, name, NAME_BUF_SIZE) < 0)
        TEST_ERROR;
    if (HDstrcmp(name, filename1) != 0)
        TEST_ERROR;

    if ((fid2 = H5Fopen(filename2, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Get and verify file name */
    if (H5Fget_name(fid2, name, NAME_BUF_SIZE) < 0)
        TEST_ERROR;
    if (HDstrcmp(name, filename2) != 0)
        TEST_ERROR;

    /* Mount files together */
    if (H5Fmount(gidA, ".", fid2, H5P_DEFAULT) < 0)
        TEST_ERROR;

    /* Get and verify file name */
    if (H5Fget_name(fid2, name, NAME_BUF_SIZE) < 0)
        TEST_ERROR;
    if (HDstrcmp(name, filename2) != 0)
        TEST_ERROR;

    /* Open group in mounted file */
    if ((gidAM = H5Gopen2(fid1, "A/M", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Get and verify file name */
    if (H5Fget_name(gidAM, name, NAME_BUF_SIZE) < 0)
        TEST_ERROR;
    if (HDstrcmp(name, filename2) != 0)
        TEST_ERROR;

    /* Attempt to create objects in read only file (should fail) */
    H5E_BEGIN_TRY
    {
        bad_id = H5Gcreate2(gidAM, "Z", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
    }
    H5E_END_TRY;
    if (bad_id >= 0)
        TEST_ERROR;
    H5E_BEGIN_TRY
    {
        bad_id = H5Gcreate2(fid1, "/A/L", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
    }
    H5E_END_TRY;
    if (bad_id >= 0)
        TEST_ERROR;

    /* Attempt to create objects in read/write file (should succeed) */
    if ((gidB = H5Gcreate2(fid2, "/B", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(gidB) < 0)
        TEST_ERROR;

    /* (Note that this object should get created in the "hidden" group for "A" in parent file) */
    if ((gidC = H5Gcreate2(gidA, "C", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(gidC) < 0)
        TEST_ERROR;

    /* Create file #3 (it will have R/W permissions) */
    if ((fid3 = H5Fcreate(filename3, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Mount file #3 on file #2 */
    if (H5Fmount(gidAM, ".", fid3, H5P_DEFAULT) < 0)
        TEST_ERROR;

    /* Attempt to create objects in read/write file (should succeed) */
    if ((gidAMZ = H5Gcreate2(fid1, "/A/M/Z", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Get and verify file name */
    if (H5Fget_name(gidAMZ, name, NAME_BUF_SIZE) < 0)
        TEST_ERROR;
    if (HDstrcmp(name, filename3) != 0)
        TEST_ERROR;

    /* Close object in file #3 */
    if (H5Gclose(gidAMZ) < 0)
        TEST_ERROR;

    /* Attempt to create objects in read only file again (should fail) */
    H5E_BEGIN_TRY
    {
        bad_id = H5Gcreate2(fid1, "/A/L", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
    }
    H5E_END_TRY;
    if (bad_id >= 0)
        TEST_ERROR;

    /* Close group in mounted file */
    if (H5Gclose(gidAM) < 0)
        TEST_ERROR;

    /* Close group in parent file */
    if (H5Gclose(gidA) < 0)
        TEST_ERROR;

    /* Close file #3 */
    if (H5Fclose(fid3) < 0)
        TEST_ERROR;

    /* Close file #2 */
    if (H5Fclose(fid2) < 0)
        TEST_ERROR;

    /* Close file #1 */
    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    /* Check that all file IDs have been closed */
    if (H5I_nmembers(H5I_FILE) != 0)
        TEST_ERROR;
    H5F_sfile_assert_num(0);

    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Gclose(gidM);
        H5Gclose(gidAMZ);
        H5Gclose(gidAM);
        H5Gclose(gidC);
        H5Gclose(gidB);
        H5Gclose(gidA);
        H5Fclose(fid3);
        H5Fclose(fid2);
        H5Fclose(fid1);
    }
    H5E_END_TRY;
    return 1;
} /* end test_acc_perm() */

/*-------------------------------------------------------------------------
 * Function:	test_mult_mount
 *
 * Purpose:	Test that the library correctly handles mounting a file
 *              multiple times at different locations in the parent file(s)
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Quincey Koziol
 *              Monday, July 25, 2005
 *
 *-------------------------------------------------------------------------
 */
static int
test_mult_mount(hid_t fapl)
{
    hid_t fid1 = -1, fid2 = -1, fid3 = -1, fid3_2 = -1;             /* File IDs */
    hid_t gidA = -1, gidB = -1;                                     /* Group IDs in file #1 */
    hid_t gidM = -1, gidN = -1, gidAM = -1;                         /* Group IDs in file #2 */
    hid_t gidS = -1, gidT = -1, gidU = -1, gidBS = -1, gidAMT = -1; /* Group IDs in file #3 */
    char  name[NAME_BUF_SIZE];                                      /* Buffer for filename retrieved */
    char  filename1[1024], filename2[1024], filename3[1024];        /* Name of files to mount */

    TESTING("multiple mounts");

    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);
    h5_fixname(FILENAME[2], fapl, filename3, sizeof filename3);

    /* Create file #1 */
    if ((fid1 = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidA = H5Gcreate2(fid1, "A", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Gclose(gidA) < 0)
        TEST_ERROR;

    if ((gidB = H5Gcreate2(fid1, "B", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Gclose(gidB) < 0)
        TEST_ERROR;

    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    /* Create file #2 */
    if ((fid2 = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidM = H5Gcreate2(fid2, "M", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Gclose(gidM) < 0)
        TEST_ERROR;

    if ((gidN = H5Gcreate2(fid2, "N", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Gclose(gidN) < 0)
        TEST_ERROR;

    if (H5Fclose(fid2) < 0)
        TEST_ERROR;

    /* Create file #3 */
    if ((fid3 = H5Fcreate(filename3, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidS = H5Gcreate2(fid3, "S", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Gclose(gidS) < 0)
        TEST_ERROR;

    if ((gidT = H5Gcreate2(fid3, "T", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Gclose(gidT) < 0)
        TEST_ERROR;

    if (H5Fclose(fid3) < 0)
        TEST_ERROR;

    /* Re-open files and mount file #2 in file #1 */
    if ((fid1 = H5Fopen(filename1, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidA = H5Gopen2(fid1, "A", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidB = H5Gopen2(fid1, "B", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((fid2 = H5Fopen(filename2, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Mount files together */
    if (H5Fmount(gidA, ".", fid2, H5P_DEFAULT) < 0)
        TEST_ERROR;

    /* Open group in mounted file */
    if ((gidAM = H5Gopen2(fid1, "A/M", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Open file #3 again */
    if ((fid3 = H5Fopen(filename3, H5F_ACC_RDWR, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Mount file #3 on file #2 */
    if (H5Fmount(gidAM, ".", fid3, H5P_DEFAULT) < 0)
        TEST_ERROR;

    /* Re-open file #3 */
    if ((fid3_2 = H5Freopen(fid3)) < 0)
        TEST_ERROR;

    /* Mount file #3 on file #1 also */
    if (H5Fmount(gidB, ".", fid3_2, H5P_DEFAULT) < 0)
        TEST_ERROR;

    /* Open object in file #3 through file #2 mount path */
    if ((gidAMT = H5Gopen2(fid1, "A/M/T", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Check name */
    *name = '\0';
    if (H5Iget_name(gidAMT, name, (size_t)NAME_BUF_SIZE) < 0)
        TEST_ERROR;
    if (HDstrcmp(name, "/A/M/T") != 0)
        TEST_ERROR;

    /* Create object in file #3 */
    if ((gidU = H5Gcreate2(gidAMT, "U", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Gclose(gidU) < 0)
        TEST_ERROR;

    /* Open object in file #3 through file #1 mount path */
    if ((gidBS = H5Gopen2(fid1, "B/S", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Check name */
    *name = '\0';
    if (H5Iget_name(gidBS, name, (size_t)NAME_BUF_SIZE) < 0)
        TEST_ERROR;
    if (HDstrcmp(name, "/B/S") != 0)
        TEST_ERROR;

    /* Re-open object created in file #3 through file #1 mount path */
    if ((gidU = H5Gopen2(gidBS, "/B/T/U", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Gclose(gidU) < 0)
        TEST_ERROR;

    /* Close groups in file #3 */
    if (H5Gclose(gidBS) < 0)
        TEST_ERROR;
    if (H5Gclose(gidAMT) < 0)
        TEST_ERROR;

    /* Close group in file #2 */
    if (H5Gclose(gidAM) < 0)
        TEST_ERROR;

    /* Close groups in file #1 */
    if (H5Gclose(gidA) < 0)
        TEST_ERROR;
    if (H5Gclose(gidB) < 0)
        TEST_ERROR;

    /* Close file #3 IDs */
    if (H5Fclose(fid3) < 0)
        TEST_ERROR;
    if (H5Fclose(fid3_2) < 0)
        TEST_ERROR;

    /* Close file #2 */
    if (H5Fclose(fid2) < 0)
        TEST_ERROR;

    /* Close file #1 */
    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    /* Check that all file IDs have been closed */
    if (H5I_nmembers(H5I_FILE) != 0)
        TEST_ERROR;
    H5F_sfile_assert_num(0);

    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Gclose(gidU);
        H5Gclose(gidAMT);
        H5Gclose(gidT);
        H5Gclose(gidBS);
        H5Gclose(gidS);
        H5Gclose(gidAM);
        H5Gclose(gidN);
        H5Gclose(gidM);
        H5Gclose(gidB);
        H5Gclose(gidA);
        H5Fclose(fid3_2);
        H5Fclose(fid3);
        H5Fclose(fid2);
        H5Fclose(fid1);
    }
    H5E_END_TRY;
    return 1;
} /* end test_mult_mount() */

/*-------------------------------------------------------------------------
 * Function:	test_nested_survive
 *
 * Purpose:	Test that the library correctly handles unmounting & remounting
 *              a file with files mounted on it
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Quincey Koziol
 *              Monday, July 25, 2005
 *
 *-------------------------------------------------------------------------
 */
static int
test_nested_survive(hid_t fapl)
{
    hid_t   fid1 = -1, fid2 = -1, fid3 = -1;                   /* File IDs */
    hid_t   gidA = -1;                                         /* Group IDs in file #1 */
    hid_t   gidM = -1, gidAM = -1;                             /* Group IDs in file #2 */
    hid_t   gidS = -1, gidMS = -1, gidAMS = -1;                /* Group IDs in file #3 */
    char    name[NAME_BUF_SIZE];                               /* Buffer for filename retrieved */
    ssize_t name_len;                                          /* Filename length */
    char    filename1[1024], filename2[1024], filename3[1024]; /* Name of files to mount */

    TESTING("nested mounts survive");

    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);
    h5_fixname(FILENAME[2], fapl, filename3, sizeof filename3);

    /* Create file #1 */
    if ((fid1 = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidA = H5Gcreate2(fid1, "A", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Gclose(gidA) < 0)
        TEST_ERROR;

    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    /* Create file #2 */
    if ((fid2 = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidM = H5Gcreate2(fid2, "M", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Gclose(gidM) < 0)
        TEST_ERROR;

    if (H5Fclose(fid2) < 0)
        TEST_ERROR;

    /* Create file #3 */
    if ((fid3 = H5Fcreate(filename3, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidS = H5Gcreate2(fid3, "S", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Gclose(gidS) < 0)
        TEST_ERROR;

    if (H5Fclose(fid3) < 0)
        TEST_ERROR;

    /* Re-open files and mount file #2 in file #1 */
    if ((fid1 = H5Fopen(filename1, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidA = H5Gopen2(fid1, "A", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((fid2 = H5Fopen(filename2, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Mount files together */
    if (H5Fmount(gidA, ".", fid2, H5P_DEFAULT) < 0)
        TEST_ERROR;

    /* Open group in mounted file */
    if ((gidAM = H5Gopen2(fid1, "A/M", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Open file #3 again */
    if ((fid3 = H5Fopen(filename3, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Mount file #3 on file #2 */
    if (H5Fmount(gidAM, ".", fid3, H5P_DEFAULT) < 0)
        TEST_ERROR;

    /* Open object in file #3 through file #1 mount path */
    if ((gidAMS = H5Gopen2(fid1, "A/M/S", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Close group in file #3 */
    if (H5Gclose(gidAMS) < 0)
        TEST_ERROR;

    /* Check name */
    *name = '\0';
    if ((name_len = H5Iget_name(gidAM, name, (size_t)NAME_BUF_SIZE)) < 0)
        TEST_ERROR;
    if (name_len == 0 || HDstrcmp(name, "/A/M") != 0)
        TEST_ERROR;

    /* Unmount file #2 from file #1 */
    if (H5Funmount(gidA, ".") < 0)
        TEST_ERROR;

    /* Check name */
    *name = '\0';
    if ((name_len = H5Iget_name(gidAM, name, (size_t)NAME_BUF_SIZE)) < 0)
        TEST_ERROR;
    if (name_len != 0 || HDstrcmp(name, "") != 0)
        TEST_ERROR;

    /* Open object in file #3 through file #1 mount path (should fail) */
    H5E_BEGIN_TRY
    {
        gidAMS = H5Gopen2(fid1, "A/M/S", H5P_DEFAULT);
    }
    H5E_END_TRY;
    if (gidAMS >= 0)
        TEST_ERROR;

    /* Open object in file #3 through file #2 mount path */
    if ((gidMS = H5Gopen2(fid2, "M/S", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Check name */
    *name = '\0';
    if (H5Iget_name(gidMS, name, (size_t)NAME_BUF_SIZE) < 0)
        TEST_ERROR;
    if (HDstrcmp(name, "/M/S") != 0)
        TEST_ERROR;

    /* Close group in file #3 */
    if (H5Gclose(gidMS) < 0)
        TEST_ERROR;

    /* Re-mount file #2 on file #1 */
    if (H5Fmount(gidA, ".", fid2, H5P_DEFAULT) < 0)
        TEST_ERROR;

    /* Open object in file #3 through file #1 mount path again */
    if ((gidAMS = H5Gopen2(fid1, "A/M/S", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Check name */
    *name = '\0';
    if (H5Iget_name(gidAMS, name, (size_t)NAME_BUF_SIZE) < 0)
        TEST_ERROR;
    if (HDstrcmp(name, "/A/M/S") != 0)
        TEST_ERROR;

    /* Close group in file #3 */
    if (H5Gclose(gidAMS) < 0)
        TEST_ERROR;

    /* Close group in file #2 */
    if (H5Gclose(gidAM) < 0)
        TEST_ERROR;

    /* Close groups in file #1 */
    if (H5Gclose(gidA) < 0)
        TEST_ERROR;

    /* Close file #3 IDs */
    if (H5Fclose(fid3) < 0)
        TEST_ERROR;

    /* Close file #2 */
    if (H5Fclose(fid2) < 0)
        TEST_ERROR;

    /* Close file #1 */
    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    /* Check that all file IDs have been closed */
    if (H5I_nmembers(H5I_FILE) != 0)
        TEST_ERROR;
    H5F_sfile_assert_num(0);

    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Gclose(gidAMS);
        H5Gclose(gidMS);
        H5Gclose(gidS);
        H5Gclose(gidAM);
        H5Gclose(gidM);
        H5Gclose(gidA);
        H5Fclose(fid3);
        H5Fclose(fid2);
        H5Fclose(fid1);
    }
    H5E_END_TRY;
    return 1;
} /* end test_nested_survive() */

/*-------------------------------------------------------------------------
 * Function:	test_close_parent
 *
 * Purpose:	Test that the library correctly handles holding open a child
 *              file while unmounting & closing parent.
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Quincey Koziol
 *              Monday, July 25, 2005
 *
 *-------------------------------------------------------------------------
 */
static int
test_close_parent(hid_t fapl)
{
    hid_t   fid1 = -1, fid2 = -1;             /* File IDs */
    hid_t   gidA = -1;                        /* Group IDs in file #1 */
    hid_t   gidM = -1;                        /* Group IDs in file #2 */
    char    name[NAME_BUF_SIZE];              /* Buffer for filename retrieved */
    ssize_t name_len;                         /* Filename length */
    char    filename1[1024], filename2[1024]; /* Name of files to mount */

    TESTING("close parent");

    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);

    /* Create file #1 */
    if ((fid1 = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidA = H5Gcreate2(fid1, "A", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Gclose(gidA) < 0)
        TEST_ERROR;

    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    /* Create file #2 */
    if ((fid2 = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidM = H5Gcreate2(fid2, "M", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if (H5Gclose(gidM) < 0)
        TEST_ERROR;

    if (H5Fclose(fid2) < 0)
        TEST_ERROR;

    /* Re-open files and mount file #2 in file #1 */
    if ((fid1 = H5Fopen(filename1, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidA = H5Gopen2(fid1, "A", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((fid2 = H5Fopen(filename2, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Mount files together */
    if (H5Fmount(gidA, ".", fid2, H5P_DEFAULT) < 0)
        TEST_ERROR;

    /* Open group in mounted file */
    if ((gidM = H5Gopen2(fid1, "A/M", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Close group in file #1 */
    if (H5Gclose(gidA) < 0)
        TEST_ERROR;

    /* Close files #1 & #2 */
    if (H5Fclose(fid1) < 0)
        TEST_ERROR;
    if (H5Fclose(fid2) < 0)
        TEST_ERROR;

    /* Check that all file IDs have been closed */
    if (H5I_nmembers(H5I_FILE) != 0)
        TEST_ERROR;

    /* Both underlying shared files should be open still */
    H5F_sfile_assert_num(2);

    /* Check the name of "M" is still defined */
    *name = '\0';
    if ((name_len = H5Iget_name(gidM, name, (size_t)NAME_BUF_SIZE)) < 0)
        TEST_ERROR;
    if (name_len == 0 || HDstrcmp(name, "/A/M") != 0)
        TEST_ERROR;

    /* Unmount file #2 from file #1, closing file #1 */
    if (H5Funmount(gidM, "/A") < 0)
        TEST_ERROR;

    /* Check the name of "M" is defined in its file */
    *name = '\0';
    if ((name_len = H5Iget_name(gidM, name, (size_t)NAME_BUF_SIZE)) < 0)
        TEST_ERROR;
    if (name_len == 0 || HDstrcmp(name, "/M") != 0)
        TEST_ERROR;

    /* Just file #2's underlying shared file should be open still */
    H5F_sfile_assert_num(1);

    /* Close group in file #2, letting file #2 close */
    if (H5Gclose(gidM) < 0)
        TEST_ERROR;

    /* All underlying shared file structs should be closed */
    H5F_sfile_assert_num(0);

    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Gclose(gidM);
        H5Gclose(gidA);
        H5Fclose(fid2);
        H5Fclose(fid1);
    }
    H5E_END_TRY;
    return 1;
} /* end test_close_parent() */

/*-------------------------------------------------------------------------
 * Function:	test_cut_graph
 *
 * Purpose:	Test that the library correctly handles cutting a graph of
 *              mounted files.
 *
 *              Initial file mounting graph is built up to this:
 *
 *                              [1]
 *                             /   \
 *                            /     \
 *                          "A"     "B"
 *                          /         \
 *                         /           \
 *                       [2]           [3]
 *                       /  \         /   \
 *                     "D"  "E"     "H"   "I"
 *                     /      \     /       \
 *                   [4]      [5] [6]       [7]
 *                    |        |   |         |
 *                   "K"      "M" "O"       "Q"
 *
 *              ( where [n] is a file in mounting hierarchy and "X" is a group
 *               in a file )
 *
 *              Objects in file #5 & file #7 are opened and all other
 *              file & object IDs to the hierarchy are closed.
 *
 *              Then file #2 is unmounted from file #1, which should make a
 *              small tree of files 2, 4 & 5 and a larger tree of files 1, 3,
 *              6 & 7.
 *
 *              Then, the object in file #5 is closed, which should release its
 *              small tree of files.
 *
 *              Then, file #3 is unmounted from file #1, making it's tree
 *              only 3, 6 & 7.
 *
 *              Then, the object in file #7 is closed, which should release the
 *              remaining small tree of files.
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Quincey Koziol
 *              Monday, July 25, 2005
 *
 *-------------------------------------------------------------------------
 */
static int
test_cut_graph(hid_t fapl)
{
    hid_t   fid1 = -1, fid2 = -1, fid3 = -1, fid4 = -1, fid5 = -1, fid6 = -1, fid7 = -1; /* File IDs */
    hid_t   gidA = -1, gidB = -1; /* Group IDs in file #1 */
    hid_t   gidD = -1, gidE = -1; /* Group IDs in file #2 */
    hid_t   gidH = -1, gidI = -1; /* Group IDs in file #3 */
    hid_t   gidK = -1;            /* Group IDs in file #4 */
    hid_t   gidM = -1;            /* Group IDs in file #5 */
    hid_t   gidO = -1;            /* Group IDs in file #6 */
    hid_t   gidQ = -1;            /* Group IDs in file #7 */
    char    name[NAME_BUF_SIZE];  /* Buffer for filename retrieved */
    ssize_t name_len;             /* Filename length */
    ssize_t obj_count;            /* Number of objects open */
    char    filename1[NAME_BUF_SIZE], filename2[NAME_BUF_SIZE], filename3[NAME_BUF_SIZE],
        filename4[NAME_BUF_SIZE], filename5[NAME_BUF_SIZE], filename6[NAME_BUF_SIZE],
        filename7[NAME_BUF_SIZE]; /* Name of files to mount */

    TESTING("cutting mount graph");

    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);
    h5_fixname(FILENAME[2], fapl, filename3, sizeof filename3);
    h5_fixname(FILENAME[3], fapl, filename4, sizeof filename3);
    h5_fixname(FILENAME[4], fapl, filename5, sizeof filename3);
    h5_fixname(FILENAME[5], fapl, filename6, sizeof filename3);
    h5_fixname(FILENAME[6], fapl, filename7, sizeof filename3);

    /* Create file #1 & it's groups */
    if ((fid1 = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidA = H5Gcreate2(fid1, "A", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(gidA) < 0)
        TEST_ERROR;

    if ((gidB = H5Gcreate2(fid1, "B", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(gidB) < 0)
        TEST_ERROR;

    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    /* Create file #2 & it's groups */
    if ((fid2 = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidD = H5Gcreate2(fid2, "D", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(gidD) < 0)
        TEST_ERROR;

    if ((gidE = H5Gcreate2(fid2, "E", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(gidE) < 0)
        TEST_ERROR;

    if (H5Fclose(fid2) < 0)
        TEST_ERROR;

    /* Create file #3 & it's groups */
    if ((fid3 = H5Fcreate(filename3, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidH = H5Gcreate2(fid3, "H", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(gidH) < 0)
        TEST_ERROR;

    if ((gidI = H5Gcreate2(fid3, "I", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(gidI) < 0)
        TEST_ERROR;

    if (H5Fclose(fid3) < 0)
        TEST_ERROR;

    /* Create file #4 & it's group */
    if ((fid4 = H5Fcreate(filename4, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidK = H5Gcreate2(fid4, "K", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(gidK) < 0)
        TEST_ERROR;

    if (H5Fclose(fid4) < 0)
        TEST_ERROR;

    /* Create file #5 & it's group */
    if ((fid5 = H5Fcreate(filename5, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidM = H5Gcreate2(fid5, "M", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(gidM) < 0)
        TEST_ERROR;

    if (H5Fclose(fid5) < 0)
        TEST_ERROR;

    /* Create file #6 & it's group */
    if ((fid6 = H5Fcreate(filename6, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidO = H5Gcreate2(fid6, "O", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(gidO) < 0)
        TEST_ERROR;

    if (H5Fclose(fid6) < 0)
        TEST_ERROR;

    /* Create file #7 & it's group */
    if ((fid7 = H5Fcreate(filename7, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidQ = H5Gcreate2(fid7, "Q", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(gidQ) < 0)
        TEST_ERROR;

    if (H5Fclose(fid7) < 0)
        TEST_ERROR;

    /* Re-open files and build mount hierarchy */
    if ((fid1 = H5Fopen(filename1, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Mount file #2 at /A */
    if ((fid2 = H5Fopen(filename2, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Fmount(fid1, "/A", fid2, H5P_DEFAULT) < 0)
        TEST_ERROR;
    if (H5Fclose(fid2) < 0)
        TEST_ERROR;

    /* Mount file #3 at /B */
    if ((fid3 = H5Fopen(filename3, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Fmount(fid1, "/B", fid3, H5P_DEFAULT) < 0)
        TEST_ERROR;
    if (H5Fclose(fid3) < 0)
        TEST_ERROR;

    /* Mount file #4 at /A/D */
    if ((fid4 = H5Fopen(filename4, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Fmount(fid1, "/A/D", fid4, H5P_DEFAULT) < 0)
        TEST_ERROR;
    if (H5Fclose(fid4) < 0)
        TEST_ERROR;

    /* Mount file #5 at /A/E */
    if ((fid5 = H5Fopen(filename5, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Fmount(fid1, "/A/E", fid5, H5P_DEFAULT) < 0)
        TEST_ERROR;
    if (H5Fclose(fid5) < 0)
        TEST_ERROR;

    /* Mount file #6 at /B/H */
    if ((fid6 = H5Fopen(filename6, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Fmount(fid1, "/B/H", fid6, H5P_DEFAULT) < 0)
        TEST_ERROR;
    if (H5Fclose(fid6) < 0)
        TEST_ERROR;

    /* Mount file #7 at /B/H */
    if ((fid7 = H5Fopen(filename7, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Fmount(fid1, "/B/I", fid7, H5P_DEFAULT) < 0)
        TEST_ERROR;
    if (H5Fclose(fid7) < 0)
        TEST_ERROR;

    /* Open object in file #5 */
    if ((gidM = H5Gopen2(fid1, "A/E/M", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Check name */
    *name = '\0';
    if ((name_len = H5Iget_name(gidM, name, (size_t)NAME_BUF_SIZE)) < 0)
        TEST_ERROR;
    if (name_len == 0 || HDstrcmp(name, "/A/E/M") != 0)
        TEST_ERROR;

    /* Open object in file #7 */
    if ((gidQ = H5Gopen2(fid1, "B/I/Q", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Check name */
    *name = '\0';
    if ((name_len = H5Iget_name(gidQ, name, (size_t)NAME_BUF_SIZE)) < 0)
        TEST_ERROR;
    if (name_len == 0 || HDstrcmp(name, "/B/I/Q") != 0)
        TEST_ERROR;

    /* Close file #1 */
    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    /* Get a new file ID for file #5 */
    if ((fid5 = H5Iget_file_id(gidM)) < 0)
        TEST_ERROR;

    /* Check the number of objects currently open */
    if ((obj_count = H5Fget_obj_count(fid5, H5F_OBJ_ALL)) < 0)
        TEST_ERROR;
    if (obj_count != 2) /* one object and the file ID */
        TEST_ERROR;

    /* Close ID on file #5 */
    if (H5Fclose(fid5) < 0)
        TEST_ERROR;

    /* Get a new file ID for file #7 */
    if ((fid7 = H5Iget_file_id(gidQ)) < 0)
        TEST_ERROR;

    /* Check the number of objects currently open */
    if ((obj_count = H5Fget_obj_count(fid7, H5F_OBJ_ALL)) < 0)
        TEST_ERROR;
    if (obj_count != 2) /* one object and the file ID */
        TEST_ERROR;

    /* Close ID on file #7 */
    if (H5Fclose(fid7) < 0)
        TEST_ERROR;

    /* Check that all file IDs have been closed */
    if (H5I_nmembers(H5I_FILE) != 0)
        TEST_ERROR;

    /* Unmount file #2 from file #1, cutting the graph */
    if (H5Funmount(gidM, "/A") < 0)
        TEST_ERROR;

    /* Attempt to open an object in file #4, from file #1 */
    H5E_BEGIN_TRY
    {
        gidK = H5Gopen2(gidQ, "/A/D/K", H5P_DEFAULT);
    }
    H5E_END_TRY;
    if (gidK >= 0)
        TEST_ERROR;

    /* Open object in file #4 from file #5 */
    if ((gidK = H5Gopen2(gidM, "/D/K", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Check the name of "K" is correct */
    *name = '\0';
    if ((name_len = H5Iget_name(gidK, name, (size_t)NAME_BUF_SIZE)) < 0)
        TEST_ERROR;
    if (name_len == 0 || HDstrcmp(name, "/D/K") != 0)
        TEST_ERROR;

    if (H5Gclose(gidK) < 0)
        TEST_ERROR;

    /* Attempt to open an object in file #6, from file #5 */
    H5E_BEGIN_TRY
    {
        gidO = H5Gopen2(gidM, "/B/H/O", H5P_DEFAULT);
    }
    H5E_END_TRY;
    if (gidO >= 0)
        TEST_ERROR;

    /* Open object in file #6 from file #7 */
    if ((gidO = H5Gopen2(gidQ, "/B/H/O", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Check the name of "O" is correct */
    *name = '\0';
    if ((name_len = H5Iget_name(gidO, name, (size_t)NAME_BUF_SIZE)) < 0)
        TEST_ERROR;
    if (name_len == 0 || HDstrcmp(name, "/B/H/O") != 0)
        TEST_ERROR;

    if (H5Gclose(gidO) < 0)
        TEST_ERROR;

    /* Check the name of "M" is defined in its file */
    *name = '\0';
    if ((name_len = H5Iget_name(gidM, name, (size_t)NAME_BUF_SIZE)) < 0)
        TEST_ERROR;
    if (name_len == 0 || HDstrcmp(name, "/E/M") != 0)
        TEST_ERROR;

    /* Check the name of "Q" is still defined */
    *name = '\0';
    if ((name_len = H5Iget_name(gidQ, name, (size_t)NAME_BUF_SIZE)) < 0)
        TEST_ERROR;
    if (name_len == 0 || HDstrcmp(name, "/B/I/Q") != 0)
        TEST_ERROR;

    /* Check that all seven underlying files are still opened */
    H5F_sfile_assert_num(7);

    /* Close "M" in file #5, which should close files 2, 4 & 5 */
    if (H5Gclose(gidM) < 0)
        TEST_ERROR;

    /* Check that only four underlying files are still opened */
    H5F_sfile_assert_num(4);

    /* Unmount file #3 from file #1, cutting the graph */
    if (H5Funmount(gidQ, "/B") < 0)
        TEST_ERROR;

    /* Check that only three underlying files are still opened */
    /* (File #1 should close after being cut off from the graph) */
    H5F_sfile_assert_num(3);

    /* Check the name of "Q" is defined in its file */
    *name = '\0';
    if ((name_len = H5Iget_name(gidQ, name, (size_t)NAME_BUF_SIZE)) < 0)
        TEST_ERROR;
    if (name_len == 0 || HDstrcmp(name, "/I/Q") != 0)
        TEST_ERROR;

    /* Open object in file #6 from file #7 */
    if ((gidO = H5Gopen2(gidQ, "/H/O", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Check the name of "O" is correct */
    *name = '\0';
    if ((name_len = H5Iget_name(gidO, name, (size_t)NAME_BUF_SIZE)) < 0)
        TEST_ERROR;
    if (name_len == 0 || HDstrcmp(name, "/H/O") != 0)
        TEST_ERROR;

    if (H5Gclose(gidO) < 0)
        TEST_ERROR;

    /* Close last object and let files 3, 6 & 7 close */
    if (H5Gclose(gidQ) < 0)
        TEST_ERROR;

    /* Verify that all underlying shared files have been closed now */
    H5F_sfile_assert_num(0);

    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Gclose(gidQ);
        H5Gclose(gidO);
        H5Gclose(gidM);
        H5Gclose(gidK);
        H5Gclose(gidI);
        H5Gclose(gidH);
        H5Gclose(gidE);
        H5Gclose(gidD);
        H5Gclose(gidB);
        H5Gclose(gidA);
        H5Fclose(fid7);
        H5Fclose(fid6);
        H5Fclose(fid5);
        H5Fclose(fid4);
        H5Fclose(fid3);
        H5Fclose(fid2);
        H5Fclose(fid1);
    }
    H5E_END_TRY;
    return 1;
} /* end test_cut_graph() */

/*-------------------------------------------------------------------------
 * Function:	test_symlink
 *
 * Purpose:	Test that the library correctly handles symlinks across
 *              mounted files.
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Quincey Koziol
 *              Monday, July 25, 2005
 *
 *-------------------------------------------------------------------------
 */
static int
test_symlink(hid_t fapl)
{
    hid_t   fid1 = -1, fid2 = -1, fid3 = -1; /* File IDs */
    hid_t   gidA = -1, gidB = -1;            /* Group IDs in file #1 */
    hid_t   gidD = -1, gidE = -1;            /* Group IDs in file #2 */
    hid_t   gidH = -1, gidI = -1;            /* Group IDs in file #3 */
    hid_t   gidL = -1;                       /* Group IDs through soft link to file #3 */
    char    name[NAME_BUF_SIZE];             /* Buffer for filename retrieved */
    ssize_t name_len;                        /* Filename length */
    char    filename1[NAME_BUF_SIZE], filename2[NAME_BUF_SIZE],
        filename3[NAME_BUF_SIZE]; /* Name of files to mount */

    TESTING("symlinks");

    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);
    h5_fixname(FILENAME[2], fapl, filename3, sizeof filename3);

    /* Create file #1 & it's groups */
    if ((fid1 = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidA = H5Gcreate2(fid1, "A", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(gidA) < 0)
        TEST_ERROR;

    if ((gidB = H5Gcreate2(fid1, "B", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(gidB) < 0)
        TEST_ERROR;

    /* Create soft link to mounted object */
    if (H5Lcreate_soft("./A/D/H", fid1, "L", H5P_DEFAULT, H5P_DEFAULT) < 0) /* Soft link */
        TEST_ERROR;

    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    /* Create file #2 & it's groups */
    if ((fid2 = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidD = H5Gcreate2(fid2, "D", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(gidD) < 0)
        TEST_ERROR;

    if ((gidE = H5Gcreate2(fid2, "E", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(gidE) < 0)
        TEST_ERROR;

    if (H5Fclose(fid2) < 0)
        TEST_ERROR;

    /* Create file #3 & it's groups */
    if ((fid3 = H5Fcreate(filename3, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    if ((gidH = H5Gcreate2(fid3, "H", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(gidH) < 0)
        TEST_ERROR;

    if ((gidI = H5Gcreate2(fid3, "I", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(gidI) < 0)
        TEST_ERROR;

    if (H5Fclose(fid3) < 0)
        TEST_ERROR;

    /* Re-open files and build mount hierarchy */
    if ((fid1 = H5Fopen(filename1, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Mount file #2 at /A */
    if ((fid2 = H5Fopen(filename2, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Fmount(fid1, "/A", fid2, H5P_DEFAULT) < 0)
        TEST_ERROR;
    if (H5Fclose(fid2) < 0)
        TEST_ERROR;

    /* Attempt to open an object in file #3 (should fail) */
    H5E_BEGIN_TRY
    {
        gidL = H5Gopen2(fid1, "L", H5P_DEFAULT);
    }
    H5E_END_TRY;
    if (gidL >= 0)
        TEST_ERROR;

    /* Mount file #3 at /A/D */
    if ((fid3 = H5Fopen(filename3, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Fmount(fid1, "/A/D", fid3, H5P_DEFAULT) < 0)
        TEST_ERROR;
    if (H5Fclose(fid3) < 0)
        TEST_ERROR;

    /* Open soft link to object in file #3 */
    if ((gidL = H5Gopen2(fid1, "L", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Check the name of "L" is correct */
    *name = '\0';
    if ((name_len = H5Iget_name(gidL, name, (size_t)NAME_BUF_SIZE)) < 0)
        TEST_ERROR;
    if (name_len == 0 || HDstrcmp(name, "/L") != 0)
        TEST_ERROR;

    /* Close file #1 */
    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    /* Verify that all 3 underlying shared files are still open */
    H5F_sfile_assert_num(3);

    /* Close object opened through soft link */
    if (H5Gclose(gidL) < 0)
        TEST_ERROR;

    /* Verify that all underlying shared files have been closed now */
    H5F_sfile_assert_num(0);

    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Gclose(gidL);
        H5Gclose(gidI);
        H5Gclose(gidH);
        H5Gclose(gidE);
        H5Gclose(gidD);
        H5Gclose(gidB);
        H5Gclose(gidA);
        H5Fclose(fid3);
        H5Fclose(fid2);
        H5Fclose(fid1);
    }
    H5E_END_TRY;
    return 1;
} /* end test_symlink() */

/*-------------------------------------------------------------------------
 * Function:	test_sharedacc
 *
 * Purpose: Test shared access to a file's mount table.
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Neil Fortner
 *              Friday, August 1, 2008
 *
 *-------------------------------------------------------------------------
 */
static int
test_sharedacc(hid_t fapl)
{
    hid_t fid1[2] = {-1, -1}, fid2[2] = {-1, -1}; /* File IDs */
    hid_t gid = -1;
    char  filename1[NAME_BUF_SIZE], filename2[NAME_BUF_SIZE],
        filename3[NAME_BUF_SIZE]; /* Name of files to mount */
    int i, j, k;                  /* Counters */

    TESTING("shared mount access");

    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);
    h5_fixname(FILENAME[2], fapl, filename3, sizeof filename3);

    /* Create file #1 & its group */
    if ((fid1[0] = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if ((gid = H5Gcreate2(fid1[0], "A", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(gid) < 0)
        TEST_ERROR;

    /* Create file #2 & its group */
    if ((fid2[0] = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if ((gid = H5Gcreate2(fid2[0], "B", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(gid) < 0)
        TEST_ERROR;

    /* Test mount before reopen, then using reopened handle for access */
    if (H5Fmount(fid1[0], "/A", fid2[0], H5P_DEFAULT) < 0)
        TEST_ERROR;
    if ((fid1[1] = H5Freopen(fid1[0])) < 0)
        TEST_ERROR;
    if ((fid2[1] = H5Freopen(fid2[0])) < 0)
        TEST_ERROR;
    if ((gid = H5Gopen2(fid1[1], "/A/B", H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(gid) < 0)
        TEST_ERROR;
    if (H5Funmount(fid1[1], "/A") < 0)
        TEST_ERROR;

    /* "Brute force" test of all possible ways of mounting, accessing, and
     * unmounting files with multiple handles (mount after reopen) */
    for (i = 0; i < 2; i++)
        for (j = 0; j < 2; j++)
            for (k = 0; k < 2; k++) {
                if (H5Fmount(fid1[i], "/A", fid2[j], H5P_DEFAULT) < 0)
                    TEST_ERROR;
                if ((gid = H5Gopen2(fid1[k], "/A/B", H5P_DEFAULT)) < 0)
                    TEST_ERROR;
                if (H5Gclose(gid) < 0)
                    TEST_ERROR;
                if (H5Funmount(fid1[k], "/A") < 0)
                    TEST_ERROR;
            }

    /* Close file IDs */
    for (i = 0; i < 2; i++) {
        if (H5Fclose(fid1[i]) < 0)
            TEST_ERROR;
        if (H5Fclose(fid2[i]) < 0)
            TEST_ERROR;
    }

    /* Check that all file IDs have been closed */
    if (H5I_nmembers(H5I_FILE) != 0)
        TEST_ERROR;
    H5F_sfile_assert_num(0);

    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Gclose(gid);
        for (i = 0; i < 2; i++) {
            H5Fclose(fid1[i]);
            H5Fclose(fid2[i]);
        }
    }
    H5E_END_TRY;
    return 1;
} /* end test_sharedacc() */

/*-------------------------------------------------------------------------
 * Function:	test_sharedclose
 *
 * Purpose: Test that files within a shared mount structure are properly
 *          closed.
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Neil Fortner
 *              Friday, August 6, 2008
 *
 *-------------------------------------------------------------------------
 */
static int
test_sharedclose(hid_t fapl)
{
    hid_t fid1a = -1, fid1b = -1, fid2 = -1, fid3 = -2; /* File IDs */
    hid_t gid1 = -1, gid2 = -1, gid3 = -1;
    char  filename1[NAME_BUF_SIZE], filename2[NAME_BUF_SIZE],
        filename3[NAME_BUF_SIZE]; /* Name of files to mount */

    TESTING("closing shared mounts");

    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);
    h5_fixname(FILENAME[2], fapl, filename3, sizeof filename3);

    /* Create file #1a & its group */
    if ((fid1a = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if ((gid1 = H5Gcreate2(fid1a, "A", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Create file #1b & its groups */
    if ((fid1b = H5Freopen(fid1a)) < 0)
        TEST_ERROR;
    if ((gid2 = H5Gcreate2(fid1b, "B", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if ((gid3 = H5Gcreate2(fid1b, "B/C", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Create file #2 */
    if ((fid2 = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Create file #3 */
    if ((fid3 = H5Fcreate(filename3, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Mount file #2 to file #1a */
    if (H5Fmount(gid1, ".", fid2, H5P_DEFAULT) < 0)
        TEST_ERROR;

    /* Mount file #3 to file #1b */
    if (H5Fmount(gid2, ".", fid3, H5P_DEFAULT) < 0)
        TEST_ERROR;

    /* Close file #1b.  It should be held open by the groups in it. */
    if (H5Fclose(fid1b) < 0)
        TEST_ERROR;

    /* Close file #3.  It should be held open by the groups in its parent. */
    if (H5Fclose(fid3) < 0)
        TEST_ERROR;

    /* Close group B in file #1b.  This should not close file #1b and #3. */
    if (H5Gclose(gid2) < 0)
        TEST_ERROR;

    /* Check that file #3 is still open */
    H5F_sfile_assert_num(3);

    /* Close group B/C in file #1b.  This should close file #1b and #3. */
    if (H5Gclose(gid3) < 0)
        TEST_ERROR;

    /* Check that file #3 has been closed */
    H5F_sfile_assert_num(2);

    /* Unmount file 2 and close the rest of the handles */
    if (H5Funmount(fid1a, "A") < 0)
        TEST_ERROR;
    if (H5Gclose(gid1) < 0)
        TEST_ERROR;
    if (H5Fclose(fid2) < 0)
        TEST_ERROR;
    if (H5Fclose(fid1a) < 0)
        TEST_ERROR;

    /* Check that all file IDs have been closed */
    if (H5I_nmembers(H5I_FILE) != 0)
        TEST_ERROR;
    H5F_sfile_assert_num(0);

    /* Create file #1 & its group */
    if ((fid1a = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if ((gid1 = H5Gcreate2(fid1a, "A", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Create file #1b & its group */
    if ((fid1b = H5Freopen(fid1a)) < 0)
        TEST_ERROR;
    if ((gid2 = H5Gcreate2(fid1b, "B", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Create file #2 */
    if ((fid2 = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Mount file #2 to file #1 */
    if (H5Fmount(fid1a, "A", fid2, H5P_DEFAULT) < 0)
        TEST_ERROR;

    /* Close file #1b.  It should be held open by the group in it. */
    if (H5Fclose(fid1b) < 0)
        TEST_ERROR;

    /* Close the group in file #1b.  This should close file # 1b. */
    if (H5Gclose(gid2) < 0)
        TEST_ERROR;

    /* Unmount file 2 and close the rest of the handles */
    if (H5Funmount(fid1a, "A") < 0)
        TEST_ERROR;
    if (H5Gclose(gid1) < 0)
        TEST_ERROR;
    if (H5Fclose(fid2) < 0)
        TEST_ERROR;
    if (H5Fclose(fid1a) < 0)
        TEST_ERROR;

    /* Check that all file IDs have been closed */
    if (H5I_nmembers(H5I_FILE) != 0)
        TEST_ERROR;
    H5F_sfile_assert_num(0);

    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Gclose(gid1);
        H5Gclose(gid2);
        H5Gclose(gid3);
        H5Fclose(fid1a);
        H5Fclose(fid1b);
        H5Fclose(fid2);
        H5Fclose(fid3);
    }
    H5E_END_TRY;
    return 1;
} /* end test_sharedclose() */

/*-------------------------------------------------------------------------
 * Function:	test_multisharedclose
 *
 * Purpose: Test that multiple files mounted to a shared mount structure
 *          can be properly closed by closing the groups holding them open.
 *
 * Return:	Success:	0
 *
 *		Failure:	number of errors
 *
 * Programmer:	Neil Fortner
 *              Friday, November 14, 2008
 *
 *-------------------------------------------------------------------------
 */
static int
test_multisharedclose(hid_t fapl)
{
    hid_t fid1 = -1, fid2 = -1; /* File IDs */
    hid_t gid1 = -1, gid2 = -1, gid3 = -1;
    char  filename1[NAME_BUF_SIZE], filename2[NAME_BUF_SIZE], filename3[NAME_BUF_SIZE],
        filename4[NAME_BUF_SIZE]; /* Name of files to mount */

    TESTING("closing multiple shared mounts");

    h5_fixname(FILENAME[0], fapl, filename1, sizeof filename1);
    h5_fixname(FILENAME[1], fapl, filename2, sizeof filename2);
    h5_fixname(FILENAME[2], fapl, filename3, sizeof filename3);
    h5_fixname(FILENAME[3], fapl, filename4, sizeof filename4);

    /* Create master file with three groups to serve as mount points */
    if ((fid1 = H5Fcreate(filename4, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(H5Gcreate2(fid1, "mnt1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(H5Gcreate2(fid1, "mnt2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(H5Gcreate2(fid1, "mnt3", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    /* Create child file with group */
    if ((fid1 = H5Fcreate(filename1, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(H5Gcreate2(fid1, "grp", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    /* Create child file with group */
    if ((fid1 = H5Fcreate(filename2, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(H5Gcreate2(fid1, "grp", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    /* Create child file with group */
    if ((fid1 = H5Fcreate(filename3, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Gclose(H5Gcreate2(fid1, "grp", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Fclose(fid1) < 0)
        TEST_ERROR;

    /* Open master and child 1 and mount child 1 to master */
    if ((fid1 = H5Fopen(filename4, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if ((fid2 = H5Fopen(filename1, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Fmount(fid1, "mnt1", fid2, H5P_DEFAULT) < 0)
        TEST_ERROR;

    /* Open the group in child 1 */
    if ((gid1 = H5Gopen2(fid1, "mnt1/grp", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Close both files.  They will be held open by gid1 */
    if (H5Idec_ref(fid2) < 0)
        TEST_ERROR;
    if (H5Idec_ref(fid1) < 0)
        TEST_ERROR;

    /* Open master and child 2 and mount child 2 to master */
    if ((fid1 = H5Fopen(filename4, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if ((fid2 = H5Fopen(filename2, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Fmount(fid1, "mnt2", fid2, H5P_DEFAULT) < 0)
        TEST_ERROR;

    /* Open the group in child 2 */
    if ((gid2 = H5Gopen2(fid1, "mnt2/grp", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Close both files.  They will be held open by gid2 */
    if (H5Idec_ref(fid2) < 0)
        TEST_ERROR;
    if (H5Idec_ref(fid1) < 0)
        TEST_ERROR;

    /* Open master and child 3 and mount child 3 to master */
    if ((fid1 = H5Fopen(filename4, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if ((fid2 = H5Fopen(filename3, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0)
        TEST_ERROR;
    if (H5Fmount(fid1, "mnt3", fid2, H5P_DEFAULT) < 0)
        TEST_ERROR;

    /* Open the group in child 3 */
    if ((gid3 = H5Gopen2(fid1, "mnt3/grp", H5P_DEFAULT)) < 0)
        TEST_ERROR;

    /* Close both files.  They will be held open by gid3 */
    if (H5Idec_ref(fid2) < 0)
        TEST_ERROR;
    if (H5Idec_ref(fid1) < 0)
        TEST_ERROR;

    /* Close gid1.  This will close child 1. */
    if (H5Idec_ref(gid1) < 0)
        TEST_ERROR;

    /* Close gid2.  This will close child 2. */
    if (H5Idec_ref(gid2) < 0)
        TEST_ERROR;

    /* Close gid3.  This will close child 3 and the master file. */
    if (H5Idec_ref(gid3) < 0)
        TEST_ERROR;

    /* Check that all file IDs have been closed */
    if (H5I_nmembers(H5I_FILE) != 0)
        TEST_ERROR;
    H5F_sfile_assert_num(0);

    PASSED();
    return 0;

error:
    H5E_BEGIN_TRY
    {
        H5Gclose(gid1);
        H5Gclose(gid2);
        H5Gclose(gid3);
        H5Fclose(fid2);
        H5Fclose(fid2);
    }
    H5E_END_TRY;
    return 1;
} /* end test_multisharedclose() */

/*-------------------------------------------------------------------------
 * Function:	main
 *
 * Purpose:	Test file mounting
 *
 * Return:	Success:	zero
 *
 *		Failure:	non-zero
 *
 * Programmer:	Robb Matzke
 *              Wednesday, October  7, 1998
 *
 *-------------------------------------------------------------------------
 */
int
main(void)
{
    int   nerrors = 0;
    hid_t fapl    = -1;

    h5_reset();
    fapl = h5_fileaccess();
    if (setup(fapl) < 0)
        goto error;

    nerrors += test_basic(fapl);
    nerrors += test_illegal(fapl);
    nerrors += test_samefile(fapl);
    nerrors += test_hide(fapl);
    nerrors += test_assoc(fapl);
    nerrors += test_mntlnk(fapl);
    nerrors += test_unlink(fapl);
    nerrors += test_move(fapl);
    nerrors += test_mvmpt(fapl);
    nerrors += test_preopen(fapl);
    nerrors += test_postopen(fapl);
    nerrors += test_interlink(fapl);
    nerrors += test_uniformity(fapl);
    nerrors += test_close(fapl);
    nerrors += test_mount_after_close(fapl);
    nerrors += test_mount_after_unmount(fapl);
    nerrors += test_missing_unmount(fapl);
    nerrors += test_hold_open_file(fapl);
    nerrors += test_hold_open_group(fapl);
    nerrors += test_fcdegree_same(fapl);
    nerrors += test_fcdegree_semi(fapl);
    nerrors += test_fcdegree_strong(fapl);
    nerrors += test_acc_perm(fapl);
    nerrors += test_mult_mount(fapl);
    nerrors += test_nested_survive(fapl);
    nerrors += test_close_parent(fapl);
    nerrors += test_cut_graph(fapl);
    nerrors += test_symlink(fapl);
    nerrors += test_sharedacc(fapl);
    nerrors += test_sharedclose(fapl);
    nerrors += test_multisharedclose(fapl);

    /* Verify symbol table messages are cached */
    nerrors += (h5_verify_cached_stabs(FILENAME, fapl) < 0 ? 1 : 0);

    if (nerrors)
        goto error;

    HDputs("All mount tests passed.");
    h5_cleanup(FILENAME, fapl);

    return 0;

error:
    HDputs("***** MOUNT ERRORS *****");
    return 1;
}
