2010-06-03 21:24:43 +08:00
|
|
|
/* This is part of the netCDF package.
|
2018-12-05 08:03:56 +08:00
|
|
|
Copyright 2018 University Corporation for Atmospheric Research/Unidata
|
2010-06-03 21:24:43 +08:00
|
|
|
See COPYRIGHT file for conditions of use.
|
|
|
|
|
|
|
|
|
|
Test HDF5 file code. These are not intended to be exhaustive tests,
|
|
|
|
|
but they use HDF5 the same way that netCDF-4 does, so if these
|
|
|
|
|
tests don't work, than netCDF-4 won't work either.
|
|
|
|
|
*/
|
2011-03-21 23:45:17 +08:00
|
|
|
|
2011-11-14 12:20:19 +08:00
|
|
|
#include "h5_err_macros.h"
|
2011-03-15 18:19:08 +08:00
|
|
|
#include <hdf5.h>
|
2010-06-03 21:24:43 +08:00
|
|
|
#include <H5DSpublic.h>
|
|
|
|
|
|
|
|
|
|
#define FILE_NAME "tst_h_files2.h5"
|
|
|
|
|
|
|
|
|
|
int
|
|
|
|
|
main()
|
|
|
|
|
{
|
|
|
|
|
printf("\n*** Checking HDF5 file functions some more.\n");
|
|
|
|
|
printf("*** Checking opaque attribute creation...");
|
|
|
|
|
#define OPAQUE_SIZE 20
|
|
|
|
|
#define OPAQUE_NAME "type"
|
|
|
|
|
#define ATT_NAME "att_name"
|
|
|
|
|
#define DIM_LEN 3
|
|
|
|
|
{
|
|
|
|
|
hid_t fileid, access_plist, typeid, spaceid, attid;
|
|
|
|
|
hsize_t dims[1]; /* netcdf attributes always 1-D. */
|
|
|
|
|
unsigned char data[DIM_LEN][OPAQUE_SIZE];
|
|
|
|
|
int j, k;
|
|
|
|
|
|
|
|
|
|
/* Initialize some data. */
|
|
|
|
|
for (j = 0; j < DIM_LEN; j++)
|
|
|
|
|
for (k = 0; k < OPAQUE_SIZE; k++)
|
|
|
|
|
data[j][k] = 42;
|
|
|
|
|
|
|
|
|
|
/* Set the access list so that closes will fail if something is
|
|
|
|
|
* still open in the file. */
|
|
|
|
|
if ((access_plist = H5Pcreate(H5P_FILE_ACCESS)) < 0) ERR;
|
|
|
|
|
if (H5Pset_fclose_degree(access_plist, H5F_CLOSE_SEMI)) ERR;
|
|
|
|
|
|
|
|
|
|
/* Create file. */
|
|
|
|
|
if ((fileid = H5Fcreate(FILE_NAME, H5F_ACC_TRUNC, H5P_DEFAULT,
|
|
|
|
|
access_plist)) < 0) ERR;
|
|
|
|
|
/* Add an opaque type. */
|
|
|
|
|
if ((typeid = H5Tcreate(H5T_OPAQUE, OPAQUE_SIZE)) < 0) ERR;
|
|
|
|
|
if (H5Tcommit(fileid, OPAQUE_NAME, typeid) < 0) ERR;
|
|
|
|
|
|
|
|
|
|
/* Add attribute of this type. */
|
|
|
|
|
dims[0] = 3;
|
|
|
|
|
if ((spaceid = H5Screate_simple(1, dims, NULL)) < 0) ERR;
|
|
|
|
|
if ((attid = H5Acreate(fileid, ATT_NAME, typeid, spaceid, H5P_DEFAULT)) < 0) ERR;
|
|
|
|
|
if (H5Awrite(attid, typeid, data) < 0) ERR;
|
|
|
|
|
|
|
|
|
|
if (H5Aclose(attid) < 0) ERR;
|
|
|
|
|
if (H5Sclose(spaceid) < 0) ERR;
|
|
|
|
|
if (H5Tclose(typeid) < 0) ERR;
|
|
|
|
|
if (H5Fclose(fileid) < 0) ERR;
|
|
|
|
|
if (H5Pclose(access_plist) < 0) ERR;
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
SUMMARIZE_ERR;
|
|
|
|
|
|
|
|
|
|
FINAL_RESULTS;
|
|
|
|
|
}
|
