diff options
| -rw-r--r-- | test/enum.c | 376 |
1 files changed, 376 insertions, 0 deletions
diff --git a/test/enum.c b/test/enum.c new file mode 100644 index 0000000..f938c51 --- /dev/null +++ b/test/enum.c @@ -0,0 +1,376 @@ +/* + * Copyright © 1998 NCSA + * All rights reserved. + * + * Programmer: Robb Matzke <matzke@llnl.gov> + * 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=H5Gcreate(file, "test_named", 0))<0) goto error; + + /* A native integer */ + if ((type = H5Tcreate(H5T_ENUM, sizeof(c_e1)))<0) goto error; + if (H5Tenum_insert(type, "RED", CPTR(val, E1_RED ))<0) goto error; + if (H5Tenum_insert(type, "GREEN", CPTR(val, E1_GREEN))<0) goto error; + if (H5Tenum_insert(type, "BLUE", CPTR(val, E1_BLUE ))<0) goto error; + if (H5Tenum_insert(type, "WHITE", CPTR(val, E1_WHITE))<0) goto error; + if (H5Tenum_insert(type, "BLACK", CPTR(val, E1_BLACK))<0) goto error; + if (H5Tcommit(cwg, "e1_a", type)<0) goto error; + if (H5Tclose(type)<0) goto error; + + /* A smaller type */ + if ((type = H5Tcreate(H5T_ENUM, 1))<0) goto error; + if (H5Tenum_insert(type, "RED", CPTR(val8, E1_RED ))<0) goto error; + if (H5Tenum_insert(type, "GREEN", CPTR(val8, E1_GREEN))<0) goto error; + if (H5Tenum_insert(type, "BLUE", CPTR(val8, E1_BLUE ))<0) goto error; + if (H5Tenum_insert(type, "WHITE", CPTR(val8, E1_WHITE))<0) goto error; + if (H5Tenum_insert(type, "BLACK", CPTR(val8, E1_BLACK))<0) goto error; + if (H5Tcommit(cwg, "e1_b", type)<0) goto error; + if (H5Tclose(type)<0) goto error; + + /* A non-native type */ + if (H5T_ORDER_BE==H5Tget_order(H5T_NATIVE_INT)) { + if ((type = H5Tenum_create(H5T_STD_U8LE))<0) goto error; + } else { + if ((type = H5Tenum_create(H5T_STD_U8BE))<0) goto error; + } + if (H5Tenum_insert(type, "RED", CPTR(val8, E1_RED ))<0) goto error; + if (H5Tenum_insert(type, "GREEN", CPTR(val8, E1_GREEN))<0) goto error; + if (H5Tenum_insert(type, "BLUE", CPTR(val8, E1_BLUE ))<0) goto error; + if (H5Tenum_insert(type, "WHITE", CPTR(val8, E1_WHITE))<0) goto error; + if (H5Tenum_insert(type, "BLACK", CPTR(val8, E1_BLACK))<0) goto error; + if (H5Tcommit(cwg, "e1_c", type)<0) goto error; + if (H5Tclose(type)<0) goto error; + + if (H5Gclose(cwg)<0) goto error; + PASSED(); + return 0; + + error: + H5E_BEGIN_TRY { + H5Tclose(type); + H5Gclose(cwg); + } H5E_END_TRY; + return 1; +} + + +/*------------------------------------------------------------------------- + * Function: test_noconv + * + * Purpose: Tests creation of datasets when no conversion is present. + * + * Return: Success: 0 + * + * Failure: number of errors + * + * Programmer: Robb Matzke + * Monday, January 4, 1999 + * + * Modifications: + * + *------------------------------------------------------------------------- + */ +static int +test_noconv(hid_t file) +{ + hid_t cwg=-1, type=-1, space=-1, dset=-1; + c_e1 val; + 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, E1_GREEN, E1_GREEN, E1_BLUE}; + c_e1 data2[NELMTS(data1)]; + hsize_t i, ds_size[1]={NELMTS(data1)}; + + TESTING("no-conversion datasets"); + if ((cwg=H5Gcreate(file, "test_noconv", 0))<0) goto error; + + if ((type = H5Tcreate(H5T_ENUM, sizeof(c_e1)))<0) goto error; + if (H5Tenum_insert(type, "RED", CPTR(val, E1_RED ))<0) goto error; + if (H5Tenum_insert(type, "GREEN", CPTR(val, E1_GREEN))<0) goto error; + if (H5Tenum_insert(type, "BLUE", CPTR(val, E1_BLUE ))<0) goto error; + if (H5Tenum_insert(type, "WHITE", CPTR(val, E1_WHITE))<0) goto error; + if (H5Tenum_insert(type, "BLACK", CPTR(val, E1_BLACK))<0) goto error; + + if ((space=H5Screate_simple(1, ds_size, NULL))<0) goto error; + if ((dset=H5Dcreate(cwg, "color_table", type, space, H5P_DEFAULT))<0) + goto error; + if (H5Dwrite(dset, type, space, space, H5P_DEFAULT, data1)<0) goto error; + if (H5Dread(dset, type, space, space, H5P_DEFAULT, data2)<0) goto error; + + for (i=0; i<ds_size[0]; i++) { + if (data1[i]!=data2[i]) { + FAILED(); + printf(" 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) goto error; + if (H5Sclose(space)<0) goto error; + if (H5Tclose(type)<0) goto error; + if (H5Gclose(cwg)<0) goto 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 i, ds_size[1]={10}; + c_e1 val; + 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=H5Gcreate(file, "test_tr1", 0))<0) goto error; + + if ((m_type = H5Tcreate(H5T_ENUM, sizeof(c_e1)))<0) goto error; + if (H5Tenum_insert(m_type, "RED", CPTR(val, E1_RED ))<0) goto error; + if (H5Tenum_insert(m_type, "GREEN", CPTR(val, E1_GREEN))<0) goto error; + if (H5Tenum_insert(m_type, "BLUE", CPTR(val, E1_BLUE ))<0) goto error; + if (H5Tenum_insert(m_type, "WHITE", CPTR(val, E1_WHITE))<0) goto error; + if (H5Tenum_insert(m_type, "BLACK", CPTR(val, E1_BLACK))<0) goto error; + + if ((f_type = H5Tcreate(H5T_ENUM, sizeof(c_e1)))<0) goto error; + if (H5Tenum_insert(f_type, "RED", CPTR(val, 105))<0) goto error; + if (H5Tenum_insert(f_type, "GREEN", CPTR(val, 104))<0) goto error; + if (H5Tenum_insert(f_type, "BLUE", CPTR(val, 103))<0) goto error; + if (H5Tenum_insert(f_type, "WHITE", CPTR(val, 102))<0) goto error; + if (H5Tenum_insert(f_type, "BLACK", CPTR(val, 101))<0) goto error; + + if ((space=H5Screate_simple(1, ds_size, NULL))<0) goto error; + if ((dset=H5Dcreate(cwg, "color_table", f_type, space, H5P_DEFAULT))<0) + goto error; + if (H5Dwrite(dset, m_type, space, space, H5P_DEFAULT, data1)<0) goto error; + if (H5Dread(dset, m_type, space, space, H5P_DEFAULT, data2)<0) goto error; + + for (i=0; i<ds_size[1]; i++) { + if (data1[i]!=data2[i]) { + FAILED(); + printf(" 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) goto error; + if (H5Sclose(space)<0) goto error; + if (H5Tclose(m_type)<0) goto error; + if (H5Tclose(f_type)<0) goto error; + if (H5Gclose(cwg)<0) goto 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 i, ds_size[1]={10}; + 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) converions"); + if ((cwg=H5Gcreate(file, "test_tr2", 0))<0) goto error; + + if ((m_type = H5Tcreate(H5T_ENUM, sizeof(c_e1)))<0) goto error; + if (H5Tenum_insert(m_type, "RED", CPTR(val1, E1_RED ))<0) goto error; + if (H5Tenum_insert(m_type, "GREEN", CPTR(val1, E1_GREEN))<0) goto error; + if (H5Tenum_insert(m_type, "BLUE", CPTR(val1, E1_BLUE ))<0) goto error; + if (H5Tenum_insert(m_type, "WHITE", CPTR(val1, E1_WHITE))<0) goto error; + if (H5Tenum_insert(m_type, "BLACK", CPTR(val1, E1_BLACK))<0) goto error; + + if ((f_type = H5Tcreate(H5T_ENUM, sizeof(int)))<0) goto error; + if (H5Tenum_insert(f_type, "RED", CPTR(val2, 1050))<0) goto error; + if (H5Tenum_insert(f_type, "GREEN", CPTR(val2, 1040))<0) goto error; + if (H5Tenum_insert(f_type, "BLUE", CPTR(val2, 1030))<0) goto error; + if (H5Tenum_insert(f_type, "WHITE", CPTR(val2, 1020))<0) goto error; + if (H5Tenum_insert(f_type, "BLACK", CPTR(val2, 1010))<0) goto error; + + if ((space=H5Screate_simple(1, ds_size, NULL))<0) goto error; + if ((dset=H5Dcreate(cwg, "color_table", f_type, space, H5P_DEFAULT))<0) + goto error; + if (H5Dwrite(dset, m_type, space, space, H5P_DEFAULT, data1)<0) goto error; + if (H5Dread(dset, m_type, space, space, H5P_DEFAULT, data2)<0) goto error; + + for (i=0; i<ds_size[1]; i++) { + if (data1[i]!=data2[i]) { + FAILED(); + printf(" 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) goto error; + if (H5Sclose(space)<0) goto error; + if (H5Tclose(m_type)<0) goto error; + if (H5Tclose(f_type)<0) goto error; + if (H5Gclose(cwg)<0) goto 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: 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_noconv(file); + nerrors += test_tr1(file); + nerrors += test_tr2(file); + + if (nerrors) goto error; + puts("All enum tests passed."); + h5_cleanup(fapl); + return 0; + + error: + puts("*** ENUM TESTS FAILED ***"); + return 1; +} |