mirror of
https://github.com/HDFGroup/hdf5.git
synced 2024-12-27 08:01:04 +08:00
ffd0fddad2
v1.8 library, v1.8 library writes the driver info block in the superblock. But v1.6 doesn't write it. This caused the data after the superblock to be overwritten. The solution is to use a flag to indicate when the original file doesn't have the driver info, v1.8 library doesn't write it either. Tested on jam. I have some trouble to access smirom and linew using h5committest.
4398 lines
125 KiB
C
4398 lines
125 KiB
C
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
||
* Copyright by The HDF Group. *
|
||
* Copyright by the Board of Trustees of the University of Illinois. *
|
||
* All rights reserved. *
|
||
* *
|
||
* This file is part of HDF5. The full HDF5 copyright notice, including *
|
||
* terms governing use, modification, and redistribution, is contained in *
|
||
* the files COPYING and Copyright.html. COPYING can be found at the root *
|
||
* of the source code distribution tree; Copyright.html can be found at the *
|
||
* root level of an installed copy of the electronic HDF5 document set and *
|
||
* is linked from the top-level documents page. It can also be found at *
|
||
* http://hdfgroup.org/HDF5/doc/Copyright.html. If you do not have *
|
||
* access to either file, you may request a copy from help@hdfgroup.org. *
|
||
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
|
||
|
||
/*
|
||
* Programmer: Robb Matzke <matzke@llnl.gov>
|
||
* 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
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
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
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
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
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
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();
|
||
puts(" 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();
|
||
puts(" 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();
|
||
puts(" 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();
|
||
puts(" 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
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
static int
|
||
test_hide(hid_t fapl)
|
||
{
|
||
hid_t file1 = -1, file2 = -1, grp = -1;
|
||
H5O_info_t oi1, oi2;
|
||
char filename1[1024], filename2[1024];
|
||
|
||
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_name(file1, "/mnt1/file1", &oi1, 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();
|
||
puts(" Name is still accessible under mount point.");
|
||
TEST_ERROR
|
||
} /* end if */
|
||
|
||
/*
|
||
* 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_name(file1, "/file1", &oi2, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
|
||
if(oi1.fileno != oi2.fileno || H5F_addr_ne(oi1.addr, oi2.addr)) {
|
||
H5_FAILED();
|
||
puts(" Hard link failed for hidden object.");
|
||
TEST_ERROR
|
||
} /* end if */
|
||
|
||
/* 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
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
static int
|
||
test_assoc(hid_t fapl)
|
||
{
|
||
hid_t file1 = -1, file2 = -1;
|
||
H5O_info_t oi1, oi2;
|
||
char filename1[1024], filename2[1024];
|
||
|
||
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_info(file2, &oi1) < 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_name(file1, "/mnt1", &oi2, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
|
||
|
||
if(oi1.fileno != oi2.fileno || H5F_addr_ne(oi1.addr, oi2.addr)) {
|
||
H5_FAILED();
|
||
puts(" 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
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
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
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
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();
|
||
puts(" Moving an object across files should'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
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
static int
|
||
test_preopen(hid_t fapl)
|
||
{
|
||
hid_t file1 = -1, file2 = -1, grp = -1;
|
||
H5O_info_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_info(grp, &oinfo) < 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
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
static int
|
||
test_postopen(hid_t fapl)
|
||
{
|
||
|
||
hid_t file1 = -1, file2 = -1, grp = -1;
|
||
H5O_info_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_info(grp, &oinfo) < 0) FAIL_STACK_ERROR
|
||
|
||
/* Try accessing it from the file */
|
||
if(H5Oget_info_by_name(file2, "/file2", &oinfo, 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
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
static int
|
||
test_unlink(hid_t fapl)
|
||
{
|
||
hid_t file1 = -1, file2 = -1, mnt = -1, root = -1;
|
||
H5O_info_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_name(file1, "/mnt_unlink/file2", &oinfo, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
|
||
if(H5Oget_info_by_name(mnt, "/mnt_unlink/file2", &oinfo, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
|
||
if(H5Oget_info_by_name(root, "/mnt_unlink/file2", &oinfo, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
|
||
if(H5Oget_info_by_name(root, "file2", &oinfo, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
|
||
H5E_BEGIN_TRY {
|
||
status = H5Oget_info_by_name(mnt, "file2", &oinfo, H5P_DEFAULT);
|
||
} H5E_END_TRY;
|
||
if(status >= 0) {
|
||
H5_FAILED();
|
||
puts(" 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_name(root, "file2", &oinfo, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
|
||
H5E_BEGIN_TRY {
|
||
status = H5Oget_info_by_name(mnt, "file2", &oinfo, H5P_DEFAULT);
|
||
} H5E_END_TRY;
|
||
if(status >= 0) {
|
||
H5_FAILED();
|
||
puts(" Traversal through mount point should not have worked!");
|
||
TEST_ERROR
|
||
} /* end if */
|
||
H5E_BEGIN_TRY {
|
||
status = H5Oget_info_by_name(file2, "/mnt_unlink/file2", &oinfo, H5P_DEFAULT);
|
||
} H5E_END_TRY;
|
||
if(status >= 0) {
|
||
H5_FAILED();
|
||
puts(" 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();
|
||
printf(" %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();
|
||
printf(" %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
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
static int
|
||
test_mvmpt(hid_t fapl)
|
||
{
|
||
hid_t file1 = -1, file2 = -1;
|
||
H5O_info_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_name(file1, "/mnt_move_b/file2", &oinfo, 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
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
static int
|
||
test_interlink(hid_t fapl)
|
||
{
|
||
hid_t file1 = -1, file2 = -1, type = -1, space = -1, dset = -1;
|
||
char filename1[1024], filename2[1024];
|
||
herr_t status;
|
||
hsize_t cur_dims[1] = {2};
|
||
|
||
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();
|
||
puts(" 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();
|
||
puts(" Interfile renaming should not have been allowed!");
|
||
TEST_ERROR
|
||
} /* end if */
|
||
|
||
/* 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();
|
||
puts(" Dataset and shared type must be in the same file!");
|
||
TEST_ERROR
|
||
} /* end if */
|
||
|
||
/* Shut down */
|
||
if(H5Sclose(space) < 0) FAIL_STACK_ERROR
|
||
if(H5Tclose(type) < 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 {
|
||
H5Dclose(dset);
|
||
H5Sclose(space);
|
||
H5Tclose(type);
|
||
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
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
static int
|
||
test_uniformity(hid_t fapl)
|
||
{
|
||
hid_t file1 = -1, file2 = -1;
|
||
H5O_info_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_name(file1, "/", &oinfo, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
|
||
if(H5Oget_info_by_name(file1, "/mnt1", &oinfo, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
|
||
if(H5Oget_info_by_name(file1, "mnt1", &oinfo, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
|
||
if(H5Oget_info_by_name(file1, "/mnt1/file2", &oinfo, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
|
||
if(H5Oget_info_by_name(file1, "mnt1/file2", &oinfo, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
|
||
|
||
/* Access the same things from the file2 handle */
|
||
if(H5Oget_info_by_name(file2, "/", &oinfo, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
|
||
if(H5Oget_info_by_name(file2, "/mnt1", &oinfo, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
|
||
if(H5Oget_info_by_name(file2, "mnt1", &oinfo, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
|
||
if(H5Oget_info_by_name(file2, "/mnt1/file2", &oinfo, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
|
||
if(H5Oget_info_by_name(file2, "mnt1/file2", &oinfo, 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
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
static int
|
||
test_close(hid_t fapl)
|
||
{
|
||
hid_t file1 = -1, file2 = -1;
|
||
H5O_info_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_name(file2, "/mnt1", &oinfo, H5P_DEFAULT) < 0) {
|
||
H5_FAILED();
|
||
puts(" 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
|
||
if(H5F_sfile_assert_num(0) != 0) TEST_ERROR
|
||
|
||
/* 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_name(file1, "/mnt1/file2", &oinfo, 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
|
||
if(H5F_sfile_assert_num(0) != 0) TEST_ERROR
|
||
|
||
/* 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
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
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")) 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")) 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")) 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")) 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
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
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"))
|
||
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"))
|
||
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"))
|
||
TEST_ERROR
|
||
|
||
/* Rename object in file #3 that is "disconnected" from name hiearchy */
|
||
/* (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"))
|
||
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"))
|
||
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
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
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
|
||
if(H5F_sfile_assert_num(0) != 0)
|
||
TEST_ERROR
|
||
|
||
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
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
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
|
||
if(H5F_sfile_assert_num(0) != 0)
|
||
TEST_ERROR
|
||
|
||
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
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
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
|
||
if(H5F_sfile_assert_num(0) != 0)
|
||
TEST_ERROR
|
||
|
||
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
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
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
|
||
if(H5F_sfile_assert_num(0) != 0)
|
||
TEST_ERROR
|
||
|
||
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
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
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
|
||
if(H5F_sfile_assert_num(0) != 0)
|
||
TEST_ERROR
|
||
|
||
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
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
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_info_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_info(gidA, &oinfo) < 0)
|
||
TEST_ERROR
|
||
if(H5Oget_info(gidAM, &oinfo) < 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_info(gidA, &oinfo);
|
||
} H5E_END_TRY;
|
||
if(ret >= 0)
|
||
TEST_ERROR
|
||
H5E_BEGIN_TRY {
|
||
ret = H5Oget_info(gidAM, &oinfo);
|
||
} 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
|
||
if(H5F_sfile_assert_num(0) != 0)
|
||
TEST_ERROR
|
||
|
||
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
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
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
|
||
if(H5F_sfile_assert_num(0) != 0)
|
||
TEST_ERROR
|
||
|
||
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
|
||
*
|
||
* 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 = 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"))
|
||
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"))
|
||
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
|
||
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 = 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"))
|
||
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, ""))
|
||
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"))
|
||
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"))
|
||
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 = 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 */
|
||
if(H5F_sfile_assert_num(2) != 0)
|
||
TEST_ERROR
|
||
|
||
/* 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"))
|
||
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"))
|
||
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 */
|
||
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"))
|
||
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"))
|
||
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"))
|
||
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"))
|
||
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"))
|
||
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"))
|
||
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 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"))
|
||
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"))
|
||
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 = 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"))
|
||
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: 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
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
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
|
||
if(H5F_sfile_assert_num(0) != 0)
|
||
TEST_ERROR
|
||
|
||
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
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
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 */
|
||
if(H5F_sfile_assert_num(3) != 0)
|
||
TEST_ERROR
|
||
|
||
/* 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 */
|
||
if(H5F_sfile_assert_num(2) != 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
|
||
if(H5F_sfile_assert_num(0) != 0)
|
||
TEST_ERROR
|
||
|
||
/* 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
|
||
if(H5F_sfile_assert_num(0) != 0)
|
||
TEST_ERROR
|
||
|
||
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
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
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
|
||
if(H5F_sfile_assert_num(0) < 0) TEST_ERROR
|
||
|
||
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
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
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);
|
||
|
||
if (nerrors) goto error;
|
||
|
||
puts("All mount tests passed.");
|
||
h5_cleanup(FILENAME, fapl);
|
||
|
||
return 0;
|
||
|
||
error:
|
||
puts("***** MOUNT ERRORS *****");
|
||
return 1;
|
||
}
|
||
|