mirror/netcdf-c
2
0
Fork 0
mirror of https://github.com/Unidata/netcdf-c.git synced 2024-12-21 08:39:46 +08:00
Code Issues Packages Projects Releases Wiki Activity
1cf8177f45
netcdf-c/nc_test4/tst_vars2.c

1409 lines
56 KiB
C
Raw Normal View History

moving to trunk subdir
2010-06-03 21:24:43 +08:00
/* This is part of the netCDF package.
Copyright 2005 University Corporation for Atmospheric Research/Unidata
Corrected an issue with disabling the V2 API support in cmake-based builds.
2014-04-04 00:45:22 +08:00
See COPYRIGHT file for conditions of use.
moving to trunk subdir
2010-06-03 21:24:43 +08:00
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
Test netcdf-4 variables.
fixed problems with bad inputs to nc_def_Var
2017-12-02 00:08:12 +08:00
Ed Hartnett
moving to trunk subdir
2010-06-03 21:24:43 +08:00
*/
#include <nc_tests.h>
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
#include "err_macros.h"
moving to trunk subdir
2010-06-03 21:24:43 +08:00
#include "netcdf.h"
starting adding testing for _int() functions for caching
2017-12-02 21:52:13 +08:00
#include "netcdf_f.h"
moving to trunk subdir
2010-06-03 21:24:43 +08:00
#define FILE_NAME "tst_vars2.nc"
#define NUM_DIMS 1
more test
2017-12-03 06:43:40 +08:00
#define NUM_VARS 2
moving to trunk subdir
2010-06-03 21:24:43 +08:00
#define DIM1_LEN NC_UNLIMITED
#define DIM1_NAME "Hoplites_Engaged"
#define VAR_NAME "Battle_of_Marathon"
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
#define LOSSES_NAME "Miltiades_Losses"
moving to trunk subdir
2010-06-03 21:24:43 +08:00
#define MAX_CNUM 4
int
main(int argc, char **argv)
{
int ncid, dimids[NUM_DIMS];
int varid;
more test
2017-12-03 06:43:40 +08:00
int nvars_in, varids_in[NUM_VARS];
moving to trunk subdir
2010-06-03 21:24:43 +08:00
signed char fill_value = 42, fill_value_in;
nc_type xtype_in;
size_t len_in;
char name_in[NC_MAX_NAME + 1];
int attnum_in;
int cnum;
more tests
2017-12-02 23:05:17 +08:00
char too_long_name[NC_MAX_NAME + 2];
/* Set up a name that is too long for netCDF. */
memset(too_long_name, 'a', NC_MAX_NAME + 1);
too_long_name[NC_MAX_NAME + 1] = 0;
moving to trunk subdir
2010-06-03 21:24:43 +08:00
printf("\n*** Testing netcdf-4 variable functions, even more.\n");
for (cnum = 0; cnum < MAX_CNUM; cnum++)
{
int cmode = 0;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
moving to trunk subdir
2010-06-03 21:24:43 +08:00
switch(cnum)
{
case 0:
printf("*** Testing with classic format:\n");
cmode = 0;
break;
case 1:
printf("*** Testing with 64-bit offset format:\n");
cmode = NC_64BIT_OFFSET;
break;
case 2:
printf("*** Testing with HDF5:\n");
cmode = NC_NETCDF4|NC_CLOBBER;
break;
case 3:
printf("*** Testing with HDF5, netCDF Classic Model:\n");
cmode = NC_CLASSIC_MODEL | NC_NETCDF4;
break;
default:
return 1;
}
printf("**** testing simple fill value attribute creation...");
{
To solve NC_ELATEFILL error for NetCDF-4 files, mark all variables written at enddef.
2017-03-25 09:55:00 +08:00
int status;
moving to trunk subdir
2010-06-03 21:24:43 +08:00
/* Create a netcdf-4 file with one scalar var. Add fill
* value. */
if (nc_create(FILE_NAME, cmode, &ncid)) ERR;
if (nc_def_var(ncid, VAR_NAME, NC_BYTE, 0, NULL, &varid)) ERR;
To solve NC_ELATEFILL error for NetCDF-4 files, mark all variables written at enddef.
2017-03-25 09:55:00 +08:00
if (nc_put_att_schar(ncid, varid, _FillValue, NC_BYTE, 1, &fill_value)) ERR;
moving to trunk subdir
2010-06-03 21:24:43 +08:00
if (nc_enddef(ncid)) ERR;
if (nc_redef(ncid)) ERR;
To solve NC_ELATEFILL error for NetCDF-4 files, mark all variables written at enddef.
2017-03-25 09:55:00 +08:00
status = nc_put_att_schar(ncid, varid, _FillValue, NC_BYTE, 1, &fill_value);
if (status != NC_ELATEFILL)
printf("Error at line %d: expecting NC_ELATEFILL but got %s\n",__LINE__,nc_strerror(status));
moving to trunk subdir
2010-06-03 21:24:43 +08:00
if (nc_close(ncid)) ERR;
/* Open the file and check. */
if (nc_open(FILE_NAME, NC_WRITE, &ncid)) ERR;
if (nc_inq_varids(ncid, &nvars_in, varids_in)) ERR;
if (nvars_in != 1 || varids_in[0] != 0) ERR;
if (nc_inq_varname(ncid, 0, name_in)) ERR;
if (strcmp(name_in, VAR_NAME)) ERR;
if (nc_inq_att(ncid, varid, _FillValue, &xtype_in, &len_in)) ERR;
if (xtype_in != NC_BYTE || len_in != 1) ERR;
if (nc_get_att(ncid, varid, _FillValue, &fill_value_in)) ERR;
if (fill_value_in != fill_value) ERR;
if (nc_close(ncid)) ERR;
}
SUMMARIZE_ERR;
printf("**** testing simple fill value with data read...");
{
size_t start[NUM_DIMS], count[NUM_DIMS];
signed char data = 99, data_in;
/* Create a netcdf-4 file with one unlimited dim and one
* var. Add fill value. */
if (nc_create(FILE_NAME, cmode, &ncid)) ERR;
if (nc_def_dim(ncid, DIM1_NAME, DIM1_LEN, &dimids[0])) ERR;
if (nc_def_var(ncid, VAR_NAME, NC_BYTE, NUM_DIMS, dimids, &varid)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
if (nc_put_att_schar(ncid, varid, _FillValue, NC_BYTE, 1, &fill_value)) ERR;
moving to trunk subdir
2010-06-03 21:24:43 +08:00
if (nc_enddef(ncid)) ERR;
/* Write the second record. */
start[0] = 1;
count[0] = 1;
if (nc_put_vara_schar(ncid, varid, start, count, &data)) ERR;
/* Read the first record, it should be the fill value. */
start[0] = 0;
if (nc_get_vara_schar(ncid, varid, start, count, &data_in)) ERR;
if (data_in != fill_value) ERR;
/* Read the second record, it should be the value we just wrote
* there. */
start[0] = 1;
if (nc_get_vara_schar(ncid, varid, start, count, &data_in)) ERR;
if (data_in != data) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
moving to trunk subdir
2010-06-03 21:24:43 +08:00
/* Close up. */
if (nc_close(ncid)) ERR;
/* Open the file and check. */
if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR;
more testing for nc4var.c functions
2017-12-02 00:38:32 +08:00
/* This will not work because file was opened read-only. */
more tests
2017-12-02 06:08:22 +08:00
if (nc_rename_var(ncid, 0, "something_very_new") != NC_EPERM) ERR;
more testing for nc4var.c functions
2017-12-02 00:38:32 +08:00
moving to trunk subdir
2010-06-03 21:24:43 +08:00
/* Check metadata. */
if (nc_inq_varids(ncid, &nvars_in, varids_in)) ERR;
if (nvars_in != 1 || varids_in[0] != 0) ERR;
if (nc_inq_varname(ncid, 0, name_in)) ERR;
if (strcmp(name_in, VAR_NAME)) ERR;
/* Check fill value att. */
if (nc_inq_att(ncid, varid, _FillValue, &xtype_in, &len_in)) ERR;
if (xtype_in != NC_BYTE || len_in != 1) ERR;
if (nc_get_att(ncid, varid, _FillValue, &fill_value_in)) ERR;
if (fill_value_in != fill_value) ERR;
/* Read the first record, it should be the fill value. */
start[0] = 0;
if (nc_get_vara_schar(ncid, varid, start, count, &data_in)) ERR;
if (data_in != fill_value) ERR;
/* Read the second record, it should be the value we just wrote
* there. */
start[0] = 1;
if (nc_get_vara_schar(ncid, varid, start, count, &data_in)) ERR;
if (data_in != data) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
moving to trunk subdir
2010-06-03 21:24:43 +08:00
if (nc_close(ncid)) ERR;
}
SUMMARIZE_ERR;
printf("**** testing fill value with one other attribute...");
{
int losses_value = 192, losses_value_in;
/* Create a netcdf-4 file with one dim and one var. Add another
* attribute, then fill value. */
if (nc_create(FILE_NAME, cmode, &ncid)) ERR;
if (nc_def_dim(ncid, DIM1_NAME, DIM1_LEN, &dimids[0])) ERR;
if (nc_def_var(ncid, VAR_NAME, NC_BYTE, NUM_DIMS, dimids, &varid)) ERR;
if (nc_put_att_int(ncid, varid, LOSSES_NAME, NC_INT, 1, &losses_value)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
if (nc_put_att_schar(ncid, varid, _FillValue, NC_BYTE, 1, &fill_value)) ERR;
moving to trunk subdir
2010-06-03 21:24:43 +08:00
if (nc_close(ncid)) ERR;
/* Open the file and check. */
if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR;
if (nc_inq_att(ncid, 0, LOSSES_NAME, &xtype_in, &len_in)) ERR;
if (xtype_in != NC_INT || len_in != 1) ERR;
if (nc_get_att(ncid, 0, LOSSES_NAME, &losses_value_in)) ERR;
if (losses_value_in != losses_value) ERR;
if (nc_inq_att(ncid, 0, _FillValue, &xtype_in, &len_in)) ERR;
if (xtype_in != NC_BYTE || len_in != 1) ERR;
if (nc_get_att(ncid, 0, _FillValue, &fill_value_in)) ERR;
if (fill_value_in != fill_value) ERR;
if (nc_inq_attid(ncid, 0, LOSSES_NAME, &attnum_in)) ERR;
if (attnum_in != 0) ERR;
if (nc_inq_attid(ncid, 0, _FillValue, &attnum_in)) ERR;
if (attnum_in != 1) ERR;
if (nc_close(ncid)) ERR;
}
SUMMARIZE_ERR;
printf("**** testing fill value with three other attributes...");
{
#define NUM_LEADERS 3
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
char leader[NUM_LEADERS][NC_MAX_NAME + 1] = {"hair_length_of_strategoi",
"hair_length_of_Miltiades",
moving to trunk subdir
2010-06-03 21:24:43 +08:00
"hair_length_of_Darius_I"};
short hair_length[NUM_LEADERS] = {3, 11, 4};
short short_in;
int a;
/* Create a netcdf file with one dim and one var. Add 3
* attributes, then fill value. */
if (nc_create(FILE_NAME, cmode, &ncid)) ERR;
if (nc_def_dim(ncid, DIM1_NAME, DIM1_LEN, &dimids[0])) ERR;
if (nc_def_var(ncid, VAR_NAME, NC_BYTE, NUM_DIMS, dimids, &varid)) ERR;
for (a = 0; a < NUM_LEADERS; a++)
if (nc_put_att_short(ncid, varid, leader[a], NC_SHORT, 1, &hair_length[a])) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
if (nc_put_att_schar(ncid, varid, _FillValue, NC_BYTE, 1, &fill_value)) ERR;
moving to trunk subdir
2010-06-03 21:24:43 +08:00
if (nc_close(ncid)) ERR;
/* Open the file. */
if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR;
/* Check our three hair-related attributes. */
for (a = 0; a < NUM_LEADERS; a++)
{
if (nc_inq_att(ncid, 0, leader[a], &xtype_in, &len_in)) ERR;
if (xtype_in != NC_SHORT || len_in != 1) ERR;
if (nc_get_att(ncid, 0, leader[a], &short_in)) ERR;
if (short_in != hair_length[a]) ERR;
if (nc_inq_attid(ncid, 0, leader[a], &attnum_in)) ERR;
if (attnum_in != a) ERR;
}
/* Check our fill value attribute. */
if (nc_inq_att(ncid, 0, _FillValue, &xtype_in, &len_in)) ERR;
if (xtype_in != NC_BYTE || len_in != 1) ERR;
if (nc_get_att(ncid, 0, _FillValue, &fill_value_in)) ERR;
if (fill_value_in != fill_value) ERR;
if (nc_close(ncid)) ERR;
}
SUMMARIZE_ERR;
printf("**** testing fill value with simple example...");
{
/* Dims stuff. */
#define NDIMS 3
#define VAR_DIMS 3
#define DIM_A "dim1"
#define DIM_A_LEN 4
#define DIM_B "dim2"
#define DIM_B_LEN 3
#define DIM_C "dim3"
#define DIM_C_LEN NC_UNLIMITED
/* Var stuff. */
#define CXX_VAR_NAME "P"
/* Att stuff. */
#define NUM_ATTS 4
#define LONG_NAME "long_name"
#define PRES_MAX_WIND "pressure at maximum wind"
#define UNITS "units"
#define HECTOPASCALS "hectopascals"
int dimid[NDIMS], var_dimids[VAR_DIMS] = {2, 1, 0};
float fill_value = -9999.0f;
char long_name[] = PRES_MAX_WIND;
if (nc_create(FILE_NAME, cmode, &ncid)) ERR;
/* Create dims. */
if (nc_def_dim(ncid, DIM_A, DIM_A_LEN, &dimid[0])) ERR;
if (nc_def_dim (ncid, DIM_B, DIM_B_LEN, &dimid[1])) ERR;
if (nc_def_dim(ncid, DIM_C, DIM_C_LEN, &dimid[2])) ERR;
/* Create var. */
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
if (nc_def_var(ncid, CXX_VAR_NAME, NC_FLOAT, VAR_DIMS,
moving to trunk subdir
2010-06-03 21:24:43 +08:00
var_dimids, &varid)) ERR;
if (varid) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
if (nc_put_att(ncid, varid, LONG_NAME, NC_CHAR, strlen(long_name) + 1,
moving to trunk subdir
2010-06-03 21:24:43 +08:00
long_name)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
if (nc_put_att(ncid, varid, UNITS, NC_CHAR, strlen(UNITS) + 1,
moving to trunk subdir
2010-06-03 21:24:43 +08:00
UNITS)) ERR;
/* Check to ensure the atts have their expected attnums. */
if (nc_inq_attid(ncid, 0, LONG_NAME, &attnum_in)) ERR;
if (attnum_in != 0) ERR;
if (nc_inq_attid(ncid, 0, UNITS, &attnum_in)) ERR;
if (attnum_in != 1) ERR;
/* Now add a fill value. This will acutually cause HDF5 to
* destroy the dataset and recreate it, recreating also the
* three attributes that are attached to it. */
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
if (nc_put_att(ncid, varid, _FillValue, NC_FLOAT,
moving to trunk subdir
2010-06-03 21:24:43 +08:00
1, &fill_value)) ERR;
/* Check to ensure the atts have their expected attnums. */
if (nc_inq_attid(ncid, 0, LONG_NAME, &attnum_in)) ERR;
if (attnum_in != 0) ERR;
if (nc_inq_attid(ncid, 0, UNITS, &attnum_in)) ERR;
if (attnum_in != 1) ERR;
if (nc_close(ncid)) ERR;
/* Open the file and check. */
if (nc_open(FILE_NAME, 0, &ncid)) ERR;
if (nc_inq_attid(ncid, 0, LONG_NAME, &attnum_in)) ERR;
if (attnum_in != 0) ERR;
if (nc_inq_attid(ncid, 0, UNITS, &attnum_in)) ERR;
if (attnum_in != 1) ERR;
if (nc_inq_attid(ncid, 0, _FillValue, &attnum_in)) ERR;
if (attnum_in != 2) ERR;
if (nc_close(ncid)) ERR;
}
SUMMARIZE_ERR;
#ifndef NO_NETCDF_2
Fix common typos Detected by https://github.com/vlajos/misspell_fixer
2015-08-20 17:42:05 +08:00
/* The following test is an attempt to recreate a problem occurring
moving to trunk subdir
2010-06-03 21:24:43 +08:00
in the cxx tests. The file is created in c++ in nctsts.cpp. */
printf("**** testing fill value with example from cxx tests in v2 api...");
{
/* Dims stuff. */
#define NDIMS_1 4
#define VAR_DIMS 3
#define LAT "lat"
#define LAT_LEN 4
#define LON "lon"
#define LON_LEN 3
#define FRTIMED "frtimed"
#define FRTIMED_LEN NC_UNLIMITED
#define TIMELEN "timelen"
#define TIMELEN_LEN 20
/* Var stuff. */
#define CXX_VAR_NAME "P"
/* Att stuff. */
#define NUM_ATTS 4
#define LONG_NAME "long_name"
#define UNITS "units"
int dimid[NDIMS_1], var_dimids[VAR_DIMS] = {2, 0, 1};
float fill_value = -9999.0f;
char long_name[] = PRES_MAX_WIND;
fixed warnings
2017-10-25 02:18:20 +08:00
int i;
moving to trunk subdir
2010-06-03 21:24:43 +08:00
ncid = nccreate(FILE_NAME, NC_NETCDF4);
/* Create dims. */
dimid[0] = ncdimdef(ncid, LAT, LAT_LEN);
dimid[1] = ncdimdef(ncid, LON, LON_LEN);
dimid[2] = ncdimdef(ncid, FRTIMED, FRTIMED_LEN);
dimid[3] = ncdimdef(ncid, TIMELEN, TIMELEN_LEN);
/* Just check our dimids to see that they are correct. */
for (i = 0; i < NDIMS_1; i++)
if (dimid[i] != i) ERR;
/* Create var. */
varid = ncvardef(ncid, CXX_VAR_NAME, NC_FLOAT, VAR_DIMS, var_dimids);
if (varid) ERR;
/* Add three atts to the var, long_name, units, and
* valid_range. */
if (nc_put_att(ncid, varid, LONG_NAME, NC_CHAR, strlen(long_name) + 1,
long_name)) ERR;
if (nc_put_att(ncid, varid, UNITS, NC_CHAR, strlen(UNITS) + 1,
UNITS)) ERR;
/* Check to ensure the atts have their expected attnums. */
if (nc_inq_attid(ncid, 0, LONG_NAME, &attnum_in)) ERR;
if (attnum_in != 0) ERR;
if (nc_inq_attid(ncid, 0, UNITS, &attnum_in)) ERR;
if (attnum_in != 1) ERR;
/* Now add a fill value. This will acutually cause HDF5 to
* destroy the dataset and recreate it, recreating also the
* three attributes that are attached to it. */
fixed warnings
2017-10-25 02:18:20 +08:00
ncattput(ncid, varid, _FillValue, NC_FLOAT, 1, &fill_value);
moving to trunk subdir
2010-06-03 21:24:43 +08:00
/* Check to ensure the atts have their expected attnums. */
if (nc_inq_attid(ncid, 0, LONG_NAME, &attnum_in)) ERR;
if (attnum_in != 0) ERR;
if (nc_inq_attid(ncid, 0, UNITS, &attnum_in)) ERR;
if (attnum_in != 1) ERR;
if (nc_inq_attid(ncid, 0, _FillValue, &attnum_in)) ERR;
if (attnum_in != 2) ERR;
ncclose(ncid);
/* Open the file and check. */
ncid = ncopen(FILE_NAME, 0);
if (nc_inq_attid(ncid, 0, LONG_NAME, &attnum_in)) ERR;
if (attnum_in != 0) ERR;
if (nc_inq_attid(ncid, 0, UNITS, &attnum_in)) ERR;
if (attnum_in != 1) ERR;
if (nc_inq_attid(ncid, 0, _FillValue, &attnum_in)) ERR;
if (attnum_in != 2) ERR;
ncclose(ncid);
}
SUMMARIZE_ERR;
#endif /* NO_NETCDF_2 */
}
printf("**** testing create order varids...");
#define UNITS "units"
#define DIMNAME "x"
#define VARNAME "data"
{
/* This test contributed by Jeff Whitaker of NOAA - Thanks Jeff! */
int ncid, dimid, varid, xvarid;
char units[] = "zlotys";
if (nc_create(FILE_NAME, NC_NETCDF4|NC_CLASSIC_MODEL, &ncid)) ERR;
if (nc_def_dim(ncid, DIMNAME, 1, &dimid)) ERR;
if (nc_enddef(ncid)) ERR;
if (nc_redef(ncid)) ERR;
more testing for nc4var.c functions
2017-12-02 00:38:32 +08:00
/* Check that these netCDF-4 things will fail on this classic
* model file. */
if (nc_def_var(ncid, DIMNAME, NC_UINT, 1, &dimid, &xvarid) != NC_ESTRICTNC3) ERR;
if (nc_def_var(ncid, DIMNAME, NC_INT, NC_MAX_VAR_DIMS + 1, &dimid,
&xvarid) != NC_EMAXDIMS) ERR;
if (nc_enddef(ncid)) ERR;
if (nc_def_var(ncid, DIMNAME, NC_INT, 1, &dimid, &xvarid) != NC_ENOTINDEFINE) ERR;
if (nc_redef(ncid)) ERR;
/* Define the variable for the test. */
moving to trunk subdir
2010-06-03 21:24:43 +08:00
if (nc_def_var(ncid, DIMNAME, NC_INT, 1, &dimid, &xvarid)) ERR;
if (nc_put_att_text(ncid, xvarid, UNITS, strlen(units), units)) ERR;
if (nc_def_var(ncid, VARNAME, NC_INT, 1, &dimid, &varid)) ERR;
if (nc_close(ncid)) ERR;
if (nc_open(FILE_NAME, 0, &ncid)) ERR;
if (nc_close(ncid)) ERR;
}
SUMMARIZE_ERR;
#define RANK_wind 1
printf("**** testing simple variable renaming...");
{
/* This test contributed by Jeff Whitaker of NOAA - Thanks Jeff! */
int ncid, lat_dim, time_dim, lon_dim, wind_id;
size_t lat_len = 73, time_len = 10, lon_len = 145;
int cdf_goober[1];
/* if (nc_set_default_format(NC_FORMAT_NETCDF4, NULL)) ERR;*/
if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR;
/* define dimensions */
if (nc_def_dim(ncid, "a", lon_len, &lon_dim)) ERR;
if (nc_def_dim(ncid, "b", lat_len, &lat_dim)) ERR;
if (nc_def_dim(ncid, "c", time_len, &time_dim)) ERR;
if (nc_put_att_text(ncid, NC_GLOBAL, "a", 3, "bar")) ERR;
cdf_goober[0] = 2;
if (nc_put_att_int(ncid, NC_GLOBAL, "b", NC_INT, 1, cdf_goober)) ERR;
/* define variables */
if (nc_def_var(ncid, "aa", NC_FLOAT, RANK_wind, &lon_dim, &wind_id)) ERR;
if (nc_close(ncid)) ERR;
if (nc_open(FILE_NAME, NC_WRITE, &ncid)) ERR;
more tests
2017-12-02 06:08:22 +08:00
/* These won't work. */
if (nc_rename_var(ncid + TEST_VAL_42, 0, "az") != NC_EBADID) ERR;
if (nc_rename_var(ncid + MILLION, 0, "az") != NC_EBADID) ERR;
/* Rename the var. */
moving to trunk subdir
2010-06-03 21:24:43 +08:00
if (nc_rename_var(ncid, 0, "az")) ERR;
if (nc_close(ncid)) ERR;
}
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
SUMMARIZE_ERR;
moving to trunk subdir
2010-06-03 21:24:43 +08:00
printf("**** testing dimension and variable renaming...");
{
more testing for nc4var.c functions
2017-12-02 00:38:32 +08:00
/* This test based on code contributed by Jeff Whitaker of NOAA
* - Thanks Jeff! */
int ncid, lat_dim, time_dim, lon_dim, wind_id, temp2_id;
moving to trunk subdir
2010-06-03 21:24:43 +08:00
size_t lat_len = 73, time_len = 10, lon_len = 145;
int wind_dims[RANK_wind], wind_slobber[1], cdf_goober[1];
more testing for nc4var.c functions
2017-12-02 00:38:32 +08:00
if (nc_create(FILE_NAME, NC_NETCDF4|NC_CLASSIC_MODEL, &ncid)) ERR;
moving to trunk subdir
2010-06-03 21:24:43 +08:00
/* define dimensions */
if (nc_def_dim(ncid, "lon", lon_len, &lon_dim)) ERR;
if (nc_def_dim(ncid, "lat", lat_len, &lat_dim)) ERR;
if (nc_def_dim(ncid, "time", time_len, &time_dim)) ERR;
if (nc_put_att_text(ncid, NC_GLOBAL, "foo", 3, "bar")) ERR;
cdf_goober[0] = 2;
if (nc_put_att_int(ncid, NC_GLOBAL, "goober", NC_INT, 1, cdf_goober)) ERR;
/* define variables */
wind_dims[0] = lon_dim;
if (nc_def_var(ncid, "temp", NC_FLOAT, RANK_wind, wind_dims, &wind_id)) ERR;
more testing for nc4var.c functions
2017-12-02 00:38:32 +08:00
if (nc_def_var(ncid, "temp2", NC_FLOAT, RANK_wind, wind_dims, &temp2_id)) ERR;
moving to trunk subdir
2010-06-03 21:24:43 +08:00
if (nc_put_att_text(ncid, wind_id, "bar", 3, "foo")) ERR;
wind_slobber[0] = 3;
if (nc_put_att_int(ncid, wind_id, "slobber", NC_INT, 1, wind_slobber)) ERR;
if (nc_close(ncid)) ERR;
/* re-open dataset*/
if (nc_open(FILE_NAME, NC_WRITE, &ncid)) ERR;
if (nc_inq_dimid(ncid, "lon", &lon_dim)) ERR;
more tests
2017-12-02 23:05:17 +08:00
/* THese won't work due to bad params. */
if (nc_rename_dim(ncid + MILLION, lon_dim, "longitude") != NC_EBADID) ERR;
if (nc_rename_dim(ncid + TEST_VAL_42, lon_dim, "longitude") != NC_EBADID) ERR;
moving to trunk subdir
2010-06-03 21:24:43 +08:00
/* rename dimension */
if (nc_rename_dim(ncid, lon_dim, "longitude")) ERR;
more tests
2017-12-02 23:05:17 +08:00
/* These will fail due to bad params. */
if (nc_inq_varid(ncid + MILLION, "temp", &wind_id) != NC_EBADID) ERR;
if (nc_inq_varid(ncid + TEST_VAL_42, "temp", &wind_id) != NC_EBADID) ERR;
if (nc_inq_varid(ncid, NULL, &wind_id) != NC_EINVAL) ERR;
if (nc_inq_varid(ncid, "not_a_real_name", &wind_id) != NC_ENOTVAR) ERR;
if (nc_inq_varid(ncid, BAD_NAME, &wind_id) != NC_ENOTVAR) ERR;
if (nc_inq_varid(ncid, too_long_name, &wind_id) != NC_EMAXNAME) ERR;
/* Now get the variable ID. */
moving to trunk subdir
2010-06-03 21:24:43 +08:00
if (nc_inq_varid(ncid, "temp", &wind_id)) ERR;
more tests
2017-12-02 23:05:17 +08:00
/* THis also works, pointlessly. */
if (nc_inq_varid(ncid, "temp", NULL)) ERR;
more testing for nc4var.c functions
2017-12-02 00:38:32 +08:00
/* These won't work due to bad paramters. */
if (nc_rename_var(ncid + MILLION, wind_id, "wind") != NC_EBADID) ERR;
if (nc_rename_var(ncid, wind_id + TEST_VAL_42, "wind") != NC_ENOTVAR) ERR;
more tests, fixed documentation warnings
2017-12-02 04:02:59 +08:00
if (nc_rename_var(ncid, -TEST_VAL_42, "wind") != NC_ENOTVAR) ERR;
more testing for nc4var.c functions
2017-12-02 00:38:32 +08:00
if (nc_rename_var(ncid, wind_id, BAD_NAME) != NC_EBADNAME) ERR;
if (nc_rename_var(ncid, wind_id, too_long_name) != NC_EMAXNAME) ERR;
if (nc_rename_var(ncid, wind_id, "temp2") != NC_ENAMEINUSE) ERR;
if (nc_rename_var(ncid, wind_id, "windy") != NC_ENOTINDEFINE) ERR;
moving to trunk subdir
2010-06-03 21:24:43 +08:00
/* rename variable */
if (nc_rename_var(ncid, wind_id, "wind")) ERR;
more tests
2017-12-02 23:05:17 +08:00
/* Enter define mode and rename it to something longer. */
if (nc_redef(ncid)) ERR;
if (nc_rename_var(ncid, wind_id, "windy")) ERR;
if (nc_inq_varid(ncid, "windy", &wind_id)) ERR;
moving to trunk subdir
2010-06-03 21:24:43 +08:00
if (nc_close(ncid)) ERR;
}
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
SUMMARIZE_ERR;
moving to trunk subdir
2010-06-03 21:24:43 +08:00
fixed commented out tests
2017-11-03 22:14:08 +08:00
#define VAR_DIMS2 2
printf("*** testing 2D array of NC_FLOAT with v2 API...");
{
int dimid[VAR_DIMS2];
int ndims, nvars, natts, recdim;
moving to trunk subdir
2010-06-03 21:24:43 +08:00
fixed commented out tests
2017-11-03 22:14:08 +08:00
ncid = nccreate(FILE_NAME, NC_NETCDF4);
moving to trunk subdir
2010-06-03 21:24:43 +08:00
fixed commented out tests
2017-11-03 22:14:08 +08:00
/* Create dims. */
dimid[0] = ncdimdef(ncid, LAT, LAT_LEN);
dimid[1] = ncdimdef(ncid, LON, LON_LEN);
moving to trunk subdir
2010-06-03 21:24:43 +08:00
fixed commented out tests
2017-11-03 22:14:08 +08:00
/* Create var. */
varid = ncvardef(ncid, CXX_VAR_NAME, NC_FLOAT, VAR_DIMS2, dimid);
if (varid != 0) ERR;
moving to trunk subdir
2010-06-03 21:24:43 +08:00
fixed commented out tests
2017-11-03 22:14:08 +08:00
ncclose(ncid);
moving to trunk subdir
2010-06-03 21:24:43 +08:00
fixed commented out tests
2017-11-03 22:14:08 +08:00
/* Open the file and check. */
ncid = ncopen(FILE_NAME, 0);
ncinquire (ncid, &ndims, &nvars, &natts, &recdim);
if (nvars != 1 || ndims != 2 || natts != 0 || recdim != -1) ERR;
ncclose(ncid);
}
SUMMARIZE_ERR;
moving to trunk subdir
2010-06-03 21:24:43 +08:00
#define NDIMS 3
#define NNAMES 4
#define NLINES 13
fixed commented out tests
2017-11-03 22:14:08 +08:00
printf("**** testing funny names for netCDF-4...");
{
int ncid, wind_id;
size_t len[NDIMS] = {7, 3, 1};
int dimids[NDIMS], dimids_in[NDIMS], ndims_in;
char funny_name[NNAMES][NC_MAX_NAME] = {"\a\t", "\f\n", "\r\v", "\b"};
char serious_name[NNAMES][NC_MAX_NAME] = {"name1", "name2", "name3", "name4"};
char name_in[NC_MAX_NAME + 1];
char *speech[NLINES] = {"who would fardels bear, ",
"To grunt and sweat under a weary life, ",
"But that the dread of something after death, ",
"The undiscover'd country from whose bourn ",
"No traveller returns, puzzles the will ",
"And makes us rather bear those ills we have ",
"Than fly to others that we know not of? ",
"Thus conscience does make cowards of us all; ",
"And thus the native hue of resolution ",
"Is sicklied o'er with the pale cast of thought, ",
"And enterprises of great pith and moment ",
"With this regard their currents turn awry, ",
"And lose the name of action."};
char *speech_in[NLINES];
int i;
unsigned short nlines = NLINES;
unsigned int nlines_in;
if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR;
/* Define dimensions. Funny names are rejected, serious names work. */
for (i = 0; i < NDIMS; i++)
if (nc_def_dim(ncid, funny_name[i], len[i], &dimids[i]) != NC_EBADNAME) ERR;
for (i = 0; i < NDIMS; i++)
if (nc_def_dim(ncid, serious_name[i], len[i], &dimids[i])) ERR;
/* Write some global atts. Funny names are rejected, serious names work. */
if (nc_put_att_string(ncid, NC_GLOBAL, funny_name[0], NLINES,
(const char **)speech) != NC_EBADNAME) ERR;
if (nc_put_att_ushort(ncid, NC_GLOBAL, funny_name[1], NC_UINT, 1, &nlines) != NC_EBADNAME) ERR;
if (nc_put_att_string(ncid, NC_GLOBAL, serious_name[0], NLINES,
(const char **)speech)) ERR;
if (nc_put_att_ushort(ncid, NC_GLOBAL, serious_name[1], NC_UINT, 1, &nlines)) ERR;
/* Define variables. Funny name fails, seriousness wins the day! */
if (nc_def_var(ncid, funny_name[3], NC_INT64, NDIMS, dimids, &wind_id) != NC_EBADNAME) ERR;
if (nc_def_var(ncid, serious_name[3], NC_INT64, NDIMS, dimids, &wind_id)) ERR;
if (nc_close(ncid)) ERR;
/* Open the file and check. */
if (nc_open(FILE_NAME, NC_WRITE, &ncid)) ERR;
if (nc_inq_dimids(ncid, &ndims_in, dimids_in, 0)) ERR;
if (ndims_in != NDIMS) ERR;
for (i = 0; i < NDIMS; i++)
{
if (dimids_in[i] != i) ERR;
if (nc_inq_dimname(ncid, i, name_in)) ERR;
if (strcmp(name_in, serious_name[i])) ERR;
}
if (nc_get_att_string(ncid, NC_GLOBAL, serious_name[0], (char **)speech_in)) ERR;
for (i = 0; i < NLINES; i++)
if (strcmp(speech_in[i], speech[i])) ERR;
if (nc_get_att_uint(ncid, NC_GLOBAL, serious_name[1], &nlines_in)) ERR;
if (nlines_in != NLINES) ERR;
if (nc_free_string(NLINES, (char **)speech_in)) ERR;
if (nc_inq_varname(ncid, 0, name_in)) ERR;
if (strcmp(name_in, serious_name[3])) ERR;
if (nc_close(ncid)) ERR;
}
SUMMARIZE_ERR;
moving to trunk subdir
2010-06-03 21:24:43 +08:00
printf("**** testing endianness...");
#define NDIMS4 1
#define DIM4_NAME "Joe"
#define VAR_NAME4 "Ed"
#define DIM4_LEN 10
{
int dimids[NDIMS4], dimids_in[NDIMS4];
more tests
2017-12-02 05:33:32 +08:00
int varid, varid1;
moving to trunk subdir
2010-06-03 21:24:43 +08:00
int ndims, nvars, natts, unlimdimid;
nc_type xtype_in;
char name_in[NC_MAX_NAME + 1];
int data[DIM4_LEN], data_in[DIM4_LEN];
int endian_in;
int i;
for (i = 0; i < DIM4_LEN; i++)
data[i] = i;
/* Create a netcdf-4 file with one dim and one var. */
if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR;
if (nc_def_dim(ncid, DIM4_NAME, DIM4_LEN, &dimids[0])) ERR;
if (dimids[0] != 0) ERR;
if (nc_def_var(ncid, VAR_NAME4, NC_INT, NDIMS4, dimids, &varid)) ERR;
if (nc_def_var_endian(ncid, varid, NC_ENDIAN_BIG)) ERR;
if (varid != 0) ERR;
if (nc_put_var_int(ncid, varid, data)) ERR;
/* Check stuff. */
if (nc_inq(ncid, &ndims, &nvars, &natts, &unlimdimid)) ERR;
if (ndims != NDIMS4 || nvars != 1 || natts != 0 ||
unlimdimid != -1) ERR;
if (nc_inq_varids(ncid, &nvars, varids_in)) ERR;
if (nvars != 1) ERR;
if (varids_in[0] != 0) ERR;
more tests
2017-12-02 04:58:13 +08:00
/* Test some bad parameter values. */
if (nc_inq_var(ncid + MILLION, 0, name_in, &xtype_in, &ndims,
dimids_in, &natts) != NC_EBADID) ERR;
if (nc_inq_var(ncid + TEST_VAL_42, 0, name_in, &xtype_in, &ndims,
dimids_in, &natts) != NC_EBADID) ERR;
if (nc_inq_var(ncid, -TEST_VAL_42, name_in, &xtype_in, &ndims,
dimids_in, &natts) != NC_ENOTVAR) ERR;
if (nc_inq_var(ncid, 1, name_in, &xtype_in, &ndims,
dimids_in, &natts) != NC_ENOTVAR) ERR;
if (nc_inq_var(ncid, TEST_VAL_42, name_in, &xtype_in, &ndims,
dimids_in, &natts) != NC_ENOTVAR) ERR;
/* Now pass correct parameters. */
moving to trunk subdir
2010-06-03 21:24:43 +08:00
if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims,
dimids_in, &natts)) ERR;
if (strcmp(name_in, VAR_NAME4) || xtype_in != NC_INT ||
ndims != 1 || natts != 0 || dimids_in[0] != 0) ERR;
if (nc_inq_var_endian(ncid, 0, &endian_in)) ERR;
if (endian_in != NC_ENDIAN_BIG) ERR;
more tests
2017-12-02 04:58:13 +08:00
/* This also works, uselessly. */
if (nc_inq_var(ncid, 0, name_in, NULL, NULL, NULL, NULL)) ERR;
moving to trunk subdir
2010-06-03 21:24:43 +08:00
if (nc_close(ncid)) ERR;
/* Open the file and check the same stuff. */
if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR;
more tests
2017-12-02 05:33:32 +08:00
/* This won't work. */
if (nc_def_var(ncid, "this_wont_work", NC_BYTE, NDIMS4, dimids,
&varid1) != NC_EPERM) ERR;
moving to trunk subdir
2010-06-03 21:24:43 +08:00
if (nc_inq(ncid, &ndims, &nvars, &natts, &unlimdimid)) ERR;
if (ndims != NDIMS4 || nvars != 1 || natts != 0 ||
unlimdimid != -1) ERR;
if (nc_inq_varids(ncid, &nvars, varids_in)) ERR;
if (nvars != 1) ERR;
if (varids_in[0] != 0) ERR;
if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims,
dimids_in, &natts)) ERR;
if (strcmp(name_in, VAR_NAME4) || xtype_in != NC_INT ||
ndims != 1 || natts != 0 || dimids_in[0] != 0) ERR;
if (nc_inq_var_endian(ncid, 0, &endian_in)) ERR;
if (endian_in != NC_ENDIAN_BIG) ERR;
if (nc_get_var_int(ncid, varid, data_in)) ERR;
for (i = 0; i < DIM4_LEN; i++)
if (data[i] != data_in[i]) ERR;
if (nc_close(ncid)) ERR;
}
SUMMARIZE_ERR;
printf("**** testing chunking and the chunk cache...");
{
#define NDIMS5 1
#define DIM5_NAME "D5"
#define VAR_NAME5 "V5"
more test
2017-12-03 06:43:40 +08:00
#define VAR_NAME5_1 "V5_1"
moving to trunk subdir
2010-06-03 21:24:43 +08:00
#define DIM5_LEN 1000
#define CACHE_SIZE 32000000
#define CACHE_NELEMS 1009
#define CACHE_PREEMPTION .75
starting adding testing for _int() functions for caching
2017-12-02 21:52:13 +08:00
#define CACHE_SIZE2 64000000
#define CACHE_NELEMS2 2000
#define CACHE_PREEMPTION2 .50
moving to trunk subdir
2010-06-03 21:24:43 +08:00
int dimids[NDIMS5], dimids_in[NDIMS5];
more test
2017-12-03 06:43:40 +08:00
int varid, varid1;
moving to trunk subdir
2010-06-03 21:24:43 +08:00
int ndims, nvars, natts, unlimdimid;
nc_type xtype_in;
char name_in[NC_MAX_NAME + 1];
int data[DIM5_LEN], data_in[DIM5_LEN];
size_t chunksize[NDIMS5] = {5};
more tests, fixed documentation warnings
2017-12-02 04:02:59 +08:00
size_t bad_chunksize[NDIMS5] = {-5};
moving to trunk subdir
2010-06-03 21:24:43 +08:00
size_t chunksize_in[NDIMS5];
more test
2017-12-03 06:43:40 +08:00
int chunksize_int[NDIMS5];
int chunksize_int_in[NDIMS5];
moving to trunk subdir
2010-06-03 21:24:43 +08:00
int storage_in;
size_t cache_size_in, cache_nelems_in;
float cache_preemption_in;
starting adding testing for _int() functions for caching
2017-12-02 21:52:13 +08:00
int cache_size_int_in, cache_nelems_int_in;
int cache_preemption_int_in;
more testing of nc_set_var_chunk_cache_ints
2017-12-02 22:15:19 +08:00
int cache_size_int_default, cache_nelems_int_default;
int cache_preemption_int_default;
moving to trunk subdir
2010-06-03 21:24:43 +08:00
int i, d;
for (i = 0; i < DIM5_LEN; i++)
data[i] = i;
/* Create a netcdf-4 file with one dim and one var. */
if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR;
if (nc_def_dim(ncid, DIM5_NAME, DIM5_LEN, &dimids[0])) ERR;
if (dimids[0] != 0) ERR;
more tests, fixed documentation warnings
2017-12-02 04:02:59 +08:00
/* Define the variable. */
moving to trunk subdir
2010-06-03 21:24:43 +08:00
if (nc_def_var(ncid, VAR_NAME5, NC_INT, NDIMS5, dimids, &varid)) ERR;
more tests, fixed documentation warnings
2017-12-02 04:02:59 +08:00
more testing
2017-12-02 22:38:01 +08:00
/* These will fail due to bad parameters. */
if (nc_def_var_chunking(ncid + MILLION, varid, NC_CHUNKED,
chunksize) != NC_EBADID) ERR;
if (nc_def_var_chunking(ncid + TEST_VAL_42, varid, NC_CHUNKED,
chunksize) != NC_EBADID) ERR;
more tests
2017-12-02 23:05:17 +08:00
if (nc_def_var_chunking(ncid, varid + TEST_VAL_42, NC_CHUNKED,
chunksize) != NC_ENOTVAR) ERR;
if (nc_def_var_chunking(ncid, varid + 1, NC_CHUNKED,
chunksize) != NC_ENOTVAR) ERR;
if (nc_def_var_chunking(ncid, -1, NC_CHUNKED,
chunksize) != NC_ENOTVAR) ERR;
more tests, fixed documentation warnings
2017-12-02 04:02:59 +08:00
if (nc_def_var_chunking(ncid, varid, NC_CHUNKED, bad_chunksize) !=
NC_EBADCHUNK) ERR;
/* Define the chunking. */
moving to trunk subdir
2010-06-03 21:24:43 +08:00
if (nc_def_var_chunking(ncid, varid, NC_CHUNKED, chunksize)) ERR;
fixed problems with bad inputs to nc_def_Var
2017-12-02 00:08:12 +08:00
/* Try to set var cache with bad parameters. They will be
* rejected. */
if (nc_set_var_chunk_cache(ncid + MILLION, varid, CACHE_SIZE, CACHE_NELEMS,
CACHE_PREEMPTION) != NC_EBADID) ERR;
more tests
2017-12-02 04:15:58 +08:00
if (nc_set_var_chunk_cache(ncid + 1, varid, CACHE_SIZE, CACHE_NELEMS,
CACHE_PREEMPTION) != NC_EBADID) ERR;
fixed problems with bad inputs to nc_def_Var
2017-12-02 00:08:12 +08:00
if (nc_set_var_chunk_cache(ncid, varid + TEST_VAL_42, CACHE_SIZE, CACHE_NELEMS,
CACHE_PREEMPTION) != NC_ENOTVAR) ERR;
more tests
2017-12-02 04:15:58 +08:00
if (nc_set_var_chunk_cache(ncid, -TEST_VAL_42, CACHE_SIZE, CACHE_NELEMS,
CACHE_PREEMPTION) != NC_ENOTVAR) ERR;
if (nc_set_var_chunk_cache(ncid, varid + 1, CACHE_SIZE, CACHE_NELEMS,
CACHE_PREEMPTION) != NC_ENOTVAR) ERR;
fixed problems with bad inputs to nc_def_Var
2017-12-02 00:08:12 +08:00
if (nc_set_var_chunk_cache(ncid, varid, CACHE_SIZE, CACHE_NELEMS,
CACHE_PREEMPTION + TEST_VAL_42) != NC_EINVAL) ERR;
more tests
2017-12-02 02:20:09 +08:00
if (nc_set_var_chunk_cache(ncid, varid, CACHE_SIZE, CACHE_NELEMS,
CACHE_PREEMPTION - TEST_VAL_42) != NC_EINVAL) ERR;
fixed problems with bad inputs to nc_def_Var
2017-12-02 00:08:12 +08:00
/* Set the cache. */
moving to trunk subdir
2010-06-03 21:24:43 +08:00
if (nc_set_var_chunk_cache(ncid, varid, CACHE_SIZE, CACHE_NELEMS, CACHE_PREEMPTION)) ERR;
if (nc_put_var_int(ncid, varid, data)) ERR;
/* Check stuff. */
if (nc_inq(ncid, &ndims, &nvars, &natts, &unlimdimid)) ERR;
if (ndims != NDIMS5 || nvars != 1 || natts != 0 ||
unlimdimid != -1) ERR;
if (nc_inq_varids(ncid, &nvars, varids_in)) ERR;
if (nvars != 1) ERR;
if (varids_in[0] != 0) ERR;
if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims, dimids_in, &natts)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
if (strcmp(name_in, VAR_NAME5) || xtype_in != NC_INT || ndims != 1 || natts != 0 ||
moving to trunk subdir
2010-06-03 21:24:43 +08:00
dimids_in[0] != 0) ERR;
if (nc_inq_var_chunking(ncid, 0, &storage_in, chunksize_in)) ERR;
for (d = 0; d < NDIMS5; d++)
if (chunksize[d] != chunksize_in[d]) ERR;
if (storage_in != NC_CHUNKED) ERR;
if (nc_get_var_int(ncid, varid, data_in)) ERR;
for (i = 0; i < DIM5_LEN; i++)
if (data[i] != data_in[i])
ERR_RET;
fixed problems with bad inputs to nc_def_Var
2017-12-02 00:08:12 +08:00
more test
2017-12-03 06:43:40 +08:00
/* These will not work due to bad paramters. */
if (nc_inq_var_chunking_ints(ncid + MILLION, 0, &storage_in,
chunksize_int_in) != NC_EBADID) ERR;
if (nc_inq_var_chunking_ints(ncid + TEST_VAL_42, 0, &storage_in,
chunksize_int_in) != NC_EBADID) ERR;
if (nc_inq_var_chunking_ints(ncid, -1, &storage_in,
chunksize_int_in) != NC_ENOTVAR) ERR;
if (nc_inq_var_chunking_ints(ncid, varid1 + 1, &storage_in,
chunksize_int_in) != NC_ENOTVAR) ERR;
if (nc_inq_var_chunking_ints(ncid, varid1 + TEST_VAL_42, &storage_in,
chunksize_int_in) != NC_ENOTVAR) ERR;
/* Now check with the fortran versions of the var_chunking. */
if (nc_inq_var_chunking_ints(ncid, 0, &storage_in, chunksize_int_in)) ERR;
for (d = 0; d < NDIMS5; d++)
if (chunksize_int_in[d] != chunksize[d]) ERR;
for (d = 0; d < NDIMS5; d++)
chunksize_int[d] = chunksize[d] * 2;
/* Check that some bad parameter values are rejected properly. */
if (nc_def_var_chunking_ints(ncid + MILLION, varid1, NC_CHUNKED,
chunksize_int) != NC_EBADID) ERR;
if (nc_def_var_chunking_ints(ncid + TEST_VAL_42, varid1, NC_CHUNKED,
chunksize_int) != NC_EBADID) ERR;
if (nc_def_var_chunking_ints(ncid, -1, NC_CHUNKED,
chunksize_int) != NC_ENOTVAR) ERR;
if (nc_def_var_chunking_ints(ncid, varid + 1, NC_CHUNKED,
chunksize_int) != NC_ENOTVAR) ERR;
if (nc_def_var_chunking_ints(ncid, varid + TEST_VAL_42, NC_CHUNKED,
chunksize_int) != NC_ENOTVAR) ERR;
if (nc_def_var_chunking_ints(ncid, varid, NC_CHUNKED, chunksize_int) != NC_ELATEDEF) ERR;
if (nc_redef(ncid)) ERR;
if (nc_def_var(ncid, VAR_NAME5_1, NC_INT, NDIMS5, dimids, &varid1)) ERR;
if (nc_def_var_chunking_ints(ncid, varid1, NC_CHUNKED, chunksize_int)) ERR;
if (nc_inq_var_chunking_ints(ncid, varid1, NULL, chunksize_int_in)) ERR;
for (d = 0; d < NDIMS5; d++)
if (chunksize_int_in[d] != chunksize[d] * 2) ERR;
if (nc_inq_var_chunking_ints(ncid, varid1, NULL, NULL)) ERR;
fixed problems with bad inputs to nc_def_Var
2017-12-02 00:08:12 +08:00
/* Check that some bad parameter values are rejected properly. */
if (nc_get_var_chunk_cache(ncid + MILLION, varid, &cache_size_in, &cache_nelems_in,
&cache_preemption_in) != NC_EBADID) ERR;
removed redundant check in NC4_def_var()
2017-12-02 22:23:23 +08:00
if (nc_get_var_chunk_cache(ncid + 1, -TEST_VAL_42, &cache_size_in, &cache_nelems_in,
&cache_preemption_in) != NC_EBADID) ERR;
fixed problems with bad inputs to nc_def_Var
2017-12-02 00:08:12 +08:00
if (nc_get_var_chunk_cache(ncid, varid + TEST_VAL_42, &cache_size_in, &cache_nelems_in,
&cache_preemption_in) != NC_ENOTVAR) ERR;
more test
2017-12-03 06:43:40 +08:00
if (nc_get_var_chunk_cache(ncid, varid1 + 1, &cache_size_in, &cache_nelems_in,
more tests
2017-12-02 04:15:58 +08:00
&cache_preemption_in) != NC_ENOTVAR) ERR;
if (nc_get_var_chunk_cache(ncid, -TEST_VAL_42, &cache_size_in, &cache_nelems_in,
&cache_preemption_in) != NC_ENOTVAR) ERR;
fixed problems with bad inputs to nc_def_Var
2017-12-02 00:08:12 +08:00
/* Get the var chunk cache settings. */
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
if (nc_get_var_chunk_cache(ncid, varid, &cache_size_in, &cache_nelems_in,
moving to trunk subdir
2010-06-03 21:24:43 +08:00
&cache_preemption_in)) ERR;
if (cache_size_in != CACHE_SIZE || cache_nelems_in != CACHE_NELEMS ||
cache_preemption_in != CACHE_PREEMPTION) ERR;
fixed problems with bad inputs to nc_def_Var
2017-12-02 00:08:12 +08:00
/* THis should also work, pointlessly. */
if (nc_get_var_chunk_cache(ncid, varid, NULL, NULL, NULL)) ERR;
starting adding testing for _int() functions for caching
2017-12-02 21:52:13 +08:00
/* Check the _int version of this function, used by the F77 API. */
if (nc_get_var_chunk_cache_ints(ncid, varid, &cache_size_int_in, &cache_nelems_int_in,
&cache_preemption_int_in)) ERR;
if (cache_size_int_in != CACHE_SIZE / MEGABYTE) ERR;
if (cache_nelems_int_in != CACHE_NELEMS) ERR;
if (cache_preemption_int_in != (int)(CACHE_PREEMPTION * 100)) ERR;
/* THis should also work, pointlessly. */
if (nc_get_var_chunk_cache_ints(ncid, varid, NULL, NULL, NULL)) ERR;
moving to trunk subdir
2010-06-03 21:24:43 +08:00
if (nc_close(ncid)) ERR;
/* Open the file and check the same stuff. */
if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR;
/* Check stuff. */
if (nc_inq(ncid, &ndims, &nvars, &natts, &unlimdimid)) ERR;
more test
2017-12-03 06:43:40 +08:00
if (ndims != NDIMS5 || nvars != 2 || natts != 0 ||
moving to trunk subdir
2010-06-03 21:24:43 +08:00
unlimdimid != -1) ERR;
if (nc_inq_varids(ncid, &nvars, varids_in)) ERR;
more test
2017-12-03 06:43:40 +08:00
if (nvars != 2) ERR;
if (varids_in[0] != 0 || varids_in[1] != 1) ERR;
moving to trunk subdir
2010-06-03 21:24:43 +08:00
if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims, dimids_in, &natts)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
if (strcmp(name_in, VAR_NAME5) || xtype_in != NC_INT || ndims != 1 || natts != 0 ||
moving to trunk subdir
2010-06-03 21:24:43 +08:00
dimids_in[0] != 0) ERR;
if (nc_inq_var_chunking(ncid, 0, &storage_in, chunksize_in)) ERR;
for (d = 0; d < NDIMS5; d++)
if (chunksize[d] != chunksize_in[d]) ERR;
if (storage_in != NC_CHUNKED) ERR;
if (nc_get_var_int(ncid, varid, data_in)) ERR;
for (i = 0; i < DIM5_LEN; i++)
if (data[i] != data_in[i])
ERR_RET;
starting adding testing for _int() functions for caching
2017-12-02 21:52:13 +08:00
/* Use the _int function to change the var chunk cache settings. */
if (nc_set_var_chunk_cache_ints(ncid, varid, CACHE_SIZE2 / MEGABYTE, CACHE_NELEMS2,
(int)(CACHE_PREEMPTION2 * 100))) ERR;
removed redundant check in NC4_def_var()
2017-12-02 22:23:23 +08:00
/* These will fail due to bad ncid and group ID. */
if (nc_get_var_chunk_cache_ints(ncid + MILLION, varid, &cache_size_int_in, &cache_nelems_int_in,
&cache_preemption_int_in) != NC_EBADID) ERR;
if (nc_get_var_chunk_cache_ints(ncid + TEST_VAL_42, varid, &cache_size_int_in, &cache_nelems_int_in,
&cache_preemption_int_in) != NC_EBADID) ERR;
/* Now get the settings. */
starting adding testing for _int() functions for caching
2017-12-02 21:52:13 +08:00
if (nc_get_var_chunk_cache_ints(ncid, varid, &cache_size_int_in, &cache_nelems_int_in,
&cache_preemption_int_in)) ERR;
more testing of nc_set_var_chunk_cache_ints
2017-12-02 22:15:19 +08:00
if (cache_size_int_in != CACHE_SIZE2 / MEGABYTE || cache_nelems_int_in != CACHE_NELEMS2 ||
cache_preemption_int_in != (int)(CACHE_PREEMPTION2 * 100)) ERR;
/* Passing negative values to the _int function causes them to
* be ignored and a default setting used. Set all to negative to
* get defaults.. */
if (nc_set_var_chunk_cache_ints(ncid, varid, -CACHE_SIZE / MEGABYTE, -CACHE_NELEMS2,
-(int)(CACHE_PREEMPTION2 * 100))) ERR;
if (nc_get_var_chunk_cache_ints(ncid, varid, &cache_size_int_default, &cache_nelems_int_default,
&cache_preemption_int_default)) ERR;
/* Now set the size only. */
if (nc_set_var_chunk_cache_ints(ncid, varid, CACHE_SIZE / MEGABYTE, -CACHE_NELEMS2,
-(int)(CACHE_PREEMPTION2 * 100))) ERR;
if (nc_get_var_chunk_cache_ints(ncid, varid, &cache_size_int_in, &cache_nelems_int_in,
&cache_preemption_int_in)) ERR;
if (cache_size_int_in != CACHE_SIZE / MEGABYTE || cache_nelems_int_in != cache_nelems_int_default ||
cache_preemption_int_in != cache_preemption_int_default) ERR;
/* Now set the nelems only. */
if (nc_set_var_chunk_cache_ints(ncid, varid, -CACHE_SIZE / MEGABYTE, CACHE_NELEMS,
-(int)(CACHE_PREEMPTION2 * 100))) ERR;
if (nc_get_var_chunk_cache_ints(ncid, varid, &cache_size_int_in, &cache_nelems_int_in,
&cache_preemption_int_in)) ERR;
if (cache_size_int_in != cache_size_int_default || cache_nelems_int_in != CACHE_NELEMS ||
cache_preemption_int_in != cache_preemption_int_default) ERR;
/* Now set the preemption only. */
if (nc_set_var_chunk_cache_ints(ncid, varid, -CACHE_SIZE / MEGABYTE, -CACHE_NELEMS,
(int)(CACHE_PREEMPTION2 * 100))) ERR;
if (nc_get_var_chunk_cache_ints(ncid, varid, &cache_size_int_in, &cache_nelems_int_in,
&cache_preemption_int_in)) ERR;
if (cache_size_int_in != cache_size_int_default || cache_nelems_int_in != cache_nelems_int_default ||
cache_preemption_int_in != (int)(CACHE_PREEMPTION2 * 100)) ERR;
starting adding testing for _int() functions for caching
2017-12-02 21:52:13 +08:00
moving to trunk subdir
2010-06-03 21:24:43 +08:00
if (nc_close(ncid)) ERR;
}
more tests
2017-12-02 02:20:09 +08:00
SUMMARIZE_ERR;
printf("**** testing netCDF-4 functions on netCDF-3 files...");
{
int dimids[NDIMS5], dimids_in[NDIMS5];
int varid;
int ndims, nvars, natts, unlimdimid;
nc_type xtype_in;
char name_in[NC_MAX_NAME + 1];
int data[DIM5_LEN], data_in[DIM5_LEN];
size_t chunksize[NDIMS5] = {5};
size_t chunksize_in[NDIMS5];
int storage_in;
size_t cache_size_in, cache_nelems_in;
float cache_preemption_in;
more tests, fixed documentation warnings
2017-12-02 04:02:59 +08:00
int i;
more tests
2017-12-02 02:20:09 +08:00
for (i = 0; i < DIM5_LEN; i++)
data[i] = i;
/* Create a netcdf classic file with one dim and one var. */
if (nc_create(FILE_NAME, 0, &ncid)) ERR;
if (nc_def_dim(ncid, DIM5_NAME, DIM5_LEN, &dimids[0])) ERR;
if (dimids[0] != 0) ERR;
if (nc_def_var(ncid, VAR_NAME5, NC_INT, NDIMS5, dimids, &varid)) ERR;
/* These will return error. */
if (nc_def_var_chunking(ncid, varid, NC_CHUNKED, chunksize) != NC_ENOTNC4) ERR;
if (nc_set_var_chunk_cache(ncid, varid, CACHE_SIZE, CACHE_NELEMS,
CACHE_PREEMPTION) != NC_ENOTNC4) ERR;
if (nc_enddef(ncid)) ERR;
if (nc_put_var_int(ncid, varid, data)) ERR;
/* Check stuff. */
if (nc_inq(ncid, &ndims, &nvars, &natts, &unlimdimid)) ERR;
if (ndims != NDIMS5 || nvars != 1 || natts != 0 ||
unlimdimid != -1) ERR;
if (nc_inq_varids(ncid, &nvars, varids_in)) ERR;
if (nvars != 1) ERR;
if (varids_in[0] != 0) ERR;
if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims, dimids_in, &natts)) ERR;
if (strcmp(name_in, VAR_NAME5) || xtype_in != NC_INT || ndims != 1 || natts != 0 ||
dimids_in[0] != 0) ERR;
/* This call fails. */
if (nc_get_var_chunk_cache(ncid, varid, &cache_size_in, &cache_nelems_in,
&cache_preemption_in) != NC_ENOTNC4) ERR;
/* This call passes but does nothing. */
if (nc_inq_var_chunking(ncid, 0, &storage_in, chunksize_in)) ERR;
if (nc_get_var_int(ncid, varid, data_in)) ERR;
for (i = 0; i < DIM5_LEN; i++)
if (data[i] != data_in[i])
ERR_RET;
if (nc_close(ncid)) ERR;
/* Open the file and check the same stuff. */
if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR;
/* Check stuff. */
if (nc_inq(ncid, &ndims, &nvars, &natts, &unlimdimid)) ERR;
if (ndims != NDIMS5 || nvars != 1 || natts != 0 ||
unlimdimid != -1) ERR;
if (nc_inq_varids(ncid, &nvars, varids_in)) ERR;
if (nvars != 1) ERR;
if (varids_in[0] != 0) ERR;
if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims, dimids_in, &natts)) ERR;
if (strcmp(name_in, VAR_NAME5) || xtype_in != NC_INT || ndims != 1 || natts != 0 ||
dimids_in[0] != 0) ERR;
/* This call fails. */
if (nc_get_var_chunk_cache(ncid, varid, &cache_size_in, &cache_nelems_in,
&cache_preemption_in) != NC_ENOTNC4) ERR;
/* This call passes but does nothing. */
if (nc_inq_var_chunking(ncid, 0, &storage_in, chunksize_in)) ERR;
if (nc_get_var_int(ncid, varid, data_in)) ERR;
for (i = 0; i < DIM5_LEN; i++)
if (data[i] != data_in[i])
ERR_RET;
if (nc_close(ncid)) ERR;
}
moving to trunk subdir
2010-06-03 21:24:43 +08:00
SUMMARIZE_ERR;
printf("**** testing contiguous storage...");
{
#define NDIMS6 1
#define DIM6_NAME "D5"
#define VAR_NAME6 "V5"
#define DIM6_LEN 100
int dimids[NDIMS6], dimids_in[NDIMS6];
int varid;
int ndims, nvars, natts, unlimdimid;
nc_type xtype_in;
char name_in[NC_MAX_NAME + 1];
int data[DIM6_LEN], data_in[DIM6_LEN];
size_t chunksize_in[NDIMS6];
int storage_in;
added nc_inq_path in dispatch tables
2010-08-18 23:11:17 +08:00
int i;
moving to trunk subdir
2010-06-03 21:24:43 +08:00
for (i = 0; i < DIM6_LEN; i++)
data[i] = i;
/* Create a netcdf-4 file with one dim and one var. */
if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR;
if (nc_def_dim(ncid, DIM6_NAME, DIM6_LEN, &dimids[0])) ERR;
if (dimids[0] != 0) ERR;
if (nc_def_var(ncid, VAR_NAME6, NC_INT, NDIMS6, dimids, &varid)) ERR;
if (nc_def_var_chunking(ncid, varid, NC_CONTIGUOUS, NULL)) ERR;
if (nc_put_var_int(ncid, varid, data)) ERR;
/* Check stuff. */
if (nc_inq(ncid, &ndims, &nvars, &natts, &unlimdimid)) ERR;
if (ndims != NDIMS6 || nvars != 1 || natts != 0 ||
unlimdimid != -1) ERR;
if (nc_inq_varids(ncid, &nvars, varids_in)) ERR;
if (nvars != 1) ERR;
if (varids_in[0] != 0) ERR;
if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims, dimids_in, &natts)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
if (strcmp(name_in, VAR_NAME6) || xtype_in != NC_INT || ndims != 1 || natts != 0 ||
moving to trunk subdir
2010-06-03 21:24:43 +08:00
dimids_in[0] != 0) ERR;
if (nc_inq_var_chunking(ncid, 0, &storage_in, chunksize_in)) ERR;
if (storage_in != NC_CONTIGUOUS) ERR;
if (nc_get_var_int(ncid, varid, data_in)) ERR;
for (i = 0; i < DIM6_LEN; i++)
if (data_in[i] != data[i])
ERR_RET;
if (nc_close(ncid)) ERR;
/* Open the file and check the same stuff. */
if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR;
/* Check stuff. */
if (nc_inq(ncid, &ndims, &nvars, &natts, &unlimdimid)) ERR;
if (ndims != NDIMS6 || nvars != 1 || natts != 0 ||
unlimdimid != -1) ERR;
if (nc_inq_varids(ncid, &nvars, varids_in)) ERR;
if (nvars != 1) ERR;
if (varids_in[0] != 0) ERR;
if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims, dimids_in, &natts)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
if (strcmp(name_in, VAR_NAME6) || xtype_in != NC_INT || ndims != 1 || natts != 0 ||
moving to trunk subdir
2010-06-03 21:24:43 +08:00
dimids_in[0] != 0) ERR;
if (nc_inq_var_chunking(ncid, 0, &storage_in, chunksize_in)) ERR;
if (storage_in != NC_CONTIGUOUS) ERR;
if (nc_get_var_int(ncid, varid, data_in)) ERR;
for (i = 0; i < DIM6_LEN; i++)
if (data[i] != data_in[i])
ERR_RET;
if (nc_close(ncid)) ERR;
}
SUMMARIZE_ERR;
printf("**** testing extreme numbers dude...");
{
#define VAR_NAME7 "V5"
#define DIM6_LEN 100
int varid;
int ndims, nvars, natts, unlimdimid;
nc_type xtype_in;
char name_in[NC_MAX_NAME + 1];
/* unsigned long long data = 9223372036854775807ull, data_in;*/
unsigned long long data = 9223372036854775817ull, data_in;
/* Create a netcdf-4 file with scalar var. */
if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR;
if (nc_def_var(ncid, VAR_NAME7, NC_UINT64, 0, NULL, &varid)) ERR;
if (nc_put_var_ulonglong(ncid, varid, &data)) ERR;
/* Check stuff. */
if (nc_inq(ncid, &ndims, &nvars, &natts, &unlimdimid)) ERR;
if (ndims != 0 || nvars != 1 || natts != 0 || unlimdimid != -1) ERR;
if (nc_inq_varids(ncid, &nvars, varids_in)) ERR;
if (nvars != 1 || varids_in[0] != 0) ERR;
if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims, NULL, &natts)) ERR;
if (strcmp(name_in, VAR_NAME7) || xtype_in != NC_UINT64 || ndims != 0 || natts != 0) ERR;
if (nc_get_var_ulonglong(ncid, varid, &data_in)) ERR;
if (data_in != data) ERR;
if (nc_close(ncid)) ERR;
/* Open the file and check the same stuff. */
if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR;
if (nc_inq(ncid, &ndims, &nvars, &natts, &unlimdimid)) ERR;
if (ndims != 0 || nvars != 1 || natts != 0 || unlimdimid != -1) ERR;
if (nc_inq_varids(ncid, &nvars, varids_in)) ERR;
if (nvars != 1 || varids_in[0] != 0) ERR;
if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims, NULL, &natts)) ERR;
if (strcmp(name_in, VAR_NAME7) || xtype_in != NC_UINT64 || ndims != 0 || natts != 0) ERR;
if (nc_get_var_ulonglong(ncid, varid, &data_in)) ERR;
if (data_in != data) ERR;
if (nc_close(ncid)) ERR;
}
SUMMARIZE_ERR;
printf("**** testing error codes for name clashes...");
{
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
#define GENERIC_NAME "bob"
moving to trunk subdir
2010-06-03 21:24:43 +08:00
int ncid, varid, numgrps, ntypes;
/* Create a netcdf-4 file with one var. */
if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR;
if (nc_def_var(ncid, GENERIC_NAME, NC_BYTE, 0, NULL, &varid)) ERR;
Fix common typos Detected by https://github.com/vlajos/misspell_fixer
2015-08-20 17:42:05 +08:00
/* These don'e work, because the name is already in use. Make
moving to trunk subdir
2010-06-03 21:24:43 +08:00
* sure the correct error is returned. */
if (nc_def_grp(ncid, GENERIC_NAME, NULL) != NC_ENAMEINUSE) ERR;
if (nc_def_opaque(ncid, 1, GENERIC_NAME, NULL) != NC_ENAMEINUSE) ERR;
/* Close it. */
if (nc_close(ncid)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
moving to trunk subdir
2010-06-03 21:24:43 +08:00
/* Open the file and check. */
if (nc_open(FILE_NAME, NC_WRITE, &ncid)) ERR;
if (nc_inq_varids(ncid, &nvars_in, varids_in)) ERR;
if (nvars_in != 1 || varids_in[0] != 0) ERR;
if (nc_inq_varname(ncid, 0, name_in)) ERR;
if (strcmp(name_in, GENERIC_NAME)) ERR;
if (nc_inq_grps(ncid, &numgrps, NULL)) ERR;
if (numgrps) ERR;
if (nc_inq_typeids(ncid, &ntypes, NULL)) ERR;
if (ntypes) ERR;
if (nc_close(ncid)) ERR;
}
SUMMARIZE_ERR;
printf("**** testing error codes for name clashes some more...");
{
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
#define GENERIC_NAME "bob"
moving to trunk subdir
2010-06-03 21:24:43 +08:00
int ncid, varid, numgrps, ntypes;
/* Create a netcdf-4 file with one type. */
if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR;
if (nc_def_opaque(ncid, 1, GENERIC_NAME, NULL)) ERR;
Fix common typos Detected by https://github.com/vlajos/misspell_fixer
2015-08-20 17:42:05 +08:00
/* These don'e work, because the name is already in use. Make
moving to trunk subdir
2010-06-03 21:24:43 +08:00
* sure the correct error is returned. */
if (nc_def_grp(ncid, GENERIC_NAME, NULL) != NC_ENAMEINUSE) ERR;
if (nc_def_var(ncid, GENERIC_NAME, NC_BYTE, 0, NULL, &varid) != NC_ENAMEINUSE) ERR;
/* Close it. */
if (nc_close(ncid)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
moving to trunk subdir
2010-06-03 21:24:43 +08:00
/* Open the file and check. */
if (nc_open(FILE_NAME, NC_WRITE, &ncid)) ERR;
if (nc_inq_varids(ncid, &nvars_in, varids_in)) ERR;
if (nvars_in) ERR;
if (nc_inq_grps(ncid, &numgrps, NULL)) ERR;
if (numgrps) ERR;
if (nc_inq_typeids(ncid, &ntypes, NULL)) ERR;
if (ntypes != 1) ERR;
if (nc_close(ncid)) ERR;
}
SUMMARIZE_ERR;
printf("**** testing error codes for name clashes even more...");
{
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
#define GENERIC_NAME "bob"
moving to trunk subdir
2010-06-03 21:24:43 +08:00
int ncid, varid, numgrps, ntypes;
/* Create a netcdf-4 file with one group. */
if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR;
if (nc_def_grp(ncid, GENERIC_NAME, NULL)) ERR;
Fix common typos Detected by https://github.com/vlajos/misspell_fixer
2015-08-20 17:42:05 +08:00
/* These don'e work, because the name is already in use. Make
moving to trunk subdir
2010-06-03 21:24:43 +08:00
* sure the correct error is returned. */
if (nc_def_opaque(ncid, 1, GENERIC_NAME, NULL) != NC_ENAMEINUSE) ERR;
if (nc_def_var(ncid, GENERIC_NAME, NC_BYTE, 0, NULL, &varid) != NC_ENAMEINUSE) ERR;
/* Close it. */
if (nc_close(ncid)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
moving to trunk subdir
2010-06-03 21:24:43 +08:00
/* Open the file and check. */
if (nc_open(FILE_NAME, NC_WRITE, &ncid)) ERR;
if (nc_inq_varids(ncid, &nvars_in, varids_in)) ERR;
if (nvars_in) ERR;
if (nc_inq_grps(ncid, &numgrps, NULL)) ERR;
if (numgrps != 1) ERR;
if (nc_inq_typeids(ncid, &ntypes, NULL)) ERR;
if (ntypes) ERR;
if (nc_close(ncid)) ERR;
}
SUMMARIZE_ERR;
printf("**** testing error code for too-large chunks...");
{
#define NDIMS17 2
#define DIM17_NAME "personality"
#define DIM17_NAME_2 "good_looks"
#define VAR_NAME17 "ed"
#define DIM17_LEN 2147483644 /* max dimension size - 2GB - 4. */
#define DIM17_2_LEN 1000
int dimids[NDIMS17], dimids_in[NDIMS17];
int varid;
int ndims, nvars, natts, unlimdimid;
nc_type xtype_in;
char name_in[NC_MAX_NAME + 1];
size_t chunksize[NDIMS17] = {5, 5};
size_t bad_chunksize[NDIMS17] = {5, DIM17_LEN};
size_t chunksize_in[NDIMS17];
int storage_in;
int d;
/* Create a netcdf-4 file with two dims and one var. */
if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR;
if (nc_def_dim(ncid, DIM17_NAME, DIM17_LEN, &dimids[0])) ERR;
if (nc_def_dim(ncid, DIM17_NAME_2, DIM17_2_LEN, &dimids[1])) ERR;
if (dimids[0] != 0 || dimids[1] != 1) ERR;
if (nc_def_var(ncid, VAR_NAME17, NC_UINT64, NDIMS17, dimids, &varid)) ERR;
if (nc_def_var_chunking(ncid, varid, NC_CHUNKED, bad_chunksize) != NC_EBADCHUNK) ERR;
if (nc_def_var_chunking(ncid, varid, NC_CHUNKED, chunksize)) ERR;
/* Check stuff. */
if (nc_inq(ncid, &ndims, &nvars, &natts, &unlimdimid)) ERR;
if (ndims != NDIMS17 || nvars != 1 || natts != 0 ||
unlimdimid != -1) ERR;
if (nc_inq_varids(ncid, &nvars, varids_in)) ERR;
if (nvars != 1) ERR;
if (varids_in[0] != 0) ERR;
if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims, dimids_in, &natts)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
if (strcmp(name_in, VAR_NAME17) || xtype_in != NC_UINT64 || ndims != 2 || natts != 0 ||
moving to trunk subdir
2010-06-03 21:24:43 +08:00
dimids_in[0] != 0 || dimids_in[1] != 1) ERR;
if (nc_inq_var_chunking(ncid, 0, &storage_in, chunksize_in)) ERR;
for (d = 0; d < NDIMS17; d++)
if (chunksize[d] != chunksize_in[d]) ERR;
if (storage_in != NC_CHUNKED) ERR;
if (nc_close(ncid)) ERR;
/* Open the file and check the same stuff. */
if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR;
/* Check stuff. */
if (nc_inq(ncid, &ndims, &nvars, &natts, &unlimdimid)) ERR;
if (ndims != NDIMS17 || nvars != 1 || natts != 0 ||
unlimdimid != -1) ERR;
if (nc_inq_varids(ncid, &nvars, varids_in)) ERR;
if (nvars != 1) ERR;
if (varids_in[0] != 0) ERR;
if (nc_inq_var(ncid, 0, name_in, &xtype_in, &ndims, dimids_in, &natts)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
if (strcmp(name_in, VAR_NAME17) || xtype_in != NC_UINT64 || ndims != 2 || natts != 0 ||
moving to trunk subdir
2010-06-03 21:24:43 +08:00
dimids_in[0] != 0 || dimids_in[1] != 1) ERR;
if (nc_inq_var_chunking(ncid, 0, &storage_in, chunksize_in)) ERR;
for (d = 0; d < NDIMS17; d++)
if (chunksize[d] != chunksize_in[d]) ERR;
if (storage_in != NC_CHUNKED) ERR;
if (nc_close(ncid)) ERR;
}
SUMMARIZE_ERR;
#define NDIMS6 1
#define DIM8_NAME "num_monkeys"
#define DIM9_NAME "num_coconuts"
#define DIM9_LEN 10
#define VAR_NAME8 "John_Clayton"
#define VAR_NAME9 "Lord_Greystoke"
printf("**** testing that contiguous storage can't be turned on for vars with unlimited dims or filters...");
{
int ncid;
int dimids[NDIMS6];
int varid, varid2;
size_t chunksize_in[NDIMS6];
int storage_in;
/* Create a netcdf-4 file with one dim and some vars. */
if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR;
if (nc_def_dim(ncid, DIM8_NAME, NC_UNLIMITED, &dimids[0])) ERR;
if (nc_def_var(ncid, VAR_NAME8, NC_INT, NDIMS6, dimids, &varid)) ERR;
if (nc_def_dim(ncid, DIM9_NAME, DIM9_LEN, &dimids[0])) ERR;
if (nc_def_var(ncid, VAR_NAME9, NC_INT, NDIMS6, dimids, &varid2)) ERR;
if (nc_def_var_deflate(ncid, varid2, 0, 1, 4)) ERR;
/* This won't work because of the umlimited dimension. */
if (nc_def_var_chunking(ncid, varid, NC_CONTIGUOUS, NULL) != NC_EINVAL) ERR;
/* This won't work because of the deflate filter. */
if (nc_def_var_chunking(ncid, varid2, NC_CONTIGUOUS, NULL) != NC_EINVAL) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
moving to trunk subdir
2010-06-03 21:24:43 +08:00
/* Storage must be chunked because of unlimited dimension and
* the deflate filter. */
if (nc_inq_var_chunking(ncid, varid, &storage_in, chunksize_in)) ERR;
if (storage_in != NC_CHUNKED) ERR;
if (nc_inq_var_chunking(ncid, varid2, &storage_in, chunksize_in)) ERR;
if (storage_in != NC_CHUNKED) ERR;
if (nc_close(ncid)) ERR;
}
SUMMARIZE_ERR;
#define NDIMS6 1
#define DIM8_NAME "num_monkeys"
#define DIM9_NAME "num_coconuts"
#define DIM9_LEN 10
#define VAR_NAME8 "John_Clayton"
#define VAR_NAME9 "Lord_Greystoke"
printf("**** testing that contiguous storage can't be turned on for vars with unlimited dims or filters...");
{
int ncid;
int dimids[NDIMS6];
int varid, varid2;
size_t chunksize_in[NDIMS6];
int storage_in;
/* Create a netcdf-4 file with one dim and some vars. */
if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR;
if (nc_def_dim(ncid, DIM8_NAME, NC_UNLIMITED, &dimids[0])) ERR;
if (nc_def_var(ncid, VAR_NAME8, NC_INT, NDIMS6, dimids, &varid)) ERR;
if (nc_def_dim(ncid, DIM9_NAME, DIM9_LEN, &dimids[0])) ERR;
if (nc_def_var(ncid, VAR_NAME9, NC_INT, NDIMS6, dimids, &varid2)) ERR;
if (nc_def_var_deflate(ncid, varid2, 0, 1, 4)) ERR;
/* This won't work because of the umlimited dimension. */
if (nc_def_var_chunking(ncid, varid, NC_CONTIGUOUS, NULL) != NC_EINVAL) ERR;
/* This won't work because of the deflate filter. */
if (nc_def_var_chunking(ncid, varid2, NC_CONTIGUOUS, NULL) != NC_EINVAL) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
moving to trunk subdir
2010-06-03 21:24:43 +08:00
/* Storage must be chunked because of unlimited dimension and
* the deflate filter. */
if (nc_inq_var_chunking(ncid, varid, &storage_in, chunksize_in)) ERR;
if (storage_in != NC_CHUNKED) ERR;
if (nc_inq_var_chunking(ncid, varid2, &storage_in, chunksize_in)) ERR;
if (storage_in != NC_CHUNKED) ERR;
if (nc_close(ncid)) ERR;
}
SUMMARIZE_ERR;
FINAL_RESULTS;
}
Reference in New Issue Copy Permalink