mirror of
https://github.com/HDFGroup/hdf5.git
synced 2024-12-27 08:01:04 +08:00
f859cb732b
* fixed missed closing of a dataset * fixed missed closing of a dataset * fixed typo in error return * Committing clang-format changes * minor edits * code format * Committing clang-format changes * code format * minor edit * switched from using MPI_count, to actual bytes written for H5FD_mpio_debug rw debugging * Committing clang-format changes * changed size_i in printf to reflect the I/O. * Committing clang-format changes * Fixed seg fault with xlf on BE with -qintsize=8 * fixed error function string * spelling corrections via codespell, added new spell check github actions * Committing clang-format changes * misc * misc * misc * misc * misc * misc * misc * misc * misc * misc * misc * misc * misc * misc * Committing clang-format changes * misc * misc * misc * misc * misc * misc * Committing clang-format changes * misc * work around for https://github.com/codespell-project/codespell/issues/2137 * misc * added missing file * misc * misc. * misc * switch to using Codespell with GitHub Actions * misc. * misc. * fixed more sp errors * Fix new typos found by codespell. * fixed proceed with precede * fixed variable in fortran test * fixed minnum * updated spelling list Co-authored-by: github-actions <41898282+github-actions[bot]@users.noreply.github.com> Co-authored-by: Larry Knox <lrknox@hdfgroup.org>
803 lines
24 KiB
C
803 lines
24 KiB
C
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
|
* Copyright by The HDF Group. *
|
|
* Copyright by the Board of Trustees of the University of Illinois. *
|
|
* All rights reserved. *
|
|
* *
|
|
* This file is part of HDF5. The full HDF5 copyright notice, including *
|
|
* terms governing use, modification, and redistribution, is contained in *
|
|
* the COPYING file, which can be found at the root of the source code *
|
|
* distribution tree, or in https://www.hdfgroup.org/licenses. *
|
|
* If you do not have access to either file, you may request a copy from *
|
|
* help@hdfgroup.org. *
|
|
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
|
|
|
|
/*
|
|
* Programmer: Robb Matzke
|
|
* Tuesday, December 22, 1998
|
|
*/
|
|
#include "h5test.h"
|
|
#define CPTR(VAR, CONST) ((VAR) = (CONST), &(VAR))
|
|
|
|
const char *FILENAME[] = {"enum1", NULL};
|
|
|
|
typedef enum { E1_RED, E1_GREEN, E1_BLUE, E1_WHITE, E1_BLACK } c_e1;
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: test_named
|
|
*
|
|
* Purpose: Create an enumeration data type and store it in the file.
|
|
*
|
|
* Return: Success: 0
|
|
*
|
|
* Failure: number of errors
|
|
*
|
|
* Programmer: Robb Matzke
|
|
* Wednesday, December 23, 1998
|
|
*
|
|
* Modifications:
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
static int
|
|
test_named(hid_t file)
|
|
{
|
|
hid_t type = -1, cwg = -1;
|
|
c_e1 val;
|
|
signed char val8;
|
|
|
|
TESTING("named enumeration types");
|
|
if ((cwg = H5Gcreate2(file, "test_named", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
/* A native integer */
|
|
if ((type = H5Tcreate(H5T_ENUM, sizeof(c_e1))) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(type, "RED", CPTR(val, E1_RED)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(type, "GREEN", CPTR(val, E1_GREEN)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(type, "BLUE", CPTR(val, E1_BLUE)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(type, "WHITE", CPTR(val, E1_WHITE)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(type, "BLACK", CPTR(val, E1_BLACK)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tcommit2(cwg, "e1_a", type, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tclose(type) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
/* A smaller type */
|
|
if ((type = H5Tcreate(H5T_ENUM, (size_t)1)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(type, "RED", CPTR(val8, E1_RED)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(type, "GREEN", CPTR(val8, E1_GREEN)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(type, "BLUE", CPTR(val8, E1_BLUE)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(type, "WHITE", CPTR(val8, E1_WHITE)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(type, "BLACK", CPTR(val8, E1_BLACK)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tcommit2(cwg, "e1_b", type, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tclose(type) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
/* A non-native type */
|
|
if (H5T_ORDER_BE == H5Tget_order(H5T_NATIVE_INT)) {
|
|
if ((type = H5Tenum_create(H5T_STD_U8LE)) < 0)
|
|
FAIL_STACK_ERROR
|
|
}
|
|
else {
|
|
if ((type = H5Tenum_create(H5T_STD_U8BE)) < 0)
|
|
FAIL_STACK_ERROR
|
|
}
|
|
if (H5Tenum_insert(type, "RED", CPTR(val8, E1_RED)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(type, "GREEN", CPTR(val8, E1_GREEN)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(type, "BLUE", CPTR(val8, E1_BLUE)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(type, "WHITE", CPTR(val8, E1_WHITE)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(type, "BLACK", CPTR(val8, E1_BLACK)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tcommit2(cwg, "e1_c", type, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tclose(type) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
if (H5Gclose(cwg) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
PASSED();
|
|
return 0;
|
|
|
|
error:
|
|
H5E_BEGIN_TRY
|
|
{
|
|
H5Tclose(type);
|
|
H5Gclose(cwg);
|
|
}
|
|
H5E_END_TRY;
|
|
return 1;
|
|
}
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: test_conv
|
|
*
|
|
* Purpose: Tests writing and read data
|
|
*
|
|
* Return: Success: 0
|
|
*
|
|
* Failure: number of errors
|
|
*
|
|
* Programmer: Robb Matzke
|
|
* Monday, January 4, 1999
|
|
*
|
|
* Raymond Lu
|
|
* 12 October 2012
|
|
* I added tests for enum-integer and enum-float conversions
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
static int
|
|
test_conv(hid_t file)
|
|
{
|
|
hid_t cwg = -1, type = -1, space = -1, dset = -1;
|
|
c_e1 val;
|
|
/* Some values are out of range for testing. The library should accept them */
|
|
static c_e1 data1[] = {E1_RED, E1_GREEN, E1_BLUE, E1_GREEN, E1_WHITE, E1_WHITE, E1_BLACK,
|
|
E1_GREEN, E1_BLUE, E1_RED, E1_RED, E1_BLUE, E1_GREEN, E1_BLACK,
|
|
E1_WHITE, E1_RED, E1_WHITE, (c_e1)0, (c_e1)-1, (c_e1)-2};
|
|
c_e1 data2[NELMTS(data1)];
|
|
short data_short[NELMTS(data1)];
|
|
int data_int[NELMTS(data1)];
|
|
double data_double[NELMTS(data1)];
|
|
hsize_t ds_size[1] = {NELMTS(data1)};
|
|
size_t i;
|
|
|
|
TESTING("enumeration conversions");
|
|
|
|
if ((cwg = H5Gcreate2(file, "test_conv", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
if ((type = H5Tcreate(H5T_ENUM, sizeof(c_e1))) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(type, "RED", CPTR(val, E1_RED)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(type, "GREEN", CPTR(val, E1_GREEN)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(type, "BLUE", CPTR(val, E1_BLUE)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(type, "WHITE", CPTR(val, E1_WHITE)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(type, "BLACK", CPTR(val, E1_BLACK)) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
if ((space = H5Screate_simple(1, ds_size, NULL)) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
/***************************************
|
|
* Dataset of enumeration type
|
|
***************************************/
|
|
/* Create a dataset of enum type and write enum data to it */
|
|
if ((dset = H5Dcreate2(cwg, "color_table1", type, space, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Dwrite(dset, type, space, space, H5P_DEFAULT, data1) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
/* Test reading back the data with no conversion */
|
|
if (H5Dread(dset, type, space, space, H5P_DEFAULT, data2) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
for (i = 0; i < (size_t)ds_size[0]; i++)
|
|
if (data1[i] != data2[i]) {
|
|
H5_FAILED();
|
|
HDprintf(" 1. data1[%lu]=%d, data2[%lu]=%d (should be same)\n", (unsigned long)i,
|
|
(int)(data1[i]), (unsigned long)i, (int)(data2[i]));
|
|
goto error;
|
|
} /* end if */
|
|
|
|
/* Test converting the data to integer. Read enum data back as integer */
|
|
if (H5Dread(dset, H5T_NATIVE_SHORT, space, space, H5P_DEFAULT, data_short) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
for (i = 0; i < (size_t)ds_size[0]; i++)
|
|
if ((short)data1[i] != data_short[i]) {
|
|
H5_FAILED();
|
|
HDprintf(" 2. data1[%lu]=%d, data_short[%lu]=%d (should be same)\n", (unsigned long)i,
|
|
(int)(data1[i]), (unsigned long)i, (int)(data_short[i]));
|
|
goto error;
|
|
} /* end if */
|
|
|
|
/* Test converting the data to floating number. Read enum data back as floating number */
|
|
if (H5Dread(dset, H5T_NATIVE_DOUBLE, space, space, H5P_DEFAULT, data_double) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
for (i = 0; i < (size_t)ds_size[0]; i++)
|
|
if ((int)data1[i] != (int)data_double[i]) {
|
|
H5_FAILED();
|
|
HDprintf(" 3. data1[%lu]=%d, data_double[%lu]=%d (should be same)\n", (unsigned long)i,
|
|
(int)(data1[i]), (unsigned long)i, (int)(data_double[i]));
|
|
goto error;
|
|
} /* end if */
|
|
|
|
if (H5Dclose(dset) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
/***************************************
|
|
* Dataset of integer type
|
|
***************************************/
|
|
/* Create a dataset of native integer and write enum data to it */
|
|
if ((dset = H5Dcreate2(cwg, "color_table2", H5T_NATIVE_INT, space, H5P_DEFAULT, H5P_DEFAULT,
|
|
H5P_DEFAULT)) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
if (H5Dwrite(dset, type, space, space, H5P_DEFAULT, data1) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
/* Test reading back the data with no conversion */
|
|
if (H5Dread(dset, H5T_NATIVE_INT, space, space, H5P_DEFAULT, data_int) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
for (i = 0; i < (size_t)ds_size[0]; i++)
|
|
if ((int)data1[i] != data_int[i]) {
|
|
H5_FAILED();
|
|
HDprintf(" 4. data1[%lu]=%d, data_int[%lu]=%d (should be same)\n", (unsigned long)i,
|
|
(int)(data1[i]), (unsigned long)i, (int)(data_int[i]));
|
|
goto error;
|
|
} /* end if */
|
|
|
|
if (H5Dclose(dset) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
/***************************************
|
|
* Dataset of double type
|
|
***************************************/
|
|
/* Create a dataset of native double and write enum data to it */
|
|
if ((dset = H5Dcreate2(cwg, "color_table3", H5T_NATIVE_DOUBLE, space, H5P_DEFAULT, H5P_DEFAULT,
|
|
H5P_DEFAULT)) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
if (H5Dwrite(dset, type, space, space, H5P_DEFAULT, data1) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
/* Test reading back the data with no conversion */
|
|
if (H5Dread(dset, H5T_NATIVE_DOUBLE, space, space, H5P_DEFAULT, data_double) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
for (i = 0; i < (size_t)ds_size[0]; i++)
|
|
if ((int)data1[i] != (int)data_double[i]) {
|
|
H5_FAILED();
|
|
HDprintf(" 5. data1[%lu]=%d, data_double[%lu]=%d (should be same)\n", (unsigned long)i,
|
|
(int)(data1[i]), (unsigned long)i, (int)(data_double[i]));
|
|
goto error;
|
|
} /* end if */
|
|
|
|
if (H5Dclose(dset) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
if (H5Sclose(space) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tclose(type) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Gclose(cwg) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
PASSED();
|
|
return 0;
|
|
|
|
error:
|
|
H5E_BEGIN_TRY
|
|
{
|
|
H5Dclose(dset);
|
|
H5Sclose(space);
|
|
H5Tclose(type);
|
|
H5Gclose(cwg);
|
|
}
|
|
H5E_END_TRY;
|
|
return 1;
|
|
}
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: test_tr1
|
|
*
|
|
* Purpose: Writes enumerated data to a dataset which requires
|
|
* translation. Both memory and file data types use native
|
|
* integers but the file type has a different mapping between
|
|
* the integers and symbols.
|
|
*
|
|
* Return: Success: 0
|
|
*
|
|
* Failure: number of errors
|
|
*
|
|
* Programmer: Robb Matzke
|
|
* Monday, January 4, 1999
|
|
*
|
|
* Modifications:
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
static int
|
|
test_tr1(hid_t file)
|
|
{
|
|
hid_t cwg = -1, m_type = -1, f_type = -1, space = -1, dset = -1;
|
|
hsize_t ds_size[1] = {10};
|
|
size_t i;
|
|
c_e1 eval;
|
|
int ival;
|
|
static c_e1 data1[10] = {E1_RED, E1_GREEN, E1_BLUE, E1_GREEN, E1_WHITE,
|
|
E1_WHITE, E1_BLACK, E1_GREEN, E1_BLUE, E1_RED};
|
|
c_e1 data2[10];
|
|
|
|
TESTING("O(1) conversions");
|
|
|
|
if ((cwg = H5Gcreate2(file, "test_tr1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
if ((m_type = H5Tcreate(H5T_ENUM, sizeof(c_e1))) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(m_type, "RED", CPTR(eval, E1_RED)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(m_type, "GREEN", CPTR(eval, E1_GREEN)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(m_type, "BLUE", CPTR(eval, E1_BLUE)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(m_type, "WHITE", CPTR(eval, E1_WHITE)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(m_type, "BLACK", CPTR(eval, E1_BLACK)) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
if ((f_type = H5Tcreate(H5T_ENUM, sizeof(c_e1))) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(f_type, "RED", CPTR(ival, 105)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(f_type, "GREEN", CPTR(ival, 104)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(f_type, "BLUE", CPTR(ival, 103)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(f_type, "WHITE", CPTR(ival, 102)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(f_type, "BLACK", CPTR(ival, 101)) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
if ((space = H5Screate_simple(1, ds_size, NULL)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if ((dset = H5Dcreate2(cwg, "color_table", f_type, space, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Dwrite(dset, m_type, space, space, H5P_DEFAULT, data1) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Dread(dset, m_type, space, space, H5P_DEFAULT, data2) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
for (i = 0; i < (size_t)ds_size[0]; i++)
|
|
if (data1[i] != data2[i]) {
|
|
H5_FAILED();
|
|
HDprintf(" data1[%lu]=%d, data2[%lu]=%d (should be same)\n", (unsigned long)i, (int)(data1[i]),
|
|
(unsigned long)i, (int)(data2[i]));
|
|
goto error;
|
|
}
|
|
|
|
if (H5Dclose(dset) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Sclose(space) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tclose(m_type) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tclose(f_type) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Gclose(cwg) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
PASSED();
|
|
|
|
return 0;
|
|
|
|
error:
|
|
H5E_BEGIN_TRY
|
|
{
|
|
H5Dclose(dset);
|
|
H5Sclose(space);
|
|
H5Tclose(m_type);
|
|
H5Tclose(f_type);
|
|
H5Gclose(cwg);
|
|
}
|
|
H5E_END_TRY;
|
|
return 1;
|
|
}
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: test_tr2
|
|
*
|
|
* Purpose: Tests conversions that use the O(log N) lookup function.
|
|
*
|
|
* Return: Success: 0
|
|
*
|
|
* Failure: number of errors
|
|
*
|
|
* Programmer: Robb Matzke
|
|
* Tuesday, January 5, 1999
|
|
*
|
|
* Modifications:
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
static int
|
|
test_tr2(hid_t file)
|
|
{
|
|
hid_t cwg = -1, m_type = -1, f_type = -1, space = -1, dset = -1;
|
|
hsize_t ds_size[1] = {10};
|
|
size_t i;
|
|
c_e1 val1;
|
|
int val2;
|
|
static c_e1 data1[10] = {E1_RED, E1_GREEN, E1_BLUE, E1_GREEN, E1_WHITE,
|
|
E1_WHITE, E1_BLACK, E1_GREEN, E1_BLUE, E1_RED};
|
|
c_e1 data2[10];
|
|
|
|
TESTING("O(log N) conversions");
|
|
|
|
if ((cwg = H5Gcreate2(file, "test_tr2", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
if ((m_type = H5Tcreate(H5T_ENUM, sizeof(c_e1))) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(m_type, "RED", CPTR(val1, E1_RED)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(m_type, "GREEN", CPTR(val1, E1_GREEN)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(m_type, "BLUE", CPTR(val1, E1_BLUE)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(m_type, "WHITE", CPTR(val1, E1_WHITE)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(m_type, "BLACK", CPTR(val1, E1_BLACK)) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
if ((f_type = H5Tcreate(H5T_ENUM, sizeof(int))) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(f_type, "RED", CPTR(val2, 1050)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(f_type, "GREEN", CPTR(val2, 1040)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(f_type, "BLUE", CPTR(val2, 1030)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(f_type, "WHITE", CPTR(val2, 1020)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(f_type, "BLACK", CPTR(val2, 1010)) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
if ((space = H5Screate_simple(1, ds_size, NULL)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if ((dset = H5Dcreate2(cwg, "color_table", f_type, space, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Dwrite(dset, m_type, space, space, H5P_DEFAULT, data1) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Dread(dset, m_type, space, space, H5P_DEFAULT, data2) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
for (i = 0; i < (size_t)ds_size[0]; i++)
|
|
if (data1[i] != data2[i]) {
|
|
H5_FAILED();
|
|
HDprintf(" data1[%lu]=%d, data2[%lu]=%d (should be same)\n", (unsigned long)i, (int)(data1[i]),
|
|
(unsigned long)i, (int)(data2[i]));
|
|
goto error;
|
|
}
|
|
|
|
if (H5Dclose(dset) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Sclose(space) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tclose(m_type) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tclose(f_type) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Gclose(cwg) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
PASSED();
|
|
|
|
return 0;
|
|
|
|
error:
|
|
H5E_BEGIN_TRY
|
|
{
|
|
H5Dclose(dset);
|
|
H5Sclose(space);
|
|
H5Tclose(m_type);
|
|
H5Tclose(f_type);
|
|
H5Gclose(cwg);
|
|
}
|
|
H5E_END_TRY;
|
|
return 1;
|
|
}
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: test_value_dsnt_exist
|
|
*
|
|
* Purpose: Create an enumeration datatype with "gaps in values"
|
|
* and then request a name of non-existing value within
|
|
* an existing range by calling H5Tenum_nameof function.
|
|
* Function should fail instead of succeeding and returning
|
|
* a name of one of the existing values.
|
|
* Request a value by supplying non-existing name by calling
|
|
* H5Tenum_nameof function. Function should fail.
|
|
*
|
|
*
|
|
* Return: Success: 0
|
|
*
|
|
* Failure: number of errors
|
|
*
|
|
* Programmer: Elena Pourmal
|
|
* Wednesday, June 7, 2002
|
|
*
|
|
* Modifications:
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
static int
|
|
test_value_dsnt_exist(void)
|
|
{
|
|
|
|
hid_t datatype_id = (-1); /* identifiers */
|
|
int val;
|
|
char nam[100];
|
|
size_t size = 100;
|
|
TESTING("for non-existing name and value");
|
|
/* Turn off error reporting since we expect failure in this test */
|
|
|
|
if (H5Eset_auto2(H5E_DEFAULT, NULL, NULL) < 0)
|
|
goto error;
|
|
|
|
if ((datatype_id = H5Tenum_create(H5T_NATIVE_INT)) < 0)
|
|
goto error;
|
|
|
|
/* These calls should fail, since no members exist yet */
|
|
if (H5Tenum_valueof(datatype_id, "SAX", &val) >= 0)
|
|
goto error;
|
|
val = 3;
|
|
if (H5Tenum_nameof(datatype_id, &val, nam, size) >= 0)
|
|
goto error;
|
|
|
|
val = 2;
|
|
if (H5Tenum_insert(datatype_id, "TWO", (int *)&val) < 0)
|
|
goto error;
|
|
val = 6;
|
|
if (H5Tenum_insert(datatype_id, "SIX", (int *)&val) < 0)
|
|
goto error;
|
|
val = 10;
|
|
if (H5Tenum_insert(datatype_id, "TEN", (int *)&val) < 0)
|
|
goto error;
|
|
|
|
/* This call should fail since we did not create a member with value = 3*/
|
|
val = 3;
|
|
if (H5Tenum_nameof(datatype_id, &val, nam, size) >= 0)
|
|
goto error;
|
|
|
|
/* This call should fail since we did not create a member with value = 11*/
|
|
val = 11;
|
|
if (H5Tenum_nameof(datatype_id, &val, nam, size) >= 0)
|
|
goto error;
|
|
|
|
/* This call should fail since we did not create a member with value = 0*/
|
|
val = 0;
|
|
if (H5Tenum_nameof(datatype_id, &val, nam, size) >= 0)
|
|
goto error;
|
|
|
|
/* This call should fail since we do not have SAX name in the type */
|
|
if (H5Tenum_valueof(datatype_id, "SAX", &val) >= 0)
|
|
goto error;
|
|
|
|
/* This call should fail since we do not have TEEN name in the type */
|
|
if (H5Tenum_valueof(datatype_id, "TEEN", &val) >= 0)
|
|
goto error;
|
|
|
|
/* This call should fail since we do not have A name in the type */
|
|
if (H5Tenum_valueof(datatype_id, "A", &val) >= 0)
|
|
goto error;
|
|
|
|
if (H5Tclose(datatype_id) < 0)
|
|
goto error;
|
|
PASSED();
|
|
return 0;
|
|
|
|
error:
|
|
H5E_BEGIN_TRY
|
|
{
|
|
H5Tclose(datatype_id);
|
|
}
|
|
H5E_END_TRY;
|
|
return 1;
|
|
}
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: test_funcs
|
|
*
|
|
* Purpose: Create an enumeration data type and test some functions
|
|
* that are or aren't supposed to work with it.
|
|
*
|
|
* Return: Success: 0
|
|
*
|
|
* Failure: number of errors
|
|
*
|
|
* Programmer: Raymond Lu
|
|
* Tuesday, April 4, 2006
|
|
*
|
|
* Modifications:
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
static int
|
|
test_funcs(void)
|
|
{
|
|
hid_t type = -1;
|
|
c_e1 val;
|
|
size_t size;
|
|
H5T_pad_t inpad;
|
|
H5T_cset_t cset;
|
|
herr_t ret;
|
|
|
|
TESTING("some functions with enumeration types");
|
|
|
|
/* A native integer */
|
|
if ((type = H5Tcreate(H5T_ENUM, sizeof(c_e1))) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(type, "RED", CPTR(val, E1_RED)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(type, "GREEN", CPTR(val, E1_GREEN)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(type, "BLUE", CPTR(val, E1_BLUE)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(type, "WHITE", CPTR(val, E1_WHITE)) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tenum_insert(type, "BLACK", CPTR(val, E1_BLACK)) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
if (H5Tget_precision(type) == 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tget_size(type) == 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tget_offset(type) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tget_sign(type) < 0)
|
|
FAIL_STACK_ERROR
|
|
if (H5Tget_super(type) < 0)
|
|
FAIL_STACK_ERROR
|
|
|
|
H5E_BEGIN_TRY
|
|
{
|
|
ret = H5Tset_pad(type, H5T_PAD_ZERO, H5T_PAD_ONE);
|
|
}
|
|
H5E_END_TRY;
|
|
if (ret >= 0) {
|
|
H5_FAILED();
|
|
HDprintf("Operation not allowed for this type.\n");
|
|
goto error;
|
|
} /* end if */
|
|
|
|
H5E_BEGIN_TRY
|
|
{
|
|
size = H5Tget_ebias(type);
|
|
}
|
|
H5E_END_TRY;
|
|
if (size > 0) {
|
|
H5_FAILED();
|
|
HDprintf("Operation not allowed for this type.\n");
|
|
goto error;
|
|
} /* end if */
|
|
|
|
H5E_BEGIN_TRY
|
|
{
|
|
inpad = H5Tget_inpad(type);
|
|
}
|
|
H5E_END_TRY;
|
|
if (inpad > -1) {
|
|
H5_FAILED();
|
|
HDprintf("Operation not allowed for this type.\n");
|
|
goto error;
|
|
} /* end if */
|
|
|
|
H5E_BEGIN_TRY
|
|
{
|
|
cset = H5Tget_cset(type);
|
|
}
|
|
H5E_END_TRY;
|
|
if (cset > -1) {
|
|
H5_FAILED();
|
|
HDprintf("Operation not allowed for this type.\n");
|
|
goto error;
|
|
} /* end if */
|
|
|
|
size = 16;
|
|
H5E_BEGIN_TRY
|
|
{
|
|
ret = H5Tset_offset(type, (size_t)size);
|
|
}
|
|
H5E_END_TRY;
|
|
if (ret >= 0) {
|
|
H5_FAILED();
|
|
HDprintf("Operation not allowed for this type.\n");
|
|
goto error;
|
|
} /* end if */
|
|
|
|
H5E_BEGIN_TRY
|
|
{
|
|
ret = H5Tset_order(type, H5T_ORDER_BE);
|
|
}
|
|
H5E_END_TRY;
|
|
if (ret >= 0) {
|
|
H5_FAILED();
|
|
HDprintf("Operation not allowed for this type.\n");
|
|
goto error;
|
|
} /* end if */
|
|
|
|
if (H5Tclose(type) < 0)
|
|
goto error;
|
|
|
|
PASSED();
|
|
return 0;
|
|
|
|
error:
|
|
H5E_BEGIN_TRY
|
|
{
|
|
H5Tclose(type);
|
|
}
|
|
H5E_END_TRY;
|
|
return 1;
|
|
}
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: main
|
|
*
|
|
* Purpose:
|
|
*
|
|
* Return: Success:
|
|
*
|
|
* Failure:
|
|
*
|
|
* Programmer: Robb Matzke
|
|
* Tuesday, December 22, 1998
|
|
*
|
|
* Modifications:
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
int
|
|
main(void)
|
|
{
|
|
hid_t fapl = -1, file = -1;
|
|
char name[1024];
|
|
int nerrors = 0;
|
|
|
|
h5_reset();
|
|
fapl = h5_fileaccess();
|
|
|
|
/* Create the file */
|
|
h5_fixname(FILENAME[0], fapl, name, sizeof name);
|
|
if ((file = H5Fcreate(name, H5F_ACC_TRUNC, H5P_DEFAULT, fapl)) < 0)
|
|
goto error;
|
|
|
|
/* Tests */
|
|
nerrors += test_named(file);
|
|
nerrors += test_conv(file);
|
|
nerrors += test_tr1(file);
|
|
nerrors += test_tr2(file);
|
|
nerrors += test_value_dsnt_exist();
|
|
nerrors += test_funcs();
|
|
|
|
H5Fclose(file);
|
|
|
|
/* Verify symbol table messages are cached */
|
|
nerrors += (h5_verify_cached_stabs(FILENAME, fapl) < 0 ? 1 : 0);
|
|
|
|
if (nerrors)
|
|
goto error;
|
|
HDputs("All enum tests passed.");
|
|
h5_cleanup(FILENAME, fapl);
|
|
return 0;
|
|
|
|
error:
|
|
HDputs("*** ENUM TESTS FAILED ***");
|
|
return 1;
|
|
}
|