summaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorQuincey Koziol <koziol@hdfgroup.org>2005-08-08 18:41:35 (GMT)
committerQuincey Koziol <koziol@hdfgroup.org>2005-08-08 18:41:35 (GMT)
commit502b4c206d238dff6bdca09075ffeb426a365a9e (patch)
treecbe48af2cf27d0ddb9a57d3828245b4428221320 /test
parentc5781c8289ad4abc83073f5b53a20179169eb59c (diff)
downloadhdf5-502b4c206d238dff6bdca09075ffeb426a365a9e.zip
hdf5-502b4c206d238dff6bdca09075ffeb426a365a9e.tar.gz
hdf5-502b4c206d238dff6bdca09075ffeb426a365a9e.tar.bz2
[svn-r11215] Purpose:
Bug fix & code cleanup Description: Fix another bug in the file mounting code and refactor the unmount code that it is simpler. Platforms tested: FreeBSD 4.11 (sleipnir) Linux 2.4 Too minor to require h5committest
Diffstat (limited to 'test')
-rw-r--r--test/mount.c1203
-rw-r--r--test/tfile.c4
2 files changed, 1207 insertions, 0 deletions
diff --git a/test/mount.c b/test/mount.c
index 4813fa0..762c7b1 100644
--- a/test/mount.c
+++ b/test/mount.c
@@ -19,6 +19,7 @@
* Purpose: Tests file mounting.
*/
#include "h5test.h"
+#include "H5Fprivate.h" /* File access */
#include "H5Iprivate.h" /* IDs */
const char *FILENAME[] = {
@@ -26,6 +27,9 @@ const char *FILENAME[] = {
"mount_2",
"mount_3",
"mount_4",
+ "mount_5",
+ "mount_6",
+ "mount_7",
NULL
};
@@ -1004,6 +1008,8 @@ test_close(hid_t fapl)
/* Check that all file IDs have been closed */
if(H5I_nmembers(H5I_FILE) != 0)
TEST_ERROR
+ if(H5F_sfile_assert_num(0) != 0)
+ TEST_ERROR
/* Build the virtual file again */
if ((file1=H5Fopen(filename1, H5F_ACC_RDWR, fapl))<0 ||
@@ -1021,6 +1027,8 @@ test_close(hid_t fapl)
/* Check that all file IDs have been closed */
if(H5I_nmembers(H5I_FILE) != 0)
TEST_ERROR
+ if(H5F_sfile_assert_num(0) != 0)
+ TEST_ERROR
/* Shut down */
PASSED();
@@ -1665,6 +1673,8 @@ test_missing_unmount(hid_t fapl)
/* Check that all file IDs have been closed */
if(H5I_nmembers(H5I_FILE) != 0)
TEST_ERROR
+ if(H5F_sfile_assert_num(0) != 0)
+ TEST_ERROR
PASSED();
return 0;
@@ -1799,6 +1809,8 @@ test_hold_open_file(hid_t fapl)
/* Check that all file IDs have been closed */
if(H5I_nmembers(H5I_FILE) != 0)
TEST_ERROR
+ if(H5F_sfile_assert_num(0) != 0)
+ TEST_ERROR
PASSED();
return 0;
@@ -1954,6 +1966,8 @@ test_hold_open_group(hid_t fapl)
/* Check that all file IDs have been closed */
if(H5I_nmembers(H5I_FILE) != 0)
TEST_ERROR
+ if(H5F_sfile_assert_num(0) != 0)
+ TEST_ERROR
PASSED();
return 0;
@@ -2098,6 +2112,8 @@ test_fcdegree_same(hid_t fapl)
/* Check that all file IDs have been closed */
if(H5I_nmembers(H5I_FILE) != 0)
TEST_ERROR
+ if(H5F_sfile_assert_num(0) != 0)
+ TEST_ERROR
PASSED();
return 0;
@@ -2238,6 +2254,8 @@ test_fcdegree_semi(hid_t fapl)
/* Check that all file IDs have been closed */
if(H5I_nmembers(H5I_FILE) != 0)
TEST_ERROR
+ if(H5F_sfile_assert_num(0) != 0)
+ TEST_ERROR
PASSED();
return 0;
@@ -2374,6 +2392,8 @@ test_fcdegree_strong(hid_t fapl)
/* Check that all file IDs have been closed */
if(H5I_nmembers(H5I_FILE) != 0)
TEST_ERROR
+ if(H5F_sfile_assert_num(0) != 0)
+ TEST_ERROR
PASSED();
return 0;
@@ -2576,6 +2596,8 @@ test_acc_perm(hid_t fapl)
/* Check that all file IDs have been closed */
if(H5I_nmembers(H5I_FILE) != 0)
TEST_ERROR
+ if(H5F_sfile_assert_num(0) != 0)
+ TEST_ERROR
PASSED();
return 0;
@@ -2594,7 +2616,1183 @@ error:
} 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
+ *
+ * Modifications:
+ *
+ *-------------------------------------------------------------------------
+ */
+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 = H5Gcreate(fid1, "A", (size_t)0)) < 0)
+ TEST_ERROR
+
+ if(H5Gclose(gidA) < 0)
+ TEST_ERROR
+
+ if((gidB = H5Gcreate(fid1, "B", (size_t)0)) < 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 = H5Gcreate(fid2, "M", (size_t)0)) < 0)
+ TEST_ERROR
+
+ if(H5Gclose(gidM) < 0)
+ TEST_ERROR
+
+ if((gidN = H5Gcreate(fid2, "N", (size_t)0)) < 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 = H5Gcreate(fid3, "S", (size_t)0)) < 0)
+ TEST_ERROR
+
+ if(H5Gclose(gidS) < 0)
+ TEST_ERROR
+
+ if((gidT = H5Gcreate(fid3, "T", (size_t)0)) < 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 = H5Gopen(fid1, "A")) < 0)
+ TEST_ERROR
+
+ if((gidB = H5Gopen(fid1, "B")) < 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 = H5Gopen(fid1, "A/M")) < 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 = H5Gopen(fid1, "A/M/T")) < 0)
+ TEST_ERROR
+
+ /* Check name */
+ if(H5Iget_name(gidAMT, name, (size_t)NAME_BUF_SIZE ) < 0)
+ TEST_ERROR
+ if(HDstrcmp(name, "/A/M/T"))
+ TEST_ERROR
+
+ /* Create object in file #3 */
+ if((gidU = H5Gcreate(gidAMT, "U", (size_t)0)) < 0)
+ TEST_ERROR
+
+ if(H5Gclose(gidU) < 0)
+ TEST_ERROR
+
+ /* Open object in file #3 through file #1 mount path */
+ if((gidBS = H5Gopen(fid1, "B/S")) < 0)
+ TEST_ERROR
+
+ /* Check name */
+ if(H5Iget_name(gidBS, name, (size_t)NAME_BUF_SIZE ) < 0)
+ TEST_ERROR
+ if(HDstrcmp(name, "/B/S"))
+ TEST_ERROR
+
+ /* Re-open object created in file #3 through file #1 mount path */
+ if((gidU = H5Gopen(gidBS, "/B/T/U")) < 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
+ if(H5F_sfile_assert_num(0) != 0)
+ TEST_ERROR
+
+ 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
+ *
+ * Modifications:
+ *
+ *-------------------------------------------------------------------------
+ */
+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 = H5Gcreate(fid1, "A", (size_t)0)) < 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 = H5Gcreate(fid2, "M", (size_t)0)) < 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 = H5Gcreate(fid3, "S", (size_t)0)) < 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 = H5Gopen(fid1, "A")) < 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 = H5Gopen(fid1, "A/M")) < 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 = H5Gopen(fid1, "A/M/S")) < 0)
+ TEST_ERROR
+
+ /* Close group in file #3 */
+ if(H5Gclose(gidAMS) < 0)
+ TEST_ERROR
+
+ /* Check name */
+ if((name_len = H5Iget_name(gidAM, name, (size_t)NAME_BUF_SIZE )) < 0)
+ TEST_ERROR
+ if(name_len == 0 || HDstrcmp(name, "/A/M"))
+ TEST_ERROR
+
+ /* Unmount file #2 from file #1 */
+ if(H5Funmount(gidA, ".") < 0)
+ TEST_ERROR
+
+ /* Check name (should be unavailable) */
+ if((name_len = H5Iget_name(gidAM, name, (size_t)NAME_BUF_SIZE )) < 0)
+ TEST_ERROR
+ if(name_len != 0)
+ TEST_ERROR
+
+ /* Open object in file #3 through file #1 mount path (should fail) */
+ H5E_BEGIN_TRY {
+ gidAMS = H5Gopen(fid1, "A/M/S");
+ } H5E_END_TRY;
+ if(gidAMS >= 0)
+ TEST_ERROR
+
+ /* Open object in file #3 through file #2 mount path */
+ if((gidMS = H5Gopen(fid2, "M/S")) < 0)
+ TEST_ERROR
+
+ /* Check name */
+ if(H5Iget_name(gidMS, name, (size_t)NAME_BUF_SIZE ) < 0)
+ TEST_ERROR
+ if(HDstrcmp(name, "/M/S"))
+ 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 = H5Gopen(fid1, "A/M/S")) < 0)
+ TEST_ERROR
+
+ /* Check name */
+ if(H5Iget_name(gidAMS, name, (size_t)NAME_BUF_SIZE ) < 0)
+ TEST_ERROR
+ if(HDstrcmp(name, "/A/M/S"))
+ 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
+ if(H5F_sfile_assert_num(0) != 0)
+ TEST_ERROR
+
+ 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
+ *
+ * Modifications:
+ *
+ *-------------------------------------------------------------------------
+ */
+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 = H5Gcreate(fid1, "A", (size_t)0)) < 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 = H5Gcreate(fid2, "M", (size_t)0)) < 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 = H5Gopen(fid1, "A")) < 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 = H5Gopen(fid1, "A/M")) < 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 */
+ if(H5F_sfile_assert_num(2) != 0)
+ TEST_ERROR
+
+ /* Check the name of "M" is still defined */
+ if((name_len = H5Iget_name(gidM, name, (size_t)NAME_BUF_SIZE )) < 0)
+ TEST_ERROR
+ if(name_len == 0 || HDstrcmp(name, "/A/M"))
+ TEST_ERROR
+
+ /* Unmount file #2 from file #1, closing file #1 */
+ if(H5Funmount(gidM, "/A") < 0)
+ TEST_ERROR
+
+ /* Check the name of "M" is not defined any longer */
+ if((name_len = H5Iget_name(gidM, name, (size_t)NAME_BUF_SIZE )) < 0)
+ TEST_ERROR
+ if(name_len != 0)
+ TEST_ERROR
+
+ /* Just file #2's underlying shared file should be open still */
+ if(H5F_sfile_assert_num(1) != 0)
+ TEST_ERROR
+
+ /* Close group in file #2, letting file #2 close */
+ if(H5Gclose(gidM) < 0)
+ TEST_ERROR
+
+ /* All underlying shared file structs should be closed */
+ if(H5F_sfile_assert_num(0) != 0)
+ TEST_ERROR
+
+ 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
+ *
+ * Modifications:
+ *
+ *-------------------------------------------------------------------------
+ */
+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 */
+ int 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 = H5Gcreate(fid1, "A", (size_t)0)) < 0)
+ TEST_ERROR
+ if(H5Gclose(gidA) < 0)
+ TEST_ERROR
+
+ if((gidB = H5Gcreate(fid1, "B", (size_t)0)) < 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 = H5Gcreate(fid2, "D", (size_t)0)) < 0)
+ TEST_ERROR
+ if(H5Gclose(gidD) < 0)
+ TEST_ERROR
+
+ if((gidE = H5Gcreate(fid2, "E", (size_t)0)) < 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 = H5Gcreate(fid3, "H", (size_t)0)) < 0)
+ TEST_ERROR
+ if(H5Gclose(gidH) < 0)
+ TEST_ERROR
+
+ if((gidI = H5Gcreate(fid3, "I", (size_t)0)) < 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 = H5Gcreate(fid4, "K", (size_t)0)) < 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 = H5Gcreate(fid5, "M", (size_t)0)) < 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 = H5Gcreate(fid6, "O", (size_t)0)) < 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 = H5Gcreate(fid7, "Q", (size_t)0)) < 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 = H5Gopen(fid1, "A/E/M")) < 0)
+ TEST_ERROR
+
+ /* Check name */
+ if((name_len = H5Iget_name(gidM, name, (size_t)NAME_BUF_SIZE )) < 0)
+ TEST_ERROR
+ if(name_len == 0 || HDstrcmp(name, "/A/E/M"))
+ TEST_ERROR
+
+ /* Open object in file #7 */
+ if((gidQ = H5Gopen(fid1, "B/I/Q")) < 0)
+ TEST_ERROR
+
+ /* Check name */
+ if((name_len = H5Iget_name(gidQ, name, (size_t)NAME_BUF_SIZE )) < 0)
+ TEST_ERROR
+ if(name_len == 0 || HDstrcmp(name, "/B/I/Q"))
+ 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 = H5Gopen(gidQ, "/A/D/K");
+ } H5E_END_TRY;
+ if(gidK >= 0)
+ TEST_ERROR
+
+ /* Open object in file #4 from file #5 */
+ if((gidK = H5Gopen(gidM, "/D/K")) < 0)
+ TEST_ERROR
+
+ /* Check the name of "K" is correct */
+ if((name_len = H5Iget_name(gidK, name, (size_t)NAME_BUF_SIZE )) < 0)
+ TEST_ERROR
+ if(name_len == 0 || HDstrcmp(name, "/D/K"))
+ TEST_ERROR
+
+ if(H5Gclose(gidK) < 0)
+ TEST_ERROR
+
+ /* Attempt to open an object in file #6, from file #5 */
+ H5E_BEGIN_TRY {
+ gidO = H5Gopen(gidM, "/B/H/O");
+ } H5E_END_TRY;
+ if(gidO >= 0)
+ TEST_ERROR
+
+ /* Open object in file #6 from file #7 */
+ if((gidO = H5Gopen(gidQ, "/B/H/O")) < 0)
+ TEST_ERROR
+
+ /* Check the name of "O" is correct */
+ if((name_len = H5Iget_name(gidO, name, (size_t)NAME_BUF_SIZE )) < 0)
+ TEST_ERROR
+ if(name_len == 0 || HDstrcmp(name, "/B/H/O"))
+ TEST_ERROR
+
+ if(H5Gclose(gidO) < 0)
+ TEST_ERROR
+
+ /* Check the name of "M" is not defined any longer */
+ if((name_len = H5Iget_name(gidM, name, (size_t)NAME_BUF_SIZE )) < 0)
+ TEST_ERROR
+ if(name_len != 0)
+ TEST_ERROR
+
+ /* Check the name of "Q" is still defined */
+ if((name_len = H5Iget_name(gidQ, name, (size_t)NAME_BUF_SIZE )) < 0)
+ TEST_ERROR
+ if(name_len == 0 || HDstrcmp(name, "/B/I/Q"))
+ TEST_ERROR
+
+ /* Check that all seven underlying files are still opened */
+ if(H5F_sfile_assert_num(7) != 0)
+ TEST_ERROR
+
+ /* 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 */
+ if(H5F_sfile_assert_num(4) != 0)
+ TEST_ERROR
+
+ /* 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) */
+ if(H5F_sfile_assert_num(3) != 0)
+ TEST_ERROR
+
+ /* Check the name of "Q" is not defined any longer */
+ if((name_len = H5Iget_name(gidQ, name, (size_t)NAME_BUF_SIZE )) < 0)
+ TEST_ERROR
+ if(name_len != 0)
+ TEST_ERROR
+
+ /* Open object in file #6 from file #7 */
+ if((gidO = H5Gopen(gidQ, "/H/O")) < 0)
+ TEST_ERROR
+
+ /* Check the name of "O" is correct */
+ if((name_len = H5Iget_name(gidO, name, (size_t)NAME_BUF_SIZE )) < 0)
+ TEST_ERROR
+ if(name_len == 0 || HDstrcmp(name, "/H/O"))
+ 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 */
+ if(H5F_sfile_assert_num(0) != 0)
+ TEST_ERROR
+
+ 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
+ *
+ * Modifications:
+ *
+ *-------------------------------------------------------------------------
+ */
+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 = H5Gcreate(fid1, "A", (size_t)0)) < 0)
+ TEST_ERROR
+ if(H5Gclose(gidA) < 0)
+ TEST_ERROR
+
+ if((gidB = H5Gcreate(fid1, "B", (size_t)0)) < 0)
+ TEST_ERROR
+ if(H5Gclose(gidB) < 0)
+ TEST_ERROR
+
+ /* Create soft link to mounted object */
+ if(H5Glink(fid1, H5G_LINK_SOFT, "./A/D/H", "L") < 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 = H5Gcreate(fid2, "D", (size_t)0)) < 0)
+ TEST_ERROR
+ if(H5Gclose(gidD) < 0)
+ TEST_ERROR
+
+ if((gidE = H5Gcreate(fid2, "E", (size_t)0)) < 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 = H5Gcreate(fid3, "H", (size_t)0)) < 0)
+ TEST_ERROR
+ if(H5Gclose(gidH) < 0)
+ TEST_ERROR
+
+ if((gidI = H5Gcreate(fid3, "I", (size_t)0)) < 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 = H5Gopen(fid1, "L");
+ } 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 = H5Gopen(fid1, "L")) < 0)
+ TEST_ERROR
+
+ /* Check the name of "L" is correct */
+ if((name_len = H5Iget_name(gidL, name, (size_t)NAME_BUF_SIZE )) < 0)
+ TEST_ERROR
+ if(name_len == 0 || HDstrcmp(name, "/L"))
+ TEST_ERROR
+
+ /* Close file #1 */
+ if(H5Fclose(fid1) < 0)
+ TEST_ERROR
+
+ /* Verify that all 3 underlying shared files are still open */
+ if(H5F_sfile_assert_num(3) != 0)
+ TEST_ERROR
+
+ /* Close object opened through soft link */
+ if(H5Gclose(gidL) < 0)
+ TEST_ERROR
+
+ /* Verify that all underlying shared files have been closed now */
+ if(H5F_sfile_assert_num(0) != 0)
+ TEST_ERROR
+
+ 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: main
@@ -2644,6 +3842,11 @@ main(void)
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);
if (nerrors) goto error;
puts("All mount tests passed.");
diff --git a/test/tfile.c b/test/tfile.c
index 05a0765..ece7cdb 100644
--- a/test/tfile.c
+++ b/test/tfile.c
@@ -576,6 +576,10 @@ test_file_close(void)
ret = H5Fclose(fid2);
VERIFY(ret, FAIL, "H5Fclose");
+ /* Same check with H5Idec_ref() (should fail also) */
+ ret = H5Idec_ref(fid2);
+ VERIFY(ret, FAIL, "H5Idec_ref");
+
ret = H5Gclose(group_id3);
CHECK(ret, FAIL, "H5Gclose");