/*
* Class: hdf_hdf5lib_H5
* Method: H5Oflush
* Signature: (J)V
*/
JNIEXPORT void JNICALL
Java_hdf_hdf5lib_H5_H5Oflush
(JNIEnv *env, jclass clss, jlong loc_id)
{
if (H5Oflush((hid_t)loc_id) < 0)
h5libraryError(env);
} /* end Java_hdf_hdf5lib_H5_H5Oflush */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Oflush
* Signature: (J)V
*/
JNIEXPORT void JNICALL
Java_hdf_hdf5lib_H5_H5Oflush
(JNIEnv *env, jclass clss, jlong loc_id)
{
UNUSED(clss);
if (H5Oflush((hid_t)loc_id) < 0)
H5_LIBRARY_ERROR(ENVONLY);
done:
return;
} /* end Java_hdf_hdf5lib_H5_H5Oflush */
/*-------------------------------------------------------------------------
* Function: test_refresh
*
* Purpose: This function tests refresh (evict/reload) of individual
* objects' metadata from the metadata cache.
*
* Return: 0 on Success, 1 on Failure
*
* Programmer: Mike McGreevy
* August 17, 2010
*
* Modifications:
*
*-------------------------------------------------------------------------
*/
herr_t test_refresh(void)
{
/**************************************************************************
*
* Test Description:
*
* This test will build an HDF5 file with several objects in a varying
* hierarchical layout. It will then flush the entire file to disk. Then,
* an attribute will be added to each object in the file.
*
* One by one, this process will flush each object to disk, individually.
* It will also be coordinating with another process, which will open
* the object before it is flushed by this process, and then refresh the
* object after it's been flushed, comparing the before and after object
* information to ensure that they are as expected. (i.e., most notably,
* that an attribute has been added, and is only visible after a
* successful call to a H5*refresh function).
*
* As with the flush case, the implemention is a bit tricky as it's
* dealing with signals going back and forth between the two processes
* to ensure the timing is correct, but basically, an example:
*
* Step 1. Dataset is created.
* Step 2. Dataset is flushed.
* Step 3. Attribute on Dataset is created.
* Step 4. Another process opens the dataset and verifies that it does
* not see an attribute (as the attribute hasn't been flushed yet).
* Step 5. This process flushes the dataset again (with Attribute attached).
* Step 6. The other process calls H5Drefresh, which should evict/reload
* the object's metadata, and thus pick up the attribute that's
* attached to it. Most other before/after object information is
* compared for sanity as well.
* Step 7. Rinse and Repeat for each object in the file.
*
**************************************************************************/
/**************************************************************************
* Generated Test File will look like this:
*
* GROUP "/"
* DATASET "Dataset1"
* GROUP "Group1" {
* DATASET "Dataset2"
* GROUP "Group2" {
* DATATYPE "CommittedDatatype3"
* }
* }
* GROUP "Group3" {
* DATASET "Dataset3"
* DATATYPE "CommittedDatatype2"
* }
* DATATYPE "CommittedDatatype1"
**************************************************************************/
/* Variables */
hid_t aid,fid,sid,tid1,did,dcpl,fapl = 0;
hid_t gid,gid2,gid3,tid2,tid3,did2,did3,status = 0;
hsize_t dims[2] = {50,50};
hsize_t cdims[2] = {1,1};
int fillval = 2;
/* Testing Message */
HDfprintf(stdout, "Testing individual object refresh behavior:\n");
/* Cleanup any old error or signal files */
CLEANUP_FILES;
/* ================ */
/* CREATE TEST FILE */
/* ================ */
/* Create File */
if ((fapl = H5Pcreate(H5P_FILE_ACCESS)) < 0) TEST_ERROR;
if (H5Pset_libver_bounds(fapl, H5F_LIBVER_LATEST, H5F_LIBVER_LATEST) < 0) TEST_ERROR;
if ((fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC|H5F_ACC_SWMR_WRITE, H5P_DEFAULT, fapl)) < 0) TEST_ERROR;
/* Create data space and types */
if ((dcpl = H5Pcreate(H5P_DATASET_CREATE)) < 0) TEST_ERROR;
if ( H5Pset_chunk(dcpl, 2, cdims) < 0 ) TEST_ERROR;
if ( H5Pset_fill_value(dcpl, H5T_NATIVE_INT, &fillval) < 0 ) TEST_ERROR;
if ((sid = H5Screate_simple(2, dims, dims)) < 0) TEST_ERROR;
if ((tid1 = H5Tcopy(H5T_NATIVE_INT)) < 0) TEST_ERROR;
if ((tid2 = H5Tcopy(H5T_NATIVE_CHAR)) < 0) TEST_ERROR;
if ((tid3 = H5Tcopy(H5T_NATIVE_LONG)) < 0) TEST_ERROR;
/* Create Group1 */
if ((gid = H5Gcreate2(fid, "Group1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR;
/* Create Group2 */
if ((gid2 = H5Gcreate2(gid, "Group2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR;
/* Create Group3 */
if ((gid3 = H5Gcreate2(fid, "Group3", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR;
/* Create Dataset1 */
if ((did = H5Dcreate2(fid, "Dataset1", tid1, sid, H5P_DEFAULT, dcpl, H5P_DEFAULT)) < 0) TEST_ERROR;
/* Create Dataset2 */
if ((did2 = H5Dcreate2(gid, "Dataset2", tid3, sid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR;
/* Create Dataset3 */
if ((did3 = H5Dcreate2(gid3, "Dataset3", tid2, sid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR;
/* Create CommittedDatatype1 */
if ((status = H5Tcommit2(fid, "CommittedDatatype1", tid1, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR;
/* Create CommittedDatatype2 */
if ((status = H5Tcommit2(gid2, "CommittedDatatype2", tid2, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR;
/* Create CommittedDatatype3 */
if ((status = H5Tcommit2(gid3, "CommittedDatatype3", tid3, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR;
/* Flush File to Disk */
if (H5Fflush(fid, H5F_SCOPE_GLOBAL) < 0) TEST_ERROR;
/* Create an attribute on each object. These will not immediately hit disk,
and thus be unavailable to another process until this process flushes
the object and the other process refreshes from disk. */
if ((aid = H5Acreate2(did, "Attribute", tid1, sid, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR;
if (H5Aclose(aid) < 0) TEST_ERROR;
if ((aid = H5Acreate2(did2, "Attribute", tid1, sid, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR;
if (H5Aclose(aid) < 0) TEST_ERROR;
if ((aid = H5Acreate2(did3, "Attribute", tid1, sid, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR;
if (H5Aclose(aid) < 0) TEST_ERROR;
if ((aid = H5Acreate2(gid, "Attribute", tid1, sid, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR;
if (H5Aclose(aid) < 0) TEST_ERROR;
if ((aid = H5Acreate2(gid2, "Attribute", tid1, sid, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR;
if (H5Aclose(aid) < 0) TEST_ERROR;
if ((aid = H5Acreate2(gid3, "Attribute", tid1, sid, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR;
if (H5Aclose(aid) < 0) TEST_ERROR;
if ((aid = H5Acreate2(tid1, "Attribute", tid1, sid, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR;
if (H5Aclose(aid) < 0) TEST_ERROR;
if ((aid = H5Acreate2(tid2, "Attribute", tid1, sid, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR;
if (H5Aclose(aid) < 0) TEST_ERROR;
if ((aid = H5Acreate2(tid3, "Attribute", tid1, sid, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR;
if (H5Aclose(aid) < 0) TEST_ERROR;
/* ================ */
/* Refresh Datasets */
/* ================ */
TESTING("to ensure that H5Drefresh correctly refreshes single datasets");
/* Verify First Dataset can be refreshed with H5Drefresh */
if (start_refresh_verification_process(D1) != 0) TEST_ERROR;
if (H5Oflush(did) < 0) TEST_ERROR;
if (end_refresh_verification_process() != 0) TEST_ERROR;
/* Verify Second Dataset can be refreshed with H5Drefresh */
if (start_refresh_verification_process(D2) != 0) TEST_ERROR;
if (H5Oflush(did2) < 0) TEST_ERROR;
if (end_refresh_verification_process() != 0) TEST_ERROR;
PASSED();
/* ============== */
/* Refresh Groups */
/* ============== */
TESTING("to ensure that H5Grefresh correctly refreshes single groups");
/* Verify First Group can be refreshed with H5Grefresh */
if (start_refresh_verification_process(G1) != 0) TEST_ERROR;
if (H5Oflush(gid) < 0) TEST_ERROR;
if (end_refresh_verification_process() != 0) TEST_ERROR;
/* Verify Second Group can be refreshed with H5Grefresh */
if (start_refresh_verification_process(G2) != 0) TEST_ERROR;
if (H5Oflush(gid2) < 0) TEST_ERROR;
if (end_refresh_verification_process() != 0) TEST_ERROR;
PASSED();
/* ================= */
/* Refresh Datatypes */
/* ================= */
TESTING("to ensure that H5Trefresh correctly refreshes single datatypes");
/* Verify First Committed Datatype can be refreshed with H5Trefresh */
if (start_refresh_verification_process(T1) != 0) TEST_ERROR;
if (H5Oflush(tid1) < 0) TEST_ERROR;
if (end_refresh_verification_process() != 0) TEST_ERROR;
/* Verify Second Committed Datatype can be refreshed with H5Trefresh */
if (start_refresh_verification_process(T2) != 0) TEST_ERROR;
if (H5Oflush(tid2) < 0) TEST_ERROR;
if (end_refresh_verification_process() != 0) TEST_ERROR;
PASSED();
/* =============== */
/* Refresh Objects */
/* =============== */
TESTING("to ensure that H5Orefresh correctly refreshes single objects");
/* Verify Third Dataset can be refreshed with H5Orefresh */
if (start_refresh_verification_process(D3) != 0) TEST_ERROR;
if (H5Oflush(did3) < 0) TEST_ERROR;
if (end_refresh_verification_process() != 0) TEST_ERROR;
/* Verify Third Group can be refreshed with H5Orefresh */
if (start_refresh_verification_process(G3) != 0) TEST_ERROR;
if (H5Oflush(gid3) < 0) TEST_ERROR;
if (end_refresh_verification_process() != 0) TEST_ERROR;
/* Verify Third Committed Datatype can be refreshed with H5Orefresh */
if (start_refresh_verification_process(T3) != 0) TEST_ERROR;
if (H5Oflush(tid3) < 0) TEST_ERROR;
if (end_refresh_verification_process() != 0) TEST_ERROR;
PASSED();
/* ================== */
/* Cleanup and Return */
/* ================== */
/* Close Stuff */
if (H5Pclose(fapl) < 0) TEST_ERROR;
if (H5Tclose(tid1) < 0) TEST_ERROR;
if (H5Tclose(tid2) < 0) TEST_ERROR;
if (H5Tclose(tid3) < 0) TEST_ERROR;
if (H5Dclose(did) < 0) TEST_ERROR;
if (H5Dclose(did2) < 0) TEST_ERROR;
if (H5Dclose(did3) < 0) TEST_ERROR;
if (H5Gclose(gid) < 0) TEST_ERROR;
if (H5Gclose(gid2) < 0) TEST_ERROR;
if (H5Gclose(gid3) < 0) TEST_ERROR;
if (H5Sclose(sid) < 0) TEST_ERROR;
if (H5Fclose(fid) < 0) TEST_ERROR;
/* Delete Test File */
HDremove(FILENAME);
if (end_verification() < 0) TEST_ERROR;
return SUCCEED;
error:
/* Return */
return FAIL;
} /* test_refresh() */
/*-------------------------------------------------------------------------
* Function: test_flush
*
* Purpose: This function tests flushing individual objects' metadata
* from the metadata cache.
*
* Return: 0 on Success, 1 on Failure
*
* Programmer: Mike McGreevy
* July 1, 2010
*
* Modifications:
*
*-------------------------------------------------------------------------
*/
herr_t test_flush(void)
{
/**************************************************************************
*
* Test Description:
*
* This test will build an HDF5 file with several objects in a varying
* hierarchical layout. It will then attempt to flush the objects
* in the file one by one, individually, using the four H5*flush
* routines (D,G,T, and O). After each call to either create or flush an
* object, a series of verifications will occur on each object in the file.
*
* Each verification consists of spawning off a new process and determining
* if the object can be opened and its information retreived in said
* alternate process. It reports the results, which are compared to an
* expected value (either that the object can be found on disk, or that it
* cannot).
*
* Note that to spawn a verification, this program sends a signal (by creating
* a file on disk) to the test script controlling it, indicating how to
* run the verification.
*
* Implementation is funky, but basically, an example:
*
* Step 1. Dataset is created.
* Step 2. Verify that dataset can't be opened by separate process, as
* it should not have been flushed to disk yet.
* Step 3. Group is created.
* Step 4. Verify that group can't be opened by separate process.
* Step 5. H5Gflush is called on the group.
* Step 6. Verify that group CAN be opened, but dataset still has
* yet to hit disk, and CANNOT be opened. Success! Only the group
* was flushed.
*
**************************************************************************/
/**************************************************************************
* Generated Test File will look like this:
*
* GROUP "/"
* DATASET "Dataset1"
* GROUP "Group1" {
* DATASET "Dataset2"
* GROUP "Group2" {
* DATATYPE "CommittedDatatype3"
* }
* }
* GROUP "Group3" {
* DATASET "Dataset3"
* DATATYPE "CommittedDatatype2"
* }
* DATATYPE "CommittedDatatype1"
**************************************************************************/
/* Variables */
hid_t fid,gid,gid2,gid3,sid,tid1,tid2,tid3,did,did2,did3,rid,fapl,status = 0;
hsize_t dims[2] = {3,5};
/* Testing Message */
HDfprintf(stdout, "Testing individual object flush behavior:\n");
/* Cleanup any old error or signal files */
CLEANUP_FILES;
/* ================ */
/* CREATE TEST FILE */
/* ================ */
/* Create file, open root group - have to use latest file format for SWMR */
if ((fapl = H5Pcreate(H5P_FILE_ACCESS)) < 0) TEST_ERROR;
if (H5Pset_libver_bounds(fapl, H5F_LIBVER_LATEST, H5F_LIBVER_LATEST) < 0) TEST_ERROR;
if ((fid = H5Fcreate(FILENAME, H5F_ACC_TRUNC|H5F_ACC_SWMR_WRITE, H5P_DEFAULT, fapl)) < 0) TEST_ERROR;
if ((rid = H5Gopen2(fid, "/", H5P_DEFAULT)) < 0) TEST_ERROR;
/* Create data space and types */
if ((sid = H5Screate_simple(2, dims, dims)) < 0) TEST_ERROR;
if ((tid1 = H5Tcopy(H5T_NATIVE_INT)) < 0) TEST_ERROR;
if ((tid2 = H5Tcopy(H5T_NATIVE_CHAR)) < 0) TEST_ERROR;
if ((tid3 = H5Tcopy(H5T_NATIVE_LONG)) < 0) TEST_ERROR;
/* Create Group1 */
if ((gid = H5Gcreate2(fid, "Group1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR;
/* Create Group2 */
if ((gid2 = H5Gcreate2(gid, "Group2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR;
/* Create Group3 */
if ((gid3 = H5Gcreate2(fid, "Group3", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR;
/* Create Dataset1 */
if ((did = H5Dcreate2(fid, "Dataset1", tid1, sid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR;
/* Create Dataset2 */
if ((did2 = H5Dcreate2(gid, "Dataset2", tid3, sid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR;
/* Create Dataset3 */
if ((did3 = H5Dcreate2(gid3, "Dataset3", tid2, sid, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR;
/* Create CommittedDatatype1 */
if ((status = H5Tcommit2(fid, "CommittedDatatype1", tid1, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR;
/* Create CommittedDatatype2 */
if ((status = H5Tcommit2(gid2, "CommittedDatatype2", tid2, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR;
/* Create CommittedDatatype3 */
if ((status = H5Tcommit2(gid3, "CommittedDatatype3", tid3, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) TEST_ERROR;
/* ============ */
/* FLUSH GROUPS */
/* ============ */
/* Test */
TESTING("to ensure H5Gflush correctly flushes single groups");
/* First, let's verify that nothing is currently flushed. */
if (run_flush_verification_process(RG, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G1, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G2, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G3, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D1, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D2, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D3, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T1, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T2, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T3, NOT_FLUSHED) != 0) TEST_ERROR;
/* Then, flush the root group and verify it's the only thing on disk */
if ((status = H5Gflush(rid)) < 0) TEST_ERROR;
if (run_flush_verification_process(RG, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G1, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G2, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G3, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D1, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D2, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D3, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T1, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T2, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T3, NOT_FLUSHED) != 0) TEST_ERROR;
/* Flush Group1 and Verify it is recently flushed, and nothing
* else has changed. */
if ((status = H5Gflush(gid)) < 0) TEST_ERROR;
if (run_flush_verification_process(RG, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G1, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G2, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G3, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D1, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D2, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D3, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T1, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T2, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T3, NOT_FLUSHED) != 0) TEST_ERROR;
/* Flush Group2 and Verify it is recently flushed, and nothing
* else has changed. */
if ((status = H5Gflush(gid2)) < 0) TEST_ERROR;
if (run_flush_verification_process(RG, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G1, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G2, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G3, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D1, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D2, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D3, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T1, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T2, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T3, NOT_FLUSHED) != 0) TEST_ERROR;
PASSED();
/* ============== */
/* FLUSH DATASETS */
/* ============== */
/* Test */
TESTING("to ensure H5Dflush correctly flushes single datasets");
/* Flush Dataset1 and verify it's the only thing that hits disk. */
if ((status = H5Dflush(did)) < 0) TEST_ERROR;
if (run_flush_verification_process(RG, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G1, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G2, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G3, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D1, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D2, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D3, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T1, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T2, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T3, NOT_FLUSHED) != 0) TEST_ERROR;
/* Flush Dataset2 and verify it's the only thing that hits disk. */
if ((status = H5Dflush(did2)) < 0) TEST_ERROR;
if (run_flush_verification_process(RG, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G1, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G2, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G3, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D1, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D2, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D3, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T1, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T2, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T3, NOT_FLUSHED) != 0) TEST_ERROR;
PASSED();
/* =============== */
/* FLUSH DATATYPES */
/* =============== */
/* Test */
TESTING("to ensure H5Tflush correctly flushes single datatypes");
/* Flush Datatype 1 and verify it's the only thing that hits disk. */
if ((status = H5Tflush(tid1)) < 0) TEST_ERROR;
if (run_flush_verification_process(RG, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G1, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G2, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G3, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D1, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D2, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D3, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T1, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T2, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T3, NOT_FLUSHED) != 0) TEST_ERROR;
/* Flush Datatype 2 and verify it's the only thing that hits disk. */
if ((status = H5Tflush(tid2)) < 0) TEST_ERROR;
if (run_flush_verification_process(RG, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G1, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G2, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G3, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D1, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D2, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D3, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T1, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T2, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T3, NOT_FLUSHED) != 0) TEST_ERROR;
PASSED();
/* ============= */
/* FLUSH OBJECTS */
/* ============= */
/* Test */
TESTING("to ensure H5Oflush correctly flushes single objects");
/* Flush Group3 and verify it's the only thing that hits disk. */
if ((status = H5Oflush(gid3)) < 0) TEST_ERROR;
if (run_flush_verification_process(RG, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G1, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G2, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G3, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D1, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D2, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D3, NOT_FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T1, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T2, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T3, NOT_FLUSHED) != 0) TEST_ERROR;
/* Flush Dataset3 and verify it's the only thing that hits disk. */
if ((status = H5Oflush(did3)) < 0) TEST_ERROR;
if (run_flush_verification_process(RG, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G1, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G2, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G3, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D1, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D2, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D3, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T1, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T2, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T3, NOT_FLUSHED) != 0) TEST_ERROR;
/* Flush CommittedDatatype3 and verify it's the only thing that hits disk. */
if ((status = H5Oflush(tid3)) < 0) TEST_ERROR;
if (run_flush_verification_process(RG, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G1, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G2, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(G3, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D1, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D2, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(D3, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T1, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T2, FLUSHED) != 0) TEST_ERROR;
if (run_flush_verification_process(T3, FLUSHED) != 0) TEST_ERROR;
PASSED();
/* ================== */
/* Cleanup and Return */
/* ================== */
if (H5Pclose(fapl) < 0) TEST_ERROR;
if (H5Gclose(gid) < 0) TEST_ERROR;
if (H5Gclose(gid2) < 0) TEST_ERROR;
if (H5Dclose(did) < 0) TEST_ERROR;
if (H5Dclose(did2) < 0) TEST_ERROR;
if (H5Gclose(rid) < 0) TEST_ERROR;
if (H5Fclose(fid) < 0) TEST_ERROR;
/* Delete test file */
HDremove(FILENAME);
if (end_verification() < 0) TEST_ERROR;
return SUCCEED;
error:
return FAIL;
} /* end test_flush */