d49ed7bedf
Added new tests. ./test/dsets.c NEW Tests datasets. ./test/dspace.c NEW Tests data spaces. ./test/dtypes.c NEW Tests data types. ./test/istore.c ./test/tfile.c ./test/th5p.c ./test/theap.c ./test/tohdr.c Changed to work with new function names. ./test/testhdf5.c Removed the data type and dataset tests since they're now in their own files. They had to be rewritten because of extensive changes to those interfaces.
175 lines
3.2 KiB
C
175 lines
3.2 KiB
C
/*
|
||
* Copyright (C) 1997 NCSA
|
||
* All rights reserved.
|
||
*
|
||
* Programmer: Robb Matzke <matzke@llnl.gov>
|
||
* Tuesday, December 9, 1997
|
||
*
|
||
* Purpose: Tests the data type interface (H5T)
|
||
*/
|
||
#include <hdf5.h>
|
||
#include <stdio.h>
|
||
#include <unistd.h>
|
||
|
||
|
||
#define AT() printf (" at %s:%d in %s()...\n", \
|
||
__FILE__, __LINE__, __FUNCTION__);
|
||
|
||
|
||
|
||
/*-------------------------------------------------------------------------
|
||
* Function: test_classes
|
||
*
|
||
* Purpose: Test type classes
|
||
*
|
||
* Return: Success: SUCCEED
|
||
*
|
||
* Failure: FAIL
|
||
*
|
||
* Programmer: Robb Matzke
|
||
* Tuesday, December 9, 1997
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
static herr_t
|
||
test_classes (void)
|
||
{
|
||
H5T_class_t type_class;
|
||
|
||
printf ("%-70s", "Testing H5Tget_class()");
|
||
|
||
if (H5T_FIXED!=(type_class=H5Tget_class (H5T_NATIVE_INT))) {
|
||
puts ("*FAILED*");
|
||
if (!isatty (1)) {
|
||
AT ();
|
||
printf (" Invalid type class for H5T_NATIVE_INT\n");
|
||
}
|
||
goto error;
|
||
}
|
||
|
||
if (H5T_FLOAT!=(type_class=H5Tget_class (H5T_NATIVE_DOUBLE))) {
|
||
puts ("*FAILED*");
|
||
if (!isatty (1)) {
|
||
AT ();
|
||
printf (" Invalid type class for H5T_NATIVE_DOUBLE\n");
|
||
}
|
||
goto error;
|
||
}
|
||
|
||
|
||
|
||
puts (" PASSED");
|
||
return SUCCEED;
|
||
|
||
error:
|
||
return FAIL;
|
||
}
|
||
|
||
|
||
|
||
/*-------------------------------------------------------------------------
|
||
* Function: test_copy
|
||
*
|
||
* Purpose: Are we able to copy a data type?
|
||
*
|
||
* Return: Success: SUCCEED
|
||
*
|
||
* Failure: FAIL
|
||
*
|
||
* Programmer: Robb Matzke
|
||
* Tuesday, December 9, 1997
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
static herr_t
|
||
test_copy (void)
|
||
{
|
||
hid_t a_copy;
|
||
|
||
printf ("%-70s", "Testing H5Tcopy()");
|
||
|
||
if ((a_copy=H5Tcopy (H5T_NATIVE_SHORT))<0) {
|
||
puts ("*FAILED*");
|
||
if (!isatty (1)) {
|
||
AT ();
|
||
printf (" Cannot copy a builtin type.\n");
|
||
}
|
||
goto error;
|
||
}
|
||
|
||
if (H5Tclose (a_copy)<0) {
|
||
puts ("*FAILED*");
|
||
if (!isatty (1)) {
|
||
AT ();
|
||
printf (" Cannot close the copied type.\n");
|
||
}
|
||
goto error;
|
||
}
|
||
|
||
if (H5Tclose (H5T_NATIVE_CHAR)>=0) {
|
||
puts ("*FAILED*");
|
||
if (!isatty (1)) {
|
||
AT ();
|
||
printf (" Was able to free a built-in type.\n");
|
||
}
|
||
goto error;
|
||
}
|
||
|
||
puts (" PASSED");
|
||
return SUCCEED;
|
||
|
||
error:
|
||
return FAIL;
|
||
}
|
||
|
||
|
||
/*-------------------------------------------------------------------------
|
||
* Function: main
|
||
*
|
||
* Purpose: Test the data type interface.
|
||
*
|
||
* Return: Success:
|
||
*
|
||
* Failure:
|
||
*
|
||
* Programmer: Robb Matzke
|
||
* Tuesday, December 9, 1997
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
int
|
||
main (void)
|
||
{
|
||
herr_t status;
|
||
intn nerrors = 0;
|
||
|
||
H5init ();
|
||
|
||
status = test_classes ();
|
||
nerrors += status<0 ? 1 : 0;
|
||
|
||
status = test_copy ();
|
||
nerrors += status<0 ? 1 : 0;
|
||
|
||
|
||
if (nerrors) {
|
||
printf ("***** %d DATA TYPE TEST%s FAILED! *****\n",
|
||
nerrors, 1==nerrors?"":"S");
|
||
if (isatty (1)) {
|
||
printf ("(Redirect output to a pager or a file to see debug "
|
||
"output)\n");
|
||
}
|
||
exit (1);
|
||
}
|
||
|
||
printf ("All data type tests passed.\n");
|
||
exit (0);
|
||
}
|
||
|