/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 * 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 COPYING file, which can be found at the root of the source code       *
 * distribution tree, or in https://www.hdfgroup.org/licenses.               *
 * If you do not have access to either file, you may request a copy from     *
 * help@hdfgroup.org.                                                        *
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */

/* Programmer:  John Mainzer
 *              7/13/15
 *
 *              This file contains tests specific to the cache image
 *              feature implemented in H5C.c
 */
#include "cache_common.h"
#include "genall5.h"

/* global variable declarations: */

const char *FILENAMES[] = {"cache_image_test", NULL};

/* local utility function declarations */
static void create_datasets(hid_t file_id, int min_dset, int max_dset);
static void delete_datasets(hid_t file_id, int min_dset, int max_dset);
static void open_hdf5_file(hbool_t create_file, hbool_t mdci_sbem_expected, hbool_t read_only,
                           hbool_t set_mdci_fapl, hbool_t config_fsm, hbool_t set_eoc,
                           const char *hdf_file_name, unsigned cache_image_flags, hid_t *file_id_ptr,
                           H5F_t **file_ptr_ptr, H5C_t **cache_ptr_ptr);
static void attempt_swmr_open_hdf5_file(hbool_t create_file, hbool_t set_mdci_fapl,
                                        const char *hdf_file_name);
static void verify_datasets(hid_t file_id, int min_dset, int max_dset);

/* local test function declarations */
static unsigned check_cache_image_ctl_flow_1(hbool_t single_file_vfd);
static unsigned check_cache_image_ctl_flow_2(hbool_t single_file_vfd);
static unsigned check_cache_image_ctl_flow_3(hbool_t single_file_vfd);
static unsigned check_cache_image_ctl_flow_4(hbool_t single_file_vfd);
static unsigned check_cache_image_ctl_flow_5(hbool_t single_file_vfd);
static unsigned check_cache_image_ctl_flow_6(hbool_t single_file_vfd);

static unsigned cache_image_smoke_check_1(hbool_t single_file_vfd);
static unsigned cache_image_smoke_check_2(hbool_t single_file_vfd);
static unsigned cache_image_smoke_check_3(hbool_t single_file_vfd);
static unsigned cache_image_smoke_check_4(hbool_t single_file_vfd);
static unsigned cache_image_smoke_check_5(hbool_t single_file_vfd);
static unsigned cache_image_smoke_check_6(hbool_t single_file_vfd);

static unsigned cache_image_api_error_check_1(hbool_t single_file_vfd);
static unsigned cache_image_api_error_check_2(hbool_t single_file_vfd);
static unsigned cache_image_api_error_check_3(hbool_t single_file_vfd);
static unsigned cache_image_api_error_check_4(hbool_t single_file_vfd);

static unsigned get_free_sections_test(hbool_t single_file_vfd);
static unsigned evict_on_close_test(hbool_t single_file_vfd);

/****************************************************************************/
/***************************** Utility Functions ****************************/
/****************************************************************************/

/*-------------------------------------------------------------------------
 * Function:    create_datasets()
 *
 * Purpose:     If pass is TRUE on entry, create the specified datasets
 *        in the indicated file.
 *
 *        Datasets and their contents must be well known, as we
 *        will verify that they contain the expected data later.
 *
 *              On failure, set pass to FALSE, and set failure_mssg
 *              to point to an appropriate failure message.
 *
 *              Do nothing if pass is FALSE on entry.
 *
 * Return:      void
 *
 * Programmer:  John Mainzer
 *              7/15/15
 *
 *-------------------------------------------------------------------------
 */

#define CHUNK_SIZE    10
#define DSET_SIZE     (40 * CHUNK_SIZE)
#define MAX_NUM_DSETS 256

static void
create_datasets(hid_t file_id, int min_dset, int max_dset)
{
    const char *fcn_name = "create_datasets()";
    char        dset_name[64];
    hbool_t     show_progress = FALSE;
    hbool_t     valid_chunk;
    hbool_t     verbose = FALSE;
    int         cp      = 0;
    int         i, j, k, l, m;
    int         data_chunk[CHUNK_SIZE][CHUNK_SIZE];
    herr_t      status;
    hid_t       dataspace_id = -1;
    hid_t       filespace_ids[MAX_NUM_DSETS];
    hid_t       memspace_id = -1;
    hid_t       dataset_ids[MAX_NUM_DSETS];
    hid_t       properties = -1;
    hsize_t     dims[2];
    hsize_t     a_size[2];
    hsize_t     offset[2];
    hsize_t     chunk_size[2];

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    HDassert(0 <= min_dset);
    HDassert(min_dset <= max_dset);
    HDassert(max_dset < MAX_NUM_DSETS);

    /* create the datasets */

    if (pass) {

        i = min_dset;

        while ((pass) && (i <= max_dset)) {
            /* create a dataspace for the chunked dataset */
            dims[0]      = DSET_SIZE;
            dims[1]      = DSET_SIZE;
            dataspace_id = H5Screate_simple(2, dims, NULL);

            if (dataspace_id < 0) {

                pass         = FALSE;
                failure_mssg = "H5Screate_simple() failed.";
            }

            /* set the dataset creation plist to specify that the raw data is
             * to be partioned into 10X10 element chunks.
             */

            if (pass) {

                chunk_size[0] = CHUNK_SIZE;
                chunk_size[1] = CHUNK_SIZE;
                properties    = H5Pcreate(H5P_DATASET_CREATE);

                if (properties < 0) {

                    pass         = FALSE;
                    failure_mssg = "H5Pcreate() failed.";
                }
            }

            if (pass) {

                if (H5Pset_chunk(properties, 2, chunk_size) < 0) {

                    pass         = FALSE;
                    failure_mssg = "H5Pset_chunk() failed.";
                }
            }

            /* create the dataset */
            if (pass) {

                HDsprintf(dset_name, "/dset%03d", i);
                dataset_ids[i] = H5Dcreate2(file_id, dset_name, H5T_STD_I32BE, dataspace_id, H5P_DEFAULT,
                                            properties, H5P_DEFAULT);

                if (dataset_ids[i] < 0) {

                    pass         = FALSE;
                    failure_mssg = "H5Dcreate() failed.";
                }
            }

            /* get the file space ID */
            if (pass) {

                filespace_ids[i] = H5Dget_space(dataset_ids[i]);

                if (filespace_ids[i] < 0) {

                    pass         = FALSE;
                    failure_mssg = "H5Dget_space() failed.";
                }
            }

            i++;
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    /* create the mem space to be used to read and write chunks */
    if (pass) {

        dims[0]     = CHUNK_SIZE;
        dims[1]     = CHUNK_SIZE;
        memspace_id = H5Screate_simple(2, dims, NULL);

        if (memspace_id < 0) {

            pass         = FALSE;
            failure_mssg = "H5Screate_simple() failed.";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    /* select in memory hyperslab */
    if (pass) {

        offset[0] = 0; /*offset of hyperslab in memory*/
        offset[1] = 0;
        a_size[0] = CHUNK_SIZE; /*size of hyperslab*/
        a_size[1] = CHUNK_SIZE;
        status    = H5Sselect_hyperslab(memspace_id, H5S_SELECT_SET, offset, NULL, a_size, NULL);

        if (status < 0) {

            pass         = FALSE;
            failure_mssg = "H5Sselect_hyperslab() failed.";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    /* initialize all datasets on a round robin basis */
    i = 0;
    while ((pass) && (i < DSET_SIZE)) {
        j = 0;
        while ((pass) && (j < DSET_SIZE)) {
            m = min_dset;
            while ((pass) && (m <= max_dset)) {
                /* initialize the slab */
                for (k = 0; k < CHUNK_SIZE; k++) {
                    for (l = 0; l < CHUNK_SIZE; l++) {
                        data_chunk[k][l] = (DSET_SIZE * DSET_SIZE * m) + (DSET_SIZE * (i + k)) + j + l;
                    }
                }

                /* select on disk hyperslab */
                offset[0] = (hsize_t)i; /*offset of hyperslab in file*/
                offset[1] = (hsize_t)j;
                a_size[0] = CHUNK_SIZE; /*size of hyperslab*/
                a_size[1] = CHUNK_SIZE;
                status    = H5Sselect_hyperslab(filespace_ids[m], H5S_SELECT_SET, offset, NULL, a_size, NULL);

                if (status < 0) {

                    pass         = FALSE;
                    failure_mssg = "disk H5Sselect_hyperslab() failed.";
                }

                /* write the chunk to file */
                status = H5Dwrite(dataset_ids[m], H5T_NATIVE_INT, memspace_id, filespace_ids[m], H5P_DEFAULT,
                                  data_chunk);

                if (status < 0) {

                    pass         = FALSE;
                    failure_mssg = "H5Dwrite() failed.";
                }
                m++;
            }
            j += CHUNK_SIZE;
        }

        i += CHUNK_SIZE;
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    /* read data from datasets and validate it */
    i = 0;
    while ((pass) && (i < DSET_SIZE)) {
        j = 0;
        while ((pass) && (j < DSET_SIZE)) {
            m = min_dset;
            while ((pass) && (m <= max_dset)) {

                /* select on disk hyperslab */
                offset[0] = (hsize_t)i; /* offset of hyperslab in file */
                offset[1] = (hsize_t)j;
                a_size[0] = CHUNK_SIZE; /* size of hyperslab */
                a_size[1] = CHUNK_SIZE;
                status    = H5Sselect_hyperslab(filespace_ids[m], H5S_SELECT_SET, offset, NULL, a_size, NULL);

                if (status < 0) {

                    pass         = FALSE;
                    failure_mssg = "disk hyperslab create failed.";
                }

                /* read the chunk from file */
                if (pass) {

                    status = H5Dread(dataset_ids[m], H5T_NATIVE_INT, memspace_id, filespace_ids[m],
                                     H5P_DEFAULT, data_chunk);

                    if (status < 0) {

                        pass         = FALSE;
                        failure_mssg = "disk hyperslab create failed.";
                    }
                }

                /* validate the slab */
                if (pass) {

                    valid_chunk = TRUE;
                    for (k = 0; k < CHUNK_SIZE; k++) {
                        for (l = 0; l < CHUNK_SIZE; l++) {
                            if (data_chunk[k][l] !=
                                ((DSET_SIZE * DSET_SIZE * m) + (DSET_SIZE * (i + k)) + j + l)) {

                                valid_chunk = FALSE;

                                if (verbose) {

                                    HDfprintf(stdout, "data_chunk[%0d][%0d] = %0d, expect %0d.\n", k, l,
                                              data_chunk[k][l],
                                              ((DSET_SIZE * DSET_SIZE * m) + (DSET_SIZE * (i + k)) + j + l));
                                    HDfprintf(stdout, "m = %d, i = %d, j = %d, k = %d, l = %d\n", m, i, j, k,
                                              l);
                                }
                            }
                        }
                    }

                    if (!valid_chunk) {

                        pass         = FALSE;
                        failure_mssg = "slab validation failed.";

                        if (verbose) {

                            HDfprintf(stdout, "Chunk (%0d, %0d) in /dset%03d is invalid.\n", i, j, m);
                        }
                    }
                }
                m++;
            }
            j += CHUNK_SIZE;
        }
        i += CHUNK_SIZE;
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    /* close the file spaces */
    i = min_dset;
    while ((pass) && (i <= max_dset)) {
        if (H5Sclose(filespace_ids[i]) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Sclose() failed.";
        }
        i++;
    }

    /* close the datasets */
    i = min_dset;
    while ((pass) && (i <= max_dset)) {
        if (H5Dclose(dataset_ids[i]) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Dclose() failed.";
        }
        i++;
    }

    /* close the mem space */
    if (pass) {

        if (H5Sclose(memspace_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Sclose(memspace_id) failed.";
        }
    }

} /* create_datasets() */

/*-------------------------------------------------------------------------
 * Function:    delete_datasets()
 *
 * Purpose:     If pass is TRUE on entry, verify and then delete the
 *        dataset(s) indicated by min_dset and max_dset in the
 *        indicated file.
 *
 *        Datasets and their contents must be well know, as we
 *        will verify that they contain the expected data later.
 *
 *              On failure, set pass to FALSE, and set failure_mssg
 *              to point to an appropriate failure message.
 *
 *              Do nothing if pass is FALSE on entry.
 *
 * Return:      void
 *
 * Programmer:  John Mainzer
 *              10/31/16
 *
 *-------------------------------------------------------------------------
 */

static void
delete_datasets(hid_t file_id, int min_dset, int max_dset)
{
    const char *fcn_name = "delete_datasets()";
    char        dset_name[64];
    hbool_t     show_progress = FALSE;
    int         cp            = 0;
    int         i;

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    HDassert(0 <= min_dset);
    HDassert(min_dset <= max_dset);
    HDassert(max_dset < MAX_NUM_DSETS);

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    /* first, verify the contents of the target dataset(s) */
    verify_datasets(file_id, min_dset, max_dset);

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    /* now delete the target datasets */
    if (pass) {

        i = min_dset;

        while ((pass) && (i <= max_dset)) {
            HDsprintf(dset_name, "/dset%03d", i);

            if (H5Ldelete(file_id, dset_name, H5P_DEFAULT) < 0) {

                pass         = FALSE;
                failure_mssg = "H5Ldelete() failed.";
            }

            i++;
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

} /* delete_datasets() */

/*-------------------------------------------------------------------------
 * Function:    open_hdf5_file()
 *
 * Purpose:     If pass is true on entry, create or open the specified HDF5
 *        and test to see if it has a metadata cache image superblock
 *        extension message.
 *
 *        Set pass to FALSE and issue a suitable failure
 *        message if either the file contains a metadata cache image
 *        superblock extension and mdci_sbem_expected is TRUE, or
 *        vise versa.
 *
 *        If mdci_sbem_expected is TRUE, also verify that the metadata
 *        cache has been advised of this.
 *
 *        If read_only is TRUE, open the file read only.  Otherwise
 *        open the file read/write.
 *
 *        If set_mdci_fapl is TRUE, set the metadata cache image
 *        FAPL entry when opening the file, and verify that the
 *        metadata cache is notified.
 *
 *        If config_fsm is TRUE, setup the persistent free space
 *        manager.  Note that this flag may only be set if
 *        create_file is also TRUE.
 *
 *              Return pointers to the cache data structure and file data
 *              structures.
 *
 *              On failure, set pass to FALSE, and set failure_mssg
 *              to point to an appropriate failure message.
 *
 *              Do nothing if pass is FALSE on entry.
 *
 * Return:      void
 *
 * Programmer:  John Mainzer
 *              7/14/15
 *
 *-------------------------------------------------------------------------
 */

static void
open_hdf5_file(hbool_t create_file, hbool_t mdci_sbem_expected, hbool_t read_only, hbool_t set_mdci_fapl,
               hbool_t config_fsm, hbool_t set_eoc, const char *hdf_file_name, unsigned cache_image_flags,
               hid_t *file_id_ptr, H5F_t **file_ptr_ptr, H5C_t **cache_ptr_ptr)
{
    const char *              fcn_name      = "open_hdf5_file()";
    hbool_t                   show_progress = FALSE;
    hbool_t                   verbose       = FALSE;
    int                       cp            = 0;
    hid_t                     fapl_id       = -1;
    hid_t                     fcpl_id       = -1;
    hid_t                     file_id       = -1;
    herr_t                    result;
    H5F_t *                   file_ptr  = NULL;
    H5C_t *                   cache_ptr = NULL;
    H5C_cache_image_ctl_t     image_ctl;
    H5AC_cache_image_config_t cache_image_config = {H5AC__CURR_CACHE_IMAGE_CONFIG_VERSION, TRUE, FALSE,
                                                    H5AC__CACHE_IMAGE__ENTRY_AGEOUT__NONE};

    if (pass) {
        /* opening the file both read only and with a cache image
         * requested is a contradiction.  We resolve it by ignoring
         * the cache image request silently.
         */
        if ((create_file && mdci_sbem_expected) || (create_file && read_only) ||
            (config_fsm && !create_file) || (hdf_file_name == NULL) ||
            ((set_mdci_fapl) && (cache_image_flags == 0)) ||
            ((set_mdci_fapl) && ((cache_image_flags & ~H5C_CI__ALL_FLAGS) != 0)) || (file_id_ptr == NULL) ||
            (file_ptr_ptr == NULL) || (cache_ptr_ptr == NULL)) {

            failure_mssg = "Bad param(s) on entry to open_hdf5_file().\n";
            pass         = FALSE;
        }
        else if (verbose) {

            HDfprintf(stdout, "%s: HDF file name = \"%s\".\n", fcn_name, hdf_file_name);
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    /* create a file access propertly list. */
    if (pass) {

        fapl_id = h5_fileaccess();

        if (fapl_id < 0) {

            pass         = FALSE;
            failure_mssg = "h5_fileaccess() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    /* call H5Pset_libver_bounds() on the fapl_id */
    if (pass) {

        if (H5Pset_libver_bounds(fapl_id, H5F_LIBVER_LATEST, H5F_LIBVER_LATEST) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Pset_libver_bounds() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    /* get metadata cache image config -- verify that it is the default */
    if (pass) {

        result = H5Pget_mdc_image_config(fapl_id, &cache_image_config);

        if (result < 0) {

            pass         = FALSE;
            failure_mssg = "H5Pget_mdc_image_config() failed.\n";
        }

        if ((cache_image_config.version != H5AC__CURR_CACHE_IMAGE_CONFIG_VERSION) ||
            (cache_image_config.generate_image != FALSE) ||
            (cache_image_config.save_resize_status != FALSE) ||
            (cache_image_config.entry_ageout != H5AC__CACHE_IMAGE__ENTRY_AGEOUT__NONE)) {

            pass         = FALSE;
            failure_mssg = "Unexpected default cache image config.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    /* set metadata cache image fapl entry if indicated */
    if ((pass) && (set_mdci_fapl)) {

        /* set cache image config fields to taste */
        cache_image_config.generate_image     = TRUE;
        cache_image_config.save_resize_status = FALSE;
        cache_image_config.entry_ageout       = H5AC__CACHE_IMAGE__ENTRY_AGEOUT__NONE;

        result = H5Pset_mdc_image_config(fapl_id, &cache_image_config);

        if (result < 0) {

            pass         = FALSE;
            failure_mssg = "H5Pset_mdc_image_config() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    /* setup the persistent free space manager if indicated */
    if ((pass) && (config_fsm)) {

        fcpl_id = H5Pcreate(H5P_FILE_CREATE);

        if (fcpl_id <= 0) {

            pass         = FALSE;
            failure_mssg = "H5Pcreate(H5P_FILE_CREATE) failed.";
        }
    }

    if ((pass) && (config_fsm)) {
        if (H5Pset_file_space_strategy(fcpl_id, H5F_FSPACE_STRATEGY_PAGE, TRUE, (hsize_t)1) < 0) {
            pass         = FALSE;
            failure_mssg = "H5Pset_file_space_strategy() failed.";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    /* set evict on close if indicated */
    if ((pass) && (set_eoc)) {

        if (H5Pset_evict_on_close(fapl_id, TRUE) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Pset_evict_on_close() failed.";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    /* open the file */
    if (pass) {

        if (create_file) {

            if (fcpl_id != -1)

                file_id = H5Fcreate(hdf_file_name, H5F_ACC_TRUNC, fcpl_id, fapl_id);
            else

                file_id = H5Fcreate(hdf_file_name, H5F_ACC_TRUNC, H5P_DEFAULT, fapl_id);
        }
        else {

            if (read_only)

                file_id = H5Fopen(hdf_file_name, H5F_ACC_RDONLY, fapl_id);

            else

                file_id = H5Fopen(hdf_file_name, H5F_ACC_RDWR, fapl_id);
        }

        /* tidy up */
        H5Pclose(fapl_id);

        if (file_id < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fcreate() or H5Fopen() failed.\n";
        }
        else {

            file_ptr = (struct H5F_t *)H5VL_object_verify(file_id, H5I_FILE);

            if (file_ptr == NULL) {

                pass         = FALSE;
                failure_mssg = "Can't get file_ptr.";

                if (verbose) {
                    HDfprintf(stdout, "%s: Can't get file_ptr.\n", fcn_name);
                }
            }
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    /* get a pointer to the files internal data structure and then
     * to the cache structure
     */
    if (pass) {

        if (file_ptr->shared->cache == NULL) {

            pass         = FALSE;
            failure_mssg = "can't get cache pointer(1).\n";
        }
        else {

            cache_ptr = file_ptr->shared->cache;
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    /* verify expected metadata cache status */

    /* get the cache image control structure from the cache, and verify
     * that it contains the expected values.
     *
     * Then set the flags in this structure to the specified value.
     */
    if (pass) {

        if (H5C_get_cache_image_config(cache_ptr, &image_ctl) < 0) {

            pass         = FALSE;
            failure_mssg = "error returned by H5C_get_cache_image_config().";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    if (pass) {

        if (set_mdci_fapl) {

            if (read_only) {

                if ((image_ctl.version != H5AC__CURR_CACHE_IMAGE_CONFIG_VERSION) ||
                    (image_ctl.generate_image != FALSE) || (image_ctl.save_resize_status != FALSE) ||
                    (image_ctl.entry_ageout != H5AC__CACHE_IMAGE__ENTRY_AGEOUT__NONE) ||
                    (image_ctl.flags != H5C_CI__ALL_FLAGS)) {

                    pass         = FALSE;
                    failure_mssg = "Unexpected image_ctl values(1).\n";
                }
            }
            else {

                if ((image_ctl.version != H5AC__CURR_CACHE_IMAGE_CONFIG_VERSION) ||
                    (image_ctl.generate_image != TRUE) || (image_ctl.save_resize_status != FALSE) ||
                    (image_ctl.entry_ageout != H5AC__CACHE_IMAGE__ENTRY_AGEOUT__NONE) ||
                    (image_ctl.flags != H5C_CI__ALL_FLAGS)) {

                    pass         = FALSE;
                    failure_mssg = "Unexpected image_ctl values(2).\n";
                }
            }
        }
        else {

            if ((image_ctl.version != H5AC__CURR_CACHE_IMAGE_CONFIG_VERSION) ||
                (image_ctl.generate_image != FALSE) || (image_ctl.save_resize_status != FALSE) ||
                (image_ctl.entry_ageout != H5AC__CACHE_IMAGE__ENTRY_AGEOUT__NONE) ||
                (image_ctl.flags != H5C_CI__ALL_FLAGS)) {

                pass         = FALSE;
                failure_mssg = "Unexpected image_ctl values(3).\n";
            }
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    if ((pass) && (set_mdci_fapl)) {

        image_ctl.flags = cache_image_flags;

        if (H5C_set_cache_image_config(file_ptr, cache_ptr, &image_ctl) < 0) {

            pass         = FALSE;
            failure_mssg = "error returned by H5C_set_cache_image_config().";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    if (pass) {

        if (cache_ptr->close_warning_received == TRUE) {

            pass         = FALSE;
            failure_mssg = "Unexpected value of close_warning_received.\n";
        }

        if (mdci_sbem_expected) {

            if (read_only) {

                if ((cache_ptr->load_image != TRUE) || (cache_ptr->delete_image != FALSE)) {

                    pass         = FALSE;
                    failure_mssg = "mdci sb extension message not present?\n";
                }
            }
            else {

                if ((cache_ptr->load_image != TRUE) || (cache_ptr->delete_image != TRUE)) {

                    pass         = FALSE;
                    failure_mssg = "mdci sb extension message not present?\n";
                }
            }
        }
        else {

            if ((cache_ptr->load_image == TRUE) || (cache_ptr->delete_image == TRUE)) {

                pass         = FALSE;
                failure_mssg = "mdci sb extension message present?\n";
            }
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    if (pass) {

        *file_id_ptr   = file_id;
        *file_ptr_ptr  = file_ptr;
        *cache_ptr_ptr = cache_ptr;
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d -- exiting.\n", fcn_name, cp++);

} /* open_hdf5_file() */

/*-------------------------------------------------------------------------
 * Function:    attempt_swmr_open_hdf5_file()
 *
 * Purpose:     If pass is true on entry, attempt to create or open the
 *        specified HDF5 file with SWMR, and also with cache image
 *              creation if requested.
 *
 *              In all cases, the attempted open or create should fail.
 *
 *              Do nothing if pass is FALSE on entry.
 *
 * Return:      void
 *
 * Programmer:  John Mainzer
 *              7/14/15
 *
 *-------------------------------------------------------------------------
 */

static void
attempt_swmr_open_hdf5_file(const hbool_t create_file, const hbool_t set_mdci_fapl, const char *hdf_file_name)
{
    const char *              fcn_name      = "attempt_swmr_open_hdf5_file()";
    hbool_t                   show_progress = FALSE;
    int                       cp            = 0;
    hid_t                     fapl_id       = -1;
    hid_t                     file_id       = -1;
    herr_t                    result;
    H5AC_cache_image_config_t cache_image_config = {H5AC__CURR_CACHE_IMAGE_CONFIG_VERSION, TRUE, FALSE,
                                                    H5AC__CACHE_IMAGE__ENTRY_AGEOUT__NONE};

    /* create a file access propertly list. */
    if (pass) {

        fapl_id = h5_fileaccess();

        if (fapl_id < 0) {

            pass         = FALSE;
            failure_mssg = "h5_fileaccess() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    /* call H5Pset_libver_bounds() on the fapl_id */
    if (pass) {

        if (H5Pset_libver_bounds(fapl_id, H5F_LIBVER_LATEST, H5F_LIBVER_LATEST) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Pset_libver_bounds() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    /* set metadata cache image fapl entry if indicated */
    if ((pass) && (set_mdci_fapl)) {

        /* set cache image config fields to taste */
        cache_image_config.generate_image     = TRUE;
        cache_image_config.save_resize_status = FALSE;
        cache_image_config.entry_ageout       = H5AC__CACHE_IMAGE__ENTRY_AGEOUT__NONE;

        result = H5Pset_mdc_image_config(fapl_id, &cache_image_config);

        if (result < 0) {

            pass         = FALSE;
            failure_mssg = "H5Pset_mdc_image_config() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    /* open the file */
    if (pass) {

        if (create_file) {

            H5E_BEGIN_TRY
            {
                file_id = H5Fcreate(hdf_file_name, H5F_ACC_TRUNC | H5F_ACC_SWMR_WRITE, H5P_DEFAULT, fapl_id);
            }
            H5E_END_TRY;
        }
        else {

            H5E_BEGIN_TRY
            {
                file_id = H5Fopen(hdf_file_name, H5F_ACC_RDWR | H5F_ACC_SWMR_WRITE, fapl_id);
            }
            H5E_END_TRY;
        }

        if (file_id >= 0) {

            pass         = FALSE;
            failure_mssg = "SWMR H5Fcreate() or H5Fopen() succeeded.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

} /* attempt_swmr_open_hdf5_file() */

/*-------------------------------------------------------------------------
 * Function:    verify_datasets()
 *
 * Purpose:     If pass is TRUE on entry, verify that the datasets in the
 *        file exist and contain the expected data.
 *
 *        Note that these datasets were created by
 *        create_datasets() above.  Thus any changes in that
 *        function must be reflected in this function, and
 *        vise-versa.
 *
 *              On failure, set pass to FALSE, and set failure_mssg
 *              to point to an appropriate failure message.
 *
 *              Do nothing if pass is FALSE on entry.
 *
 * Return:      void
 *
 * Programmer:  John Mainzer
 *              7/15/15
 *
 *-------------------------------------------------------------------------
 */

static void
verify_datasets(hid_t file_id, int min_dset, int max_dset)
{
    const char *fcn_name = "verify_datasets()";
    char        dset_name[64];
    hbool_t     show_progress = FALSE;
    hbool_t     valid_chunk;
    hbool_t     verbose = FALSE;
    int         cp      = 0;
    int         i, j, k, l, m;
    int         data_chunk[CHUNK_SIZE][CHUNK_SIZE];
    herr_t      status;
    hid_t       filespace_ids[MAX_NUM_DSETS];
    hid_t       memspace_id = -1;
    hid_t       dataset_ids[MAX_NUM_DSETS];
    hsize_t     dims[2];
    hsize_t     a_size[2];
    hsize_t     offset[2];

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    HDassert(0 <= min_dset);
    HDassert(min_dset <= max_dset);
    HDassert(max_dset < MAX_NUM_DSETS);

    /* open the datasets */

    if (pass) {

        i = min_dset;

        while ((pass) && (i <= max_dset)) {
            /* open the dataset */
            if (pass) {

                HDsprintf(dset_name, "/dset%03d", i);
                dataset_ids[i] = H5Dopen2(file_id, dset_name, H5P_DEFAULT);

                if (dataset_ids[i] < 0) {

                    pass         = FALSE;
                    failure_mssg = "H5Dopen2() failed.";
                }
            }

            /* get the file space ID */
            if (pass) {

                filespace_ids[i] = H5Dget_space(dataset_ids[i]);

                if (filespace_ids[i] < 0) {

                    pass         = FALSE;
                    failure_mssg = "H5Dget_space() failed.";
                }
            }

            i++;
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    /* create the mem space to be used to read and write chunks */
    if (pass) {

        dims[0]     = CHUNK_SIZE;
        dims[1]     = CHUNK_SIZE;
        memspace_id = H5Screate_simple(2, dims, NULL);

        if (memspace_id < 0) {

            pass         = FALSE;
            failure_mssg = "H5Screate_simple() failed.";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    /* select in memory hyperslab */
    if (pass) {

        offset[0] = 0; /*offset of hyperslab in memory*/
        offset[1] = 0;
        a_size[0] = CHUNK_SIZE; /*size of hyperslab*/
        a_size[1] = CHUNK_SIZE;
        status    = H5Sselect_hyperslab(memspace_id, H5S_SELECT_SET, offset, NULL, a_size, NULL);

        if (status < 0) {

            pass         = FALSE;
            failure_mssg = "H5Sselect_hyperslab() failed.";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    /* read data from datasets and validate it */
    i = 0;
    while ((pass) && (i < DSET_SIZE)) {
        j = 0;
        while ((pass) && (j < DSET_SIZE)) {
            m = min_dset;
            while ((pass) && (m <= max_dset)) {

                /* select on disk hyperslab */
                offset[0] = (hsize_t)i; /* offset of hyperslab in file */
                offset[1] = (hsize_t)j;
                a_size[0] = CHUNK_SIZE; /* size of hyperslab */
                a_size[1] = CHUNK_SIZE;
                status    = H5Sselect_hyperslab(filespace_ids[m], H5S_SELECT_SET, offset, NULL, a_size, NULL);

                if (status < 0) {

                    pass         = FALSE;
                    failure_mssg = "disk hyperslab create failed.";
                }

                /* read the chunk from file */
                if (pass) {

                    status = H5Dread(dataset_ids[m], H5T_NATIVE_INT, memspace_id, filespace_ids[m],
                                     H5P_DEFAULT, data_chunk);

                    if (status < 0) {

                        pass         = FALSE;
                        failure_mssg = "disk hyperslab create failed.";
                    }
                }

                /* validate the slab */
                if (pass) {

                    valid_chunk = TRUE;
                    for (k = 0; k < CHUNK_SIZE; k++) {
                        for (l = 0; l < CHUNK_SIZE; l++) {
                            if (data_chunk[k][l] !=
                                ((DSET_SIZE * DSET_SIZE * m) + (DSET_SIZE * (i + k)) + j + l)) {

                                valid_chunk = FALSE;

                                if (verbose) {

                                    HDfprintf(stdout, "data_chunk[%0d][%0d] = %0d, expect %0d.\n", k, l,
                                              data_chunk[k][l],
                                              ((DSET_SIZE * DSET_SIZE * m) + (DSET_SIZE * (i + k)) + j + l));
                                    HDfprintf(stdout, "m = %d, i = %d, j = %d, k = %d, l = %d\n", m, i, j, k,
                                              l);
                                }
                            }
                        }
                    }

                    if (!valid_chunk) {

                        pass         = FALSE;
                        failure_mssg = "slab validation failed.";

                        if (verbose) {

                            HDfprintf(stdout, "Chunk (%0d, %0d) in /dset%03d is invalid.\n", i, j, m);
                        }
                    }
                }
                m++;
            }
            j += CHUNK_SIZE;
        }
        i += CHUNK_SIZE;
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d.\n", fcn_name, cp++);

    /* close the file spaces */
    i = min_dset;
    while ((pass) && (i <= max_dset)) {
        if (H5Sclose(filespace_ids[i]) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Sclose() failed.";
        }
        i++;
    }

    /* close the datasets */
    i = min_dset;
    while ((pass) && (i <= max_dset)) {
        if (H5Dclose(dataset_ids[i]) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Dclose() failed.";
        }
        i++;
    }

    /* close the mem space */
    if (pass) {

        if (H5Sclose(memspace_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Sclose(memspace_id) failed.";
        }
    }

} /* verify_datasets() */

/****************************************************************************/
/******************************* Test Functions *****************************/
/****************************************************************************/

/*-------------------------------------------------------------------------
 * Function:    check_cache_image_ctl_flow_1()
 *
 * Purpose:     This test is one of a sequence of control flow tests intended
 *        to verify that control flow for the cache image feature works
 *        as expected.
 *
 *        This test is an initial smoke check, so the sequence of
 *        operations is relatively simple.  In particular, we are
 *        testing:
 *
 *            i) Creation of file with cache image FAPL entry set
 *               and insertion of metadata cache image superblock
 *               message on file close.
 *
 *               ii) Open of file with metadata cache image superblock
 *               message, transmission of message to metadata cache,
 *               and deletion of superblock message prior to close.
 *
 *        Note that in all cases we are performing operations on the
 *        file.  While this is the typical case, we must repeat this
 *        test without operations on the file.
 *
 *        1) Create a HDF5 file with the cache image FAPL entry.
 *
 *           Verify that the cache is informed of the cache image
 *           FAPL entry.
 *
 *           Set flags forcing creation of metadata cache image
 *           super block extension message only.
 *
 *        2) Create some datasets in the file.
 *
 *        3) Close the file.
 *
 *        4) Open the file.
 *
 *           Verify that the metadata cache is instructed
 *           to load the metadata cache image, and that the
 *           supplied address and length are HADDR_UNDEF and
 *           zero respectively.  Note that these values indicate
 *           that the metadata image block doesn't exist.
 *
 *        5) Open a dataset.
 *
 *           Verify that the metadata cache image superblock
 *           extension message has been deleted.
 *
 *        6) Close the file.
 *
 *        7) Open the file.
 *
 *           Verify that the file doesn't contain a metadata cache
 *           image superblock extension message.
 *
 *        8) Close the file.
 *
 *        9) Delete the file.
 *
 * Return:      void
 *
 * Programmer:  John Mainzer
 *              7/15/15
 *
 *-------------------------------------------------------------------------
 */

static unsigned
check_cache_image_ctl_flow_1(hbool_t single_file_vfd)
{
    const char *fcn_name = "check_cache_image_ctl_flow_1()";
    char        filename[512];
    hbool_t     show_progress = FALSE;
    hid_t       file_id       = -1;
    H5F_t *     file_ptr      = NULL;
    H5C_t *     cache_ptr     = NULL;
    int         cp            = 0;

    TESTING("metadata cache image control flow test 1");

    /* Check for VFD that is a single file */
    if (!single_file_vfd) {
        SKIPPED();
        HDputs("    Cache image not supported with the current VFD.");
        return 0;
    }

    pass = TRUE;

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* setup the file name */
    if (pass) {

        if (h5_fixname(FILENAMES[0], H5P_DEFAULT, filename, sizeof(filename)) == NULL) {

            pass         = FALSE;
            failure_mssg = "h5_fixname() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 1) Create a HDF5 file with the cache image FAPL entry.
     *
     *      Verify that the cache is informed of the cache image FAPL entry.
     *
     *    Set flags forcing creation of metadata cache image super block
     *      extension message only.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ TRUE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ TRUE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__GEN_MDCI_SBE_MESG,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 2) Create some datasets in the file. */

    if (pass) {

        create_datasets(file_id, 0, 5);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 3) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 4) Open the file.
     *
     *    Verify that the metadata cache is instructed to load the
     *    metadata cache image, and that the supplied address and length
     *    are HADDR_UNDEF and zero respectively.  Note that these values
     *    indicate that the metadata image block doesn't exist.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ TRUE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 5) Open and close a dataset.
     *
     *    Verify that the metadata cache image superblock
     *    extension message has been deleted.
     */

    if (pass) {

        verify_datasets(file_id, 0, 5);
    }

    if (pass) {

        /* think on how to verify that the superblock extension has been
         * deleted, and if it is necessary to verify this directly.
         */
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 6) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 7) Open the file.
     *
     *    Verify that the file doesn't contain a metadata cache image
     *    superblock extension message.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 8) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 9) Delete the file */

    if (pass) {

        if (HDremove(filename) < 0) {

            pass         = FALSE;
            failure_mssg = "HDremove() failed.\n";
        }
    }

    if (pass) {
        PASSED();
    }
    else {
        H5_FAILED();
    }

    if (!pass)
        HDfprintf(stdout, "%s: failure_mssg = \"%s\".\n", FUNC, failure_mssg);

    return !pass;

} /* check_cache_image_ctl_flow_1() */

/*-------------------------------------------------------------------------
 * Function:    check_cache_image_ctl_flow_2()
 *
 * Purpose:     This test is one of a sequence of control flow tests intended
 *        to verify that control flow for the cache image feature works
 *        as expected.
 *
 *        This test is an initial smoke check, so the sequence of
 *        operations is relatively simple.  In particular, we are
 *        testing:
 *
 *            i) Creation of file with cache image FAPL entry set
 *               and insertion of metadata cache image superblock
 *               message on file close.
 *
 *               ii) Open of file with metadata cache image superblock
 *               message, transmission of message to metadata cache,
 *               and deletion of superblock message prior to close.
 *
 *        Note that unlike the previous test, no operations are performed
 *        on the file.  As a result of this, the metadata cache image
 *        message is not processed until the metadata cache receives
 *        the file close warning.  (Under normal circumstances, it is
 *        processed as part of the first protect operation after the
 *        superblock is loaded.)
 *
 *        In this particular test, we preform the following operations:
 *
 *        1) Create a HDF5 file with the cache image FAPL entry.
 *
 *           Verify that the cache is informed of the cache image
 *           FAPL entry.
 *
 *           Set flags forcing creation of metadata cache image
 *           super block extension message only.
 *
 *        2) Close the file.
 *
 *        3) Open the file.
 *
 *           Verify that the metadata cache is instructed
 *           to load the metadata cache image, and that the
 *           supplied address and length are HADDR_UNDEF and
 *           zero respectively.  Note that these values indicate
 *           that the metadata image block doesn't exist.
 *
 *        6) Close the file.
 *
 *        7) Open the file.
 *
 *           Verify that the file doesn't contain a metadata cache
 *           image superblock extension message.
 *
 *        8) Close the file.
 *
 *        9) Delete the file.
 *
 * Return:      void
 *
 * Programmer:  John Mainzer
 *              7/15/15
 *
 *-------------------------------------------------------------------------
 */

static unsigned
check_cache_image_ctl_flow_2(hbool_t single_file_vfd)
{
    const char *fcn_name = "check_cache_image_ctl_flow_2()";
    char        filename[512];
    hbool_t     show_progress = FALSE;
    hid_t       file_id       = -1;
    H5F_t *     file_ptr      = NULL;
    H5C_t *     cache_ptr     = NULL;
    int         cp            = 0;

    TESTING("metadata cache image control flow test 2");

    /* Check for VFD that is a single file */
    if (!single_file_vfd) {
        SKIPPED();
        HDputs("    Cache image not supported with the current VFD.");
        return 0;
    }

    pass = TRUE;

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* setup the file name */
    if (pass) {

        if (h5_fixname(FILENAMES[0], H5P_DEFAULT, filename, sizeof(filename)) == NULL) {

            pass         = FALSE;
            failure_mssg = "h5_fixname() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 1) Create a HDF5 file with the cache image FAPL entry.
     *
     *      Verify that the cache is informed of the cache image FAPL entry.
     *
     *    Set flags forcing creation of metadata cache image super block
     *      extension message only.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ TRUE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ TRUE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__GEN_MDCI_SBE_MESG,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 2) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 3) Open the file.
     *
     *    Verify that the metadata cache is instructed to load the
     *    metadata cache image, and that the supplied address and length
     *    are HADDR_UNDEF and zero respectively.  Note that these values
     *    indicate that the metadata image block doesn't exist.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ TRUE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 4) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 5) Open the file.
     *
     *    Verify that the file doesn't contain a metadata cache image
     *    superblock extension message.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 6) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 7) Delete the file */

    if (pass) {

        if (HDremove(filename) < 0) {

            pass         = FALSE;
            failure_mssg = "HDremove() failed.\n";
        }
    }

    if (pass) {
        PASSED();
    }
    else {
        H5_FAILED();
    }

    if (!pass)
        HDfprintf(stdout, "%s: failure_mssg = \"%s\".\n", FUNC, failure_mssg);

    return !pass;

} /* check_cache_image_ctl_flow_2() */

/*-------------------------------------------------------------------------
 * Function:    check_cache_image_ctl_flow_3()
 *
 * Purpose:     This test is one of a sequence of control flow tests intended
 *        to verify that control flow for the cache image feature works
 *        as expected.
 *
 *        The objectives of this test are to:
 *
 *            i) Test operation of the metadata cache image FAPL
 *               entry set on open of an existing file.  This
 *               should result in the insertion of a metadata
 *               cache image superblock message on file close.
 *
 *               ii) Test operation of the metadata cache image super
 *               block extension message when it appears in a file
 *               that is opened READ ONLY.
 *
 *        Note that in all cases we are performing operations on the
 *        file between file open and close.  While this is the
 *        typical case, we must repeat this test without operations
 *        on the file.
 *
 *        1) Create a HDF5 file WITHOUT the cache image FAPL entry.
 *
 *           Verify that the cache is NOT informed of the cache image
 *           FAPL entry.
 *
 *        2) Close the file.
 *
 *        3) Open the file WITH the cache image FAPL entry.
 *
 *           Verify that the cache is informed of the cache image
 *           FAPL entry.
 *
 *           Set flags forcing creation of metadata cache image
 *           super block extension message only.
 *
 *        4) Create some datasets.
 *
 *        5) Close the file.
 *
 *        6) Open the file READ ONLY.
 *
 *           Verify that the metadata cache is instructed
 *           to load the metadata cache image, and that the
 *           supplied address and length are HADDR_UNDEF and
 *           zero respectively.  Note that these values indicate
 *           that the metadata image block doesn't exist.
 *
 *        7) Verify the contents of the datasets.
 *
 *        8) Close the file.
 *
 *        9) Open the file READ/WRITE.
 *
 *           Verify that the metadata cache is instructed
 *           to load the metadata cache image, and that the
 *           supplied address and length are HADDR_UNDEF and
 *           zero respectively.  Note that these values indicate
 *           that the metadata image block doesn't exist.
 *
 *           10) Verify the contents of the datasets.
 *
 *           11) Close the file.
 *
 *           12) Open the file
 *
 *           Verify that the file doesn't contain a metadata cache
 *           image superblock extension message.
 *
 *           13) Close the file.
 *
 *           14) Delete the file.
 *
 * Return:      void
 *
 * Programmer:  John Mainzer
 *              7/16/15
 *
 *-------------------------------------------------------------------------
 */

static unsigned
check_cache_image_ctl_flow_3(hbool_t single_file_vfd)
{
    const char *fcn_name = "check_cache_image_ctl_flow_3()";
    char        filename[512];
    hbool_t     show_progress = FALSE;
    hid_t       file_id       = -1;
    H5F_t *     file_ptr      = NULL;
    H5C_t *     cache_ptr     = NULL;
    int         cp            = 0;

    TESTING("metadata cache image control flow test 3");

    /* Check for VFD that is a single file */
    if (!single_file_vfd) {
        SKIPPED();
        HDputs("    Cache image not supported with the current VFD.");
        return 0;
    }

    pass = TRUE;

    if (show_progress) /* 0 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* setup the file name */
    if (pass) {

        if (h5_fixname(FILENAMES[0], H5P_DEFAULT, filename, sizeof(filename)) == NULL) {

            pass         = FALSE;
            failure_mssg = "h5_fixname() failed.\n";
        }
    }

    if (show_progress) /* 1 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 1) Create a HDF5 file WITHOUT the cache image FAPL entry.
     *
     *    Verify that the cache is NOT informed of the cache image
     *    FAPL entry.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ TRUE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress) /* 2 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 2) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress) /* 3 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 3) Open the file WITH the cache image FAPL entry.
     *
     *    Verify that the cache is informed of the cache image FAPL entry.
     *
     *    Set flags forcing creation of metadata cache image super block
     *    extension message only.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ TRUE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__GEN_MDCI_SBE_MESG,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress) /* 4 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 4) Create some datasets. */

    if (pass) {

        create_datasets(file_id, 0, 5);
    }

    if (show_progress) /* 5 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 5) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress) /* 6 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 6) Open the file READ ONLY.
     *
     *    Verify that the metadata cache is instructed
     *    to load the metadata cache image, and that the
     *    supplied address and length are HADDR_UNDEF and
     *    zero respectively.  Note that these values indicate
     *    that the metadata image block doesn't exist.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ TRUE,
                       /* read_only          */ TRUE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress) /* 7 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 7) Verify the contents of the datasets. */

    if (pass) {

        verify_datasets(file_id, 0, 5);
    }

    if (show_progress) /* 8 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 8) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress) /* 9 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 9) Open the file READ/WRITE.
     *
     *    Verify that the metadata cache is instructed
     *    to load the metadata cache image, and that the
     *    supplied address and length are HADDR_UNDEF and
     *    zero respectively.  Note that these values indicate
     *    that the metadata image block doesn't exist.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ TRUE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress) /* 10 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 10) Verify the contents of the datasets. */

    if (pass) {

        verify_datasets(file_id, 0, 5);
    }

    if (show_progress) /* 11 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 11) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress) /* 12 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 12) Open the file
     *
     *       Verify that the file doesn't contain a metadata cache
     *       image superblock extension message.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress) /* 13 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 13) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress) /* 14 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 14) Delete the file. */

    if (pass) {

        if (HDremove(filename) < 0) {

            pass         = FALSE;
            failure_mssg = "HDremove() failed.\n";
        }
    }

    if (pass) {
        PASSED();
    }
    else {
        H5_FAILED();
    }

    if (!pass)
        HDfprintf(stdout, "%s: failure_mssg = \"%s\".\n", FUNC, failure_mssg);

    return !pass;

} /* check_cache_image_ctl_flow_3() */

/*-------------------------------------------------------------------------
 * Function:    check_cache_image_ctl_flow_4()
 *
 * Purpose:     This test is one of a sequence of control flow tests intended
 *        to verify that control flow for the cache image feature works
 *        as expected.
 *
 *        The objectives of this test are to:
 *
 *            i) Test operation of the metadata cache image FAPL
 *               entry set on open of an existing file.  This
 *               should result in the insertion of a metadata
 *               cache image superblock message on file close.
 *
 *               ii) Test operation of the metadata cache image super
 *               block extension message when it appears in a file
 *               that is opened READ ONLY.
 *
 *        In this test we avoid all file access beyond file open
 *        and close.
 *
 *        1) Create a HDF5 file WITHOUT the cache image FAPL entry.
 *
 *           Verify that the cache is NOT informed of the cache image
 *           FAPL entry.
 *
 *        2) Close the file.
 *
 *        3) Open the file WITH the cache image FAPL entry.
 *
 *           Verify that the cache is informed of the cache image
 *           FAPL entry.
 *
 *           Set flags forcing creation of metadata cache image
 *           super block extension message only.
 *
 *        4) Close the file.
 *
 *        5) Open the file READ ONLY.
 *
 *           Verify that the metadata cache is instructed
 *           to load the metadata cache image, and that the
 *           supplied address and length are HADDR_UNDEF and
 *           zero respectively.  Note that these values indicate
 *           that the metadata image block doesn't exist.
 *
 *        6) Close the file.
 *
 *        7) Open the file READ/WRITE.
 *
 *           Verify that the metadata cache is instructed
 *           to load the metadata cache image, and that the
 *           supplied address and length are HADDR_UNDEF and
 *           zero respectively.  Note that these values indicate
 *           that the metadata image block doesn't exist.
 *
 *            8) Close the file.
 *
 *            9) Open the file
 *
 *           Verify that the file doesn't contain a metadata cache
 *           image superblock extension message.
 *
 *           10) Close the file.
 *
 *           11) Delete the file.
 *
 * Return:      void
 *
 * Programmer:  John Mainzer
 *              7/16/15
 *
 *-------------------------------------------------------------------------
 */

static unsigned
check_cache_image_ctl_flow_4(hbool_t single_file_vfd)
{
    const char *fcn_name = "check_cache_image_ctl_flow_4()";
    char        filename[512];
    hbool_t     show_progress = FALSE;
    hid_t       file_id       = -1;
    H5F_t *     file_ptr      = NULL;
    H5C_t *     cache_ptr     = NULL;
    int         cp            = 0;

    TESTING("metadata cache image control flow test 4");

    /* Check for VFD that is a single file */
    if (!single_file_vfd) {
        SKIPPED();
        HDputs("    Cache image not supported with the current VFD.");
        return 0;
    }

    pass = TRUE;

    if (show_progress) /* 0 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* setup the file name */
    if (pass) {

        if (h5_fixname(FILENAMES[0], H5P_DEFAULT, filename, sizeof(filename)) == NULL) {

            pass         = FALSE;
            failure_mssg = "h5_fixname() failed.\n";
        }
    }

    if (show_progress) /* 1 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 1) Create a HDF5 file WITHOUT the cache image FAPL entry.
     *
     *    Verify that the cache is NOT informed of the cache image
     *    FAPL entry.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ TRUE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress) /* 2 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 2) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress) /* 3 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 3) Open the file WITH the cache image FAPL entry.
     *
     *    Verify that the cache is informed of the cache image FAPL entry.
     *
     *    Set flags forcing creation of metadata cache image super block
     *    extension message only.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ TRUE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__GEN_MDCI_SBE_MESG,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress) /* 4 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 4) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress) /* 5 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 5) Open the file READ ONLY.
     *
     *    Verify that the metadata cache is instructed
     *    to load the metadata cache image, and that the
     *    supplied address and length are HADDR_UNDEF and
     *    zero respectively.  Note that these values indicate
     *    that the metadata image block doesn't exist.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ TRUE,
                       /* read_only          */ TRUE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress) /* 6 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 6) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress) /* 7 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 7) Open the file READ/WRITE.
     *
     *    Verify that the metadata cache is instructed
     *    to load the metadata cache image, and that the
     *    supplied address and length are HADDR_UNDEF and
     *    zero respectively.  Note that these values indicate
     *    that the metadata image block doesn't exist.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ TRUE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress) /* 8 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 8) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress) /* 9 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 9) Open the file
     *
     *       Verify that the file doesn't contain a metadata cache
     *       image superblock extension message.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress) /* 10 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 10) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress) /* 11 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 11) Delete the file. */

    if (pass) {

        if (HDremove(filename) < 0) {

            pass         = FALSE;
            failure_mssg = "HDremove() failed.\n";
        }
    }

    if (pass) {
        PASSED();
    }
    else {
        H5_FAILED();
    }

    if (!pass)
        HDfprintf(stdout, "%s: failure_mssg = \"%s\".\n", FUNC, failure_mssg);

    return !pass;

} /* check_cache_image_ctl_flow_4() */

/*-------------------------------------------------------------------------
 * Function:    check_cache_image_ctl_flow_5()
 *
 * Purpose:     This test is one of a sequence of control flow tests intended
 *        to verify that control flow for the cache image feature works
 *        as expected.
 *
 *        The objective of this test is verify correct control flow
 *        when a file with a metadata cache image superblock extension
 *        message is opened with the metadata cache image FAPL entry.
 *
 *        Note that in all cases we are performing operations on the
 *        file between file open and close.  While this is the
 *        typical case, we must repeat this test without operations
 *        on the file.
 *
 *        1) Create a HDF5 file with the cache image FAPL entry.
 *
 *           Verify that the cache is informed of the cache image
 *           FAPL entry.
 *
 *           Set flags forcing creation of metadata cache image
 *           super block extension message only.
 *
 *        2) Create some datasets.
 *
 *        3) Close the file.
 *
 *        4) Open the file WITH the cache image FAPL entry.
 *
 *           Verify that the metadata cache is instructed
 *           to load the metadata cache image, and that the
 *           supplied address and length are HADDR_UNDEF and
 *           zero respectively.  Note that these values indicate
 *           that the metadata image block doesn't exist.
 *
 *           Verify that the cache is informed of the cache image
 *           FAPL entry.
 *
 *           Set flags forcing creation of metadata cache image
 *           super block extension message only.
 *
 *        5) Verify the contents of the datasets.
 *
 *        6) Close the file.
 *
 *        7) Open the file.
 *
 *           Verify that the metadata cache is instructed
 *           to load the metadata cache image, and that the
 *           supplied address and length are HADDR_UNDEF and
 *           zero respectively.  Note that these values indicate
 *           that the metadata image block doesn't exist.
 *
 *            8) Verify the contents of the datasets.
 *
 *            9) Close the file.
 *
 *           10) Delete the file.
 *
 * Return:      void
 *
 * Programmer:  John Mainzer
 *              7/17/15
 *
 *-------------------------------------------------------------------------
 */

static unsigned
check_cache_image_ctl_flow_5(hbool_t single_file_vfd)
{
    const char *fcn_name = "check_cache_image_ctl_flow_5()";
    char        filename[512];
    hbool_t     show_progress = FALSE;
    hid_t       file_id       = -1;
    H5F_t *     file_ptr      = NULL;
    H5C_t *     cache_ptr     = NULL;
    int         cp            = 0;

    TESTING("metadata cache image control flow test 5");

    /* Check for VFD that is a single file */
    if (!single_file_vfd) {
        SKIPPED();
        HDputs("    Cache image not supported with the current VFD.");
        return 0;
    }

    pass = TRUE;

    if (show_progress) /* 0 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* setup the file name */
    if (pass) {

        if (h5_fixname(FILENAMES[0], H5P_DEFAULT, filename, sizeof(filename)) == NULL) {

            pass         = FALSE;
            failure_mssg = "h5_fixname() failed.\n";
        }
    }

    if (show_progress) /* 1 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 1) Create a HDF5 file with the cache image FAPL entry.
     *
     *    Verify that the cache is informed of the cache image FAPL entry.
     *
     *    Set flags forcing creation of metadata cache image
     *    super block extension message only.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ TRUE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ TRUE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__GEN_MDCI_SBE_MESG,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress) /* 2 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 2) Create some datasets. */

    if (pass) {

        create_datasets(file_id, 0, 5);
    }

    if (show_progress) /* 3 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 3) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress) /* 4 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 4) Open the file WITH the cache image FAPL entry.
     *
     *    Verify that the metadata cache is instructed
     *    to load the metadata cache image, and that the
     *    supplied address and length are HADDR_UNDEF and
     *    zero respectively.  Note that these values indicate
     *    that the metadata image block doesn't exist.
     *
     *    Verify that the cache is informed of the cache image
     *    FAPL entry.
     *
     *    Set flags forcing creation of metadata cache image
     *    super block extension message only.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ TRUE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ TRUE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__GEN_MDCI_SBE_MESG,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress) /* 5 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 5) Verify the contents of the datasets. */

    if (pass) {

        verify_datasets(file_id, 0, 5);
    }

    if (show_progress) /* 6 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 6) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress) /* 7 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 7) Open the file.
     *
     *    Verify that the metadata cache is instructed
     *    to load the metadata cache image, and that the
     *    supplied address and length are HADDR_UNDEF and
     *    zero respectively.  Note that these values indicate
     *    that the metadata image block doesn't exist.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ TRUE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress) /* 8 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 8) Verify the contents of the datasets. */

    if (pass) {

        verify_datasets(file_id, 0, 5);
    }

    if (show_progress) /* 9 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 9) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress) /* 10 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 10) Delete the file. */

    if (pass) {

        if (HDremove(filename) < 0) {

            pass         = FALSE;
            failure_mssg = "HDremove() failed.\n";
        }
    }

    if (pass) {
        PASSED();
    }
    else {
        H5_FAILED();
    }

    if (!pass)
        HDfprintf(stdout, "%s: failure_mssg = \"%s\".\n", FUNC, failure_mssg);

    return !pass;

} /* check_cache_image_ctl_flow_5() */

/*-------------------------------------------------------------------------
 * Function:    check_cache_image_ctl_flow_6()
 *
 * Purpose:     This test is one of a sequence of control flow tests intended
 *        to verify that control flow for the cache image feature works
 *        as expected.
 *
 *        The objective of this test is verify correct control flow
 *        when a file with a metadata cache image superblock extension
 *        message is opened with the metadata cache image FAPL entry.
 *
 *        In this test we avoid all file activity other than open
 *        and close.
 *
 *        1) Create a HDF5 file with the cache image FAPL entry.
 *
 *           Verify that the cache is informed of the cache image
 *           FAPL entry.
 *
 *           Set flags forcing creation of metadata cache image
 *           super block extension message only.
 *
 *        2) Close the file.
 *
 *        3) Open the file WITH the cache image FAPL entry.
 *
 *           Verify that the metadata cache is instructed
 *           to load the metadata cache image, and that the
 *           supplied address and length are HADDR_UNDEF and
 *           zero respectively.  Note that these values indicate
 *           that the metadata image block doesn't exist.
 *
 *           Verify that the cache is informed of the cache image
 *           FAPL entry.
 *
 *           Set flags forcing creation of metadata cache image
 *           super block extension message only.
 *
 *        4) Close the file.
 *
 *        5) Open the file.
 *
 *           Verify that the metadata cache is instructed
 *           to load the metadata cache image, and that the
 *           supplied address and length are HADDR_UNDEF and
 *           zero respectively.  Note that these values indicate
 *           that the metadata image block doesn't exist.
 *
 *            6) Close the file.
 *
 *            7) Delete the file.
 *
 * Return:      void
 *
 * Programmer:  John Mainzer
 *              7/17/15
 *
 *-------------------------------------------------------------------------
 */

static unsigned
check_cache_image_ctl_flow_6(hbool_t single_file_vfd)
{
    const char *fcn_name = "check_cache_image_ctl_flow_6()";
    char        filename[512];
    hbool_t     show_progress = FALSE;
    hid_t       file_id       = -1;
    H5F_t *     file_ptr      = NULL;
    H5C_t *     cache_ptr     = NULL;
    int         cp            = 0;

    TESTING("metadata cache image control flow test 6");

    /* Check for VFD that is a single file */
    if (!single_file_vfd) {
        SKIPPED();
        HDputs("    Cache image not supported with the current VFD.");
        return 0;
    }

    pass = TRUE;

    if (show_progress) /* 0 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* setup the file name */
    if (pass) {

        if (h5_fixname(FILENAMES[0], H5P_DEFAULT, filename, sizeof(filename)) == NULL) {

            pass         = FALSE;
            failure_mssg = "h5_fixname() failed.\n";
        }
    }

    if (show_progress) /* 1 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 1) Create a HDF5 file with the cache image FAPL entry.
     *
     *    Verify that the cache is informed of the cache image FAPL entry.
     *
     *    Set flags forcing creation of metadata cache image
     *    super block extension message only.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ TRUE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ TRUE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__GEN_MDCI_SBE_MESG,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress) /* 2 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 2) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress) /* 3 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 4) Open the file WITH the cache image FAPL entry.
     *
     *    Verify that the metadata cache is instructed
     *    to load the metadata cache image, and that the
     *    supplied address and length are HADDR_UNDEF and
     *    zero respectively.  Note that these values indicate
     *    that the metadata image block doesn't exist.
     *
     *    Verify that the cache is informed of the cache image
     *    FAPL entry.
     *
     *    Set flags forcing creation of metadata cache image
     *    super block extension message only.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ TRUE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ TRUE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__GEN_MDCI_SBE_MESG,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress) /* 4 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 5) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress) /* 5 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 5) Open the file.
     *
     *    Verify that the metadata cache is instructed
     *    to load the metadata cache image, and that the
     *    supplied address and length are HADDR_UNDEF and
     *    zero respectively.  Note that these values indicate
     *    that the metadata image block doesn't exist.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ TRUE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress) /* 6 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 6) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress) /* 7 */
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 7) Delete the file. */

    if (pass) {

        if (HDremove(filename) < 0) {

            pass         = FALSE;
            failure_mssg = "HDremove() failed.\n";
        }
    }

    if (pass) {
        PASSED();
    }
    else {
        H5_FAILED();
    }

    if (!pass)
        HDfprintf(stdout, "%s: failure_mssg = \"%s\".\n", FUNC, failure_mssg);

    return !pass;

} /* check_cache_image_ctl_flow_6() */

/*-------------------------------------------------------------------------
 * Function:    cache_image_smoke_check_1()
 *
 * Purpose:     This test is one of a sequence of tests intended
 *        to exercise the cache image feature verifying that it
 *        works more or less correctly in common cases.
 *
 *        This test is an initial smoke check, so the sequence of
 *        operations is relatively simple.  In particular, we are
 *        testing:
 *
 *            i) Creation of file with metadata cache image
 *               superblock extension message and cache image
 *               block.
 *
 *               ii) Open of file with metadata cache image superblock
 *               extension message and cache image block.
 *               Deserialization and removal of both, insertion
 *               of prefetched cache entries, and deserialization
 *               of prefetched cache entries as they are protected.
 *
 *              iii) Subsequent write of file without metadata cache
 *               image.
 *
 *               iv) Open and close of file with metadata cache image
 *               image requested, but with no operations on the
 *               file.
 *
 *        To do this:
 *
 *        1) Create a HDF5 file with the cache image FAPL entry.
 *
 *           Verify that the cache is informed of the cache image
 *           FAPL entry.
 *
 *           Set all cache image flags, forcing full functionality.
 *
 *        2) Create some datasets in the file.
 *
 *        3) Close the file.
 *
 *        4) Open the file.
 *
 *           Verify that the metadata cache is instructed
 *           to load the metadata cache image.
 *
 *        5) Open a dataset.
 *
 *           Verify that it contains the expected data
 *
 *        6) Close the file.
 *
 *        7) Open the file.
 *
 *           Verify that the file doesn't contain a metadata cache
 *           image superblock extension message.
 *
 *        8) Open a dataset.
 *
 *           Verify that it contains the expected data.
 *
 *        9) Close the file.
 *
 *            10) Open the file with the cache image FAPL entry.
 *
 *           Verify that the cache is informed of the cache image
 *           FAPL entry.
 *
 *           Set all cache image flags, forcing full functionality.
 *
 *           11) Close the file.  Since there has been no access to
 *           any entries that would be included in the cache image,
 *           there should be no cache image.
 *
 *           12) Open the file.
 *
 *           Verify that the file doesn't contain a metadata cache
 *           image superblock extension message.
 *
 *           13) Open a dataset.
 *
 *           Verify that it contains the expected data.
 *
 *           14) Close the file.
 *
 *           15) Delete the file.
 *
 * Return:      void
 *
 * Programmer:  John Mainzer
 *              8/17/15
 *
 *-------------------------------------------------------------------------
 */

static unsigned
cache_image_smoke_check_1(hbool_t single_file_vfd)
{
    const char *fcn_name = "cache_image_smoke_check_1()";
    char        filename[512];
    hbool_t     show_progress = FALSE;
    hid_t       file_id       = -1;
    H5F_t *     file_ptr      = NULL;
    H5C_t *     cache_ptr     = NULL;
    int         cp            = 0;

    TESTING("metadata cache image smoke check 1");

    /* Check for VFD that is a single file */
    if (!single_file_vfd) {
        SKIPPED();
        HDputs("    Cache image not supported with the current VFD.");
        return 0;
    }

    pass = TRUE;

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* setup the file name */
    if (pass) {

        if (h5_fixname(FILENAMES[0], H5P_DEFAULT, filename, sizeof(filename)) == NULL) {

            pass         = FALSE;
            failure_mssg = "h5_fixname() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 1) Create a HDF5 file with the cache image FAPL entry.
     *
     *      Verify that the cache is informed of the cache image FAPL entry.
     *
     *    Set flags forcing full function of the cache image feature.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ TRUE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ TRUE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__ALL_FLAGS,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 2) Create some datasets in the file. */

    if (pass) {

        create_datasets(file_id, 0, 5);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded != 0) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block loaded(1).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 3) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 4) Open the file.
     *
     *    Verify that the metadata cache is instructed to load the
     *    metadata cache image, and that the supplied address and length
     *    are HADDR_UNDEF and zero respectively.  Note that these values
     *    indicate that the metadata image block doesn't exist.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ TRUE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 5) Open and close a dataset.
     *
     *    Verify that the metadata cache image superblock
     *    extension message has been deleted.
     */

    if (pass) {

        verify_datasets(file_id, 0, 5);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded != 1) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block not loaded(1).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 6) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 7) Open the file.
     *
     *    Verify that the file doesn't contain a metadata cache image
     *    superblock extension message.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 8) Open and close a dataset.
     *
     *    Verify that the metadata cache image superblock
     *    extension message has been deleted.
     */

    if (pass) {

        verify_datasets(file_id, 0, 5);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded != 0) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block loaded(2).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 9) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 10) Open the file with the cache image FAPL entry.
     *
     *       Verify that the cache is informed of the cache image
     *       FAPL entry.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ TRUE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__ALL_FLAGS,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 11) Close the file.  Since there has been no access to
     *       any entries that would be included in the cache image,
     *       there should be no cache image.
     */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 12) Open the file.
     *
     *       Verify that the file doesn't contain a metadata cache
     *       image superblock extension message.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 13) Open a dataset.
     *
     *       Verify that it contains the expected data.
     */

    if (pass) {

        verify_datasets(file_id, 0, 5);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded != 0) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block loaded(3).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 14) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 15) Delete the file */

    if (pass) {

        if (HDremove(filename) < 0) {

            pass         = FALSE;
            failure_mssg = "HDremove() failed.\n";
        }
    }

    if (pass) {
        PASSED();
    }
    else {
        H5_FAILED();
    }

    if (!pass)
        HDfprintf(stdout, "%s: failure_mssg = \"%s\".\n", FUNC, failure_mssg);

    return !pass;

} /* cache_image_smoke_check_1() */

/*-------------------------------------------------------------------------
 * Function:    cache_image_smoke_check_2()
 *
 * Purpose:     This test is one of a sequence of tests intended
 *        to exercise the cache image feature verifying that it
 *        works more or less correctly in common cases.
 *
 *        This test is an initial smoke check, so the sequence of
 *        operations is relatively simple.  In particular, we are
 *        testing:
 *
 *            i) Creation of file with metadata cache image
 *               superblock extension message and cache image
 *               block.
 *
 *               ii) Open of file with metadata cache image superblock
 *               extension message and cache image block.  Write
 *               of prefetched entries to file on file close.
 *
 *        To do this:
 *
 *        1) Create a HDF5 file with the cache image FAPL entry.
 *
 *           Verify that the cache is informed of the cache image
 *           FAPL entry.
 *
 *           Set all cache image flags, forcing full functionality.
 *
 *        2) Create some datasets in the file.
 *
 *        3) Close the file.
 *
 *        4) Open the file.
 *
 *        5) Close the file.
 *
 *        6) Open the file.
 *
 *           Verify that the file doesn't contain a metadata cache
 *           image superblock extension message.
 *
 *        7) Open a dataset.
 *
 *           Verify that it contains the expected data.
 *
 *        8) Close the file.
 *
 *            9) Delete the file.
 *
 * Return:      void
 *
 * Programmer:  John Mainzer
 *              8/18/15
 *
 *-------------------------------------------------------------------------
 */

static unsigned
cache_image_smoke_check_2(hbool_t single_file_vfd)
{
    const char *fcn_name = "cache_image_smoke_check_2()";
    char        filename[512];
    hbool_t     show_progress = FALSE;
    hid_t       file_id       = -1;
    H5F_t *     file_ptr      = NULL;
    H5C_t *     cache_ptr     = NULL;
    int         cp            = 0;

    TESTING("metadata cache image smoke check 2");

    /* Check for VFD that is a single file */
    if (!single_file_vfd) {
        SKIPPED();
        HDputs("    Cache image not supported with the current VFD.");
        return 0;
    }

    pass = TRUE;

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* setup the file name */
    if (pass) {

        if (h5_fixname(FILENAMES[0], H5P_DEFAULT, filename, sizeof(filename)) == NULL) {

            pass         = FALSE;
            failure_mssg = "h5_fixname() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 1) Create a HDF5 file with the cache image FAPL entry.
     *
     *      Verify that the cache is informed of the cache image FAPL entry.
     *
     *    Set flags forcing full function of the cache image feature.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ TRUE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ TRUE,
                       /* config_fsm         */ TRUE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__ALL_FLAGS,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 2) Create some datasets in the file. */

    if (pass) {

        create_datasets(file_id, 0, 5);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded != 0) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block loaded(1).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 3) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 4) Open the file.
     *
     *    Verify that the metadata cache is instructed to load the
     *    metadata cache image.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ TRUE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    /* can't verify that metadata cache image has been loaded directly,
     * as in this cache, the load will not happen until close, and thus
     * the images_created stat will not be readily available as it is
     * incremented just before the cache is shut down.
     */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 5) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 6) Open the file.
     *
     *    Verify that the file doesn't contain a metadata cache image
     *    superblock extension message.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 7) Open and close a dataset.
     *
     *    Verify that the metadata cache image superblock
     *    extension message has been deleted.
     */

    if (pass) {

        verify_datasets(file_id, 0, 5);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 8) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 9) Delete the file */

    if (pass) {

        if (HDremove(filename) < 0) {

            pass         = FALSE;
            failure_mssg = "HDremove() failed.\n";
        }
    }

    if (pass) {
        PASSED();
    }
    else {
        H5_FAILED();
    }

    if (!pass)
        HDfprintf(stdout, "%s: failure_mssg = \"%s\".\n", FUNC, failure_mssg);

    return !pass;

} /* cache_image_smoke_check_2() */

/*-------------------------------------------------------------------------
 * Function:    cache_image_smoke_check_3()
 *
 * Purpose:     This test is one of a sequence of tests intended
 *        to exercise the cache image feature verifying that it
 *        works more or less correctly in common cases.
 *
 *        This test is an initial smoke check, so the sequence of
 *        operations is relatively simple.  In particular, we are
 *        testing:
 *
 *            i) Creation of file with metadata cache image
 *               superblock extension message and cache image
 *               block.
 *
 *               ii) Read only open and close of file with metadata
 *               cache image superblock extension message and
 *               cache image block.
 *
 *              iii) Subsequent R/W open and close of file with metadata
 *                         cache image superblock extension message and
 *                         cache image block.
 *
 *        To do this:
 *
 *        1) Create a HDF5 file with the cache image FAPL entry.
 *
 *           Verify that the cache is informed of the cache image
 *           FAPL entry.
 *
 *           Set all cache image flags, forcing full functionality.
 *
 *        2) Create some datasets in the file.
 *
 *        3) Close the file.
 *
 *        4) Open the file read only.
 *
 *           Verify that the file contains a metadata cache
 *           image superblock extension message.
 *
 *        5 Open a dataset.
 *
 *          Verify that it contains the expected data.
 *
 *        6) Close the file.
 *
 *        7) Open the file.
 *
 *           Verify that the file contains a metadata cache
 *           image superblock extension message.
 *
 *        8 Open a dataset.
 *
 *          Verify that it contains the expected data.
 *
 *        9) Close the file.
 *
 *           10) Open the file.
 *
 *           Verify that the file doesn't contain a metadata cache
 *           image superblock extension message.
 *
 *           11) Open a dataset.
 *
 *           Verify that it contains the expected data.
 *
 *           12) Close the file.
 *
 *           13) Delete the file.
 *
 * Return:      void
 *
 * Programmer:  John Mainzer
 *              8/18/15
 *
 *-------------------------------------------------------------------------
 */

static unsigned
cache_image_smoke_check_3(hbool_t single_file_vfd)
{
    const char *fcn_name = "cache_image_smoke_check_3()";
    char        filename[512];
    hbool_t     show_progress = FALSE;
    hid_t       file_id       = -1;
    H5F_t *     file_ptr      = NULL;
    H5C_t *     cache_ptr     = NULL;
    int         cp            = 0;

    TESTING("metadata cache image smoke check 3");

    /* Check for VFD that is a single file */
    if (!single_file_vfd) {
        SKIPPED();
        HDputs("    Cache image not supported with the current VFD.");
        return 0;
    }

    pass = TRUE;

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* setup the file name */
    if (pass) {

        if (h5_fixname(FILENAMES[0], H5P_DEFAULT, filename, sizeof(filename)) == NULL) {

            pass         = FALSE;
            failure_mssg = "h5_fixname() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 1) Create a HDF5 file with the cache image FAPL entry.
     *
     *      Verify that the cache is informed of the cache image FAPL entry.
     *
     *    Set flags forcing full function of the cache image feature.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ TRUE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ TRUE,
                       /* config_fsm         */ TRUE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__ALL_FLAGS,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 2) Create some datasets in the file. */

    if (pass) {

        create_datasets(file_id, 0, 5);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded != 0) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block loaded(1).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 3) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 4) Open the file read only.
     *
     *    Verify that the metadata cache is instructed to load the
     *    metadata cache image.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ TRUE,
                       /* read_only          */ TRUE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 5) Open and close a dataset.
     *
     *    Verify that the metadata cache image superblock
     *    extension message has been deleted.
     */

    if (pass) {

        verify_datasets(file_id, 0, 5);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded == 0) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block not loaded(1).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 6) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 7) Open the file.
     *
     *    Verify that the file contains a metadata cache image
     *    superblock extension message.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ TRUE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 8) Open and close a dataset.
     *
     *    Verify that the metadata cache image superblock
     *    extension message has been deleted.
     */

    if (pass) {

        verify_datasets(file_id, 0, 5);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded == 0) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block not loaded(2).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 9) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    /* 10) Open the file.
     *
     *    Verify that the file doesn't contain a metadata cache image
     *    superblock extension message.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 11) Open and close a dataset.
     *
     *    Verify that the metadata cache image superblock
     *    extension message has been deleted.
     */

    if (pass) {

        verify_datasets(file_id, 0, 5);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded != 0) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block loaded(2).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 12) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 13) Delete the file */

    if (pass) {

        if (HDremove(filename) < 0) {

            pass         = FALSE;
            failure_mssg = "HDremove() failed.\n";
        }
    }

    if (pass) {
        PASSED();
    }
    else {
        H5_FAILED();
    }

    if (!pass)
        HDfprintf(stdout, "%s: failure_mssg = \"%s\".\n", FUNC, failure_mssg);

    return !pass;

} /* cache_image_smoke_check_3() */

/*-------------------------------------------------------------------------
 * Function:    cache_image_smoke_check_4()
 *
 * Purpose:     This test attempts to mimic the typical "poor man's
 *        parallel use case in which the file is passed between
 *        processes, each of which open the file, write some data,
 *        close the file, and then pass control on to the next
 *        process.
 *
 *        In this case, we only write one dataset per process.
 *
 *        Cycle of operation
 *
 *        1) Create a HDF5 file with the cache image FAPL entry.
 *
 *           Verify that the cache is informed of the cache image
 *           FAPL entry.
 *
 *           Set all cache image flags, forcing full functionality.
 *
 *        2) Create and write a dataset in the file.
 *
 *        3) Close the file.
 *
 *        4) Open the file with the cache image FAPL entry.
 *
 *           Verify that the file contains a metadata cache
 *           image superblock extension message.
 *
 *        5 Create and write a new dataset
 *
 *        6) Close the file.
 *
 *           If sufficient datasets have been created, continue to
 *                 7).  Otherwise goto 4)
 *
 *        7) Open the file.
 *
 *           Verify that the file contains a metadata cache
 *           image superblock extension message.
 *
 *            8) Open all datasets that have been created, and
 *           verify that they contain the expected data.
 *
 *            9) Close the file.
 *
 *           10) Open the file.
 *
 *           Verify that the file doesn't contain a metadata cache
 *           image superblock extension message.
 *
 *           11) Open all datasets that have been created, and
 *                 verify that they contain the expected data.
 *
 *           Verify that it contains the expected data.
 *
 *           12) Close the file.
 *
 *           13) Delete the file.
 *
 * Return:      void
 *
 * Programmer:  John Mainzer
 *              8/18/15
 *
 *-------------------------------------------------------------------------
 */

static unsigned
cache_image_smoke_check_4(hbool_t single_file_vfd)
{
    const char *fcn_name = "cache_image_smoke_check_4()";
    char        filename[512];
    hbool_t     show_progress = FALSE;
    hid_t       file_id       = -1;
    H5F_t *     file_ptr      = NULL;
    H5C_t *     cache_ptr     = NULL;
    int         cp            = 0;
    int         min_dset      = 0;
    int         max_dset      = 0;

    TESTING("metadata cache image smoke check 4");

    /* Check for VFD that is a single file */
    if (!single_file_vfd) {
        SKIPPED();
        HDputs("    Cache image not supported with the current VFD.");
        return 0;
    }

    pass = TRUE;

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* setup the file name */
    if (pass) {

        if (h5_fixname(FILENAMES[0], H5P_DEFAULT, filename, sizeof(filename)) == NULL) {

            pass         = FALSE;
            failure_mssg = "h5_fixname() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 1) Create a HDF5 file with the cache image FAPL entry.
     *
     *      Verify that the cache is informed of the cache image FAPL entry.
     *
     *    Set flags forcing full function of the cache image feature.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ TRUE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ TRUE,
                       /* config_fsm         */ TRUE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__ALL_FLAGS,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 2) Create a dataset in the file. */

    if (pass) {

        create_datasets(file_id, min_dset++, max_dset++);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded != 0) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block loaded(1).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 3) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    while ((pass) && (max_dset < MAX_NUM_DSETS)) {

        /* 4) Open the file.
         *
         *    Verify that the metadata cache is instructed to load the
         *    metadata cache image.
         */

        if (pass) {

            open_hdf5_file(/* create_file        */ FALSE,
                           /* mdci_sbem_expected */ TRUE,
                           /* read_only          */ FALSE,
                           /* set_mdci_fapl      */ TRUE,
                           /* config_fsm         */ FALSE,
                           /* set_eoc            */ FALSE,
                           /* hdf_file_name      */ filename,
                           /* cache_image_flags  */ H5C_CI__ALL_FLAGS,
                           /* file_id_ptr        */ &file_id,
                           /* file_ptr_ptr       */ &file_ptr,
                           /* cache_ptr_ptr      */ &cache_ptr);
        }

        if (show_progress)
            HDfprintf(stdout, "%s:L1 cp = %d, max_dset = %d, pass = %d.\n", fcn_name, cp, max_dset, pass);

        /* 5) Create a dataset in the file. */

        if (pass) {

            create_datasets(file_id, min_dset++, max_dset++);
        }

#if H5C_COLLECT_CACHE_STATS
        if (pass) {

            if (cache_ptr->images_loaded == 0) {

                pass         = FALSE;
                failure_mssg = "metadata cache image block not loaded(1).";
            }
        }
#endif /* H5C_COLLECT_CACHE_STATS */

        if (show_progress)
            HDfprintf(stdout, "%s:L2 cp = %d, max_dset = %d, pass = %d.\n", fcn_name, cp + 1, max_dset, pass);

        /* 6) Close the file. */

        if (pass) {

            if (H5Fclose(file_id) < 0) {

                pass         = FALSE;
                failure_mssg = "H5Fclose() failed.\n";
            }
        }

        if (show_progress)
            HDfprintf(stdout, "%s:L3 cp = %d, max_dset = %d, pass = %d.\n", fcn_name, cp + 2, max_dset, pass);
    } /* end while */
    cp += 3;

    /* 7) Open the file.
     *
     *    Verify that the file contains a metadata cache image
     *    superblock extension message.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ TRUE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 8) Open and close all datasets.
     *
     *    Verify that the metadata cache image superblock
     *    extension message has been deleted.
     */

    if (pass) {

        verify_datasets(file_id, 0, max_dset - 1);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded == 0) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block not loaded(2).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 9) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    /* 10) Open the file.
     *
     *    Verify that the file doesn't contain a metadata cache image
     *    superblock extension message.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 11) Open and close all datasets.
     *
     *    Verify that the metadata cache image superblock
     *    extension message has been deleted.
     */

    if (pass) {

        verify_datasets(file_id, 0, max_dset - 1);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded != 0) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block loaded(2).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 12) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 13) Delete the file */

    if (pass) {

        if (HDremove(filename) < 0) {

            pass         = FALSE;
            failure_mssg = "HDremove() failed.\n";
        }
    }

    if (pass) {
        PASSED();
    }
    else {
        H5_FAILED();
    }

    if (!pass)
        HDfprintf(stdout, "%s: failure_mssg = \"%s\".\n", FUNC, failure_mssg);

    return !pass;
} /* cache_image_smoke_check_4() */

/*-------------------------------------------------------------------------
 * Function:    cache_image_smoke_check_5()
 *
 * Purpose:     This test attempts to mimic the typical "poor man's
 *        parallel use case in which the file is passed between
 *        processes, each of which open the file, write some data,
 *        close the file, and then pass control on to the next
 *        process.
 *
 *        In this case, we create one group for each process, and
 *        populate it with a "zoo" of HDF5 objects selected to
 *        (ideally) exercise all HDF5 on disk data structures.
 *
 *        Cycle of operation
 *
 *        1) Create a HDF5 file with the cache image FAPL entry.
 *
 *           Verify that the cache is informed of the cache image
 *           FAPL entry.
 *
 *           Set all cache image flags, forcing full functionality.
 *
 *        2) Create a process specific group.
 *
 *        3) Construct a "zoo" in the above group, and validate it.
 *
 *        4) Close the file.
 *
 *        5) Open the file with the cache image FAPL entry.
 *
 *           Verify that the file contains a metadata cache
 *           image superblock extension message.
 *
 *        6) Validate the "zoo" created in the previous file open.
 *
 *        7) Create a process specific group for this file open
 *
 *        8) Construct a "zoo" in the above group, and validate it.
 *
 *        9) Close the file.
 *
 *           If sufficient zoos have been created, continue to
 *                 10).  Otherwise goto 5)
 *
 *           10) Open the file R/O.
 *
 *           Verify that the file contains a metadata cache
 *           image superblock extension message.
 *
 *           11) Validate all the zoos.
 *
 *           12) Close the file.
 *
 *           13) Open the file.
 *
 *           Verify that the file contains a metadata cache
 *           image superblock extension message.
 *
 *           14) Validate all the zoos.
 *
 *           15) Close the file.
 *
 *           16) Open the file.
 *
 *           Verify that the file doesn't contain a metadata cache
 *           image superblock extension message.
 *
 *           17) Validate all the zoos.
 *
 *           18) Close the file.
 *
 *           19) Delete the file.
 *
 * Return:      void
 *
 * Programmer:  John Mainzer
 *              9/15/15
 *
 *-------------------------------------------------------------------------
 */

#define MAX_NUM_GROUPS 64

static unsigned
cache_image_smoke_check_5(hbool_t single_file_vfd)
{
    const char *fcn_name = "cache_image_smoke_check_5()";
    char        filename[512];
    char        process_group_name[512];
    hbool_t     show_progress = FALSE;
    hid_t       file_id       = -1;
    hid_t       proc_gid      = -1;
    H5F_t *     file_ptr      = NULL;
    H5C_t *     cache_ptr     = NULL;
    int         cp            = 0;
    int         i;
    int         min_group = 0;
    int         max_group = 0;

    TESTING("metadata cache image smoke check 5");

    /* Check for VFD that is a single file */
    if (!single_file_vfd) {
        SKIPPED();
        HDputs("    Cache image not supported with the current VFD.");
        return 0;
    }

    pass = TRUE;

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* setup the file name */
    if (pass) {

        hid_t fapl_id = h5_fileaccess();

        if (h5_fixname(FILENAMES[0], fapl_id, filename, sizeof(filename)) == NULL) {

            pass         = FALSE;
            failure_mssg = "h5_fixname() failed.\n";
        }

        H5Pclose(fapl_id);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 1) Create a HDF5 file with the cache image FAPL entry.
     *
     *      Verify that the cache is informed of the cache image FAPL entry.
     *
     *    Set flags forcing full function of the cache image feature.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ TRUE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ TRUE,
                       /* config_fsm         */ TRUE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__ALL_FLAGS,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 2) Create a process specific group. */
    if (pass) {

        HDsprintf(process_group_name, "/process_%d", min_group);

        proc_gid = H5Gcreate2(file_id, process_group_name, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);

        if (proc_gid < 0) {

            pass         = FALSE;
            failure_mssg = "H5Gcreate2() failed (1).\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 3) Construct a "zoo" in the above group, and validate it. */
    if (pass)
        create_zoo(file_id, process_group_name, min_group);

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded != 0) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block loaded(1).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 4) Close the file. */

    if (pass) {

        if (H5Gclose(proc_gid) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Gclose(proc_gid) failed. (1)";
        }
    }

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    while ((pass) && (max_group < MAX_NUM_GROUPS)) {

        /* 5) Open the file.
         *
         *    Verify that the metadata cache is instructed to load the
         *    metadata cache image.
         */

        if (pass) {

            open_hdf5_file(/* create_file        */ FALSE,
                           /* mdci_sbem_expected */ TRUE,
                           /* read_only          */ FALSE,
                           /* set_mdci_fapl      */ TRUE,
                           /* config_fsm         */ FALSE,
                           /* set_eoc            */ FALSE,
                           /* hdf_file_name      */ filename,
                           /* cache_image_flags  */ H5C_CI__ALL_FLAGS,
                           /* file_id_ptr        */ &file_id,
                           /* file_ptr_ptr       */ &file_ptr,
                           /* cache_ptr_ptr      */ &cache_ptr);
        }

        if (show_progress)
            HDfprintf(stdout, "%s:L1 cp = %d, max_group = %d, pass = %d.\n", fcn_name, cp, max_group, pass);

        /* 6) Validate the "zoo" created in the previous file open. */
        if (pass)
            validate_zoo(file_id, process_group_name, max_group);

#if H5C_COLLECT_CACHE_STATS
        if (pass) {

            if (cache_ptr->images_loaded == 0) {

                pass         = FALSE;
                failure_mssg = "metadata cache image block not loaded(1).";
            }
        }
#endif /* H5C_COLLECT_CACHE_STATS */

        if (show_progress)
            HDfprintf(stdout, "%s:L2 cp = %d, max_group = %d, pass = %d.\n", fcn_name, cp + 1, max_group,
                      pass);

        /* 7) Create a process specific group for this file open */
        if (pass) {

            max_group++;
            HDsprintf(process_group_name, "/process_%d", max_group);

            proc_gid = H5Gcreate2(file_id, process_group_name, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);

            if (proc_gid < 0) {

                pass         = FALSE;
                failure_mssg = "H5Gcreate2() failed (2).\n";
            }
        }

        if (show_progress)
            HDfprintf(stdout, "%s:L3 cp = %d, max_group = %d, pass = %d.\n", fcn_name, cp + 2, max_group,
                      pass);

        /* 8) Construct a "zoo" in the above group, and validate it. */
        if (pass)
            create_zoo(file_id, process_group_name, max_group);

        if (show_progress)
            HDfprintf(stdout, "%s:L4 cp = %d, max_group = %d, pass = %d.\n", fcn_name, cp + 3, max_group,
                      pass);

        /* 9) Close the file. */

        if (pass) {

            if (H5Gclose(proc_gid) < 0) {

                pass         = FALSE;
                failure_mssg = "H5Gclose(process_gid) failed. (2)";
            }
        }

        if (pass) {

            if (H5Fclose(file_id) < 0) {

                pass         = FALSE;
                failure_mssg = "H5Fclose() failed.\n";
            }
        }

        if (show_progress)
            HDfprintf(stdout, "%s:L5 cp = %d, max_group = %d, pass = %d.\n", fcn_name, cp + 4, max_group,
                      pass);
    } /* end while */
    cp += 5;

    /* 10) Open the file read only.
     *
     *    Verify that the file contains a metadata cache image
     *    superblock extension message.
     */
    if (pass) {
        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ TRUE,
                       /* read_only          */ TRUE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 11) Validate all the zoos. */
    i = min_group;
    while (pass && i <= max_group) {
        HDsprintf(process_group_name, "/process_%d", i);
        validate_zoo(file_id, process_group_name, i++);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {
        if (cache_ptr->images_loaded == 0) {
            pass         = FALSE;
            failure_mssg = "metadata cache image block not loaded(2).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 12) Close the file. */
    if (pass) {
        if (H5Fclose(file_id) < 0) {
            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    /* 13) Open the file R/W.
     *
     *    Verify that the file contains a metadata cache image
     *    superblock extension message.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ TRUE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 14) Validate all the zoos. */
    i = min_group;
    while ((pass) && (i <= max_group)) {

        HDsprintf(process_group_name, "/process_%d", i);
        validate_zoo(file_id, process_group_name, i++);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded == 0) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block not loaded(2).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 15) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    /* 16) Open the file.
     *
     *    Verify that the file doesn't contain a metadata cache image
     *    superblock extension message.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 17) Validate all the zoos.
     *
     *    Verify that the metadata cache image superblock
     *    extension message has been deleted.
     */
    i = min_group;
    while ((pass) && (i <= max_group)) {
        HDsprintf(process_group_name, "/process_%d", i);
        validate_zoo(file_id, process_group_name, i++);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded != 0) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block loaded(2).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 18) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 19) Delete the file */

    if (pass) {

        if (HDremove(filename) < 0) {

            pass         = FALSE;
            failure_mssg = "HDremove() failed.\n";
        }
    }

    if (pass) {
        PASSED();
    }
    else {
        H5_FAILED();
    }

    if (!pass)
        HDfprintf(stdout, "%s: failure_mssg = \"%s\".\n", FUNC, failure_mssg);

    return !pass;

} /* cache_image_smoke_check_5() */

/*-------------------------------------------------------------------------
 * Function:    cache_image_smoke_check_6()
 *
 * Purpose:     As the free space manager metadata is now included in the
 *        cache image, a smoke check to verify generally correct
 *        behaviour of the persistent free space managers seems
 *        prudent.
 *
 *        The basic idea of this test is to construct a long
 *        sequence of dataset creations and deletions, all separated
 *        by file open/close cycles with cache image enabled.  If the
 *        perisistant free space managers are performing as expected,
 *        the size of the file should stabilize.
 *
 *        To implement this, proceed as outlined in the cycle of
 *        operation below:
 *
 *        Cycle of operation
 *
 *        1) Create a HDF5 file with the cache image FAPL entry.
 *
 *           Verify that the cache is informed of the cache image
 *           FAPL entry.
 *
 *           Set all cache image flags, forcing full functionality.
 *
 *        2) Create and write a dataset in the file.
 *
 *        3) Close the file.
 *
 *        4) Open the file with the cache image FAPL entry.
 *
 *           Verify that the file contains a metadata cache
 *           image superblock extension message.
 *
 *        5) Create and write a new dataset.
 *
 *        6) Verify and delete the old dataset.
 *
 *        7) Close the file.
 *
 *           If sufficient datasets have been created, and then
 *           deleteded continue to 8).  Otherwise goto 4)
 *
 *        8) Open the file.
 *
 *           Verify that the file contains a metadata cache
 *           image superblock extension message.
 *
 *            9) Verify the last dataset created.
 *
 *           10) Close the file.
 *
 *           11) Open the file.
 *
 *           12) Verify and delete the last dataset.
 *
 *           Verify that a metadata cache image is not loaded.
 *
 *           13) Close the file.
 *
 *             14) Get the size of the file.  Verify that it is less
 *           than 20 KB.  Without deletions and persistent free
 *           space managers, size size is about 167 MB, so this
 *           is sufficient to verify that the persistent free
 *           space managers are more or less doing their job.
 *
 *                 Note that in the absence of paged allocation, file
 *                 size gets below 1 KB.
 *
 *           15) Delete the file.
 *
 * Return:      void
 *
 * Programmer:  John Mainzer
 *              10/31/16
 *
 *-------------------------------------------------------------------------
 */

static unsigned
cache_image_smoke_check_6(hbool_t single_file_vfd)
{
    const char *   fcn_name = "cache_image_smoke_check_6()";
    char           filename[512];
    hbool_t        show_progress = FALSE;
    hid_t          file_id       = -1;
    H5F_t *        file_ptr      = NULL;
    H5C_t *        cache_ptr     = NULL;
    h5_stat_size_t file_size;
    int            cp       = 0;
    int            min_dset = 0;
    int            max_dset = 0;

    TESTING("metadata cache image smoke check 6");

    /* Check for VFD that is a single file */
    if (!single_file_vfd) {
        SKIPPED();
        HDputs("    Cache image not supported with the current VFD.");
        return 0;
    }

    pass = TRUE;

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* setup the file name */
    if (pass) {

        if (h5_fixname(FILENAMES[0], H5P_DEFAULT, filename, sizeof(filename)) == NULL) {

            pass         = FALSE;
            failure_mssg = "h5_fixname() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 1) Create a HDF5 file with the cache image FAPL entry.
     *
     *      Verify that the cache is informed of the cache image FAPL entry.
     *
     *    Set flags forcing full function of the cache image feature.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ TRUE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ TRUE,
                       /* config_fsm         */ TRUE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__ALL_FLAGS,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 2) Create a dataset in the file. */

    if (pass) {

        create_datasets(file_id, min_dset++, max_dset++);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded != 0) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block loaded(1).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 3) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    while ((pass) && (max_dset < MAX_NUM_DSETS)) {

        /* 4) Open the file.
         *
         *    Verify that the metadata cache is instructed to load the
         *    metadata cache image.
         */

        if (pass) {

            open_hdf5_file(/* create_file        */ FALSE,
                           /* mdci_sbem_expected */ TRUE,
                           /* read_only          */ FALSE,
                           /* set_mdci_fapl      */ TRUE,
                           /* config_fsm         */ FALSE,
                           /* set_eoc            */ FALSE,
                           /* hdf_file_name      */ filename,
                           /* cache_image_flags  */ H5C_CI__ALL_FLAGS,
                           /* file_id_ptr        */ &file_id,
                           /* file_ptr_ptr       */ &file_ptr,
                           /* cache_ptr_ptr      */ &cache_ptr);
        }

        if (show_progress)
            HDfprintf(stdout, "%s:L1 cp = %d, max_dset = %d, pass = %d.\n", fcn_name, cp, max_dset, pass);

        /* 5) Create a dataset in the file. */

        if (pass) {

            create_datasets(file_id, min_dset++, max_dset++);
        }

#if H5C_COLLECT_CACHE_STATS
        if (pass) {

            if (cache_ptr->images_loaded == 0) {

                pass         = FALSE;
                failure_mssg = "metadata cache image block not loaded(1).";
            }
        }
#endif /* H5C_COLLECT_CACHE_STATS */

        if (show_progress)
            HDfprintf(stdout, "%s:L2 cp = %d, max_dset = %d, pass = %d.\n", fcn_name, cp + 1, max_dset, pass);

        /* 6) Verify and delete the old dataset. */
        if (pass) {

            delete_datasets(file_id, min_dset - 2, max_dset - 2);
        }

        if (show_progress)
            HDfprintf(stdout, "%s:L3 cp = %d, max_dset = %d, pass = %d.\n", fcn_name, cp + 2, max_dset, pass);

        /* 7) Close the file. */

        if (pass) {

            if (H5Fclose(file_id) < 0) {

                pass         = FALSE;
                failure_mssg = "H5Fclose() failed.\n";
            }
        }

        if (show_progress)
            HDfprintf(stdout, "%s:L4 cp = %d, max_dset = %d, pass = %d.\n", fcn_name, cp + 3, max_dset, pass);
    } /* end while */
    cp += 4;

    /* 8) Open the file.
     *
     *    Verify that the file contains a metadata cache image
     *    superblock extension message.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ TRUE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 9) Verify the last dataset created. */

    if (pass) {

        verify_datasets(file_id, min_dset - 1, max_dset - 1);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded == 0) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block not loaded(2).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 10) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    /* 11) Open the file.
     *
     *    Verify that the file doesn't contain a metadata cache image
     *    superblock extension message.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 12) Verify and delete the last dataset.
     *
     *     Verify that a metadata cache image is not loaded.
     */

    if (pass) {

        delete_datasets(file_id, min_dset - 1, max_dset - 1);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded != 0) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block loaded(2).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    /* 13) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 14) Get the size of the file.  Verify that it is less
     *     than 20 KB.  Without deletions and persistent free
     *     space managers, size size is about 167 MB, so this
     *     is sufficient to verify that the persistent free
     *     space managers are more or less doing their job.
     *
     *     Note that in the absence of paged allocation, file
     *     size gets below 1 KB, but since this test is run both
     *     with and without paged allocation, we must leave some
     *     extra space for the paged allocation case.
     */
    if (pass) {
        if ((file_size = h5_get_file_size(filename, H5P_DEFAULT)) < 0) {
            pass         = FALSE;
            failure_mssg = "h5_get_file_size() failed.\n";
        }
        else if (file_size > 20 * 1024) {
            pass         = FALSE;
            failure_mssg = "unexpectedly large file size.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 15) Delete the file */
    if (pass) {

        if (HDremove(filename) < 0) {

            pass         = FALSE;
            failure_mssg = "HDremove() failed.\n";
        }
    }

    if (pass) {
        PASSED();
    }
    else {
        H5_FAILED();
    }

    if (!pass)
        HDfprintf(stdout, "%s: failure_mssg = \"%s\".\n", FUNC, failure_mssg);

    return !pass;

} /* cache_image_smoke_check_6() */

/*-------------------------------------------------------------------------
 * Function:    cache_image_api_error_check_1()
 *
 * Purpose:     This test is one of a sequence of tests intended
 *        to verify correct management of API errors.
 *
 *        The object of this test is to verify that a file without
 *        a pre-existing cache image that is opened both read only
 *        and with a cache image requested is handle correctly
 *        (the cache image request should be ignored silently).
 *
 *        The test is set up as follows:
 *
 *        1) Create a HDF5 file.
 *
 *        2) Create some datasets in the file.
 *
 *        3) Close the file.
 *
 *        4) Open the file read only with a cache image FAPL entry
 *           requested.
 *
 *        5) Open a dataset.
 *
 *           Verify that it contains the expected data
 *
 *           Verify that the cache image was not loaded.
 *
 *        6) Close the file.
 *
 *        7) Open the file read only.
 *
 *        8) Open a dataset.
 *
 *           Verify that it contains the expected data.
 *
 *           Verify that the cache image was not loaded.
 *
 *        9) Close the file.
 *
 *            10) Open the file read write.
 *
 *           11) Open a dataset.
 *
 *           Verify that it contains the expected data.
 *
 *           12) Close the file.
 *
 *           13) Delete the file.
 *
 * Return:      void
 *
 * Programmer:  John Mainzer
 *              9/25/15
 *
 *-------------------------------------------------------------------------
 */

static unsigned
cache_image_api_error_check_1(hbool_t single_file_vfd)
{
    const char *fcn_name = "cache_image_api_error_check_1()";
    char        filename[512];
    hbool_t     show_progress = FALSE;
    hid_t       file_id       = -1;
    H5F_t *     file_ptr      = NULL;
    H5C_t *     cache_ptr     = NULL;
    int         cp            = 0;

    TESTING("metadata cache image api error check 1");

    /* Check for VFD that is a single file */
    if (!single_file_vfd) {
        SKIPPED();
        HDputs("    Cache image not supported with the current VFD.");
        return 0;
    }

    pass = TRUE;

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* setup the file name */
    if (pass) {

        if (h5_fixname(FILENAMES[0], H5P_DEFAULT, filename, sizeof(filename)) == NULL) {

            pass         = FALSE;
            failure_mssg = "h5_fixname() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 1) Create a HDF5 file. */

    if (pass) {

        open_hdf5_file(/* create_file        */ TRUE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ TRUE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 2) Create some datasets in the file. */

    if (pass) {

        create_datasets(file_id, 0, 5);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded != 0) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block loaded(1).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 3) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 4) Open the file read only with a cache image FAPL entry requested. */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ TRUE,
                       /* set_mdci_fapl      */ TRUE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__ALL_FLAGS,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 5) Open and close a dataset.
     *
     *    Verify that it contains the expected data.
     *
     *    Verify that the cache image was not loaded.
     */

    if (pass) {

        verify_datasets(file_id, 0, 5);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded != 0) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block loaded(2).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 6) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 7) Open the file read only. */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ TRUE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 8) Open and close a dataset.
     *
     *    Verify that it contains the expected data.
     *
     *    Verify that the cache image was not loaded.
     */

    if (pass) {

        verify_datasets(file_id, 0, 5);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded != 0) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block loaded(3).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 9) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 10) Open the file read / write. */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__ALL_FLAGS,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 11) Open and close a dataset.
     *
     *     Verify that it contains the expected data.
     *
     *     Verify that the cache image was not loaded.
     */

    if (pass) {

        verify_datasets(file_id, 0, 5);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded != 0) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block loaded(4).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 12) Close the file.  */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 13) Delete the file */

    if (pass) {

        if (HDremove(filename) < 0) {

            pass         = FALSE;
            failure_mssg = "HDremove() failed.\n";
        }
    }

    if (pass) {
        PASSED();
    }
    else {
        H5_FAILED();
    }

    if (!pass)
        HDfprintf(stdout, "%s: failure_mssg = \"%s\".\n", FUNC, failure_mssg);

    return !pass;

} /* cache_image_api_error_check_1() */

/*-------------------------------------------------------------------------
 * Function:    cache_image_api_error_check_2()
 *
 * Purpose:     This test is one of a sequence of tests intended
 *        to verify correct management of API errors.
 *
 *        The object of this test is to verify that a file with
 *        a pre-existing cache image that is opened both read only
 *        and with a cache image requested is handled correctly
 *        (the cache image request should be ignored silently).
 *
 *        The test is set up as follows:
 *
 *        1) Create a HDF5 file with a cache image requested..
 *
 *        2) Create some datasets in the file.
 *
 *        3) Close the file.
 *
 *        4) Open the file read only with a cache image FAPL entry
 *           requested.
 *
 *        5) Open a dataset.
 *
 *           Verify that it contains the expected data
 *
 *           Verify that the cache image was loaded.
 *
 *        6) Close the file.
 *
 *        7) Open the file read only.
 *
 *        8) Open a dataset.
 *
 *           Verify that it contains the expected data.
 *
 *           Verify that the cache image was loaded.
 *
 *        9) Close the file.
 *
 *            10) Open the file read write.
 *
 *           11) Open a dataset.
 *
 *           Verify that it contains the expected data.
 *
 *           Verify that the cache image was loaded.
 *
 *           12) Close the file.
 *
 *            13) Open the file read write.
 *
 *           14) Open a dataset.
 *
 *           Verify that it contains the expected data.
 *
 *           Verify that the cache image was NOT loaded.
 *
 *           15) Close the file.
 *
 *           16) Delete the file.
 *
 * Return:      void
 *
 * Programmer:  John Mainzer
 *              9/25/15
 *
 *-------------------------------------------------------------------------
 */

static unsigned
cache_image_api_error_check_2(hbool_t single_file_vfd)
{
    const char *fcn_name = "cache_image_api_error_check_2()";
    char        filename[512];
    hbool_t     show_progress = FALSE;
    hid_t       file_id       = -1;
    H5F_t *     file_ptr      = NULL;
    H5C_t *     cache_ptr     = NULL;
    int         cp            = 0;

    TESTING("metadata cache image api error check 2");

    /* Check for VFD that is a single file */
    if (!single_file_vfd) {
        SKIPPED();
        HDputs("    Cache image not supported with the current VFD.");
        return 0;
    }

    pass = TRUE;

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* setup the file name */
    if (pass) {

        if (h5_fixname(FILENAMES[0], H5P_DEFAULT, filename, sizeof(filename)) == NULL) {

            pass         = FALSE;
            failure_mssg = "h5_fixname() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 1) Create a HDF5 file with a cache image requested. */

    if (pass) {

        open_hdf5_file(/* create_file        */ TRUE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ TRUE,
                       /* config_fsm         */ TRUE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__ALL_FLAGS,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 2) Create some datasets in the file. */

    if (pass) {

        create_datasets(file_id, 0, 5);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded != 0) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block loaded(1).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 3) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 4) Open the file read only with a cache image FAPL entry requested. */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ TRUE,
                       /* read_only          */ TRUE,
                       /* set_mdci_fapl      */ TRUE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__ALL_FLAGS,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 5) Open and close a dataset.
     *
     *    Verify that it contains the expected data.
     *
     *    Verify that the cache image was loaded.
     */

    if (pass) {

        verify_datasets(file_id, 0, 5);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded != 1) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block was not loaded(1).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 6) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 7) Open the file read only. */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ TRUE,
                       /* read_only          */ TRUE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ 0,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 8) Open and close a dataset.
     *
     *    Verify that it contains the expected data.
     *
     *    Verify that the cache image was loaded.
     */

    if (pass) {

        verify_datasets(file_id, 0, 5);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded != 1) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block was not loaded(2).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 9) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 10) Open the file read / write. */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ TRUE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__ALL_FLAGS,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 11) Open and close a dataset.
     *
     *     Verify that it contains the expected data.
     *
     *     Verify that the cache image was loaded.
     */

    if (pass) {

        verify_datasets(file_id, 0, 5);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded != 1) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block was not loaded(3).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 12) Close the file.  */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 13) Open the file read / write. */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__ALL_FLAGS,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 14) Open and close a dataset.
     *
     *     Verify that it contains the expected data.
     *
     *     Verify that the cache image was not loaded.
     */

    if (pass) {

        verify_datasets(file_id, 0, 5);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded != 0) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block was loaded(2).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 15) Close the file.  */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 13) Delete the file */

    if (pass) {

        if (HDremove(filename) < 0) {

            pass         = FALSE;
            failure_mssg = "HDremove() failed.\n";
        }
    }

    if (pass) {
        PASSED();
    }
    else {
        H5_FAILED();
    }

    if (!pass)
        HDfprintf(stdout, "%s: failure_mssg = \"%s\".\n", FUNC, failure_mssg);

    return !pass;

} /* cache_image_api_error_check_2() */

/*-------------------------------------------------------------------------
 * Function:    cache_image_api_error_check_3()
 *
 * Purpose:     This test is one of a sequence of tests intended
 *        to verify correct management of API errors.
 *
 *        At present, SWMR and cache image may not be active
 *        at the same time.  The purpose of this test is to
 *        verify that attempts to run SWMR and cache image
 *        at the same time will fail.
 *
 *        The test is set up as follows:
 *
 *        1) Create a HDF5 file with a cache image requested..
 *
 *        2) Try to start SWMR write -- should fail.
 *
 *              3) Discard the file if necessary
 *
 *              4) Attempt to create a HDF5 file with SWMR write
 *           access and cache image requested -- should fail.
 *
 *              5) Discard the file if necessary
 *
 *              6) Create a HDF5 file with a cache image requested.
 *
 *        7) Create some datasets in the file.
 *
 *        8) Close the file.
 *
 *              9) Attempt to open the file with SWMR write access --
 *                 should fail.
 *
 *             10) Discard the file if necessary.
 *
 * Return:      void
 *
 * Programmer:  John Mainzer
 *              12/29/16
 *
 *-------------------------------------------------------------------------
 */

static unsigned
cache_image_api_error_check_3(hbool_t single_file_vfd)
{
    const char *fcn_name = "cache_image_api_error_check_3()";
    char        filename[512];
    hbool_t     show_progress = FALSE;
    hid_t       file_id       = -1;
    H5F_t *     file_ptr      = NULL;
    H5C_t *     cache_ptr     = NULL;
    int         cp            = 0;

    TESTING("metadata cache image api error check 3");

    /* Check for VFD that is a single file */
    if (!single_file_vfd) {
        SKIPPED();
        HDputs("    Cache image not supported with the current VFD.");
        return 0;
    }

    pass = TRUE;

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* setup the file name */
    if (pass) {

        if (h5_fixname(FILENAMES[0], H5P_DEFAULT, filename, sizeof(filename)) == NULL) {

            pass         = FALSE;
            failure_mssg = "h5_fixname() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 1) Create a HDF5 file with a cache image requested. */

    if (pass) {

        open_hdf5_file(/* create_file        */ TRUE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ TRUE,
                       /* config_fsm         */ TRUE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__ALL_FLAGS,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 2) Try to start SWMR write -- should fail. */

    if (pass) {

        H5E_BEGIN_TRY
        {
            if (H5Fstart_swmr_write(file_id) == SUCCEED) {

                pass         = FALSE;
                failure_mssg = "SWMR start succeeded in file with cache image.";
            }
        }
        H5E_END_TRY;
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 3) Discard the file if necessary */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }

        if (HDremove(filename) < 0) {

            pass         = FALSE;
            failure_mssg = "HDremove() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 4) Attempt to create a HDF5 file with SWMR write
     *    access and cache image requested -- should fail.
     */

    attempt_swmr_open_hdf5_file(/* create_file   */ TRUE,
                                /* set_mdci_fapl */ TRUE,
                                /* hdf_file_name */ filename);

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 5) Discard the file if necessary */

    if (pass) {

        /* file probably doesn't exist, so don't
         * error check the remove call.
         */
        HDremove(filename);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 6) Create a HDF5 file with a cache image requested. */

    if (pass) {

        open_hdf5_file(/* create_file        */ TRUE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ TRUE,
                       /* config_fsm         */ TRUE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__ALL_FLAGS,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 7) Create some datasets in the file. */

    if (pass) {

        create_datasets(file_id, 0, 5);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded != 0) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block loaded(1).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 8) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 9) Attempt to open the file with SWMR write access -- should fail. */

    attempt_swmr_open_hdf5_file(/* create_file   */ FALSE,
                                /* set_mdci_fapl */ TRUE,
                                /* hdf_file_name */ filename);

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 10) Discard the file if necessary. */

    if (pass) {

        if (HDremove(filename) < 0) {

            pass         = FALSE;
            failure_mssg = "HDremove() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    if (pass) {
        PASSED();
    }
    else {
        H5_FAILED();
    }

    if (!pass)
        HDfprintf(stdout, "%s: failure_mssg = \"%s\".\n", FUNC, failure_mssg);

    return !pass;

} /* cache_image_api_error_check_3() */

/*-------------------------------------------------------------------------
 * Function:    cache_image_api_error_check_4()
 *
 * Purpose:     This test is one of a sequence of tests intended
 *        to verify correct management of API errors.
 *
 *        The object of this test is to verify that a request for
 *        a cache image when a version 2 superblock is not available/
 *        not requested is handled correctly.
 *        (the cache image request should be ignored silently).
 *
 *        The test is set up as follows:
 *
 *        1) Create a FAPL requesting  a cache image, but WITHOUT
 *           specifying the latest file format.
 *
 *        2) Create a HDF5 file using the above FAPL.
 *
 *        3) Create some datasets in the file.
 *
 *        4) Close the file.
 *
 *        5) Open the file read only.  Verify that the file doesn't
 *           contain a cache image.
 *
 *        6) Verify that the datasets exist and contain the
 *           expected data
 *
 *           Verify that the cache image was not loaded.
 *
 *        7) Close the file.
 *
 *        8) Open the file R/W using the FAPL defined in 1) above.
 *           Verify that the file does not contain a cache image.
 *
 *        9) Close the file.
 *
 *           10) Open the file R/W using the FAPL defined in 1) above.
 *               Verify that the file does not contain a cache image.
 *
 *           11) Verify that the data sets contain the expected data
 *
 *           Verify that a cache image was not loaded.
 *
 *           12) Create several more data sets.
 *
 *           13) Close the file.
 *
 *            14) Open the file read write.
 *
 *                Verify that the file does not contain a cache image.
 *
 *           15) Verify the data sets exist and contain the expected
 *               data.
 *
 *           Verify that a cache image was not loaded.
 *
 *           16) Close the file.
 *
 *           17) Delete the file.
 *
 * Return:      void
 *
 * Programmer:  John Mainzer
 *              9/25/15
 *
 *-------------------------------------------------------------------------
 */

static unsigned
cache_image_api_error_check_4(hbool_t single_file_vfd)
{
    const char *              fcn_name = "cache_image_api_error_check_4()";
    char                      filename[512];
    hbool_t                   show_progress = FALSE;
    hid_t                     fapl_id       = -1;
    hid_t                     file_id       = -1;
    H5F_t *                   file_ptr      = NULL;
    H5C_t *                   cache_ptr     = NULL;
    int                       cp            = 0;
    H5AC_cache_image_config_t cache_image_config;

    TESTING("metadata cache image api error check 4");

    /* Check for VFD that is a single file */
    if (!single_file_vfd) {
        SKIPPED();
        HDputs("    Cache image not supported with the current VFD.");
        return 0;
    }

    pass = TRUE;

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* setup the file name */
    if (pass) {

        if (h5_fixname(FILENAMES[0], H5P_DEFAULT, filename, sizeof(filename)) == NULL) {

            pass         = FALSE;
            failure_mssg = "h5_fixname() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /*    1) Create a FAPL requesting  a cache image, but WITHOUT
     *           specifying the latest file format.
     */
    if (pass) {

        fapl_id = h5_fileaccess();

        if (fapl_id < 0) {

            pass         = FALSE;
            failure_mssg = "h5_fileaccess() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    if (pass) {

        /* set cache image config fields to taste */
        cache_image_config.version            = H5AC__CURR_CACHE_IMAGE_CONFIG_VERSION;
        cache_image_config.generate_image     = TRUE;
        cache_image_config.save_resize_status = FALSE;
        cache_image_config.entry_ageout       = H5AC__CACHE_IMAGE__ENTRY_AGEOUT__NONE;

        if (H5Pset_mdc_image_config(fapl_id, &cache_image_config) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Pset_mdc_image_config() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 2) Create a HDF5 file using the above FAPL. */

    if (pass) {

        file_id = H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl_id);

        if (file_id < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fcreate() failed.\n";
        }
        else {

            file_ptr = (struct H5F_t *)H5VL_object_verify(file_id, H5I_FILE);

            if (file_ptr == NULL) {

                pass         = FALSE;
                failure_mssg = "Can't get file_ptr.";
            }
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* get a pointer to the files internal data structure and then
     * to the cache structure
     */
    if (pass) {

        if (file_ptr->shared->cache == NULL) {

            pass         = FALSE;
            failure_mssg = "can't get cache pointer(1).\n";
        }
        else {

            cache_ptr = file_ptr->shared->cache;
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 3) Create some datasets in the file. */

    if (pass) {

        create_datasets(file_id, 0, 5);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        HDassert(cache_ptr);

        if (cache_ptr->images_loaded != 0) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block loaded(1).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 4) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 5) Open the file read only. */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ TRUE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__ALL_FLAGS,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 6) Verify that the datasets exist and contain the
     *    expected data
     */

    if (pass) {

        verify_datasets(file_id, 0, 5);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded != 0) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block loaded(2).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 7) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 8) Open the file R/W using the FAPL defined in 1) above.
     *
     *    Verify that the file does not contain a cache image.
     */

    if (pass) {

        file_id = H5Fopen(filename, H5F_ACC_RDWR, fapl_id);

        if (file_id < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fopen() failed.\n";
        }
        else {

            file_ptr = (struct H5F_t *)H5VL_object_verify(file_id, H5I_FILE);

            if (file_ptr == NULL) {

                pass         = FALSE;
                failure_mssg = "Can't get file_ptr.";
            }
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* get a pointer to the files internal data structure and then
     * to the cache structure
     */
    if (pass) {

        if (file_ptr->shared->cache == NULL) {

            pass         = FALSE;
            failure_mssg = "can't get cache pointer(1).\n";
        }
        else {

            cache_ptr = file_ptr->shared->cache;
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    if (pass) {

        if ((cache_ptr->load_image == TRUE) || (cache_ptr->delete_image == TRUE)) {

            pass         = FALSE;
            failure_mssg = "mdci sb extension message present?\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 9) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 10) Open the file R/W using the FAPL defined in 1) above.
     *     Verify that the file does not contain a cache image.
     */

    if (pass) {

        file_id = H5Fopen(filename, H5F_ACC_RDWR, fapl_id);

        if (file_id < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fopen() failed.\n";
        }
        else {

            file_ptr = (struct H5F_t *)H5VL_object_verify(file_id, H5I_FILE);

            if (file_ptr == NULL) {

                pass         = FALSE;
                failure_mssg = "Can't get file_ptr.";
            }
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* get a pointer to the files internal data structure and then
     * to the cache structure
     */
    if (pass) {

        if (file_ptr->shared->cache == NULL) {

            pass         = FALSE;
            failure_mssg = "can't get cache pointer(1).\n";
        }
        else {

            cache_ptr = file_ptr->shared->cache;
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    if (pass) {

        if ((cache_ptr->load_image == TRUE) || (cache_ptr->delete_image == TRUE)) {

            pass         = FALSE;
            failure_mssg = "mdci sb extension message present?\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 11) Verify that the data sets contain the expected data
     *
     *     Verify that a cache image was not loaded.
     */

    if (pass) {

        verify_datasets(file_id, 0, 5);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded != 0) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block loaded(2).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 12) Create several more data sets. */

    if (pass) {

        create_datasets(file_id, 6, 10);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 13) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 14) Open the file read write.
     *
     *     Verify that the file does not contain a cache image.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__ALL_FLAGS,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 15) Verify the data sets exist and contain the expected  data.
     *
     *     Verify that a cache image was not loaded.
     */

    if (pass) {

        verify_datasets(file_id, 0, 10);
    }

#if H5C_COLLECT_CACHE_STATS
    if (pass) {

        if (cache_ptr->images_loaded != 0) {

            pass         = FALSE;
            failure_mssg = "metadata cache image block loaded(2).";
        }
    }
#endif /* H5C_COLLECT_CACHE_STATS */

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 16) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 17) Delete the file */

    if (pass) {

        if (HDremove(filename) < 0) {

            pass         = FALSE;
            failure_mssg = "HDremove() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* tidy up */
    if (fapl_id != -1)
        H5Pclose(fapl_id);

    if (pass) {
        PASSED();
    }
    else {
        H5_FAILED();
    }

    if (!pass)
        HDfprintf(stdout, "%s: failure_mssg = \"%s\".\n", FUNC, failure_mssg);

    return !pass;

} /* cache_image_api_error_check_4() */

/*-------------------------------------------------------------------------
 * Function:    get_free_sections_test()
 *
 * Purpose:     It is possible that H5Fget_free_sections() to be
 *        called before any activity on the metadata cache.
 *              This is a potential problem, as satisfying the
 *              H5Fget_free_sections() call requires access to all
 *              free space managers.  When persistent free space
 *              managers are enabled, this will require calling
 *              H5MF_tidy_self_referential_fsm_hack().  This is a
 *              non issue in the absence of a cache image.  However,
 *        this is a problem if a cache image exists, as
 *        the call to H5MF_tidy_self_referential_fsm_hack()
 *        will free the file space allocated to the cache
 *        image.
 *
 *        The objective of this test is to create a test file
 *        with both non-empty self referential presistant
 *              free space managers, and a cache image, and then
 *              verify that this situation is handled correctly if
 *              H5Fget_free_sections() is called before the metadata
 *              cache image is loaded.
 *
 *        The test is set up as follows:
 *
 *         1) Create a HDF5 file with a cache image requested
 *                  and persistent free space managers enabled.
 *
 *         2) Create some data sets, and then delete some of
 *                  of those near the beginning of the file.
 *
 *               3) Close the file.
 *
 *               4) Open the file read only.
 *
 *               5) Verify that a cache image exists, and has not
 *                  been loaded.
 *
 *               6) Verify that one or more self referential FSMs
 *                  have been stored at the end of the file just
 *                  before the cache image.
 *
 *               7) Call H5Fget_free_sections().
 *
 *               8) Verify that the cache image has been loaded and
 *                  that the self referential FSMs have been floated.
 *
 *               9) Verify that the remaining data sets contain the
 *                  expected data.
 *
 *              10) Close the file.
 *
 *              11) Open the file R/W.
 *
 *              12) Verify that a cache image exists, and has not
 *                  been loaded.
 *
 *              13) Verify that one or more self referential FSMs
 *                  have been stored at the end of the file just
 *                  before the cache image.
 *
 *              14) Call H5Fget_free_sections().
 *
 *              15) Verify that the cache image has been loaded and
 *                  that the self referential FSMs have been floated.
 *
 *              16) Verify that the remaining data sets contain the
 *                  expected data.
 *
 *              17) Delete the remaining data sets.
 *
 *        18) Close the file.
 *
 *              19) Verify that file space has been reclaimed.
 *
 *              20) Discard the file.
 *
 * Return:      void
 *
 * Programmer:  John Mainzer
 *              1/10/17
 *
 *-------------------------------------------------------------------------
 */
static unsigned
get_free_sections_test(hbool_t single_file_vfd)
{
    const char *   fcn_name = "get_free_sections_test()";
    char           filename[512];
    hbool_t        show_progress = FALSE;
    hid_t          file_id       = -1;
    H5F_t *        file_ptr      = NULL;
    H5C_t *        cache_ptr     = NULL;
    h5_stat_size_t file_size;
    int            cp = 0;

    TESTING("Cache image / H5Fget_free_sections() interaction");

    /* Check for VFD that is a single file */
    if (!single_file_vfd) {
        SKIPPED();
        HDputs("    Cache image not supported with the current VFD.");
        return 0;
    }

    pass = TRUE;

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* setup the file name */
    if (pass) {

        if (h5_fixname(FILENAMES[0], H5P_DEFAULT, filename, sizeof(filename)) == NULL) {

            pass         = FALSE;
            failure_mssg = "h5_fixname() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 1) Create a HDF5 file with a cache image requested
     *    and persistent free space managers enabled.
     */

    if (pass) {

        open_hdf5_file(/* create_file        */ TRUE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ TRUE,
                       /* config_fsm         */ TRUE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__ALL_FLAGS,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 2) Create some data sets, and then delete some of
     *    of those near the beginning of the file.
     */

    if (pass) {

        create_datasets(file_id, 1, 10);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    if (pass) {

        verify_datasets(file_id, 1, 10);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    if (pass) {

        delete_datasets(file_id, 1, 5);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 3) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed (1).\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 4) Open the file read only. */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ TRUE,
                       /* read_only          */ TRUE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__ALL_FLAGS,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 5) Verify that a cache image exists, and has not been loaded. */

    if (pass) {

        if ((!file_ptr->shared->cache->load_image) || (file_ptr->shared->cache->image_loaded)) {

            pass         = FALSE;
            failure_mssg = "unexpected cache image status.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 6) Verify that one or more self referential FSMs
     *    have been stored at the end of the file just
     *    before the cache image.
     */

    if (pass) {

        /* file_ptr->shared->first_alloc_dealloc is set to FALSE if the
         * file is opened R/O.
         */
        if ((!H5F_addr_defined(file_ptr->shared->eoa_fsm_fsalloc)) ||
            (!H5F_addr_defined(file_ptr->shared->cache->image_addr)) ||
            (H5F_addr_gt(file_ptr->shared->eoa_fsm_fsalloc, file_ptr->shared->cache->image_addr))) {

            pass         = FALSE;
            failure_mssg = "unexpected cache image status (1).\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 7) Call H5Fget_free_sections(). */

    if (pass) {

        if (H5Fget_free_sections(file_id, H5FD_MEM_DEFAULT, (size_t)0, NULL) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fget_free_sections() failed (1).\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 8) Verify that the cache image has been loaded and
     *    that the self referential FSMs have been floated.
     */
    if (pass) {

        if (!file_ptr->shared->cache->image_loaded) {

            pass         = FALSE;
            failure_mssg = "cache image not loaded (1).\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 9) Verify that the remaining data sets contain the expected data. */

    if (pass) {

        verify_datasets(file_id, 6, 10);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 10) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed (2).\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 11) Open the file R/W. */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ TRUE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__ALL_FLAGS,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 12) Verify that a cache image exists, and has not been loaded. */

    if (pass) {

        if ((!file_ptr->shared->cache->load_image) || (file_ptr->shared->cache->image_loaded)) {

            pass         = FALSE;
            failure_mssg = "unexpected cache image status.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 13) Verify that one or more self referential FSMs
     *     have been stored at the end of the file just
     *     before the cache image.
     */
    if (pass) {

        if ((!H5F_addr_defined(file_ptr->shared->eoa_fsm_fsalloc)) ||
            (!H5F_addr_defined(file_ptr->shared->cache->image_addr)) ||
            (H5F_addr_gt(file_ptr->shared->eoa_fsm_fsalloc, file_ptr->shared->cache->image_addr))) {

            pass         = FALSE;
            failure_mssg = "unexpected cache image status (2).\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 14) Call H5Fget_free_sections(). */

    if (pass) {

        if (H5Fget_free_sections(file_id, H5FD_MEM_DEFAULT, (size_t)0, NULL) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fget_free_sections() failed (2).\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 15) Verify that the cache image has been loaded and
     *     that the self referential FSMs have been floated.
     */
    if (pass) {

        if (!file_ptr->shared->cache->image_loaded) {

            pass         = FALSE;
            failure_mssg = "cache image not loaded (2).\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 16) Verify that the remaining data sets contain the expected data. */

    if (pass) {

        verify_datasets(file_id, 6, 10);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 17) Delete the remaining data sets. */

    if (pass) {

        delete_datasets(file_id, 6, 10);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 18) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed (3).\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 19) Verify that file space has been reclaimed. */

    if (pass) {

        if ((file_size = h5_get_file_size(filename, H5P_DEFAULT)) < 0) {

            pass         = FALSE;
            failure_mssg = "h5_get_file_size() failed.\n";
        }
        else if (file_size > 20 * 1024) {

            pass         = FALSE;
            failure_mssg = "unexpectedly large file size.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 20) Discard the file. */

    if (pass) {

        if (HDremove(filename) < 0) {

            pass         = FALSE;
            failure_mssg = "HDremove() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    if (pass) {
        PASSED();
    }
    else {
        H5_FAILED();
    }

    if (!pass)
        HDfprintf(stdout, "%s: failure_mssg = \"%s\".\n", FUNC, failure_mssg);

    return !pass;

} /* get_free_sections_test() */

/*-------------------------------------------------------------------------
 * Function:    evict_on_close_test()
 *
 * Purpose:     If a file containing a cache image which in turn
 *              contains dirty entries is opened R/O, the metadata
 *              cache must refuse to evict the dirty entries, as
 *              it will not be able to reload them from file.  This
 *              is a bit tricky, as the dirty entries must marked as
 *              clean in the metadata cache so that the MDC will not
 *              attempt to flush then on file close.
 *
 *              The objective of this test is to verify that the
 *              metadata will not evict dirty entries in the above
 *              context when the file is opened with the evict on close
 *              FAPL entry.
 *
 *              Do this by creating a HDF5 file with a cache image
 *              containing dirty metadata.
 *
 *              Then close the file, re-open it R/O, and scan its
 *              contents twice.  If evict on close succeeds in evicting
 *              the dirty metadata, the second scan will fail, as valid
 *              versions of the dirty metadata will not be available.
 *
 *              To make the test more useful, enable persistent free
 *              space managers.
 *
 *        The test is set up as follows:
 *
 *         1) Create a HDF5 file without a cache image requested
 *                  and persistent free space managers enabled.
 *
 *         2) Create some data sets and verify them.
 *
 *               3) Close the file.
 *
 *               4) Open the file R/W, and with cache image requested.
 *
 *               5) Verify the datasets created in 2) above.  This will
 *                  force their (clean) metadata into the metadata cache,
 *                  and hence into the cache image.
 *
 *               6) Create some more datasets.
 *
 *               7) Close the file.
 *
 *               8) Open the file R/O and with evict on close enabled.
 *
 *               9) Verify all datasets twice.
 *
 *              10) Close the file.
 *
 *              11) Open the file R/W and with evict on close enabled.
 *
 *              12) Verify all datasets twice.
 *
 *              13) Close the file.
 *
 *              14) Discard the file.
 *
 * Return:      void
 *
 * Programmer:  John Mainzer
 *              3/23/17
 *
 *-------------------------------------------------------------------------
 */
static unsigned
evict_on_close_test(hbool_t single_file_vfd)
{
#ifndef H5_HAVE_PARALLEL
    const char *fcn_name = "evict_on_close_test()";
    char        filename[512];
    hbool_t     show_progress = FALSE;
    hbool_t     verbose       = FALSE;
    hid_t       file_id       = -1;
    H5F_t *     file_ptr      = NULL;
    H5C_t *     cache_ptr     = NULL;
    int         cp            = 0;
#endif /* H5_HAVE_PARALLEL */

    TESTING("Cache image / evict on close interaction");

#ifdef H5_HAVE_PARALLEL
    SKIPPED();
    HDputs("    EoC not supported in the parallel library.");
    return 0;
#else

    /* Check for VFD that is a single file */
    if (!single_file_vfd) {
        SKIPPED();
        HDputs("    Cache image not supported with the current VFD.");
        return 0;
    }

    pass = TRUE;

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* setup the file name */
    if (pass) {

        if (h5_fixname(FILENAMES[0], H5P_DEFAULT, filename, sizeof(filename)) == NULL) {

            pass         = FALSE;
            failure_mssg = "h5_fixname() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 1) Create a HDF5 file without a cache image requested
     *    and persistent free space managers enabled.
     */
    if (pass) {

        open_hdf5_file(/* create_file        */ TRUE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ TRUE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__ALL_FLAGS,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 2) Create some data sets and verify them.  */

    if (pass) {

        create_datasets(file_id, 1, 10);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    if (pass) {

        verify_datasets(file_id, 1, 10);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 3) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed (1).\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 4) Open the file R/W, and with cache image requested. */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ FALSE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ TRUE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ FALSE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__ALL_FLAGS,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 5) Verify the datasets created in 2) above.  This will
     *    force their (clean) metadata into the metadata cache,
     *    and hence into the cache image.
     */

    if (pass) {

        verify_datasets(file_id, 1, 10);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 6) Create some more datasets and verify them */

    if (pass) {

        create_datasets(file_id, 11, 20);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    if (pass) {

        verify_datasets(file_id, 11, 20);
    }

    if (verbose) {

        HDassert(cache_ptr);
        HDassert(cache_ptr->magic == H5C__H5C_T_MAGIC);

        HDfprintf(stdout, "index size / index dirty size = %lld / %lld\n", (long long)(cache_ptr->index_size),
                  (long long)(cache_ptr->dirty_index_size));
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 7) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed (2).\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 8) Open the file R/O and with evict on close enabled. */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ TRUE,
                       /* read_only          */ TRUE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ TRUE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__ALL_FLAGS,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s*: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 9) Verify all datasets twice */

    if (pass) {

        verify_datasets(file_id, 1, 20);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    if (pass) {

        verify_datasets(file_id, 1, 20);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 10) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed (3).\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 11) Open the file R/w and with evict on close enabled. */

    if (pass) {

        open_hdf5_file(/* create_file        */ FALSE,
                       /* mdci_sbem_expected */ TRUE,
                       /* read_only          */ FALSE,
                       /* set_mdci_fapl      */ FALSE,
                       /* config_fsm         */ FALSE,
                       /* set_eoc            */ TRUE,
                       /* hdf_file_name      */ filename,
                       /* cache_image_flags  */ H5C_CI__ALL_FLAGS,
                       /* file_id_ptr        */ &file_id,
                       /* file_ptr_ptr       */ &file_ptr,
                       /* cache_ptr_ptr      */ &cache_ptr);
    }

    if (show_progress)
        HDfprintf(stdout, "%s*: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 12) Verify all datasets twice */

    if (pass) {

        verify_datasets(file_id, 1, 20);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    if (pass) {

        verify_datasets(file_id, 1, 20);
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 13) Close the file. */

    if (pass) {

        if (H5Fclose(file_id) < 0) {

            pass         = FALSE;
            failure_mssg = "H5Fclose() failed (3).\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    /* 14) Discard the file. */

    if (pass) {

        if (HDremove(filename) < 0) {

            pass         = FALSE;
            failure_mssg = "HDremove() failed.\n";
        }
    }

    if (show_progress)
        HDfprintf(stdout, "%s: cp = %d, pass = %d.\n", fcn_name, cp++, pass);

    if (pass) {
        PASSED();
    }
    else {
        H5_FAILED();
    }

    if (!pass)
        HDfprintf(stdout, "%s: failure_mssg = \"%s\".\n", FUNC, failure_mssg);

    return !pass;
#endif /* H5_HAVE_PARALLEL */

} /* evict_on_close_test() */

/*-------------------------------------------------------------------------
 * Function:    main
 *
 * Purpose:     Run tests on the cache code contained in H5C.c
 *
 * Return:      Success:
 *
 *              Failure:
 *
 * Programmer:  John Mainzer
 *              6/24/04
 *
 *-------------------------------------------------------------------------
 */
int
main(void)
{
    const char *env_h5_drvr;     /* File driver value from environment */
    hbool_t     single_file_vfd; /* Whether VFD used stores data in a single file */
    unsigned    nerrs = 0;
    int         express_test;

    /* Get the VFD to use */
    env_h5_drvr = HDgetenv("HDF5_DRIVER");
    if (env_h5_drvr == NULL)
        env_h5_drvr = "nomatch";

    H5open();

    express_test = GetTestExpress();

    HDprintf("=========================================\n");
    HDprintf("Cache image tests\n");
    HDprintf("        express_test = %d\n", express_test);
    HDprintf("=========================================\n");

    /* Check for VFD which stores data in multiple files */
    single_file_vfd = (hbool_t)(HDstrcmp(env_h5_drvr, "split") != 0 && HDstrcmp(env_h5_drvr, "multi") != 0 &&
                                HDstrcmp(env_h5_drvr, "family") != 0);

    nerrs += check_cache_image_ctl_flow_1(single_file_vfd);
    nerrs += check_cache_image_ctl_flow_2(single_file_vfd);
    nerrs += check_cache_image_ctl_flow_3(single_file_vfd);
    nerrs += check_cache_image_ctl_flow_4(single_file_vfd);
    nerrs += check_cache_image_ctl_flow_5(single_file_vfd);
    nerrs += check_cache_image_ctl_flow_6(single_file_vfd);

    nerrs += cache_image_smoke_check_1(single_file_vfd);
    nerrs += cache_image_smoke_check_2(single_file_vfd);
    nerrs += cache_image_smoke_check_3(single_file_vfd);
    nerrs += cache_image_smoke_check_4(single_file_vfd);
    nerrs += cache_image_smoke_check_5(single_file_vfd);
    nerrs += cache_image_smoke_check_6(single_file_vfd);

    nerrs += cache_image_api_error_check_1(single_file_vfd);
    nerrs += cache_image_api_error_check_2(single_file_vfd);
    nerrs += cache_image_api_error_check_3(single_file_vfd);
    nerrs += cache_image_api_error_check_4(single_file_vfd);

    nerrs += get_free_sections_test(single_file_vfd);
    nerrs += evict_on_close_test(single_file_vfd);

    return (nerrs > 0);

} /* main() */
