mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2024-11-21 01:04:10 +08:00
Code Issues Packages Projects Releases Wiki Activity
6be711bbd2
hdf5/test/enum.c

677 lines
22 KiB
C
Raw Normal View History

[svn-r6538] Purpose: Update Description: Updated the Copyright statement Platforms tested: Linux (This change is only in the comments, so I just check that the modules still compile) Misc. update:
2003-04-01 01:59:04 +08:00
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
[svn-r13253] Updated all C and C++ style source code files with the THG copyright notice. Tested platform: Kagiso only since it is only a comment block change. If it works in one machine, it should work in all, I hope. Still need to check the parallel build on copper.
2007-02-07 22:56:24 +08:00
* Copyright by The HDF Group. *
[svn-r6538] Purpose: Update Description: Updated the Copyright statement Platforms tested: Linux (This change is only in the comments, so I just check that the modules still compile) Misc. update:
2003-04-01 01:59:04 +08:00
* 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 *
Merge pull request #426 in HDFFV/hdf5 from ~LRKNOX/hdf5_lrk:hdf5_1_10 to hdf5_1_10 * commit '54957d37f5aa73912763dbb6e308555e863c43f4': Commit copyright header change for src/H5PLpkg.c which was added after running script to make changes. Add new files in release_docs to MANIFEST. Cimmit changes to Makefile.in(s) and H5PL.c that resulted from running autogen.sh. Merge pull request #407 in HDFFV/hdf5 from ~LRKNOX/hdf5_lrk:hdf5_1_10_1 to hdf5_1_10_1 Change copyright headers to replace url referring to file to be removed and replace it with new url for COPYING file.
2017-04-18 03:32:16 +08:00
* the COPYING file, which can be found at the root of the source code *
* distribution tree, or in https://support.hdfgroup.org/ftp/HDF5/releases. *
* If you do not have access to either file, you may request a copy from *
* help@hdfgroup.org. *
[svn-r6538] Purpose: Update Description: Updated the Copyright statement Platforms tested: Linux (This change is only in the comments, so I just check that the modules still compile) Misc. update:
2003-04-01 01:59:04 +08:00
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
/*
* Programmer: Robb Matzke <matzke@llnl.gov>
* Tuesday, December 22, 1998
*/
[svn-r3770] Purpose: Update Description: Changed includes of the form: #include <hdf5_file.h> to #include "hdf5_file.h" so that gcc can pick them up easier without including the system header files since we don't care about them. Platforms tested: Linux
2001-04-04 02:09:16 +08:00
#include "h5test.h"
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
#define CPTR(VAR,CONST) ((VAR)=(CONST),&(VAR))
const char *FILENAME[] = {
"enum1",
NULL
};
typedef enum {
[svn-r21508] Revoked svn check-ins 20913 and 20921 (fix for HDFFV-7579) pending a careful evaluation of enum conversion behavior.
2011-10-11 05:55:45 +08:00
E1_RED,
E1_GREEN,
E1_BLUE,
E1_WHITE,
E1_BLACK
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
} 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)
{
[svn-r14104] Description: Pursue calls to H5Gcreate() relentlessly and ruthlessly exterminate them, leaving only a few tame specimens in text files and comments. ;-) Tested on: Mac OS X/32 10.4.10 (amazon) FreeBSD/32 6.2 (duty) FreeBSD/64 6.2 (liberty) Linux/32 2.6 (kagiso) Linux/64 2.6 (smirom) Solaris/32 5.10 (linew)
2007-08-24 04:25:25 +08:00
hid_t type = -1, cwg = -1;
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
c_e1 val;
signed char val8;
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
TESTING("named enumeration types");
[svn-r14104] Description: Pursue calls to H5Gcreate() relentlessly and ruthlessly exterminate them, leaving only a few tame specimens in text files and comments. ;-) Tested on: Mac OS X/32 10.4.10 (amazon) FreeBSD/32 6.2 (duty) FreeBSD/64 6.2 (liberty) Linux/32 2.6 (kagiso) Linux/64 2.6 (smirom) Solaris/32 5.10 (linew)
2007-08-24 04:25:25 +08:00
if((cwg = H5Gcreate2(file, "test_named", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
/* A native integer */
[svn-r14104] Description: Pursue calls to H5Gcreate() relentlessly and ruthlessly exterminate them, leaving only a few tame specimens in text files and comments. ;-) Tested on: Mac OS X/32 10.4.10 (amazon) FreeBSD/32 6.2 (duty) FreeBSD/64 6.2 (liberty) Linux/32 2.6 (kagiso) Linux/64 2.6 (smirom) Solaris/32 5.10 (linew)
2007-08-24 04:25:25 +08:00
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
[svn-r14156] Description: Add API versioning to H5Tcommit() Tested on: FreeBSD/32 6.2 (duty) in debug mode FreeBSD/64 6.2 (liberty) w/C++ & FORTRAN, in debug mode Linux/32 2.6 (kagiso) w/PGI compilers, w/C++ & FORTRAN, w/threadsafe, in debug mode Linux/64 2.6 (smirom) w/default API=1.6.x, w/C++ & FORTRAN, in production mode Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN, w/szip filter, in production mode AIX/32 5.3 (copper) w/FORTRAN, w/parallel, in production mode Mac OS X/32 10.4.10 (amazon) in debug mode
2007-09-26 10:50:31 +08:00
if(H5Tcommit2(cwg, "e1_a", type, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
[svn-r14104] Description: Pursue calls to H5Gcreate() relentlessly and ruthlessly exterminate them, leaving only a few tame specimens in text files and comments. ;-) Tested on: Mac OS X/32 10.4.10 (amazon) FreeBSD/32 6.2 (duty) FreeBSD/64 6.2 (liberty) Linux/32 2.6 (kagiso) Linux/64 2.6 (smirom) Solaris/32 5.10 (linew)
2007-08-24 04:25:25 +08:00
if(H5Tclose(type) < 0) FAIL_STACK_ERROR
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
/* A smaller type */
[svn-r19297] Description: Whack a few more memory errors exposed by valgrind. Make the debugging dump output a little bit prettier. Tested on: Mac OS X/32 10.6.4 (amazon) w/debug (h5committest forthcoming)
2010-08-26 04:27:07 +08:00
if((type = H5Tcreate(H5T_ENUM, (size_t)1)) < 0) FAIL_STACK_ERROR
[svn-r14104] Description: Pursue calls to H5Gcreate() relentlessly and ruthlessly exterminate them, leaving only a few tame specimens in text files and comments. ;-) Tested on: Mac OS X/32 10.4.10 (amazon) FreeBSD/32 6.2 (duty) FreeBSD/64 6.2 (liberty) Linux/32 2.6 (kagiso) Linux/64 2.6 (smirom) Solaris/32 5.10 (linew)
2007-08-24 04:25:25 +08:00
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
[svn-r14156] Description: Add API versioning to H5Tcommit() Tested on: FreeBSD/32 6.2 (duty) in debug mode FreeBSD/64 6.2 (liberty) w/C++ & FORTRAN, in debug mode Linux/32 2.6 (kagiso) w/PGI compilers, w/C++ & FORTRAN, w/threadsafe, in debug mode Linux/64 2.6 (smirom) w/default API=1.6.x, w/C++ & FORTRAN, in production mode Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN, w/szip filter, in production mode AIX/32 5.3 (copper) w/FORTRAN, w/parallel, in production mode Mac OS X/32 10.4.10 (amazon) in debug mode
2007-09-26 10:50:31 +08:00
if(H5Tcommit2(cwg, "e1_b", type, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
[svn-r14104] Description: Pursue calls to H5Gcreate() relentlessly and ruthlessly exterminate them, leaving only a few tame specimens in text files and comments. ;-) Tested on: Mac OS X/32 10.4.10 (amazon) FreeBSD/32 6.2 (duty) FreeBSD/64 6.2 (liberty) Linux/32 2.6 (kagiso) Linux/64 2.6 (smirom) Solaris/32 5.10 (linew)
2007-08-24 04:25:25 +08:00
if(H5Tclose(type) < 0) FAIL_STACK_ERROR
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
/* A non-native type */
[svn-r14104] Description: Pursue calls to H5Gcreate() relentlessly and ruthlessly exterminate them, leaving only a few tame specimens in text files and comments. ;-) Tested on: Mac OS X/32 10.4.10 (amazon) FreeBSD/32 6.2 (duty) FreeBSD/64 6.2 (liberty) Linux/32 2.6 (kagiso) Linux/64 2.6 (smirom) Solaris/32 5.10 (linew)
2007-08-24 04:25:25 +08:00
if(H5T_ORDER_BE == H5Tget_order(H5T_NATIVE_INT)) {
if ((type = H5Tenum_create(H5T_STD_U8LE)) < 0) FAIL_STACK_ERROR
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
} else {
[svn-r14104] Description: Pursue calls to H5Gcreate() relentlessly and ruthlessly exterminate them, leaving only a few tame specimens in text files and comments. ;-) Tested on: Mac OS X/32 10.4.10 (amazon) FreeBSD/32 6.2 (duty) FreeBSD/64 6.2 (liberty) Linux/32 2.6 (kagiso) Linux/64 2.6 (smirom) Solaris/32 5.10 (linew)
2007-08-24 04:25:25 +08:00
if ((type = H5Tenum_create(H5T_STD_U8BE)) < 0) FAIL_STACK_ERROR
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
}
[svn-r14104] Description: Pursue calls to H5Gcreate() relentlessly and ruthlessly exterminate them, leaving only a few tame specimens in text files and comments. ;-) Tested on: Mac OS X/32 10.4.10 (amazon) FreeBSD/32 6.2 (duty) FreeBSD/64 6.2 (liberty) Linux/32 2.6 (kagiso) Linux/64 2.6 (smirom) Solaris/32 5.10 (linew)
2007-08-24 04:25:25 +08:00
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
[svn-r14156] Description: Add API versioning to H5Tcommit() Tested on: FreeBSD/32 6.2 (duty) in debug mode FreeBSD/64 6.2 (liberty) w/C++ & FORTRAN, in debug mode Linux/32 2.6 (kagiso) w/PGI compilers, w/C++ & FORTRAN, w/threadsafe, in debug mode Linux/64 2.6 (smirom) w/default API=1.6.x, w/C++ & FORTRAN, in production mode Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN, w/szip filter, in production mode AIX/32 5.3 (copper) w/FORTRAN, w/parallel, in production mode Mac OS X/32 10.4.10 (amazon) in debug mode
2007-09-26 10:50:31 +08:00
if(H5Tcommit2(cwg, "e1_c", type, H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT) < 0) FAIL_STACK_ERROR
[svn-r14104] Description: Pursue calls to H5Gcreate() relentlessly and ruthlessly exterminate them, leaving only a few tame specimens in text files and comments. ;-) Tested on: Mac OS X/32 10.4.10 (amazon) FreeBSD/32 6.2 (duty) FreeBSD/64 6.2 (liberty) Linux/32 2.6 (kagiso) Linux/64 2.6 (smirom) Solaris/32 5.10 (linew)
2007-08-24 04:25:25 +08:00
if(H5Tclose(type) < 0) FAIL_STACK_ERROR
if(H5Gclose(cwg) < 0) FAIL_STACK_ERROR
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
PASSED();
return 0;
error:
H5E_BEGIN_TRY {
H5Tclose(type);
H5Gclose(cwg);
} H5E_END_TRY;
return 1;
}
/*-------------------------------------------------------------------------
[svn-r22914] I checked in the conversion function H5T__conv_enum_numeric (numeric type means integer or floating number) and the C test for it. This is the work for Chicago. Tested on jam, koala, and ostrich.
2012-10-18 02:38:38 +08:00
* Function: test_conv
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
*
[svn-r22914] I checked in the conversion function H5T__conv_enum_numeric (numeric type means integer or floating number) and the C test for it. This is the work for Chicago. Tested on jam, koala, and ostrich.
2012-10-18 02:38:38 +08:00
* Purpose: Tests writing and read data
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
*
* Return: Success: 0
*
* Failure: number of errors
*
* Programmer: Robb Matzke
* Monday, January 4, 1999
[svn-r22914] I checked in the conversion function H5T__conv_enum_numeric (numeric type means integer or floating number) and the C test for it. This is the work for Chicago. Tested on jam, koala, and ostrich.
2012-10-18 02:38:38 +08:00
*
* Raymond Lu
* 12 October 2012
* I added tests for enum-integer and enum-float conversions
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
*-------------------------------------------------------------------------
*/
static int
[svn-r22914] I checked in the conversion function H5T__conv_enum_numeric (numeric type means integer or floating number) and the C test for it. This is the work for Chicago. Tested on jam, koala, and ostrich.
2012-10-18 02:38:38 +08:00
test_conv(hid_t file)
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
{
hid_t cwg=-1, type=-1, space=-1, dset=-1;
c_e1 val;
[svn-r22914] I checked in the conversion function H5T__conv_enum_numeric (numeric type means integer or floating number) and the C test for it. This is the work for Chicago. Tested on jam, koala, and ostrich.
2012-10-18 02:38:38 +08:00
/* Some values are out of range for testing. The library should accept them */
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
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,
[svn-r22935] Description: Clean up a few warnings and minor code issues during review of enum -> int/float conversion changes. Tested on: Mac OSX/64 10.8.2 (amazon) w/debug (too minor to require h5committest)
2012-10-21 11:44:32 +08:00
E1_RED, E1_WHITE, (c_e1)0, (c_e1)-1, (c_e1)-2};
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
c_e1 data2[NELMTS(data1)];
[svn-r22914] I checked in the conversion function H5T__conv_enum_numeric (numeric type means integer or floating number) and the C test for it. This is the work for Chicago. Tested on jam, koala, and ostrich.
2012-10-18 02:38:38 +08:00
short data_short[NELMTS(data1)];
int data_int[NELMTS(data1)];
double data_double[NELMTS(data1)];
[svn-r13549] Description: Check in changes from Elena and I to get pgcc compiler working again. Primarily (all?) changes to move from using 'hsize_t' as array index to using something else ('size_t') mostly. Tested on: Linux/32 2.4 kagiso w/pgcc
2007-03-27 11:06:48 +08:00
hsize_t ds_size[1]={NELMTS(data1)};
size_t i;
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
[svn-r22914] I checked in the conversion function H5T__conv_enum_numeric (numeric type means integer or floating number) and the C test for it. This is the work for Chicago. Tested on jam, koala, and ostrich.
2012-10-18 02:38:38 +08:00
TESTING("enumeration conversions");
[svn-r14104] Description: Pursue calls to H5Gcreate() relentlessly and ruthlessly exterminate them, leaving only a few tame specimens in text files and comments. ;-) Tested on: Mac OS X/32 10.4.10 (amazon) FreeBSD/32 6.2 (duty) FreeBSD/64 6.2 (liberty) Linux/32 2.6 (kagiso) Linux/64 2.6 (smirom) Solaris/32 5.10 (linew)
2007-08-24 04:25:25 +08:00
[svn-r22914] I checked in the conversion function H5T__conv_enum_numeric (numeric type means integer or floating number) and the C test for it. This is the work for Chicago. Tested on jam, koala, and ostrich.
2012-10-18 02:38:38 +08:00
if((cwg = H5Gcreate2(file, "test_conv", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT)) < 0) FAIL_STACK_ERROR
[svn-r14104] Description: Pursue calls to H5Gcreate() relentlessly and ruthlessly exterminate them, leaving only a few tame specimens in text files and comments. ;-) Tested on: Mac OS X/32 10.4.10 (amazon) FreeBSD/32 6.2 (duty) FreeBSD/64 6.2 (liberty) Linux/32 2.6 (kagiso) Linux/64 2.6 (smirom) Solaris/32 5.10 (linew)
2007-08-24 04:25:25 +08:00
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
[svn-r14199] Description: Add H5Dcreate to API versioned routines, replacing internal usage with H5Dcreate2 Fix thread-safe error stack initialization for API versioned error stack printing routines. Tested on: FreeBSD/32 6.2 (duty) in debug mode FreeBSD/64 6.2 (liberty) w/C++ & FORTRAN, in debug mode Linux/32 2.6 (kagiso) w/PGI compilers, w/C++ & FORTRAN, w/threadsafe, in debug mode Linux/64-amd64 2.6 (smirom) w/default API=1.6.x, w/C++ & FORTRAN, in production mode Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN, in production mode Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN, w/szip filter, in production mode Mac OS X/32 10.4.10 (amazon) in debug mode
2007-10-12 00:24:11 +08:00
if((space = H5Screate_simple(1, ds_size, NULL)) < 0) FAIL_STACK_ERROR
[svn-r22914] I checked in the conversion function H5T__conv_enum_numeric (numeric type means integer or floating number) and the C test for it. This is the work for Chicago. Tested on jam, koala, and ostrich.
2012-10-18 02:38:38 +08:00
/***************************************
* 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
[svn-r14104] Description: Pursue calls to H5Gcreate() relentlessly and ruthlessly exterminate them, leaving only a few tame specimens in text files and comments. ;-) Tested on: Mac OS X/32 10.4.10 (amazon) FreeBSD/32 6.2 (duty) FreeBSD/64 6.2 (liberty) Linux/32 2.6 (kagiso) Linux/64 2.6 (smirom) Solaris/32 5.10 (linew)
2007-08-24 04:25:25 +08:00
if(H5Dwrite(dset, type, space, space, H5P_DEFAULT, data1) < 0) FAIL_STACK_ERROR
[svn-r22914] I checked in the conversion function H5T__conv_enum_numeric (numeric type means integer or floating number) and the C test for it. This is the work for Chicago. Tested on jam, koala, and ostrich.
2012-10-18 02:38:38 +08:00
/* Test reading back the data with no conversion */
[svn-r14104] Description: Pursue calls to H5Gcreate() relentlessly and ruthlessly exterminate them, leaving only a few tame specimens in text files and comments. ;-) Tested on: Mac OS X/32 10.4.10 (amazon) FreeBSD/32 6.2 (duty) FreeBSD/64 6.2 (liberty) Linux/32 2.6 (kagiso) Linux/64 2.6 (smirom) Solaris/32 5.10 (linew)
2007-08-24 04:25:25 +08:00
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]) {
[svn-r3326] Purpose: Clean up warnings Description: The "FAILED" macro is defined by Windows and is causing warnings and potential errors when compiled on that platform. Solution: Change our macro from FAILED to H5_FAILED. Platforms tested: FreeBSD 4.2 (hawkwind)
2001-01-26 01:03:29 +08:00
H5_FAILED();
Add HD prefix to tests
2019-08-16 05:46:00 +08:00
HDprintf(" 1. data1[%lu]=%d, data2[%lu]=%d (should be same)\n",
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
(unsigned long)i, (int)(data1[i]),
(unsigned long)i, (int)(data2[i]));
goto error;
[svn-r14104] Description: Pursue calls to H5Gcreate() relentlessly and ruthlessly exterminate them, leaving only a few tame specimens in text files and comments. ;-) Tested on: Mac OS X/32 10.4.10 (amazon) FreeBSD/32 6.2 (duty) FreeBSD/64 6.2 (liberty) Linux/32 2.6 (kagiso) Linux/64 2.6 (smirom) Solaris/32 5.10 (linew)
2007-08-24 04:25:25 +08:00
} /* end if */
[svn-r22914] I checked in the conversion function H5T__conv_enum_numeric (numeric type means integer or floating number) and the C test for it. This is the work for Chicago. Tested on jam, koala, and ostrich.
2012-10-18 02:38:38 +08:00
/* 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++)
[svn-r22935] Description: Clean up a few warnings and minor code issues during review of enum -> int/float conversion changes. Tested on: Mac OSX/64 10.8.2 (amazon) w/debug (too minor to require h5committest)
2012-10-21 11:44:32 +08:00
if((short)data1[i] != data_short[i]) {
[svn-r22914] I checked in the conversion function H5T__conv_enum_numeric (numeric type means integer or floating number) and the C test for it. This is the work for Chicago. Tested on jam, koala, and ostrich.
2012-10-18 02:38:38 +08:00
H5_FAILED();
Add HD prefix to tests
2019-08-16 05:46:00 +08:00
HDprintf(" 2. data1[%lu]=%d, data_short[%lu]=%d (should be same)\n",
[svn-r22914] I checked in the conversion function H5T__conv_enum_numeric (numeric type means integer or floating number) and the C test for it. This is the work for Chicago. Tested on jam, koala, and ostrich.
2012-10-18 02:38:38 +08:00
(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++)
[svn-r22945] I fixed a few minor casting problems in enum.c. It's a followup commit for the test of the conversion function H5T__conv_enum_numeric (numeric type means integer or floating number). Tested on tejeda - failed on tejeda and ostrich in the daily test.
2012-10-23 03:46:03 +08:00
if((int)data1[i] != (int)data_double[i]) {
[svn-r22914] I checked in the conversion function H5T__conv_enum_numeric (numeric type means integer or floating number) and the C test for it. This is the work for Chicago. Tested on jam, koala, and ostrich.
2012-10-18 02:38:38 +08:00
H5_FAILED();
Add HD prefix to tests
2019-08-16 05:46:00 +08:00
HDprintf(" 3. data1[%lu]=%d, data_double[%lu]=%d (should be same)\n",
[svn-r22914] I checked in the conversion function H5T__conv_enum_numeric (numeric type means integer or floating number) and the C test for it. This is the work for Chicago. Tested on jam, koala, and ostrich.
2012-10-18 02:38:38 +08:00
(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++)
[svn-r22935] Description: Clean up a few warnings and minor code issues during review of enum -> int/float conversion changes. Tested on: Mac OSX/64 10.8.2 (amazon) w/debug (too minor to require h5committest)
2012-10-21 11:44:32 +08:00
if((int)data1[i] != data_int[i]) {
[svn-r22914] I checked in the conversion function H5T__conv_enum_numeric (numeric type means integer or floating number) and the C test for it. This is the work for Chicago. Tested on jam, koala, and ostrich.
2012-10-18 02:38:38 +08:00
H5_FAILED();
Add HD prefix to tests
2019-08-16 05:46:00 +08:00
HDprintf(" 4. data1[%lu]=%d, data_int[%lu]=%d (should be same)\n",
[svn-r22914] I checked in the conversion function H5T__conv_enum_numeric (numeric type means integer or floating number) and the C test for it. This is the work for Chicago. Tested on jam, koala, and ostrich.
2012-10-18 02:38:38 +08:00
(unsigned long)i, (int)(data1[i]),
(unsigned long)i, (int)(data_int[i]));
goto error;
} /* end if */
[svn-r14104] Description: Pursue calls to H5Gcreate() relentlessly and ruthlessly exterminate them, leaving only a few tame specimens in text files and comments. ;-) Tested on: Mac OS X/32 10.4.10 (amazon) FreeBSD/32 6.2 (duty) FreeBSD/64 6.2 (liberty) Linux/32 2.6 (kagiso) Linux/64 2.6 (smirom) Solaris/32 5.10 (linew)
2007-08-24 04:25:25 +08:00
if(H5Dclose(dset) < 0) FAIL_STACK_ERROR
[svn-r22914] I checked in the conversion function H5T__conv_enum_numeric (numeric type means integer or floating number) and the C test for it. This is the work for Chicago. Tested on jam, koala, and ostrich.
2012-10-18 02:38:38 +08:00
/***************************************
* 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++)
[svn-r22945] I fixed a few minor casting problems in enum.c. It's a followup commit for the test of the conversion function H5T__conv_enum_numeric (numeric type means integer or floating number). Tested on tejeda - failed on tejeda and ostrich in the daily test.
2012-10-23 03:46:03 +08:00
if((int)data1[i] != (int)data_double[i]) {
[svn-r22914] I checked in the conversion function H5T__conv_enum_numeric (numeric type means integer or floating number) and the C test for it. This is the work for Chicago. Tested on jam, koala, and ostrich.
2012-10-18 02:38:38 +08:00
H5_FAILED();
Add HD prefix to tests
2019-08-16 05:46:00 +08:00
HDprintf(" 5. data1[%lu]=%d, data_double[%lu]=%d (should be same)\n",
[svn-r22914] I checked in the conversion function H5T__conv_enum_numeric (numeric type means integer or floating number) and the C test for it. This is the work for Chicago. Tested on jam, koala, and ostrich.
2012-10-18 02:38:38 +08:00
(unsigned long)i, (int)(data1[i]),
(unsigned long)i, (int)(data_double[i]));
goto error;
} /* end if */
if(H5Dclose(dset) < 0) FAIL_STACK_ERROR
[svn-r14104] Description: Pursue calls to H5Gcreate() relentlessly and ruthlessly exterminate them, leaving only a few tame specimens in text files and comments. ;-) Tested on: Mac OS X/32 10.4.10 (amazon) FreeBSD/32 6.2 (duty) FreeBSD/64 6.2 (liberty) Linux/32 2.6 (kagiso) Linux/64 2.6 (smirom) Solaris/32 5.10 (linew)
2007-08-24 04:25:25 +08:00
if(H5Sclose(space) < 0) FAIL_STACK_ERROR
if(H5Tclose(type) < 0) FAIL_STACK_ERROR
if(H5Gclose(cwg) < 0) FAIL_STACK_ERROR
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
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)
{
[svn-r14104] Description: Pursue calls to H5Gcreate() relentlessly and ruthlessly exterminate them, leaving only a few tame specimens in text files and comments. ;-) Tested on: Mac OS X/32 10.4.10 (amazon) FreeBSD/32 6.2 (duty) FreeBSD/64 6.2 (liberty) Linux/32 2.6 (kagiso) Linux/64 2.6 (smirom) Solaris/32 5.10 (linew)
2007-08-24 04:25:25 +08:00
hid_t cwg = -1, m_type = -1, f_type = -1, space = -1, dset = -1;
hsize_t ds_size[1] = {10};
[svn-r13549] Description: Check in changes from Elena and I to get pgcc compiler working again. Primarily (all?) changes to move from using 'hsize_t' as array index to using something else ('size_t') mostly. Tested on: Linux/32 2.4 kagiso w/pgcc
2007-03-27 11:06:48 +08:00
size_t i;
[svn-r1101] Changes since 19990219 ---------------------- ./config/irix64 The old (-32) compiler is now supported by setting envrionment CC='cc -32'. The -64 compiler is the default or you can set CC='cc -64'. ./src/H5A.c ./src/H5D.c ./src/H5F.c ./src/H5Fistore.c ./src/H5Flow.c ./src/H5G.c ./src/H5I.c ./src/H5Ocomp.c ./src/H5P.c ./src/H5R.c ./src/H5RA.c ./src/H5T.c ./src/H5Tbit.c ./src/H5Tconv.c ./src/H5Z.c ./src/H5detect.c ./test/big.c ./test/cmpd_dset.c ./test/dsets.c ./test/dtypes.c ./test/enum.c ./test/mtime.c ./test/ohdr.c ./tools/h5ls.c Fixed lots of warnings on Irix64. Mailed a few remaining warnings in H5S to Quincey and a few in the dumper to Ruey-Hsia.
1999-02-25 23:40:27 +08:00
c_e1 eval;
int ival;
[svn-r14104] Description: Pursue calls to H5Gcreate() relentlessly and ruthlessly exterminate them, leaving only a few tame specimens in text files and comments. ;-) Tested on: Mac OS X/32 10.4.10 (amazon) FreeBSD/32 6.2 (duty) FreeBSD/64 6.2 (liberty) Linux/32 2.6 (kagiso) Linux/64 2.6 (smirom) Solaris/32 5.10 (linew)
2007-08-24 04:25:25 +08:00
static c_e1 data1[10] = {E1_RED, E1_GREEN, E1_BLUE, E1_GREEN, E1_WHITE,
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
E1_WHITE, E1_BLACK, E1_GREEN, E1_BLUE, E1_RED};
c_e1 data2[10];
TESTING("O(1) conversions");
[svn-r14104] Description: Pursue calls to H5Gcreate() relentlessly and ruthlessly exterminate them, leaving only a few tame specimens in text files and comments. ;-) Tested on: Mac OS X/32 10.4.10 (amazon) FreeBSD/32 6.2 (duty) FreeBSD/64 6.2 (liberty) Linux/32 2.6 (kagiso) Linux/64 2.6 (smirom) Solaris/32 5.10 (linew)
2007-08-24 04:25:25 +08:00
[svn-r15868] Description: Correct a minor error in file free space allocation which was affecting the 'multi' VFD and preventing some tests from fully working with it. Wholesale revisitation of all the places where tests were disabled with various VFDs and remove or correct all these so that _only_ the tests which _really_ can't work with particular VFDs are skipped during a 'make check-vfd' test. Tested on: Mac OS X/32 10.5.5 (amazon) in debug mode Mac OS X/32 10.5.5 (amazon) w/C++ & FORTRAN, w/threadsafe, in production mode FreeBSD/32 6.3 (duty) in debug mode FreeBSD/64 6.3 (liberty) w/C++ & FORTRAN, in debug mode Linux/32 2.6 (kagiso) w/PGI compilers, w/C++ & FORTRAN, w/threadsafe, in debug mode Linux/64-amd64 2.6 (smirom) w/Intel compilers w/default API=1.6.x, w/C++ & FORTRAN, in production mode Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN, w/szip filter, in production mode Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN, in production mode Linux/64-ia64 2.4 (tg-login3) w/parallel, w/FORTRAN, in production mode Linux/64-amd64 2.6 (abe) w/parallel, w/FORTRAN, in production mode
2008-10-15 09:46:34 +08:00
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();
Add HD prefix to tests
2019-08-16 05:46:00 +08:00
HDprintf(" data1[%lu]=%d, data2[%lu]=%d (should be same)\n",
[svn-r15868] Description: Correct a minor error in file free space allocation which was affecting the 'multi' VFD and preventing some tests from fully working with it. Wholesale revisitation of all the places where tests were disabled with various VFDs and remove or correct all these so that _only_ the tests which _really_ can't work with particular VFDs are skipped during a 'make check-vfd' test. Tested on: Mac OS X/32 10.5.5 (amazon) in debug mode Mac OS X/32 10.5.5 (amazon) w/C++ & FORTRAN, w/threadsafe, in production mode FreeBSD/32 6.3 (duty) in debug mode FreeBSD/64 6.3 (liberty) w/C++ & FORTRAN, in debug mode Linux/32 2.6 (kagiso) w/PGI compilers, w/C++ & FORTRAN, w/threadsafe, in debug mode Linux/64-amd64 2.6 (smirom) w/Intel compilers w/default API=1.6.x, w/C++ & FORTRAN, in production mode Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN, w/szip filter, in production mode Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN, in production mode Linux/64-ia64 2.4 (tg-login3) w/parallel, w/FORTRAN, in production mode Linux/64-amd64 2.6 (abe) w/parallel, w/FORTRAN, in production mode
2008-10-15 09:46:34 +08:00
(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();
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
return 0;
[svn-r14104] Description: Pursue calls to H5Gcreate() relentlessly and ruthlessly exterminate them, leaving only a few tame specimens in text files and comments. ;-) Tested on: Mac OS X/32 10.4.10 (amazon) FreeBSD/32 6.2 (duty) FreeBSD/64 6.2 (liberty) Linux/32 2.6 (kagiso) Linux/64 2.6 (smirom) Solaris/32 5.10 (linew)
2007-08-24 04:25:25 +08:00
error:
H5E_BEGIN_TRY {
H5Dclose(dset);
H5Sclose(space);
H5Tclose(m_type);
H5Tclose(f_type);
H5Gclose(cwg);
} H5E_END_TRY;
return 1;
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
}
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
/*-------------------------------------------------------------------------
* 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)
{
[svn-r14104] Description: Pursue calls to H5Gcreate() relentlessly and ruthlessly exterminate them, leaving only a few tame specimens in text files and comments. ;-) Tested on: Mac OS X/32 10.4.10 (amazon) FreeBSD/32 6.2 (duty) FreeBSD/64 6.2 (liberty) Linux/32 2.6 (kagiso) Linux/64 2.6 (smirom) Solaris/32 5.10 (linew)
2007-08-24 04:25:25 +08:00
hid_t cwg = -1, m_type = -1, f_type = -1, space = -1, dset = -1;
hsize_t ds_size[1] = {10};
[svn-r13549] Description: Check in changes from Elena and I to get pgcc compiler working again. Primarily (all?) changes to move from using 'hsize_t' as array index to using something else ('size_t') mostly. Tested on: Linux/32 2.4 kagiso w/pgcc
2007-03-27 11:06:48 +08:00
size_t i;
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
c_e1 val1;
int val2;
[svn-r14104] Description: Pursue calls to H5Gcreate() relentlessly and ruthlessly exterminate them, leaving only a few tame specimens in text files and comments. ;-) Tested on: Mac OS X/32 10.4.10 (amazon) FreeBSD/32 6.2 (duty) FreeBSD/64 6.2 (liberty) Linux/32 2.6 (kagiso) Linux/64 2.6 (smirom) Solaris/32 5.10 (linew)
2007-08-24 04:25:25 +08:00
static c_e1 data1[10] = {E1_RED, E1_GREEN, E1_BLUE, E1_GREEN, E1_WHITE,
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
E1_WHITE, E1_BLACK, E1_GREEN, E1_BLUE, E1_RED};
c_e1 data2[10];
Fixed HDFFV-10404 Description: Applied the typo fixes from user's report. The previous pull request couldn't be merged because it was too old, and it was too complicated for me to resolve conflicts. Platform tested: Linux/64 (jelly) - very minor
2018-07-14 02:40:22 +08:00
TESTING("O(log N) conversions");
[svn-r14104] Description: Pursue calls to H5Gcreate() relentlessly and ruthlessly exterminate them, leaving only a few tame specimens in text files and comments. ;-) Tested on: Mac OS X/32 10.4.10 (amazon) FreeBSD/32 6.2 (duty) FreeBSD/64 6.2 (liberty) Linux/32 2.6 (kagiso) Linux/64 2.6 (smirom) Solaris/32 5.10 (linew)
2007-08-24 04:25:25 +08:00
[svn-r15868] Description: Correct a minor error in file free space allocation which was affecting the 'multi' VFD and preventing some tests from fully working with it. Wholesale revisitation of all the places where tests were disabled with various VFDs and remove or correct all these so that _only_ the tests which _really_ can't work with particular VFDs are skipped during a 'make check-vfd' test. Tested on: Mac OS X/32 10.5.5 (amazon) in debug mode Mac OS X/32 10.5.5 (amazon) w/C++ & FORTRAN, w/threadsafe, in production mode FreeBSD/32 6.3 (duty) in debug mode FreeBSD/64 6.3 (liberty) w/C++ & FORTRAN, in debug mode Linux/32 2.6 (kagiso) w/PGI compilers, w/C++ & FORTRAN, w/threadsafe, in debug mode Linux/64-amd64 2.6 (smirom) w/Intel compilers w/default API=1.6.x, w/C++ & FORTRAN, in production mode Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN, w/szip filter, in production mode Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN, in production mode Linux/64-ia64 2.4 (tg-login3) w/parallel, w/FORTRAN, in production mode Linux/64-amd64 2.6 (abe) w/parallel, w/FORTRAN, in production mode
2008-10-15 09:46:34 +08:00
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();
Add HD prefix to tests
2019-08-16 05:46:00 +08:00
HDprintf(" data1[%lu]=%d, data2[%lu]=%d (should be same)\n",
[svn-r15868] Description: Correct a minor error in file free space allocation which was affecting the 'multi' VFD and preventing some tests from fully working with it. Wholesale revisitation of all the places where tests were disabled with various VFDs and remove or correct all these so that _only_ the tests which _really_ can't work with particular VFDs are skipped during a 'make check-vfd' test. Tested on: Mac OS X/32 10.5.5 (amazon) in debug mode Mac OS X/32 10.5.5 (amazon) w/C++ & FORTRAN, w/threadsafe, in production mode FreeBSD/32 6.3 (duty) in debug mode FreeBSD/64 6.3 (liberty) w/C++ & FORTRAN, in debug mode Linux/32 2.6 (kagiso) w/PGI compilers, w/C++ & FORTRAN, w/threadsafe, in debug mode Linux/64-amd64 2.6 (smirom) w/Intel compilers w/default API=1.6.x, w/C++ & FORTRAN, in production mode Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN, w/szip filter, in production mode Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN, in production mode Linux/64-ia64 2.4 (tg-login3) w/parallel, w/FORTRAN, in production mode Linux/64-amd64 2.6 (abe) w/parallel, w/FORTRAN, in production mode
2008-10-15 09:46:34 +08:00
(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();
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
return 0;
[svn-r14104] Description: Pursue calls to H5Gcreate() relentlessly and ruthlessly exterminate them, leaving only a few tame specimens in text files and comments. ;-) Tested on: Mac OS X/32 10.4.10 (amazon) FreeBSD/32 6.2 (duty) FreeBSD/64 6.2 (liberty) Linux/32 2.6 (kagiso) Linux/64 2.6 (smirom) Solaris/32 5.10 (linew)
2007-08-24 04:25:25 +08:00
error:
H5E_BEGIN_TRY {
H5Dclose(dset);
H5Sclose(space);
H5Tclose(m_type);
H5Tclose(f_type);
H5Gclose(cwg);
} H5E_END_TRY;
return 1;
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
}
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r5596] Purpose: Bug #774 fix Description: Added a test for the H5Tenum_nameof and H5Tenum_valueof functions. Values that do not exists in the enumeration type are supplied to the functions; functions should fail instead of succeeding. Platforms tested: Solaris 2.7 and Linux 2.2.18
2002-06-12 03:34:02 +08:00
/*-------------------------------------------------------------------------
* 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.
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
* Function should fail instead of succeeding and returning
* a name of one of the existing values.
[svn-r5596] Purpose: Bug #774 fix Description: Added a test for the H5Tenum_nameof and H5Tenum_valueof functions. Values that do not exists in the enumeration type are supplied to the functions; functions should fail instead of succeeding. Platforms tested: Solaris 2.7 and Linux 2.2.18
2002-06-12 03:34:02 +08:00
* 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
[svn-r5605] Purpose: Code cleanup Description: Clean up some compiler warnings... Platforms tested: FreeBSD 4.5 (sleipnir)
2002-06-13 02:24:25 +08:00
test_value_dsnt_exist(void)
[svn-r5596] Purpose: Bug #774 fix Description: Added a test for the H5Tenum_nameof and H5Tenum_valueof functions. Values that do not exists in the enumeration type are supplied to the functions; functions should fail instead of succeeding. Platforms tested: Solaris 2.7 and Linux 2.2.18
2002-06-12 03:34:02 +08:00
{
[svn-r5843] Purpose: Code cleanup Description: Clean up a few warnings which were showing up with --enable-production turned on. Platforms tested: FreeBSD 4.6 (sleipnir) serial & parallel
2002-08-09 01:52:17 +08:00
hid_t datatype_id=(-1); /* identifiers */
[svn-r5596] Purpose: Bug #774 fix Description: Added a test for the H5Tenum_nameof and H5Tenum_valueof functions. Values that do not exists in the enumeration type are supplied to the functions; functions should fail instead of succeeding. Platforms tested: Solaris 2.7 and Linux 2.2.18
2002-06-12 03:34:02 +08:00
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 */
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r19481] I'm backing out my fix for bug 1707 because there're some unresolved issues - r19441 and 19467. Bug 1707 is that H5Eset_auto causes a seg fault when an application uses -DH5_USE_16_API with the 1.8 library to compile. I created a branch off the trunk called set_auto to continue working on the problem. Tested on jam - backing out, simple.
2010-09-28 03:02:48 +08:00
if (H5Eset_auto2(H5E_DEFAULT, NULL, NULL) < 0) goto error;
[svn-r7507] *** empty log message ***
2003-09-25 03:26:50 +08:00
[svn-r5596] Purpose: Bug #774 fix Description: Added a test for the H5Tenum_nameof and H5Tenum_valueof functions. Values that do not exists in the enumeration type are supplied to the functions; functions should fail instead of succeeding. Platforms tested: Solaris 2.7 and Linux 2.2.18
2002-06-12 03:34:02 +08:00
if ((datatype_id = H5Tenum_create(H5T_NATIVE_INT))< 0) goto error;
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
/* These calls should fail, since no memebrs exist yet */
if (H5Tenum_valueof(datatype_id, "SAX", &val) >= 0) goto error;
[svn-r5596] Purpose: Bug #774 fix Description: Added a test for the H5Tenum_nameof and H5Tenum_valueof functions. Values that do not exists in the enumeration type are supplied to the functions; functions should fail instead of succeeding. Platforms tested: Solaris 2.7 and Linux 2.2.18
2002-06-12 03:34:02 +08:00
val = 3;
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
if (H5Tenum_nameof(datatype_id, &val, nam, size) >= 0) goto error;
[svn-r5596] Purpose: Bug #774 fix Description: Added a test for the H5Tenum_nameof and H5Tenum_valueof functions. Values that do not exists in the enumeration type are supplied to the functions; functions should fail instead of succeeding. Platforms tested: Solaris 2.7 and Linux 2.2.18
2002-06-12 03:34:02 +08:00
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;
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r5596] Purpose: Bug #774 fix Description: Added a test for the H5Tenum_nameof and H5Tenum_valueof functions. Values that do not exists in the enumeration type are supplied to the functions; functions should fail instead of succeeding. Platforms tested: Solaris 2.7 and Linux 2.2.18
2002-06-12 03:34:02 +08:00
/* This call should fail since we did not create a member with value = 3*/
val = 3;
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
if (H5Tenum_nameof(datatype_id, &val, nam, size) >= 0) goto error;
[svn-r5596] Purpose: Bug #774 fix Description: Added a test for the H5Tenum_nameof and H5Tenum_valueof functions. Values that do not exists in the enumeration type are supplied to the functions; functions should fail instead of succeeding. Platforms tested: Solaris 2.7 and Linux 2.2.18
2002-06-12 03:34:02 +08:00
/* This call should fail since we did not create a member with value = 11*/
val = 11;
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
if (H5Tenum_nameof(datatype_id, &val, nam, size) >= 0) goto error;
[svn-r5596] Purpose: Bug #774 fix Description: Added a test for the H5Tenum_nameof and H5Tenum_valueof functions. Values that do not exists in the enumeration type are supplied to the functions; functions should fail instead of succeeding. Platforms tested: Solaris 2.7 and Linux 2.2.18
2002-06-12 03:34:02 +08:00
/* This call should fail since we did not create a member with value = 0*/
val = 0;
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
if (H5Tenum_nameof(datatype_id, &val, nam, size) >= 0) goto error;
[svn-r5596] Purpose: Bug #774 fix Description: Added a test for the H5Tenum_nameof and H5Tenum_valueof functions. Values that do not exists in the enumeration type are supplied to the functions; functions should fail instead of succeeding. Platforms tested: Solaris 2.7 and Linux 2.2.18
2002-06-12 03:34:02 +08:00
/* This call should fail since we do not have SAX name in the type */
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
if (H5Tenum_valueof(datatype_id, "SAX", &val) >= 0) goto error;
[svn-r5596] Purpose: Bug #774 fix Description: Added a test for the H5Tenum_nameof and H5Tenum_valueof functions. Values that do not exists in the enumeration type are supplied to the functions; functions should fail instead of succeeding. Platforms tested: Solaris 2.7 and Linux 2.2.18
2002-06-12 03:34:02 +08:00
/* This call should fail since we do not have TEEN name in the type */
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
if (H5Tenum_valueof(datatype_id, "TEEN", &val) >= 0) goto error;
[svn-r5596] Purpose: Bug #774 fix Description: Added a test for the H5Tenum_nameof and H5Tenum_valueof functions. Values that do not exists in the enumeration type are supplied to the functions; functions should fail instead of succeeding. Platforms tested: Solaris 2.7 and Linux 2.2.18
2002-06-12 03:34:02 +08:00
/* This call should fail since we do not have A name in the type */
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
if (H5Tenum_valueof(datatype_id, "A", &val) >= 0) goto error;
[svn-r5596] Purpose: Bug #774 fix Description: Added a test for the H5Tenum_nameof and H5Tenum_valueof functions. Values that do not exists in the enumeration type are supplied to the functions; functions should fail instead of succeeding. Platforms tested: Solaris 2.7 and Linux 2.2.18
2002-06-12 03:34:02 +08:00
if (H5Tclose(datatype_id) < 0) goto error;
PASSED();
return 0;
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r5596] Purpose: Bug #774 fix Description: Added a test for the H5Tenum_nameof and H5Tenum_valueof functions. Values that do not exists in the enumeration type are supplied to the functions; functions should fail instead of succeeding. Platforms tested: Solaris 2.7 and Linux 2.2.18
2002-06-12 03:34:02 +08:00
error:
H5E_BEGIN_TRY {
H5Tclose(datatype_id);
} H5E_END_TRY;
return 1;
}
[svn-r12322] Purpose: Test some functions Description: Test some data type functions that are and aren't supposed to work with some data types. Platforms tested: h5committest and fuss.
2006-05-03 03:42:41 +08:00
/*-------------------------------------------------------------------------
* Function: test_funcs
*
[svn-r12440] Purpose: Code cleanup Description: Trim trailing whitespace in Makefile.am and C/C++ source files to make diffing changes easier. Platforms tested: None necessary, whitespace only change
2006-06-27 22:45:06 +08:00
* Purpose: Create an enumeration data type and test some functions
[svn-r12322] Purpose: Test some functions Description: Test some data type functions that are and aren't supposed to work with some data types. Platforms tested: h5committest and fuss.
2006-05-03 03:42:41 +08:00
* 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)
{
[svn-r12474] Clean up some compiler warnings. Tested on: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2006-07-16 03:49:04 +08:00
hid_t type=-1;
[svn-r12322] Purpose: Test some functions Description: Test some data type functions that are and aren't supposed to work with some data types. Platforms tested: h5committest and fuss.
2006-05-03 03:42:41 +08:00
c_e1 val;
[svn-r15868] Description: Correct a minor error in file free space allocation which was affecting the 'multi' VFD and preventing some tests from fully working with it. Wholesale revisitation of all the places where tests were disabled with various VFDs and remove or correct all these so that _only_ the tests which _really_ can't work with particular VFDs are skipped during a 'make check-vfd' test. Tested on: Mac OS X/32 10.5.5 (amazon) in debug mode Mac OS X/32 10.5.5 (amazon) w/C++ & FORTRAN, w/threadsafe, in production mode FreeBSD/32 6.3 (duty) in debug mode FreeBSD/64 6.3 (liberty) w/C++ & FORTRAN, in debug mode Linux/32 2.6 (kagiso) w/PGI compilers, w/C++ & FORTRAN, w/threadsafe, in debug mode Linux/64-amd64 2.6 (smirom) w/Intel compilers w/default API=1.6.x, w/C++ & FORTRAN, in production mode Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN, w/szip filter, in production mode Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN, in production mode Linux/64-ia64 2.4 (tg-login3) w/parallel, w/FORTRAN, in production mode Linux/64-amd64 2.6 (abe) w/parallel, w/FORTRAN, in production mode
2008-10-15 09:46:34 +08:00
size_t size;
[svn-r12322] Purpose: Test some functions Description: Test some data type functions that are and aren't supposed to work with some data types. Platforms tested: h5committest and fuss.
2006-05-03 03:42:41 +08:00
H5T_pad_t inpad;
H5T_cset_t cset;
herr_t ret;
TESTING("some functions with enumeration types");
/* A native integer */
[svn-r16560] Description: Remove another call to H5E_clear_stack() from within the library. Clean up lots of compiler warnings. Tested on: Mac OS X/32 10.5.6 (amazon) (followup on other platforms forthcoming)
2009-03-11 03:00:39 +08:00
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
[svn-r12440] Purpose: Code cleanup Description: Trim trailing whitespace in Makefile.am and C/C++ source files to make diffing changes easier. Platforms tested: None necessary, whitespace only change
2006-06-27 22:45:06 +08:00
[svn-r12322] Purpose: Test some functions Description: Test some data type functions that are and aren't supposed to work with some data types. Platforms tested: h5committest and fuss.
2006-05-03 03:42:41 +08:00
H5E_BEGIN_TRY {
ret=H5Tset_pad(type, H5T_PAD_ZERO, H5T_PAD_ONE);
} H5E_END_TRY;
if (ret>=0) {
H5_FAILED();
Add HD prefix to tests
2019-08-16 05:46:00 +08:00
HDprintf("Operation not allowed for this type.\n");
[svn-r12322] Purpose: Test some functions Description: Test some data type functions that are and aren't supposed to work with some data types. Platforms tested: h5committest and fuss.
2006-05-03 03:42:41 +08:00
goto error;
} /* end if */
H5E_BEGIN_TRY {
size=H5Tget_ebias(type);
} H5E_END_TRY;
if (size>0) {
H5_FAILED();
Add HD prefix to tests
2019-08-16 05:46:00 +08:00
HDprintf("Operation not allowed for this type.\n");
[svn-r12322] Purpose: Test some functions Description: Test some data type functions that are and aren't supposed to work with some data types. Platforms tested: h5committest and fuss.
2006-05-03 03:42:41 +08:00
goto error;
} /* end if */
H5E_BEGIN_TRY {
inpad=H5Tget_inpad(type);
} H5E_END_TRY;
if (inpad>-1) {
H5_FAILED();
Add HD prefix to tests
2019-08-16 05:46:00 +08:00
HDprintf("Operation not allowed for this type.\n");
[svn-r12322] Purpose: Test some functions Description: Test some data type functions that are and aren't supposed to work with some data types. Platforms tested: h5committest and fuss.
2006-05-03 03:42:41 +08:00
goto error;
} /* end if */
H5E_BEGIN_TRY {
cset=H5Tget_cset(type);
} H5E_END_TRY;
if (cset>-1) {
H5_FAILED();
Add HD prefix to tests
2019-08-16 05:46:00 +08:00
HDprintf("Operation not allowed for this type.\n");
[svn-r12322] Purpose: Test some functions Description: Test some data type functions that are and aren't supposed to work with some data types. Platforms tested: h5committest and fuss.
2006-05-03 03:42:41 +08:00
goto error;
} /* end if */
size = 16;
H5E_BEGIN_TRY {
ret=H5Tset_offset(type, (size_t)size);
} H5E_END_TRY;
if (ret>=0) {
H5_FAILED();
Add HD prefix to tests
2019-08-16 05:46:00 +08:00
HDprintf("Operation not allowed for this type.\n");
[svn-r12322] Purpose: Test some functions Description: Test some data type functions that are and aren't supposed to work with some data types. Platforms tested: h5committest and fuss.
2006-05-03 03:42:41 +08:00
goto error;
} /* end if */
H5E_BEGIN_TRY {
ret=H5Tset_order(type, H5T_ORDER_BE);
} H5E_END_TRY;
if (ret>=0) {
H5_FAILED();
Add HD prefix to tests
2019-08-16 05:46:00 +08:00
HDprintf("Operation not allowed for this type.\n");
[svn-r12322] Purpose: Test some functions Description: Test some data type functions that are and aren't supposed to work with some data types. Platforms tested: h5committest and fuss.
2006-05-03 03:42:41 +08:00
goto error;
} /* end if */
if (H5Tclose(type)<0) goto error;
PASSED();
return 0;
error:
H5E_BEGIN_TRY {
H5Tclose(type);
} H5E_END_TRY;
return 1;
}
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
/*-------------------------------------------------------------------------
* Function: main
*
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
* Purpose:
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
*
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
* Return: Success:
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
*
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
* Failure:
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
*
* Programmer: Robb Matzke
* Tuesday, December 22, 1998
*
* Modifications:
*
*-------------------------------------------------------------------------
*/
int
main(void)
{
hid_t fapl=-1, file=-1;
char name[1024];
int nerrors=0;
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
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);
[svn-r22914] I checked in the conversion function H5T__conv_enum_numeric (numeric type means integer or floating number) and the C test for it. This is the work for Chicago. Tested on jam, koala, and ostrich.
2012-10-18 02:38:38 +08:00
nerrors += test_conv(file);
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
nerrors += test_tr1(file);
nerrors += test_tr2(file);
[svn-r5596] Purpose: Bug #774 fix Description: Added a test for the H5Tenum_nameof and H5Tenum_valueof functions. Values that do not exists in the enumeration type are supplied to the functions; functions should fail instead of succeeding. Platforms tested: Solaris 2.7 and Linux 2.2.18
2002-06-12 03:34:02 +08:00
nerrors += test_value_dsnt_exist();
[svn-r12322] Purpose: Test some functions Description: Test some data type functions that are and aren't supposed to work with some data types. Platforms tested: h5committest and fuss.
2006-05-03 03:42:41 +08:00
nerrors += test_funcs();
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r12322] Purpose: Test some functions Description: Test some data type functions that are and aren't supposed to work with some data types. Platforms tested: h5committest and fuss.
2006-05-03 03:42:41 +08:00
H5Fclose(file);
[svn-r11245] Purpose: Code cleanup Description: Trim trailing whitespace, which is making 'diff'ing the two branches difficult. Solution: Ran this script in each directory: foreach f (*.[ch] *.cpp) sed 's/[[:blank:]]*$//' $f > sed.out && mv sed.out $f end Platforms tested: FreeBSD 4.11 (sleipnir) Too minor to require h5committest
2005-08-14 04:53:35 +08:00
[svn-r20529] Purpose: Add testing for bug 1864 Description: Added internal tesitng routines to traverse a file and verify that symbol table information is *always* cached, whenever possible. Added this check to the end of many tests to check all the test files, right before the call to h5_cleanup. Tested: jam, amani, heiwa (h5committest)
2011-04-16 06:05:23 +08:00
/* Verify symbol table messages are cached */
nerrors += (h5_verify_cached_stabs(FILENAME, fapl) < 0 ? 1 : 0);
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
if (nerrors) goto error;
puts("All enum tests passed.");
[svn-r2531] Description: The "FILENAME" declared extern in h5test.h is not always used. It was used in h5_cleanup to remove temporary files created during tests. Not all tests codes have used this routine. Indeed, quite a few of test programs do "#define FILENAME ". Also, h5_cleanup needs to work in tandem with h5_fixname. h5_fixname accepts an explicite base_name argument instead of using the global variable FILENAME. That is cleaner. Solution: Added char *base_name[] as a new argument to h5_cleanup, in the same style as h5_fixname. Removed "extern char *FILENAME..." from use. Also, undo some unnecessary declaration of "char *FILENAME" from some tests which don't use it at all (yet). Platforms tested: modi4-64(irix64), arabica(solari2.7), eirene(linux) (arabica could not launch tests automatically. I had to hack in LD_LIBRARY_PATH to make them run.)
2000-09-10 08:08:27 +08:00
h5_cleanup(FILENAME, fapl);
[svn-r1016] *** empty log message ***
1999-01-08 01:14:55 +08:00
return 0;
error:
puts("*** ENUM TESTS FAILED ***");
return 1;
}
Reference in New Issue Copy Permalink