mirror of
https://github.com/HDFGroup/hdf5.git
synced 2024-11-27 02:10:55 +08:00
Updated the flush1/2 test to not be a mess and to handle
non-SWMR-enabled VFDs.
This commit is contained in:
parent
e41a15b7f0
commit
fcb7e204b5
348
test/flush1.c
348
test/flush1.c
@ -25,6 +25,11 @@
|
||||
*/
|
||||
#include "h5test.h"
|
||||
|
||||
/* This file needs to access the file driver testing code */
|
||||
#define H5FD_FRIEND /*suppress error about including H5FDpkg */
|
||||
#define H5FD_TESTING
|
||||
#include "H5FDpkg.h" /* File drivers */
|
||||
|
||||
const char *FILENAME[] = {
|
||||
"flush",
|
||||
"flush-swmr",
|
||||
@ -37,179 +42,304 @@ const char *FILENAME[] = {
|
||||
NULL
|
||||
};
|
||||
|
||||
static double the_data[100][100];
|
||||
/* Number and size of dataset dims, chunk size, etc. */
|
||||
#define NDIMS 1
|
||||
#define NELEMENTS 10000
|
||||
#define CHUNK_SIZE 25
|
||||
#define FIRST_DSET_NAME "dset1"
|
||||
#define SECOND_DSET_NAME "dset2"
|
||||
|
||||
/* Number of sub-groups created in the containing group */
|
||||
#define NGROUPS 100
|
||||
|
||||
static hid_t create_file(const char *filename, hid_t fapl_id, hbool_t swmr);
|
||||
static herr_t add_dset_to_file(hid_t fid, const char *dset_name);
|
||||
|
||||
|
||||
/*-------------------------------------------------------------------------
|
||||
* Function: create_file
|
||||
* Function: create_file
|
||||
*
|
||||
* Purpose: Creates files used in part 1 of the test
|
||||
* Purpose: Creates files and datasets used in part 1 of the test
|
||||
*
|
||||
* Return: Success: 0
|
||||
*
|
||||
* Failure: 1
|
||||
* Return: Success: a valid file ID
|
||||
* Failure: -1
|
||||
*
|
||||
* Programmer: Leon Arber
|
||||
* Sept. 26, 2006
|
||||
*
|
||||
* Modifications:
|
||||
*
|
||||
*-------------------------------------------------------------------------
|
||||
*/
|
||||
static hid_t
|
||||
create_file(char* name, hid_t fapl, hbool_t swmr)
|
||||
create_file(const char *filename, hid_t fapl_id, hbool_t swmr)
|
||||
{
|
||||
hid_t file, dcpl, space, dset, groups, grp;
|
||||
hsize_t ds_size[2] = {100, 100};
|
||||
hsize_t ch_size[2] = {5, 5};
|
||||
unsigned flags;
|
||||
size_t i, j;
|
||||
hid_t fid = -1; /* file ID */
|
||||
hid_t top_gid = -1; /* containing group ID */
|
||||
hid_t gid = -1; /* subgroup ID */
|
||||
char group_name[16]; /* group name */
|
||||
unsigned flags; /* file open flags */
|
||||
int i; /* iterator */
|
||||
|
||||
flags = H5F_ACC_TRUNC | (swmr ? H5F_ACC_SWMR_WRITE : 0);
|
||||
|
||||
if((file = H5Fcreate(name, flags, H5P_DEFAULT, fapl)) < 0) FAIL_STACK_ERROR
|
||||
if((fid = H5Fcreate(filename, flags, H5P_DEFAULT, fapl_id)) < 0)
|
||||
STACK_ERROR
|
||||
|
||||
/* Create a chunked dataset */
|
||||
if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) FAIL_STACK_ERROR
|
||||
if(H5Pset_chunk(dcpl, 2, ch_size) < 0) FAIL_STACK_ERROR
|
||||
if((space = H5Screate_simple(2, ds_size, NULL)) < 0) FAIL_STACK_ERROR
|
||||
if((dset = H5Dcreate2(file, "dset", H5T_NATIVE_FLOAT, space, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
|
||||
|
||||
/* Write some data */
|
||||
for(i = 0; i < ds_size[0]; i++)
|
||||
for(j = 0; j < (size_t)ds_size[1]; j++)
|
||||
the_data[i][j] = (double)i / (double)(j + 1);
|
||||
if(H5Dwrite(dset, H5T_NATIVE_DOUBLE, space, space, H5P_DEFAULT, the_data) < 0) FAIL_STACK_ERROR
|
||||
if(add_dset_to_file(fid, FIRST_DSET_NAME) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
/* Create some groups */
|
||||
if((groups = H5Gcreate2(file, "some_groups", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
|
||||
for(i = 0; i < 100; i++) {
|
||||
sprintf(name, "grp%02u", (unsigned)i);
|
||||
if((grp = H5Gcreate2(groups, name, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
|
||||
if(H5Gclose(grp) < 0) FAIL_STACK_ERROR
|
||||
if((top_gid = H5Gcreate2(fid, "top_group", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
|
||||
STACK_ERROR
|
||||
for(i = 0; i < NGROUPS; i++) {
|
||||
HDsprintf(group_name, "group%02d", i);
|
||||
if((gid = H5Gcreate2(top_gid, group_name, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
|
||||
STACK_ERROR
|
||||
if(H5Gclose(gid) < 0)
|
||||
STACK_ERROR
|
||||
} /* end for */
|
||||
|
||||
return file;
|
||||
if(H5Gclose(top_gid) < 0)
|
||||
STACK_ERROR
|
||||
|
||||
return fid;
|
||||
|
||||
error:
|
||||
HD_exit(EXIT_FAILURE);
|
||||
}
|
||||
H5E_BEGIN_TRY {
|
||||
H5Fclose(fid);
|
||||
H5Gclose(gid);
|
||||
H5Gclose(top_gid);
|
||||
} H5E_END_TRY;
|
||||
|
||||
return -1;
|
||||
} /* end create_file() */
|
||||
|
||||
|
||||
/*-------------------------------------------------------------------------
|
||||
* Function: extend_file
|
||||
* Function: add_dset_to_file
|
||||
*
|
||||
* Purpose: Add a small dataset to the file.
|
||||
* Purpose: Add a dataset to the file.
|
||||
*
|
||||
* Return: Success: 0
|
||||
*
|
||||
* Failure: 1
|
||||
* Return: SUCCEED/FAIL
|
||||
*
|
||||
* Programmer: Leon Arber
|
||||
* Oct. 4, 2006
|
||||
*
|
||||
* Modifications:
|
||||
*
|
||||
*-------------------------------------------------------------------------
|
||||
*/
|
||||
static hid_t
|
||||
extend_file(hid_t file)
|
||||
static herr_t
|
||||
add_dset_to_file(hid_t fid, const char *dset_name)
|
||||
{
|
||||
hid_t dcpl, space, dset;
|
||||
hsize_t ds_size[2] = {100, 100};
|
||||
hsize_t ch_size[2] = {5, 5};
|
||||
size_t i, j;
|
||||
hid_t dcpl_id = -1; /* dataset creation plist ID */
|
||||
hid_t sid = -1; /* dataspace ID */
|
||||
hid_t did = -1; /* dataset ID */
|
||||
int *data = NULL; /* data buffer */
|
||||
hsize_t dims[1] = {NELEMENTS}; /* size of dataset */
|
||||
hsize_t chunk_dims[1] = {CHUNK_SIZE}; /* chunk size */
|
||||
int i; /* iterator */
|
||||
|
||||
/* Create a chunked dataset */
|
||||
if((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) goto error;
|
||||
if(H5Pset_chunk(dcpl, 2, ch_size) < 0) goto error;
|
||||
if((space = H5Screate_simple(2, ds_size, NULL)) < 0) goto error;
|
||||
if((dset = H5Dcreate2(file, "dset2", H5T_NATIVE_FLOAT, space, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
|
||||
goto error;
|
||||
if((dcpl_id = H5Pcreate(H5P_DATASET_CREATE)) < 0)
|
||||
STACK_ERROR
|
||||
if(H5Pset_chunk(dcpl_id, NDIMS, chunk_dims) < 0)
|
||||
STACK_ERROR
|
||||
if((sid = H5Screate_simple(NDIMS, dims, NULL)) < 0)
|
||||
STACK_ERROR
|
||||
if((did = H5Dcreate2(fid, dset_name, H5T_NATIVE_FLOAT, sid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
|
||||
STACK_ERROR
|
||||
|
||||
/* Write some data */
|
||||
for(i = 0; i < ds_size[0]; i++)
|
||||
for(j = 0; j < (size_t)ds_size[1]; j++)
|
||||
the_data[i][j] = (double)i / (double)(j + 1);
|
||||
if(H5Dwrite(dset, H5T_NATIVE_DOUBLE, space, space, H5P_DEFAULT, the_data) < 0) goto error;
|
||||
if(NULL == (data = (int *)HDcalloc((size_t)NELEMENTS, sizeof(int))))
|
||||
STACK_ERROR
|
||||
for(i = 0; i < NELEMENTS; i++)
|
||||
data[i] = i;
|
||||
if(H5Dwrite(did, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, data) < 0)
|
||||
STACK_ERROR
|
||||
|
||||
return file;
|
||||
if(H5Pclose(dcpl_id) < 0)
|
||||
STACK_ERROR
|
||||
if(H5Sclose(sid) < 0)
|
||||
STACK_ERROR
|
||||
if(H5Dclose(did) < 0)
|
||||
STACK_ERROR
|
||||
|
||||
HDfree(data);
|
||||
|
||||
return SUCCEED;
|
||||
|
||||
error:
|
||||
HD_exit(EXIT_FAILURE);
|
||||
}
|
||||
H5E_BEGIN_TRY {
|
||||
H5Pclose(dcpl_id);
|
||||
H5Sclose(sid);
|
||||
H5Dclose(did);
|
||||
} H5E_END_TRY;
|
||||
|
||||
HDfree(data);
|
||||
|
||||
return FAIL;
|
||||
} /* end add_dset_to_file() */
|
||||
|
||||
|
||||
/*-------------------------------------------------------------------------
|
||||
* Function: main
|
||||
*
|
||||
* Purpose: Part 1 of a two-part H5Fflush() test.
|
||||
* Purpose: Creates files and datasets with and without flushing in
|
||||
* a variety of situations.
|
||||
*
|
||||
* Return: Success: 0
|
||||
*
|
||||
* Failure: 1
|
||||
* Part 1 of a two-part H5Fflush() test.
|
||||
*
|
||||
* Return: EXIT_SUCCESS/EXIT_FAILURE
|
||||
*
|
||||
* Programmer: Robb Matzke
|
||||
* Friday, October 23, 1998
|
||||
*
|
||||
* Modifications:
|
||||
* Leon Arber
|
||||
* Sept. 26, 2006, expand test to check for failure if H5Fflush is not called.
|
||||
* Oct. 4 2006, expand test to check for partial failure in case file is flushed, but then
|
||||
* new datasets are created after the flush.
|
||||
*
|
||||
*
|
||||
*-------------------------------------------------------------------------
|
||||
*/
|
||||
int
|
||||
main(void)
|
||||
{
|
||||
hid_t file, fapl;
|
||||
char name[1024];
|
||||
unsigned swmr;
|
||||
char *driver = NULL; /* name of current VFD (from env var) */
|
||||
hbool_t vfd_supports_swmr; /* whether the current VFD supports SWMR */
|
||||
hid_t fid = -1; /* file ID */
|
||||
hid_t fapl_id = -1; /* file access proplist ID */
|
||||
char filename[1024]; /* filename */
|
||||
hbool_t use_swmr; /* whether or not to use SWMR I/O */
|
||||
|
||||
h5_reset();
|
||||
fapl = h5_fileaccess();
|
||||
if((fapl_id = h5_fileaccess()) < 0)
|
||||
TEST_ERROR
|
||||
|
||||
TESTING("H5Fflush (part1)");
|
||||
/* Check if the current VFD supports SWMR */
|
||||
driver = HDgetenv("HDF5_DRIVER");
|
||||
vfd_supports_swmr = H5FD_supports_swmr_test(driver);
|
||||
|
||||
/* Loop over SWMR & non-SWMR opens for the file */
|
||||
for(swmr = 0; swmr <= 1; swmr++) {
|
||||
/* Create the file */
|
||||
h5_fixname(FILENAME[0 + swmr], fapl, name, sizeof name);
|
||||
file = create_file(name, fapl, swmr);
|
||||
/* Flush and exit without closing the library */
|
||||
if (H5Fflush(file, H5F_SCOPE_GLOBAL) < 0) goto error;
|
||||
|
||||
/* Create the other file which will not be flushed */
|
||||
h5_fixname(FILENAME[2 + swmr], fapl, name, sizeof name);
|
||||
file = create_file(name, fapl, swmr);
|
||||
|
||||
/* Create the file */
|
||||
h5_fixname(FILENAME[4 + swmr], fapl, name, sizeof name);
|
||||
file = create_file(name, fapl, swmr);
|
||||
/* Flush and exit without closing the library */
|
||||
if(H5Fflush(file, H5F_SCOPE_GLOBAL) < 0) goto error;
|
||||
/* Add a bit to the file and don't flush the new part */
|
||||
extend_file(file);
|
||||
/* Flush and exit without closing the library */
|
||||
if (H5Fflush(file, H5F_SCOPE_GLOBAL) < 0) goto error;
|
||||
|
||||
/* Create the file */
|
||||
h5_fixname(FILENAME[6 + swmr], fapl, name, sizeof name);
|
||||
file = create_file(name, fapl, swmr);
|
||||
/* Flush and exit without closing the library */
|
||||
if(H5Fflush(file, H5F_SCOPE_GLOBAL) < 0) goto error;
|
||||
/* Add a bit to the file and don't flush the new part */
|
||||
extend_file(file);
|
||||
} /* end for */
|
||||
/*************************************************/
|
||||
/* NOTE: Not closing the file ID is intentional! */
|
||||
/*************************************************/
|
||||
|
||||
/* Create a file and flush */
|
||||
TESTING("H5Fflush (part1 with flush)");
|
||||
h5_fixname(FILENAME[0], fapl_id, filename, sizeof(filename));
|
||||
use_swmr = FALSE;
|
||||
if((fid = create_file(filename, fapl_id, use_swmr)) < 0)
|
||||
TEST_ERROR
|
||||
if(H5Fflush(fid, H5F_SCOPE_GLOBAL) < 0)
|
||||
FAIL_STACK_ERROR
|
||||
PASSED();
|
||||
fflush(stdout);
|
||||
fflush(stderr);
|
||||
|
||||
/* Create a file and flush w/ SWMR I/O */
|
||||
TESTING("H5Fflush (part1 with flush + SWMR)");
|
||||
if(vfd_supports_swmr) {
|
||||
h5_fixname(FILENAME[1], fapl_id, filename, sizeof(filename));
|
||||
use_swmr = TRUE;
|
||||
if((fid = create_file(filename, fapl_id, use_swmr)) < 0)
|
||||
TEST_ERROR
|
||||
if(H5Fflush(fid, H5F_SCOPE_GLOBAL) < 0)
|
||||
FAIL_STACK_ERROR
|
||||
PASSED();
|
||||
} /* end if */
|
||||
else
|
||||
SKIPPED();
|
||||
|
||||
/* Create a file which will not be flushed */
|
||||
TESTING("H5Fflush (part1 without flush)");
|
||||
h5_fixname(FILENAME[2], fapl_id, filename, sizeof(filename));
|
||||
use_swmr = FALSE;
|
||||
if((fid = create_file(filename, fapl_id, use_swmr)) < 0)
|
||||
TEST_ERROR
|
||||
PASSED();
|
||||
|
||||
/* Create a file which will not be flushed w/ SWMR I/O */
|
||||
TESTING("H5Fflush (part1 without flush + SWMR)");
|
||||
if(vfd_supports_swmr) {
|
||||
h5_fixname(FILENAME[3], fapl_id, filename, sizeof(filename));
|
||||
use_swmr = TRUE;
|
||||
if((fid = create_file(filename, fapl_id, use_swmr)) < 0)
|
||||
TEST_ERROR
|
||||
PASSED();
|
||||
} /* end if */
|
||||
else
|
||||
SKIPPED();
|
||||
|
||||
/* Create a file, flush, add a dataset, flush */
|
||||
TESTING("H5Fflush (part1 with flush and later addition and another flush)");
|
||||
h5_fixname(FILENAME[4], fapl_id, filename, sizeof(filename));
|
||||
use_swmr = FALSE;
|
||||
if((fid = create_file(filename, fapl_id, use_swmr)) < 0)
|
||||
TEST_ERROR
|
||||
if(H5Fflush(fid, H5F_SCOPE_GLOBAL) < 0)
|
||||
FAIL_STACK_ERROR
|
||||
if(add_dset_to_file(fid, SECOND_DSET_NAME) < 0)
|
||||
TEST_ERROR
|
||||
if(H5Fflush(fid, H5F_SCOPE_GLOBAL) < 0)
|
||||
FAIL_STACK_ERROR
|
||||
PASSED();
|
||||
|
||||
/* Create a file, flush, add a dataset, flush w/ SWMR I/O */
|
||||
TESTING("H5Fflush (part1 with flush and later addition and another flush + SWMR)");
|
||||
if(vfd_supports_swmr) {
|
||||
h5_fixname(FILENAME[5], fapl_id, filename, sizeof(filename));
|
||||
use_swmr = TRUE;
|
||||
if((fid = create_file(filename, fapl_id, use_swmr)) < 0)
|
||||
TEST_ERROR
|
||||
if(H5Fflush(fid, H5F_SCOPE_GLOBAL) < 0)
|
||||
FAIL_STACK_ERROR
|
||||
if(add_dset_to_file(fid, SECOND_DSET_NAME) < 0)
|
||||
TEST_ERROR
|
||||
if(H5Fflush(fid, H5F_SCOPE_GLOBAL) < 0)
|
||||
FAIL_STACK_ERROR
|
||||
PASSED();
|
||||
} /* end if */
|
||||
else
|
||||
SKIPPED();
|
||||
|
||||
/* Create a file, flush, add a dataset, (no flush) */
|
||||
TESTING("H5Fflush (part1 with flush and later addition)");
|
||||
h5_fixname(FILENAME[6], fapl_id, filename, sizeof(filename));
|
||||
use_swmr = FALSE;
|
||||
if((fid = create_file(filename, fapl_id, use_swmr)) < 0)
|
||||
TEST_ERROR
|
||||
if(H5Fflush(fid, H5F_SCOPE_GLOBAL) < 0)
|
||||
FAIL_STACK_ERROR
|
||||
if(add_dset_to_file(fid, SECOND_DSET_NAME) < 0)
|
||||
TEST_ERROR
|
||||
PASSED();
|
||||
|
||||
/* Create a file, flush, add a dataset, (no flush) w/ SWMR I/O */
|
||||
TESTING("H5Fflush (part1 with flush and later addition + SWMR)");
|
||||
if(vfd_supports_swmr) {
|
||||
h5_fixname(FILENAME[7], fapl_id, filename, sizeof(filename));
|
||||
use_swmr = TRUE;
|
||||
if((fid = create_file(filename, fapl_id, use_swmr)) < 0)
|
||||
TEST_ERROR
|
||||
if(H5Fflush(fid, H5F_SCOPE_GLOBAL) < 0)
|
||||
FAIL_STACK_ERROR
|
||||
if(add_dset_to_file(fid, SECOND_DSET_NAME) < 0)
|
||||
TEST_ERROR
|
||||
PASSED();
|
||||
} /* end if */
|
||||
else
|
||||
SKIPPED();
|
||||
|
||||
if(!vfd_supports_swmr)
|
||||
HDprintf("NOTE: Some tests were skipped since the current VFD lacks SWMR support\n");
|
||||
|
||||
/* Flush console output streams */
|
||||
HDfflush(stdout);
|
||||
HDfflush(stderr);
|
||||
|
||||
/* DO NOT CLOSE FILE ID! */
|
||||
if(H5Pclose(fapl_id) < 0)
|
||||
STACK_ERROR
|
||||
|
||||
/* _exit() is necessary since we want a hard close of the library */
|
||||
HD_exit(EXIT_SUCCESS);
|
||||
|
||||
error:
|
||||
HD_exit(EXIT_FAILURE);
|
||||
return 1;
|
||||
}
|
||||
H5E_BEGIN_TRY {
|
||||
H5Pclose(fapl_id);
|
||||
} H5E_END_TRY;
|
||||
|
||||
HDexit(EXIT_FAILURE);
|
||||
} /* end main() */
|
||||
|
||||
|
533
test/flush2.c
533
test/flush2.c
@ -24,6 +24,11 @@
|
||||
*/
|
||||
#include "h5test.h"
|
||||
|
||||
/* This file needs to access the file driver testing code */
|
||||
#define H5FD_FRIEND /*suppress error about including H5FDpkg */
|
||||
#define H5FD_TESTING
|
||||
#include "H5FDpkg.h" /* File drivers */
|
||||
|
||||
/* Make this private property (defined in H5Fprivate.h) available */
|
||||
/* This is used in the helper routine clear_status_flags() */
|
||||
#define H5F_ACS_CLEAR_STATUS_FLAGS_NAME "clear_status_flags"
|
||||
@ -41,354 +46,398 @@ const char *FILENAME[] = {
|
||||
NULL
|
||||
};
|
||||
|
||||
static double the_data[100][100];
|
||||
/* Number and size of dataset dims, chunk size, etc. */
|
||||
#define NELEMENTS 10000
|
||||
#define FIRST_DSET_NAME "dset1"
|
||||
#define SECOND_DSET_NAME "dset2"
|
||||
|
||||
/* Number of sub-groups created in the containing group */
|
||||
#define NGROUPS 100
|
||||
|
||||
static hbool_t dset_ok(hid_t fid, const char *dset_name);
|
||||
static hbool_t file_ok(const char *filename, hid_t fapl_id, hbool_t check_second_dset);
|
||||
|
||||
|
||||
/*-------------------------------------------------------------------------
|
||||
* Function: check_dset
|
||||
* Function: dset_ok
|
||||
*
|
||||
* Purpose: Part 2 of a two-part H5Fflush() test, checks if the data in a dataset
|
||||
* is what it is supposed to be.
|
||||
* Purpose: Checks if the data in a dataset is what it is supposed to be.
|
||||
*
|
||||
* Return: Success: 0
|
||||
*
|
||||
* Failure: 1
|
||||
* Return: TRUE/FALSE
|
||||
*
|
||||
* Programmer: Leon Arber
|
||||
* Oct. 4, 2006.
|
||||
*
|
||||
*-------------------------------------------------------------------------
|
||||
*/
|
||||
static int
|
||||
check_dset(hid_t file, const char* name)
|
||||
static hbool_t
|
||||
dset_ok(hid_t fid, const char *dset_name)
|
||||
{
|
||||
hid_t space, dset;
|
||||
hsize_t ds_size[2] = {100, 100};
|
||||
double error;
|
||||
size_t i, j;
|
||||
hid_t sid = -1; /* dataspace ID */
|
||||
hid_t did = -1; /* dataset ID */
|
||||
int *data = NULL; /* data buffer */
|
||||
hsize_t dims[1] = {0}; /* size of dataset */
|
||||
int i; /* iterator */
|
||||
|
||||
/* Open the dataset */
|
||||
if((dset = H5Dopen2(file, name, H5P_DEFAULT)) < 0) goto error;
|
||||
if((space = H5Dget_space(dset)) < 0) goto error;
|
||||
if(H5Sget_simple_extent_dims(space, ds_size, NULL) < 0) goto error;
|
||||
assert(100 == ds_size[0] && 100 == ds_size[1]);
|
||||
/* Open the dataset and check size */
|
||||
if((did = H5Dopen2(fid, dset_name, H5P_DEFAULT)) < 0)
|
||||
goto error;
|
||||
if((sid = H5Dget_space(did)) < 0)
|
||||
goto error;
|
||||
if(H5Sget_simple_extent_dims(sid, dims, NULL) < 0)
|
||||
goto error;
|
||||
if(dims[0] != NELEMENTS)
|
||||
goto error;
|
||||
|
||||
/* Read some data */
|
||||
if(H5Dread(dset, H5T_NATIVE_DOUBLE, space, space, H5P_DEFAULT, the_data) < 0) goto error;
|
||||
for(i = 0; i < (size_t)ds_size[0]; i++)
|
||||
for(j = 0; j < (size_t)ds_size[1]; j++) {
|
||||
error = HDfabs(the_data[i][j] - (double)i / (double)(j + 1));
|
||||
if(error > (double)0.0001F) {
|
||||
H5_FAILED();
|
||||
printf(" dset[%lu][%lu] = %g\n",
|
||||
(unsigned long)i, (unsigned long)j, the_data[i][j]);
|
||||
printf(" should be %g\n", (double)i / (double)(j + 1));
|
||||
goto error;
|
||||
}
|
||||
}
|
||||
if(H5Dclose(dset) < 0) goto error;
|
||||
return 0;
|
||||
/* Read the data */
|
||||
if(NULL == (data = (int *)HDcalloc((size_t)NELEMENTS, sizeof(int))))
|
||||
goto error;
|
||||
if(H5Dread(did, H5T_NATIVE_INT, sid, sid, H5P_DEFAULT, data) < 0)
|
||||
goto error;
|
||||
for(i = 0; i < NELEMENTS; i++)
|
||||
if(i != data[i])
|
||||
goto error;
|
||||
|
||||
if(H5Sclose(sid) < 0)
|
||||
goto error;
|
||||
if(H5Dclose(did) < 0)
|
||||
goto error;
|
||||
|
||||
HDfree(data);
|
||||
|
||||
return TRUE;
|
||||
|
||||
error:
|
||||
return 1;
|
||||
}
|
||||
H5E_BEGIN_TRY {
|
||||
H5Sclose(sid);
|
||||
H5Dclose(did);
|
||||
} H5E_END_TRY;
|
||||
|
||||
HDfree(data);
|
||||
|
||||
return FALSE;
|
||||
} /* end dset_ok() */
|
||||
|
||||
|
||||
/*-------------------------------------------------------------------------
|
||||
* Function: check_file
|
||||
* Function: file_ok
|
||||
*
|
||||
* Purpose: Part 2 of a two-part H5Fflush() test.
|
||||
* Purpose: Checks that the contents of a file are what they should be.
|
||||
*
|
||||
* Return: Success: 0
|
||||
*
|
||||
* Failure: 1
|
||||
* Return: TRUE/FALSE
|
||||
*
|
||||
* Programmer: Leon Arber
|
||||
* Sept. 26, 2006.
|
||||
*
|
||||
*-------------------------------------------------------------------------
|
||||
*/
|
||||
static int
|
||||
check_file(char* filename, hid_t fapl, int flag)
|
||||
static hbool_t
|
||||
file_ok(const char *filename, hid_t fapl_id, hbool_t check_second_dset)
|
||||
{
|
||||
hid_t file = -1, groups = -1;
|
||||
char name[1024];
|
||||
int i;
|
||||
hid_t fid = -1; /* file ID */
|
||||
hid_t top_gid = -1; /* containing group ID */
|
||||
hid_t gid = -1; /* subgroup ID */
|
||||
char group_name[16]; /* group name */
|
||||
int i; /* iterator */
|
||||
|
||||
if((file = H5Fopen(filename, H5F_ACC_RDONLY, fapl)) < 0) goto error;
|
||||
if(check_dset(file, "dset")) goto error;
|
||||
/* open file */
|
||||
if((fid = H5Fopen(filename, H5F_ACC_RDONLY, fapl_id)) < 0)
|
||||
goto error;
|
||||
|
||||
/* Open some groups */
|
||||
if((groups = H5Gopen2(file, "some_groups", H5P_DEFAULT)) < 0) goto error;
|
||||
for(i = 0; i < 100; i++) {
|
||||
hid_t grp;
|
||||
sprintf(name, "grp%02u", (unsigned)i);
|
||||
if((grp = H5Gopen2(groups, name, H5P_DEFAULT)) < 0) goto error;
|
||||
if(H5Gclose(grp) < 0) goto error;
|
||||
/* check datasets */
|
||||
if(!dset_ok(fid, FIRST_DSET_NAME))
|
||||
goto error;
|
||||
if(check_second_dset)
|
||||
if(!dset_ok(fid, SECOND_DSET_NAME))
|
||||
goto error;
|
||||
|
||||
/* check groups */
|
||||
if((top_gid = H5Gopen2(fid, "top_group", H5P_DEFAULT)) < 0)
|
||||
goto error;
|
||||
for(i = 0; i < NGROUPS; i++) {
|
||||
HDsprintf(group_name, "group%02d", i);
|
||||
if((gid = H5Gopen2(top_gid, group_name, H5P_DEFAULT)) < 0)
|
||||
goto error;
|
||||
if(H5Gclose(gid) < 0)
|
||||
goto error;
|
||||
} /* end for */
|
||||
|
||||
/* Check to see if that last added dataset in the third file is accessible
|
||||
* (it shouldn't be...but it might. Flag an error in case it is for now */
|
||||
if(flag && check_dset(file, "dset2")) goto error;
|
||||
if(H5Gclose(top_gid) < 0)
|
||||
goto error;
|
||||
if(H5Fclose(fid) < 0)
|
||||
goto error;
|
||||
|
||||
if(H5Gclose(groups) < 0) goto error;
|
||||
if(H5Fclose(file) < 0) goto error;
|
||||
|
||||
return 0;
|
||||
return TRUE;
|
||||
|
||||
error:
|
||||
H5E_BEGIN_TRY {
|
||||
H5Gclose(groups);
|
||||
H5Fclose(file);
|
||||
H5Gclose(top_gid);
|
||||
H5Gclose(gid);
|
||||
H5Fclose(fid);
|
||||
} H5E_END_TRY;
|
||||
|
||||
return 1;
|
||||
} /* end check_file() */
|
||||
return FALSE;
|
||||
} /* end file_ok() */
|
||||
|
||||
/*-------------------------------------------------------------------------
|
||||
* Function: clear_status_flags
|
||||
* Function: clear_status_flags
|
||||
*
|
||||
* Purpose: To clear the status_flags in the superblock of the file.
|
||||
* It is smilar to the tool "h5clear".
|
||||
* Purpose: Clears the status_flags in the superblock of the file.
|
||||
* It is smilar to the tool "h5clear".
|
||||
*
|
||||
* Return: Success: 0
|
||||
* Failure: 1
|
||||
* Return: SUCCEED/FAIL
|
||||
*
|
||||
* Programmer: Vailin Choi
|
||||
* Programmer: Vailin Choi
|
||||
* July 2013
|
||||
*
|
||||
*-------------------------------------------------------------------------
|
||||
*/
|
||||
static int
|
||||
clear_status_flags(char *name, hid_t fapl)
|
||||
static herr_t
|
||||
clear_status_flags(const char *filename, hid_t fapl_id)
|
||||
{
|
||||
hid_t new_fapl = -1;
|
||||
hid_t fid = -1;
|
||||
hid_t new_fapl_id = -1; /* copy of the file access plist ID */
|
||||
hid_t fid = -1; /* file ID */
|
||||
hbool_t clear = TRUE;
|
||||
|
||||
/* Get a copy of fapl */
|
||||
if((new_fapl = H5Pcopy(fapl)) < 0)
|
||||
FAIL_STACK_ERROR;
|
||||
if((new_fapl_id = H5Pcopy(fapl_id)) < 0)
|
||||
goto error;
|
||||
|
||||
/* Set this private property */
|
||||
if(H5Pset(new_fapl, H5F_ACS_CLEAR_STATUS_FLAGS_NAME, &clear) < 0)
|
||||
FAIL_STACK_ERROR;
|
||||
if(H5Pset(new_fapl_id, H5F_ACS_CLEAR_STATUS_FLAGS_NAME, &clear) < 0)
|
||||
goto error;
|
||||
|
||||
/* Has to open rw */
|
||||
if((fid = H5Fopen(name, H5F_ACC_RDWR, new_fapl)) < 0)
|
||||
FAIL_STACK_ERROR;
|
||||
if((fid = H5Fopen(filename, H5F_ACC_RDWR, new_fapl_id)) < 0)
|
||||
goto error;
|
||||
|
||||
/* CLose the property list */
|
||||
if(H5Pclose(new_fapl_id) < 0)
|
||||
goto error;
|
||||
|
||||
/* Close the file */
|
||||
if(H5Fclose(fid) < 0)
|
||||
FAIL_STACK_ERROR;
|
||||
goto error;
|
||||
|
||||
/* CLose the property list */
|
||||
if(H5Pclose(new_fapl) < 0)
|
||||
FAIL_STACK_ERROR;
|
||||
|
||||
return 0;
|
||||
return SUCCEED;
|
||||
|
||||
error:
|
||||
return 1;
|
||||
} /* clear_status_flags() */
|
||||
H5E_BEGIN_TRY {
|
||||
H5Pclose(new_fapl_id);
|
||||
H5Fclose(fid);
|
||||
} H5E_END_TRY;
|
||||
|
||||
return FAIL;
|
||||
} /* end clear_status_flags() */
|
||||
|
||||
|
||||
/*-------------------------------------------------------------------------
|
||||
* Function: main
|
||||
*
|
||||
* Purpose: Part 2 of a two-part H5Fflush() test.
|
||||
* Purpose: Confirms file contents in a variety of flush scenarios.
|
||||
* Part 2 of a two-part H5Fflush() test.
|
||||
*
|
||||
* Return: Success: 0
|
||||
*
|
||||
* Failure: 1
|
||||
* Return: EXIT_SUCCESS/EXIT_FAILURE
|
||||
*
|
||||
* Programmer: Robb Matzke
|
||||
* Friday, October 23, 1998
|
||||
*
|
||||
* Modifications:
|
||||
* Leon Arber
|
||||
* Sept. 26, 2006, expand to check for case where the was file not flushed.
|
||||
*
|
||||
*-------------------------------------------------------------------------
|
||||
*/
|
||||
int
|
||||
main(void)
|
||||
{
|
||||
hid_t fapl;
|
||||
H5E_auto2_t func;
|
||||
char name[1024];
|
||||
char *driver = NULL; /* name of current VFD (from env var) */
|
||||
hbool_t vfd_supports_swmr; /* whether the current VFD supports SWMR */
|
||||
hid_t fapl_id = -1; /* file access proplist ID */
|
||||
char filename[1024]; /* filename */
|
||||
hbool_t check_second_dset; /* whether or not to check the second dset */
|
||||
H5E_auto2_t func; /* for shutting off error reporting */
|
||||
|
||||
h5_reset();
|
||||
fapl = h5_fileaccess();
|
||||
TESTING("H5Fflush (part2 with flush)");
|
||||
if((fapl_id = h5_fileaccess()) < 0)
|
||||
PUTS_ERROR("bad vfd-dependent fapl")
|
||||
|
||||
/* Check if the current VFD supports SWMR */
|
||||
driver = HDgetenv("HDF5_DRIVER");
|
||||
vfd_supports_swmr = H5FD_supports_swmr_test(driver);
|
||||
|
||||
/* TEST 1 */
|
||||
/* Check the case where the file was flushed */
|
||||
h5_fixname(FILENAME[0], fapl, name, sizeof name);
|
||||
|
||||
if(check_file(name, fapl, FALSE)) {
|
||||
H5_FAILED()
|
||||
goto error;
|
||||
}
|
||||
TESTING("H5Fflush (part2 with flush)");
|
||||
h5_fixname(FILENAME[0], fapl_id, filename, sizeof(filename));
|
||||
check_second_dset = FALSE;
|
||||
if(file_ok(filename, fapl_id, check_second_dset))
|
||||
PASSED()
|
||||
else
|
||||
PASSED();
|
||||
|
||||
TEST_ERROR
|
||||
|
||||
/* TEST 2 */
|
||||
/* Check the case where the file was flushed (w/SWMR) */
|
||||
TESTING("H5Fflush (part2 with flush + SWMR)");
|
||||
|
||||
/* Check the case where the file was flushed w/SWMR */
|
||||
h5_fixname(FILENAME[1], fapl, name, sizeof name);
|
||||
|
||||
/* Clear the status_flags of the file which is flushed and exited in flush1.c */
|
||||
if(clear_status_flags(name, fapl) < 0) {
|
||||
H5_FAILED()
|
||||
goto error;
|
||||
}
|
||||
|
||||
if(check_file(name, fapl, FALSE)) {
|
||||
H5_FAILED()
|
||||
goto error;
|
||||
}
|
||||
if(vfd_supports_swmr) {
|
||||
h5_fixname(FILENAME[1], fapl_id, filename, sizeof(filename));
|
||||
check_second_dset = FALSE;
|
||||
if(clear_status_flags(filename, fapl_id) < 0)
|
||||
TEST_ERROR
|
||||
if(file_ok(filename, fapl_id, check_second_dset))
|
||||
PASSED()
|
||||
else
|
||||
TEST_ERROR
|
||||
} /* end if */
|
||||
else
|
||||
PASSED();
|
||||
SKIPPED()
|
||||
|
||||
|
||||
/* Check the case where the file was not flushed. This should give an error
|
||||
* so we turn off the error stack temporarily */
|
||||
/* TEST 3 */
|
||||
/* Check the case where the file was not flushed */
|
||||
TESTING("H5Fflush (part2 without flush)");
|
||||
H5Eget_auto2(H5E_DEFAULT,&func,NULL);
|
||||
H5Eset_auto2(H5E_DEFAULT, NULL, NULL);
|
||||
|
||||
h5_fixname(FILENAME[2], fapl, name, sizeof name);
|
||||
/* No need to clear the status_flags because this file is not flushed in flush1.c */
|
||||
/* H5Fopen() in check_file() will just return error */
|
||||
if(check_file(name, fapl, FALSE))
|
||||
PASSED()
|
||||
else {
|
||||
/* Turn the error stack off (failures expected) */
|
||||
if(H5Eget_auto2(H5E_DEFAULT, &func, NULL) < 0)
|
||||
FAIL_STACK_ERROR
|
||||
if(H5Eset_auto2(H5E_DEFAULT, NULL, NULL) < 0)
|
||||
FAIL_STACK_ERROR
|
||||
h5_fixname(FILENAME[2], fapl_id, filename, sizeof(filename));
|
||||
check_second_dset = FALSE;
|
||||
if(file_ok(filename, fapl_id, check_second_dset)) {
|
||||
#if defined H5_HAVE_WIN32_API && !defined (hdf5_EXPORTS)
|
||||
SKIPPED();
|
||||
puts(" DLL will flush the file even when calling _exit, skip this test temporarily");
|
||||
HDputs(" the DLL will flush the file even when calling _exit, skip this test temporarily");
|
||||
#else
|
||||
H5_FAILED()
|
||||
goto error;
|
||||
TEST_ERROR
|
||||
#endif
|
||||
}
|
||||
H5Eset_auto2(H5E_DEFAULT, func, NULL);
|
||||
|
||||
/* Check the case where the file was not flushed. This should give an error
|
||||
* so we turn off the error stack temporarily */
|
||||
TESTING("H5Fflush (part2 without flush + SWMR)");
|
||||
H5Eget_auto2(H5E_DEFAULT,&func,NULL);
|
||||
H5Eset_auto2(H5E_DEFAULT, NULL, NULL);
|
||||
|
||||
h5_fixname(FILENAME[3], fapl, name, sizeof name);
|
||||
/* No need to clear the status_flags because this file is not flushed in flush1.c */
|
||||
/* H5Fopen() in check_file() will just return error */
|
||||
if(check_file(name, fapl, FALSE))
|
||||
PASSED()
|
||||
else {
|
||||
#if defined H5_HAVE_WIN32_API && !defined (hdf5_EXPORTS)
|
||||
SKIPPED();
|
||||
puts(" DLL will flush the file even when calling _exit, skip this test temporarily");
|
||||
#else
|
||||
H5_FAILED()
|
||||
goto error;
|
||||
#endif
|
||||
}
|
||||
H5Eset_auto2(H5E_DEFAULT, func, NULL);
|
||||
|
||||
/* Check the case where the file was flushed, but more data was added afterward. This should give an error
|
||||
* so we turn off the error stack temporarily */
|
||||
TESTING("H5Fflush (part2 with flush and later addition and another flush)");
|
||||
H5Eget_auto2(H5E_DEFAULT,&func,NULL);
|
||||
H5Eset_auto2(H5E_DEFAULT, NULL, NULL);
|
||||
|
||||
h5_fixname(FILENAME[4], fapl, name, sizeof name);
|
||||
|
||||
/* Clear the status_flags of the file which is flushed and exited in flush1.c */
|
||||
if(clear_status_flags(name, fapl) < 0) {
|
||||
H5_FAILED()
|
||||
goto error;
|
||||
}
|
||||
|
||||
if(check_file(name, fapl, TRUE)) {
|
||||
H5_FAILED()
|
||||
goto error;
|
||||
}
|
||||
} /* end if */
|
||||
else
|
||||
PASSED();
|
||||
PASSED()
|
||||
/* Turn the error stack back on */
|
||||
if(H5Eset_auto2(H5E_DEFAULT, func, NULL) < 0)
|
||||
FAIL_STACK_ERROR
|
||||
|
||||
H5Eset_auto2(H5E_DEFAULT, func, NULL);
|
||||
/* TEST 4 */
|
||||
/* Check the case where the file was not flushed (w/SWMR) */
|
||||
TESTING("H5Fflush (part2 without flush + SWMR)");
|
||||
if(vfd_supports_swmr) {
|
||||
/* Turn the error stack off (failures expected) */
|
||||
if(H5Eget_auto2(H5E_DEFAULT, &func, NULL) < 0)
|
||||
FAIL_STACK_ERROR
|
||||
if(H5Eset_auto2(H5E_DEFAULT, NULL, NULL) < 0)
|
||||
FAIL_STACK_ERROR
|
||||
h5_fixname(FILENAME[3], fapl_id, filename, sizeof(filename));
|
||||
check_second_dset = FALSE;
|
||||
if(clear_status_flags(filename, fapl_id) < 0)
|
||||
TEST_ERROR
|
||||
if(file_ok(filename, fapl_id, check_second_dset)) {
|
||||
#if defined H5_HAVE_WIN32_API && !defined (hdf5_EXPORTS)
|
||||
SKIPPED();
|
||||
HDputs(" the DLL will flush the file even when calling _exit, skip this test temporarily");
|
||||
#else
|
||||
TEST_ERROR
|
||||
#endif
|
||||
} /* end if */
|
||||
else
|
||||
PASSED()
|
||||
/* Turn the error stack back on */
|
||||
if(H5Eset_auto2(H5E_DEFAULT, func, NULL) < 0)
|
||||
FAIL_STACK_ERROR
|
||||
} /* end if */
|
||||
else
|
||||
SKIPPED()
|
||||
|
||||
/* Check the case where the file was flushed, but more data was added afterward. This should give an error
|
||||
* so we turn off the error stack temporarily */
|
||||
/* TEST 5 */
|
||||
/* Check the case where the file was flushed, but more data was
|
||||
* added afterward and then flushed
|
||||
*/
|
||||
TESTING("H5Fflush (part2 with flush and later addition and another flush)");
|
||||
check_second_dset = TRUE;
|
||||
h5_fixname(FILENAME[4], fapl_id, filename, sizeof(filename));
|
||||
if(file_ok(filename, fapl_id, check_second_dset))
|
||||
PASSED()
|
||||
else
|
||||
TEST_ERROR
|
||||
|
||||
/* TEST 6 */
|
||||
/* Check the case where the file was flushed, but more data was
|
||||
* added afterward and then flushed (w/SWMR)
|
||||
*/
|
||||
TESTING("H5Fflush (part2 with flush and later addition and another flush + SWMR)");
|
||||
H5Eget_auto2(H5E_DEFAULT,&func,NULL);
|
||||
H5Eset_auto2(H5E_DEFAULT, NULL, NULL);
|
||||
if(vfd_supports_swmr) {
|
||||
check_second_dset = TRUE;
|
||||
h5_fixname(FILENAME[5], fapl_id, filename, sizeof(filename));
|
||||
if(clear_status_flags(filename, fapl_id) < 0)
|
||||
TEST_ERROR
|
||||
if(file_ok(filename, fapl_id, check_second_dset))
|
||||
PASSED()
|
||||
else
|
||||
TEST_ERROR
|
||||
} /* end if */
|
||||
else
|
||||
SKIPPED()
|
||||
|
||||
h5_fixname(FILENAME[5], fapl, name, sizeof name);
|
||||
|
||||
if(check_file(name, fapl, TRUE))
|
||||
PASSED()
|
||||
else {
|
||||
#if defined H5_HAVE_WIN32_API && !defined (hdf5_EXPORTS)
|
||||
SKIPPED();
|
||||
puts(" DLL will flush the file even when calling _exit, skip this test temporarily");
|
||||
#else
|
||||
H5_FAILED()
|
||||
goto error;
|
||||
#endif
|
||||
}
|
||||
|
||||
H5Eset_auto2(H5E_DEFAULT, func, NULL);
|
||||
|
||||
/* Check the case where the file was flushed, but more data was added afterward. This should give an error
|
||||
* so we turn off the error stack temporarily */
|
||||
/* TEST 7 */
|
||||
/* Check the case where the file was flushed, but more data was added
|
||||
* afterward and not flushed.
|
||||
*/
|
||||
TESTING("H5Fflush (part2 with flush and later addition)");
|
||||
H5Eget_auto2(H5E_DEFAULT,&func,NULL);
|
||||
H5Eset_auto2(H5E_DEFAULT, NULL, NULL);
|
||||
|
||||
h5_fixname(FILENAME[6], fapl, name, sizeof name);
|
||||
|
||||
if(check_file(name, fapl, TRUE))
|
||||
PASSED()
|
||||
else {
|
||||
/* Turn the error stack off (failures expected) */
|
||||
if(H5Eget_auto2(H5E_DEFAULT, &func, NULL) < 0)
|
||||
FAIL_STACK_ERROR
|
||||
if(H5Eset_auto2(H5E_DEFAULT, NULL, NULL) < 0)
|
||||
FAIL_STACK_ERROR
|
||||
h5_fixname(FILENAME[6], fapl_id, filename, sizeof(filename));
|
||||
check_second_dset = TRUE;
|
||||
if(file_ok(filename, fapl_id, check_second_dset)) {
|
||||
#if defined H5_HAVE_WIN32_API && !defined (hdf5_EXPORTS)
|
||||
SKIPPED();
|
||||
puts(" DLL will flush the file even when calling _exit, skip this test temporarily");
|
||||
SKIPPED()
|
||||
HDputs(" the DLL will flush the file even when calling _exit, skip this test temporarily");
|
||||
#else
|
||||
H5_FAILED()
|
||||
goto error;
|
||||
TEST_ERROR
|
||||
#endif
|
||||
}
|
||||
} /* end if */
|
||||
else
|
||||
PASSED()
|
||||
/* Turn the error stack back on */
|
||||
if(H5Eset_auto2(H5E_DEFAULT, func, NULL) < 0)
|
||||
FAIL_STACK_ERROR
|
||||
|
||||
H5Eset_auto2(H5E_DEFAULT, func, NULL);
|
||||
|
||||
/* Check the case where the file was flushed, but more data was added afterward. This should give an error
|
||||
* so we turn off the error stack temporarily */
|
||||
/* TEST 8 */
|
||||
/* Check the case where the file was flushed, but more data was added
|
||||
* afterward and not flushed (w/ SWMR).
|
||||
*/
|
||||
TESTING("H5Fflush (part2 with flush and later addition + SWMR)");
|
||||
H5Eget_auto2(H5E_DEFAULT,&func,NULL);
|
||||
H5Eset_auto2(H5E_DEFAULT, NULL, NULL);
|
||||
|
||||
h5_fixname(FILENAME[7], fapl, name, sizeof name);
|
||||
|
||||
if(check_file(name, fapl, TRUE))
|
||||
PASSED()
|
||||
else {
|
||||
if(vfd_supports_swmr) {
|
||||
/* Turn the error stack off (failures expected) */
|
||||
if(H5Eget_auto2(H5E_DEFAULT, &func, NULL) < 0)
|
||||
FAIL_STACK_ERROR
|
||||
if(H5Eset_auto2(H5E_DEFAULT, NULL, NULL) < 0)
|
||||
FAIL_STACK_ERROR
|
||||
h5_fixname(FILENAME[7], fapl_id, filename, sizeof(filename));
|
||||
check_second_dset = TRUE;
|
||||
if(clear_status_flags(filename, fapl_id) < 0)
|
||||
TEST_ERROR
|
||||
if(file_ok(filename, fapl_id, check_second_dset)) {
|
||||
#if defined H5_HAVE_WIN32_API && !defined (hdf5_EXPORTS)
|
||||
SKIPPED();
|
||||
puts(" DLL will flush the file even when calling _exit, skip this test temporarily");
|
||||
SKIPPED();
|
||||
HDputs(" the DLL will flush the file even when calling _exit, skip this test temporarily");
|
||||
#else
|
||||
H5_FAILED()
|
||||
goto error;
|
||||
TEST_ERROR
|
||||
#endif
|
||||
}
|
||||
} /* end if */
|
||||
else
|
||||
PASSED();
|
||||
/* Turn the error stack back on */
|
||||
if(H5Eset_auto2(H5E_DEFAULT, func, NULL) < 0)
|
||||
FAIL_STACK_ERROR
|
||||
} /* end if */
|
||||
else
|
||||
SKIPPED()
|
||||
|
||||
H5Eset_auto2(H5E_DEFAULT, func, NULL);
|
||||
if(!vfd_supports_swmr)
|
||||
HDprintf("NOTE: Some tests were skipped since the current VFD lacks SWMR support\n");
|
||||
|
||||
h5_cleanup(FILENAME, fapl);
|
||||
h5_cleanup(FILENAME, fapl_id);
|
||||
|
||||
return 0;
|
||||
HDexit(EXIT_SUCCESS);
|
||||
|
||||
error:
|
||||
return 1;
|
||||
}
|
||||
HDexit(EXIT_FAILURE);
|
||||
} /* end main() */
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user