mirror/netcdf-c
2
0
Fork 0
mirror of https://github.com/Unidata/netcdf-c.git synced 2024-12-27 08:49:16 +08:00
Code Issues Packages Projects Releases Wiki Activity
f3ef19330f
netcdf-c/nc_test4/tst_converts2.c

227 lines
7.9 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.
Whew! Updated copyright stanza in nc_test4.
2018-12-07 06:27:32 +08:00
Copyright 2018 University Corporation for Atmospheric Research/Unidata
moving to trunk subdir
2010-06-03 21:24:43 +08:00
See COPYRIGHT file for conditions of use.
Test even more data conversions.
$Id: tst_converts2.c,v 1.14 2010/06/01 15:34:51 ed Exp $
*/
#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"
Replace quotes when including system includes, in support of https://github.com/Unidata/netcdf-c/issues/928
2018-04-19 00:50:59 +08:00
#include <math.h>
moving to trunk subdir
2010-06-03 21:24:43 +08:00
#define FILE_NAME "tst_converts2.nc"
#define VAR_NAME "Monkey"
clean up test for USHORT conversions bug fix
2010-10-06 06:11:18 +08:00
#define DIM_NAME "n"
#define DIM_LEN 5
moving to trunk subdir
2010-06-03 21:24:43 +08:00
int
main(int argc, char **argv)
{
int ncid, varid;
signed char schar_in, schar = -2;
char var_name[NC_MAX_NAME+1];
int ndims, natts, int_in;
long long_in;
nc_type var_type;
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
printf("\n*** Testing more netcdf-4 data conversion.\n");
provide test for USHORT conversions bug fix
2010-10-06 06:04:34 +08:00
printf ("*** Testing NC_BYTE conversions...");
moving to trunk subdir
2010-06-03 21:24:43 +08:00
{
/* Write a scalar NC_BYTE with value -2. */
if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR;
if (nc_def_var(ncid, VAR_NAME, NC_BYTE, 0, NULL, &varid)) ERR;
if (nc_put_var_schar(ncid, varid, &schar)) ERR;
if (nc_close(ncid)) ERR;
/* Now open the file and check it. */
if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR;
if (nc_inq_var(ncid, 0, var_name, &var_type, &ndims, NULL, &natts)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
if (strcmp(var_name, VAR_NAME) || natts !=0 || ndims != 0 ||
moving to trunk subdir
2010-06-03 21:24:43 +08:00
var_type != NC_BYTE) ERR;
if (nc_get_var_schar(ncid, varid, &schar_in)) ERR;
if (schar_in != schar) ERR;
if (nc_get_var_int(ncid, varid, &int_in)) ERR;
if (int_in != schar) ERR;
if (nc_get_var_long(ncid, varid, &long_in)) ERR;
if (long_in != schar) ERR;
if (nc_close(ncid)) ERR;
}
SUMMARIZE_ERR;
provide test for USHORT conversions bug fix
2010-10-06 06:04:34 +08:00
printf ("*** Testing NC_USHORT conversions...");
{
test both for fill-value and non fill-value
2010-10-07 00:28:33 +08:00
/* Write a scalar NC_USHORT, converted from various types, testing a bug fix. */
clean up test for USHORT conversions bug fix
2010-10-06 06:11:18 +08:00
unsigned short usval = 65535;
provide test for USHORT conversions bug fix
2010-10-06 06:04:34 +08:00
int ival = 65535;
long lval = 65535;
float fval = 65535;
double dval = 65535;
int dimid;
size_t coord[1];
unsigned short ushort_in;
int int_in;
long long_in;
float float_in;
double double_in;
fixed NC_SHORT conversion bug
2010-10-06 23:50:42 +08:00
provide test for USHORT conversions bug fix
2010-10-06 06:04:34 +08:00
if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR;
if (nc_def_dim(ncid, DIM_NAME, DIM_LEN, &dimid)) ERR;
if (nc_def_var(ncid, VAR_NAME, NC_USHORT, 1, &dimid, &varid)) ERR;
test both for fill-value and non fill-value
2010-10-07 00:28:33 +08:00
coord[0] = 0;
if (nc_put_var1_ushort(ncid, varid, coord, &usval)) ERR;
provide test for USHORT conversions bug fix
2010-10-06 06:04:34 +08:00
coord[0] = 1;
test both for fill-value and non fill-value
2010-10-07 00:28:33 +08:00
if (nc_put_var1_int(ncid, varid, coord, &ival)) ERR;
provide test for USHORT conversions bug fix
2010-10-06 06:04:34 +08:00
coord[0] = 2;
test both for fill-value and non fill-value
2010-10-07 00:28:33 +08:00
if (nc_put_var1_float(ncid, varid, coord, &fval)) ERR;
provide test for USHORT conversions bug fix
2010-10-06 06:04:34 +08:00
coord[0] = 3;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
if (nc_put_var1_double(ncid, varid, coord, &dval)) ERR;
test both for fill-value and non fill-value
2010-10-07 00:28:33 +08:00
coord[0] = 4;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
if (nc_put_var1_long(ncid, varid, coord, &lval)) ERR;
provide test for USHORT conversions bug fix
2010-10-06 06:04:34 +08:00
if (nc_close(ncid)) ERR;
/* Now open the file and check it. */
if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR;
if (nc_inq_var(ncid, 0, var_name, &var_type, &ndims, NULL, &natts)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
if (strcmp(var_name, VAR_NAME) || natts !=0 || ndims != 1 ||
provide test for USHORT conversions bug fix
2010-10-06 06:04:34 +08:00
var_type != NC_USHORT) ERR;
test both for fill-value and non fill-value
2010-10-07 00:28:33 +08:00
coord[0] = 0;
if (nc_get_var1_ushort(ncid, varid, coord, &ushort_in)) ERR;
if (ushort_in != usval) ERR;
fixed NC_SHORT conversion bug
2010-10-06 23:50:42 +08:00
coord[0] = 1;
test both for fill-value and non fill-value
2010-10-07 00:28:33 +08:00
if (nc_get_var1_int(ncid, varid, coord, &int_in)) ERR;
fixed NC_SHORT conversion bug
2010-10-06 23:50:42 +08:00
if (int_in != ival) ERR;
coord[0] = 2;
test both for fill-value and non fill-value
2010-10-07 00:28:33 +08:00
if (nc_get_var1_float(ncid, varid, coord, &float_in)) ERR;
fixed NC_SHORT conversion bug
2010-10-06 23:50:42 +08:00
if (float_in != fval) ERR;
coord[0] = 3;
test both for fill-value and non fill-value
2010-10-07 00:28:33 +08:00
if (nc_get_var1_double(ncid, varid, coord, &double_in)) ERR;
fixed NC_SHORT conversion bug
2010-10-06 23:50:42 +08:00
if (double_in != dval) ERR;
coord[0] = 4;
test both for fill-value and non fill-value
2010-10-07 00:28:33 +08:00
if (nc_get_var1_long(ncid, varid, coord, &long_in)) ERR;
fixed NC_SHORT conversion bug
2010-10-06 23:50:42 +08:00
if (long_in != lval) ERR;
test both for fill-value and non fill-value
2010-10-07 00:28:33 +08:00
/* This should fail. */
Fix test for proper error return when invalid coordinate specified for nc_get_var1_ushaort call.
2013-11-27 04:33:18 +08:00
coord[0] = 5;
if (nc_get_var1_ushort(ncid, varid, coord,
test both for fill-value and non fill-value
2010-10-07 00:28:33 +08:00
&ushort_in) != NC_EINVALCOORDS) ERR;
if (nc_close(ncid)) ERR;
}
{
/* Write a scalar NC_USHORT that's not default fill value,
* converted from various types. */
unsigned short usval = 65534;
int ival = 65534;
long lval = 65534;
float fval = 65534;
double dval = 65534;
int dimid;
size_t coord[1];
unsigned short ushort_in;
int int_in;
long long_in;
float float_in;
double double_in;
if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR;
if (nc_def_dim(ncid, DIM_NAME, DIM_LEN, &dimid)) ERR;
if (nc_def_var(ncid, VAR_NAME, NC_USHORT, 1, &dimid, &varid)) ERR;
fixed NC_SHORT conversion bug
2010-10-06 23:50:42 +08:00
coord[0] = 0;
test both for fill-value and non fill-value
2010-10-07 00:28:33 +08:00
if (nc_put_var1_ushort(ncid, varid, coord, &usval)) ERR;
coord[0] = 1;
if (nc_put_var1_int(ncid, varid, coord, &ival)) ERR;
coord[0] = 2;
if (nc_put_var1_float(ncid, varid, coord, &fval)) ERR;
coord[0] = 3;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
if (nc_put_var1_double(ncid, varid, coord, &dval)) ERR;
test both for fill-value and non fill-value
2010-10-07 00:28:33 +08:00
coord[0] = 4;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
if (nc_put_var1_long(ncid, varid, coord, &lval)) ERR;
test both for fill-value and non fill-value
2010-10-07 00:28:33 +08:00
if (nc_close(ncid)) ERR;
/* Now open the file and check it. */
if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR;
if (nc_inq_var(ncid, 0, var_name, &var_type, &ndims, NULL, &natts)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
if (strcmp(var_name, VAR_NAME) || natts !=0 || ndims != 1 ||
test both for fill-value and non fill-value
2010-10-07 00:28:33 +08:00
var_type != NC_USHORT) ERR;
coord[0] = 0;
if (nc_get_var1_ushort(ncid, varid, coord, &ushort_in)) ERR;
fixed NC_SHORT conversion bug
2010-10-06 23:50:42 +08:00
if (ushort_in != usval) ERR;
test both for fill-value and non fill-value
2010-10-07 00:28:33 +08:00
coord[0] = 1;
if (nc_get_var1_int(ncid, varid, coord, &int_in)) ERR;
if (int_in != ival) ERR;
coord[0] = 2;
if (nc_get_var1_float(ncid, varid, coord, &float_in)) ERR;
if (float_in != fval) ERR;
coord[0] = 3;
if (nc_get_var1_double(ncid, varid, coord, &double_in)) ERR;
if (double_in != dval) ERR;
coord[0] = 4;
if (nc_get_var1_long(ncid, varid, coord, &long_in)) ERR;
if (long_in != lval) ERR;
fixed NC_SHORT conversion bug
2010-10-06 23:50:42 +08:00
/* This should fail. */
Fix test for proper error return when invalid coordinate specified for nc_get_var1_ushaort call.
2013-11-27 04:33:18 +08:00
coord[0] = 5;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
if (nc_get_var1_ushort(ncid, varid, coord,
fixed NC_SHORT conversion bug
2010-10-06 23:50:42 +08:00
&ushort_in) != NC_EINVALCOORDS) ERR;
provide test for USHORT conversions bug fix
2010-10-06 06:04:34 +08:00
if (nc_close(ncid)) ERR;
}
SUMMARIZE_ERR;
printf ("*** Testing MAX_INT conversions...");
moving to trunk subdir
2010-06-03 21:24:43 +08:00
{
minor refactor of the build system to work better for cross-compiling
2011-03-15 18:19:08 +08:00
#define X_INT_MAX 2147483647 /* from libsrc4/nc4internal.h */
moving to trunk subdir
2010-06-03 21:24:43 +08:00
int ivalue = X_INT_MAX, ivalue_in;
unsigned char uchar_in;
unsigned int uivalue_in;
short svalue_in;
unsigned short usvalue_in;
long long int64_in;
unsigned long long uint64_in;
Switch test for nc_inq_unlimdim and nc_inq_unlimdims to use the same ordering as the rest of the dimension queries. Correct error in library where types used in sub-group variables but that were added to the file after the sub-group was created weren't available for sub-group variables to use. Start cleaning up test suite and un-commenting tests that were commented out (got up to nc_test4/tst_fills2.c, alphabetically) before running into an error in HDF5.
2013-12-16 09:55:41 +08:00
float float_in;
moving to trunk subdir
2010-06-03 21:24:43 +08:00
double double_in;
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
/* Write a scalar NC_INT with value X_MAX_INT. */
if (nc_create(FILE_NAME, NC_NETCDF4, &ncid)) ERR;
if (nc_def_var(ncid, VAR_NAME, NC_INT, 0, NULL, &varid)) ERR;
if (nc_put_var_int(ncid, varid, &ivalue)) ERR;
if (nc_close(ncid)) ERR;
/* Now open the file and check it. */
if (nc_open(FILE_NAME, NC_NOWRITE, &ncid)) ERR;
if (nc_inq_var(ncid, 0, var_name, &var_type, &ndims, NULL, &natts)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
if (strcmp(var_name, VAR_NAME) || natts !=0 || ndims != 0 ||
moving to trunk subdir
2010-06-03 21:24:43 +08:00
var_type != NC_INT) ERR;
if (nc_get_var_schar(ncid, varid, &schar_in) != NC_ERANGE) ERR;
if (schar_in != (signed char)ivalue) ERR;
if (nc_get_var_uchar(ncid, varid, &uchar_in) != NC_ERANGE) ERR;
if (uchar_in != (unsigned char)ivalue) ERR;
if (nc_get_var_short(ncid, varid, &svalue_in) != NC_ERANGE) ERR;
if (svalue_in != (short)ivalue) ERR;
if (nc_get_var_ushort(ncid, varid, &usvalue_in) != NC_ERANGE) ERR;
if (usvalue_in != (unsigned short)ivalue) ERR;
if (nc_get_var_int(ncid, varid, &ivalue_in)) ERR;
if (ivalue_in != ivalue) ERR;
if (nc_get_var_uint(ncid, varid, &uivalue_in)) ERR;
if (uivalue_in != (unsigned int)ivalue) ERR;
if (nc_get_var_long(ncid, varid, &long_in)) ERR;
if (long_in != ivalue) ERR;
if (nc_get_var_longlong(ncid, varid, &int64_in)) ERR;
if (int64_in != ivalue) ERR;
if (nc_get_var_ulonglong(ncid, varid, &uint64_in)) ERR;
if (uint64_in != ivalue) ERR;
Switch test for nc_inq_unlimdim and nc_inq_unlimdims to use the same ordering as the rest of the dimension queries. Correct error in library where types used in sub-group variables but that were added to the file after the sub-group was created weren't available for sub-group variables to use. Start cleaning up test suite and un-commenting tests that were commented out (got up to nc_test4/tst_fills2.c, alphabetically) before running into an error in HDF5.
2013-12-16 09:55:41 +08:00
if (nc_get_var_float(ncid, varid, &float_in)) ERR;
More refactoring, pushing to avoid accidental loss.
2016-10-22 03:24:40 +08:00
Fix most float conversion warnings Fixes ~200 out of ~240 `-Wfloat-conversion` warnings on gcc 13.2
2023-10-26 23:01:24 +08:00
if(fabs( (float_in-(float)X_INT_MAX) - ((float)ivalue - (float)X_INT_MAX)) > 1) 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_get_var_double(ncid, varid, &double_in)) ERR;
if (double_in != (double)ivalue) ERR;
if (nc_close(ncid)) ERR;
}
SUMMARIZE_ERR;
FINAL_RESULTS;
}
Reference in New Issue Copy Permalink