hdf5_ep

​

    /*

     * Write the objects, monotonically increasing in length.  Since this is

     * a clean file, the addresses allocated for the collections should also

     * be monotonically increasing.

     */

    for (i=0; i<1024; i++) {

    size = i+1;

    memset (out, 'A'+i%26, size);

    status = H5HG_insert (f, H5P_DATASET_XFER_DEFAULT, size, out, obj+i);

    if (status<0) {

        H5_FAILED();

        puts("    Unable to insert object into global heap");

        nerrors++;

    } else if (i && H5F_addr_gt (obj[i-1].addr, obj[i].addr)) {

        H5_FAILED();

        puts("    Collection addresses are not monotonically increasing");

        nerrors++;

    }

    }

​

    /*

     * Now try to read each object back.

     */

    for (i=0; i<1024; i++) {

    size = i+1;

    memset (out, 'A'+i%26, size);

    if (NULL==H5HG_read (f, H5P_DATASET_XFER_DEFAULT, obj+i, in, NULL)) {

        H5_FAILED();

        puts("    Unable to read object");

        nerrors++;

    } else if (memcmp (in, out, size)) {

        H5_FAILED();

        puts("    Value read doesn't match value written");

        nerrors++;

    }

    }

    goto error;

    }

​

    /*

     * Write the objects, monotonically decreasing in length.

     */

    for (i=0; i<1024; i++) {

    size = 1024-i;

    memset (out, 'A'+i%26, size);

    if (H5HG_insert (f, H5P_DATASET_XFER_DEFAULT, size, out, obj+i)<0) {

        H5_FAILED();

        puts("    Unable to insert object into global heap");

        nerrors++;

    }

    }

​

    /*

     * Now try to read each object back.

     */

    for (i=0; i<1024; i++) {

    size = 1024-i;

    memset (out, 'A'+i%26, size);

    if (NULL==H5HG_read (f, H5P_DATASET_XFER_DEFAULT, obj+i, in, NULL)) {

        H5_FAILED();

        puts("    Unable to read object");

        nerrors++;

    } else if (memcmp (in, out, size)) {

        H5_FAILED();

        puts("    Value read doesn't match value written");

        nerrors++;

    }

    }

    H5_FAILED();

    puts("    Unable to create file");

    goto error;

    }

​

    /* Create some stuff */

    for (i=0; i<1024; i++) {

    size = i%30+100;

    memset (out, 'A'+i%26, size);

    status = H5HG_insert (f, H5P_DATASET_XFER_DEFAULT, size, out, obj+i);

    if (status<0) {

        H5_FAILED();

        puts("    Unable to insert object into global heap");

        nerrors++;

    }

    }

​

    /* Remove everything */

    for (i=0; i<1024; i++) {

    H5_FAILED();

    puts("    Unable to create file");

    goto error;

    }

​

    for (i=0; i<1024; i++) {

    /* Insert */

    size = i%30+100;

    memset (out, 'A'+i%26, size);

    status = H5HG_insert (f, H5P_DATASET_XFER_DEFAULT, size, out, obj+i);

    if (status<0) {

        H5_FAILED();

        puts("    Unable to insert object into global heap");

        nerrors++;

    }

​

    /*

     * Remove every third one beginning with the second, but after the

     * next one has already been inserted.  That is, insert A, B, C;

     * remove B, insert D, E, F; remove E; etc.

     */

    if (1==i%3) {

        status = H5HG_remove (f, H5P_DATASET_XFER_DEFAULT, obj+i-1);

        if (status<0) {

        H5_FAILED();

        puts("    Unable to remove object");

        nerrors++;

        }

        memset (obj+i-1, 0, sizeof *obj);

    }

    }

​