mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-03-31 17:10:47 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r59] Added [basic] testing for H5T interface, which appears to be working well.

Browse Source
This commit is contained in:
Quincey Koziol 1997-08-29 18:19:22 -05:00
parent 38a4745563
commit 064648a1f6
5 changed files with 132 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/Makefile
View File

@ -110,7 +110,7 @@ CPPFLAGS=-I. -I../src
PROGS=testhdf5
# Source and object files for programs...
PROG_SRC=testhdf5.c tfile.c theap.c tmeta.c tohdr.c tstab.c
PROG_SRC=testhdf5.c tfile.c theap.c tmeta.c tohdr.c tstab.c th5t.c
PROG_OBJ=$(PROG_SRC:.c=.o)
# Private header files (not to be installed)...

2
test/Makefile.in
View File

@ -13,7 +13,7 @@ CPPFLAGS=-I. -I../src @CPPFLAGS@
PROGS=testhdf5
# Source and object files for programs...
PROG_SRC=testhdf5.c tfile.c theap.c tmeta.c tohdr.c tstab.c
PROG_SRC=testhdf5.c tfile.c theap.c tmeta.c tohdr.c tstab.c th5t.c
PROG_OBJ=$(PROG_SRC:.c=.o)
# Private header files (not to be installed)...

5
test/testhdf5.c
View File

@ -157,6 +157,7 @@ int main(int argc, char *argv[])
InitTest("heap", test_heap, "Object and Name Heaps");
InitTest("ohdr", test_ohdr, "Object Headers");
InitTest("stab", test_stab, "Symbol Tables");
InitTest("h5t", test_h5t, "Datatypes");
Verbosity = 4; /* Default Verbosity is Low */
H5version(&major, &minor, &release, &patch);
@ -292,9 +293,9 @@ int main(int argc, char *argv[])
{
MESSAGE(2, ("\nCleaning Up...\n\n"));
#if !(defined DOS386 | defined WIN386)
system("rm -f *.hdf *.tmp");
system("rm -f *.h5 *.tmp");
#else /* OLD_WAY */
remove("*.hdf");
remove("*.h5");
remove("*.tmp");
#endif /* OLD_WAY */
} /* end if */

1
test/testhdf5.h
View File

@ -103,6 +103,7 @@ void test_file(void);
void test_heap (void);
void test_ohdr (void);
void test_stab (void);
void test_h5t (void);
#endif /* HDF5TEST_H */

126
test/th5t.c Normal file
View File

@ -0,0 +1,126 @@
/****************************************************************************
* NCSA HDF *
* Software Development Group *
* National Center for Supercomputing Applications *
* University of Illinois at Urbana-Champaign *
* 605 E. Springfield, Champaign IL 61820 *
* *
* For conditions of distribution and use, see the accompanying *
* hdf/COPYING file. *
* *
****************************************************************************/
#ifdef RCSID
static char RcsId[] = "$Revision$";
#endif
/* $Id$ */
/***********************************************************
*
* Test program: tfile
*
* Test the low-level file I/O features.
*
*************************************************************/
#include <testhdf5.h>
#include <H5private.h>
#include <H5Bprivate.h>
#include <H5Mprivate.h>
#include <H5Tprivate.h>
#define FILE "th5t1.h5"
#define TYPE1_NAME "Type1"
#define TYPE1_BASE H5T_INT
#define TYPE1_LEN 4
#define TYPE1_ARCH H5T_BIGENDIAN
#define TYPE2_NAME "Type2"
#define TYPE2_BASE H5T_FLOAT
#define TYPE2_LEN 8
#define TYPE2_ARCH H5T_LITTLEENDIAN
/****************************************************************
**
** test_h5t_basic(): Test basic H5T (datatype) code.
**
****************************************************************/
static void test_h5t_basic(void)
{
hatom_t fid1; /* HDF5 File IDs */
hatom_t tid1,tid2; /* Datatype ID */
hatom_t type; /* Datatype's base type */
uint8 len, arch; /* Datatype's length and architecture */
herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Datatype Manipulation\n"));
/* Create file */
fid1=H5Fcreate(FILE,H5ACC_OVERWRITE,0,0);
CHECK(fid1,FAIL,"H5Fcreate");
tid1=H5Mcreate(fid1,H5_DATATYPE,TYPE1_NAME);
CHECK(tid1,FAIL,"H5Mcreate");
ret=H5Tset_type(tid1,TYPE1_BASE,TYPE1_LEN,TYPE1_ARCH);
CHECK(ret,FAIL,"H5Tset_type");
ret=H5Tsize(tid1,-1,-1,BTRUE);
VERIFY(ret,TYPE1_LEN,"H5Tsize");
ret=H5Tis_atomic(tid1);
VERIFY(ret,BTRUE,"H5Tis_atomic");
ret=H5Tget_type(tid1,&type,&len,&arch);
CHECK(ret,FAIL,"H5Tget_type");
VERIFY(type,TYPE1_BASE,"H5Tget_type");
VERIFY(len,TYPE1_LEN,"H5Tget_type");
VERIFY(arch,TYPE1_ARCH,"H5Tget_type");
tid2=H5Mcreate(fid1,H5_DATATYPE,TYPE2_NAME);
CHECK(tid1,FAIL,"H5Mcreate");
ret=H5Tset_type(tid2,TYPE2_BASE,TYPE2_LEN,TYPE2_ARCH);
CHECK(ret,FAIL,"H5Tset_type");
ret=H5Tsize(tid2,-1,-1,BTRUE);
VERIFY(ret,TYPE2_LEN,"H5Tsize");
ret=H5Tis_atomic(tid2);
VERIFY(ret,BTRUE,"H5Tis_atomic");
ret=H5Tget_type(tid2,&type,&len,&arch);
CHECK(ret,FAIL,"H5Tget_type");
VERIFY(type,TYPE2_BASE,"H5Tget_type");
VERIFY(len,TYPE2_LEN,"H5Tget_type");
VERIFY(arch,TYPE2_ARCH,"H5Tget_type");
ret=H5Mrelease(tid1);
CHECK(ret,FAIL,"H5Mrelease");
ret=H5Mrelease(tid2);
CHECK(ret,FAIL,"H5Mrelease");
/* Close first file */
ret=H5Fclose(fid1);
CHECK(ret,FAIL,"H5Fclose");
} /* test_h5t_basic() */
/****************************************************************
**
** test_h5t(): Main H5T (datatype) testing routine.
**
****************************************************************/
void test_h5t(void)
{
/* Output message about test being performed */
MESSAGE(5, ("Testing Datatypes\n"));
test_h5t_basic(); /* Test basic H5T code */
} /* test_h5t() */