mirror/netcdf-c
2
0
Fork 0
mirror of https://github.com/Unidata/netcdf-c.git synced 2025-02-23 16:59:54 +08:00
Code Issues Packages Projects Releases Wiki Activity

uncommented test code

Browse Source
This commit is contained in:
Ed Hartnett 2018-08-21 06:36:40 -06:00
parent 0bf04076dc
commit b57b87c971
1 changed files with 36 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

81
nc_test4/tst_files6.c
View File

@ -21,45 +21,45 @@ int
main(int argc, char **argv)
{
printf("\n*** Testing netcdf file functions some more.\n");
/* printf("*** testing Jeff Whitaker's test..."); */
/* { */
/* #define DIM_NAME "xc" */
/* #define DIM_LEN 134 */
/* #define VAR_NAME1 "var1" */
/* #define VAR_NAME2 "var2" */
printf("*** testing Jeff Whitaker's test...");
{
#define DIM_NAME "xc"
#define DIM_LEN 134
#define VAR_NAME1 "var1"
#define VAR_NAME2 "var2"
/* int ncid, dimid, varid1, varid2, dimid_in; */
/* int ndims_in, natts_in; */
/* size_t len_in; */
/* char name_in[NC_MAX_NAME + 1]; */
/* nc_type xtype_in; */
int ncid, dimid, varid1, varid2, dimid_in;
int ndims_in, natts_in;
size_t len_in;
char name_in[NC_MAX_NAME + 1];
nc_type xtype_in;
/* if (nc_create(FILE_NAME, NC_CLOBBER|NC_NETCDF4, &ncid)) ERR; */
/* if (nc_def_dim(ncid, DIM_NAME, DIM_LEN, &dimid)) ERR; */
/* if (nc_def_var(ncid, VAR_NAME1, NC_FLOAT, 1, &dimid, &varid1)) ERR; */
/* if (nc_def_var(ncid, VAR_NAME2, NC_FLOAT, 1, &dimid, &varid2)) ERR; */
/* if (nc_def_var(ncid, DIM_NAME, NC_FLOAT, 1, &dimid, &varid2)) ERR; */
/* if (nc_close(ncid)) ERR; */
if (nc_create(FILE_NAME, NC_CLOBBER|NC_NETCDF4, &ncid)) ERR;
if (nc_def_dim(ncid, DIM_NAME, DIM_LEN, &dimid)) ERR;
if (nc_def_var(ncid, VAR_NAME1, NC_FLOAT, 1, &dimid, &varid1)) ERR;
if (nc_def_var(ncid, VAR_NAME2, NC_FLOAT, 1, &dimid, &varid2)) ERR;
if (nc_def_var(ncid, DIM_NAME, NC_FLOAT, 1, &dimid, &varid2)) ERR;
if (nc_close(ncid)) ERR;
/* /\* Open and check. *\/ */
/* if (nc_open(FILE_NAME, NC_CLOBBER|NC_NETCDF4, &ncid)) ERR; */
/* if (nc_inq_dim(ncid, 0, name_in, &len_in)) ERR; */
/* if (strcmp(name_in, DIM_NAME) || len_in != DIM_LEN) ERR; */
/* if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims_in, */
/* &dimid_in, &natts_in)) ERR; */
/* if (strcmp(name_in, VAR_NAME1) || xtype_in != NC_FLOAT || */
/* ndims_in != 1 || dimid_in != 0 || natts_in != 0) ERR; */
/* if (nc_inq_var(ncid, 1, name_in, &xtype_in, &ndims_in, */
/* &dimid_in, &natts_in)) ERR; */
/* if (strcmp(name_in, VAR_NAME2) || xtype_in != NC_FLOAT || */
/* ndims_in != 1 || dimid_in != 0 || natts_in != 0) ERR; */
/* if (nc_inq_var(ncid, 2, name_in, &xtype_in, &ndims_in, */
/* &dimid_in, &natts_in)) ERR; */
/* if (strcmp(name_in, DIM_NAME) || xtype_in != NC_FLOAT || */
/* ndims_in != 1 || dimid_in != 0 || natts_in != 0) ERR; */
/* if (nc_close(ncid)) ERR; */
/* } */
/* SUMMARIZE_ERR; */
/* Open and check. */
if (nc_open(FILE_NAME, NC_CLOBBER|NC_NETCDF4, &ncid)) ERR;
if (nc_inq_dim(ncid, 0, name_in, &len_in)) ERR;
if (strcmp(name_in, DIM_NAME) || len_in != DIM_LEN) ERR;
if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims_in,
&dimid_in, &natts_in)) ERR;
if (strcmp(name_in, VAR_NAME1) || xtype_in != NC_FLOAT ||
ndims_in != 1 || dimid_in != 0 || natts_in != 0) ERR;
if (nc_inq_var(ncid, 1, name_in, &xtype_in, &ndims_in,
&dimid_in, &natts_in)) ERR;
if (strcmp(name_in, VAR_NAME2) || xtype_in != NC_FLOAT ||
ndims_in != 1 || dimid_in != 0 || natts_in != 0) ERR;
if (nc_inq_var(ncid, 2, name_in, &xtype_in, &ndims_in,
&dimid_in, &natts_in)) ERR;
if (strcmp(name_in, DIM_NAME) || xtype_in != NC_FLOAT ||
ndims_in != 1 || dimid_in != 0 || natts_in != 0) ERR;
if (nc_close(ncid)) ERR;
}
SUMMARIZE_ERR;
printf("*** testing HDF5 file with circular group structure...");
{
hid_t hdfid, grpid, grpid2, fapl_id;
@ -77,15 +77,6 @@ main(int argc, char **argv)
H5P_DEFAULT) < 0) ERR;
if (H5Fclose(hdfid) < 0) ERR;
/* /\* Reopen the file with HDF5. *\/ */
/* if ((fapl_id = H5Pcreate(H5P_FILE_ACCESS)) < 0) ERR; */
/* if (H5Pset_fclose_degree(fapl_id, H5F_CLOSE_SEMI) < 0) ERR; */
/* if (H5Pset_cache(fapl_id, 0, CHUNK_CACHE_NELEMS, CHUNK_CACHE_SIZE, */
/* CHUNK_CACHE_PREEMPTION) < 0) ERR; */
/* if ((hdfid = H5Fopen(HDF5_FILE_NAME, H5F_ACC_RDONLY, H5P_DEFAULT)) < 0) ERR; */
/* if (H5Pclose(fapl_id) < 0) ERR; */
/* if (H5Fclose(hdfid) < 0) ERR; */
H5close(); /* Force HDF5 to forget about this file. */
/* Now try and open it with netCDF. It will not work. */