From fa71cbdf8e52e9efcd93bcdf3ce3814ce22f2df1 Mon Sep 17 00:00:00 2001 From: Quincey Koziol Date: Mon, 15 Sep 1997 12:54:53 -0500 Subject: [svn-r79] Finishing adding dataset reading code, which is working nicely. Test for second dataset I/O is currently commented out, pending a fix. --- test/th5d.c | 137 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++--- 1 file changed, 131 insertions(+), 6 deletions(-) diff --git a/test/th5d.c b/test/th5d.c index fe67762..eb074dc 100644 --- a/test/th5d.c +++ b/test/th5d.c @@ -50,19 +50,43 @@ static char RcsId[] = "$Revision$"; #define DATA1_NAME "Data1" int32 data1[SPACE1_DIM1][SPACE1_DIM2][SPACE1_DIM3]={1,2,3,4,5,6}; +/* 4-D dataset with fixed dimensions */ +#define SPACE2_NAME "Space2" +#define SPACE2_RANK 4 +#define SPACE2_DIM1 3 +#define SPACE2_DIM2 15 +#define SPACE2_DIM3 13 +#define SPACE2_DIM4 7 + +/* 64-bit big-endian floating-point type */ +#define TYPE2_NAME "Type2" +#define TYPE2_BASE H5T_FLOAT +#define TYPE2_LEN 8 +#define TYPE2_ARCH H5T_BIGENDIAN + +/* 4-d 64-bit floating-point dataset */ +#define DATA2_NAME "Data2" +float64 data2[SPACE2_DIM1][SPACE2_DIM2][SPACE2_DIM3][SPACE2_DIM4]= + {0.5,1.0,2.0,4.0,8.0,16.0,32.0}; + /**************************************************************** ** -** test_h5d_basic(): Test basic H5D (dataset) code. +** test_h5d_basic_write(): Test basic H5D (dataset) writing code. ** ****************************************************************/ -static void test_h5d_basic(void) +static void test_h5d_basic_write(void) { hatom_t fid1; /* HDF5 File IDs */ hatom_t did1; /* Dataset ID */ hatom_t tid1; /* Datatype ID */ hatom_t sid1; /* Dataspace ID */ uint32 dims1[]={SPACE1_DIM1,SPACE1_DIM2,SPACE1_DIM3}; /* dataspace dim sizes */ - uintn n; /* number of dataspace elements */ +#ifdef DATASET2 + hatom_t did2; /* Dataset ID */ + hatom_t tid2; /* Datatype ID */ + hatom_t sid2; /* Dataspace ID */ + uint32 dims2[]={SPACE2_DIM1,SPACE2_DIM2,SPACE2_DIM3,SPACE2_DIM4}; /* dataspace dim sizes */ +#endif /* DATASET2 */ herr_t ret; /* Generic return value */ /* Output message about test being performed */ @@ -90,7 +114,7 @@ static void test_h5d_basic(void) ret=H5Dset_info(did1,tid1,sid1); CHECK(ret,FAIL,"H5Dset_info"); - ret=H5Dwrite(did1,0,data1); + ret=H5Dwrite(did1,H5P_SCALAR,data1); CHECK(ret,FAIL,"H5Dwrite"); ret=H5Mrelease(did1); @@ -99,13 +123,113 @@ static void test_h5d_basic(void) ret=H5Mrelease(tid1); CHECK(ret,FAIL,"H5Mrelease"); +#ifdef DATASET2 + sid2=H5Mcreate(fid1,H5_DATASPACE,SPACE2_NAME); + CHECK(sid1,FAIL,"H5Mcreate"); + + ret=H5Pset_space(sid2,SPACE2_RANK,dims2); + CHECK(ret,FAIL,"H5Pset_space"); + + tid2=H5Mcreate(fid1,H5_DATATYPE,TYPE2_NAME); + CHECK(tid2,FAIL,"H5Mcreate"); + + ret=H5Tset_type(tid2,TYPE2_BASE,TYPE2_LEN,TYPE2_ARCH); + CHECK(ret,FAIL,"H5Tset_type"); + + did2=H5Mcreate(fid1,H5_DATASET,DATA2_NAME); + CHECK(sid2,FAIL,"H5Mcreate"); + + ret=H5Dset_info(did2,tid2,sid2); + CHECK(ret,FAIL,"H5Dset_info"); + + ret=H5Dwrite(did2,H5P_SCALAR,data2); + CHECK(ret,FAIL,"H5Dwrite"); + + ret=H5Mrelease(did2); + CHECK(ret,FAIL,"H5Mrelease"); + + ret=H5Mrelease(tid2); + CHECK(ret,FAIL,"H5Mrelease"); + + ret=H5Mrelease(sid2); + CHECK(ret,FAIL,"H5Mrelease"); +#endif /* DATASET2 */ + ret=H5Mrelease(sid1); CHECK(ret,FAIL,"H5Mrelease"); /* Close first file */ ret=H5Fclose(fid1); CHECK(ret,FAIL,"H5Fclose"); -} /* test_h5d_basic() */ +} /* test_h5d_basic_write() */ + +/**************************************************************** +** +** test_h5d_basic_read(): Test basic H5D (dataset) reading code. +** +****************************************************************/ +static void test_h5d_basic_read(void) +{ + hatom_t fid1; /* HDF5 File IDs */ + hatom_t oid1; /* Dataset OID */ + hatom_t did1; /* Dataset ID */ + hatom_t tid1; /* Datatype ID */ + hatom_t sid1; /* Dataspace ID */ + void *buf; /* space for the buffer read */ + uint32 buf_size; /* size of the buffer to read */ + hatom_t type; /* Datatype's base type */ + uint8 len, arch; /* Datatype's length and architecture */ + uintn n; /* number of dataspace elements */ + herr_t ret; /* Generic return value */ + + /* Output message about test being performed */ + MESSAGE(5, ("Testing Datatype Manipulation\n")); + + /* Create file */ + fid1=H5Fopen(FILE,0,0); + CHECK(fid1,FAIL,"H5Fopen"); + + oid1=H5Mfind_name(fid1,H5_DATASET,SPACE1_NAME); + CHECK(oid1,FAIL,"H5Mfind_name"); + + did1=H5Maccess(oid1); + CHECK(sid1,FAIL,"H5Maccess"); + + ret=H5Dget_info(did1,&tid1,&sid1); + CHECK(ret,FAIL,"H5Pset_space"); + + 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"); + + n=H5Pnelem(sid1); + CHECK(n,UFAIL,"H5Pnelem"); + VERIFY(n,SPACE1_DIM1*SPACE1_DIM2*SPACE1_DIM3,"H5Pnelem"); + + buf_size=H5Tsize(tid1,len,arch,BTRUE)*n; + buf=HDmalloc(buf_size); + ret=H5Dread(did1,H5P_SCALAR,buf); + CHECK(ret,FAIL,"H5Dread"); + VERIFY(HDmemcmp(buf,data1,buf_size),0,"H5Dread"); + + ret=H5Mrelease(tid1); + CHECK(ret,FAIL,"H5Mrelease"); + + ret=H5Mrelease(sid1); + CHECK(ret,FAIL,"H5Mrelease"); + + ret=H5Mrelease(did1); + CHECK(ret,FAIL,"H5Mrelease"); + + /* Close first file */ + ret=H5Fclose(fid1); + CHECK(ret,FAIL,"H5Fclose"); +} /* test_h5d_basic_read() */ /**************************************************************** @@ -118,6 +242,7 @@ void test_h5d(void) /* Output message about test being performed */ MESSAGE(5, ("Testing datasets\n")); - test_h5d_basic(); /* Test basic H5D code */ + test_h5d_basic_write(); /* Test basic H5D writing code */ + test_h5d_basic_read(); /* Test basic H5D reading code */ } /* test_h5d() */ -- cgit v0.12