mirror of
https://github.com/HDFGroup/hdf5.git
synced 2024-11-27 02:10:55 +08:00
130 lines
4.3 KiB
C
130 lines
4.3 KiB
C
/****************************************************************************
|
|
* 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: th5p
|
|
*
|
|
* Test the dataspace functionality
|
|
*
|
|
*************************************************************/
|
|
|
|
#include <testhdf5.h>
|
|
|
|
#include <H5private.h>
|
|
#include <H5Bprivate.h>
|
|
#include <H5Sprivate.h>
|
|
#include <H5Pprivate.h>
|
|
|
|
#define FILE "th5p1.h5"
|
|
|
|
/* 3-D dataset with fixed dimensions */
|
|
#define SPACE1_NAME "Space1"
|
|
#define SPACE1_RANK 3
|
|
#define SPACE1_DIM1 3
|
|
#define SPACE1_DIM2 15
|
|
#define SPACE1_DIM3 13
|
|
|
|
/* 4-D dataset with one unlimited dimension */
|
|
#define SPACE2_NAME "Space2"
|
|
#define SPACE2_RANK 4
|
|
#define SPACE2_DIM1 0
|
|
#define SPACE2_DIM2 15
|
|
#define SPACE2_DIM3 13
|
|
#define SPACE2_DIM4 23
|
|
|
|
/****************************************************************
|
|
**
|
|
** test_h5p_basic(): Test basic H5S (dataspace) code.
|
|
**
|
|
****************************************************************/
|
|
static void
|
|
test_h5p_basic(void)
|
|
{
|
|
hid_t fid1; /* HDF5 File IDs */
|
|
hid_t sid1, sid2; /* Dataspace ID */
|
|
uint32 rank; /* Logical rank of dataspace */
|
|
size_t dims1[] =
|
|
{SPACE1_DIM1, SPACE1_DIM2, SPACE1_DIM3}, /* dataspace dim sizes */
|
|
dims2[] =
|
|
{SPACE2_DIM1, SPACE2_DIM2, SPACE2_DIM3, SPACE2_DIM4}, tdims[4]; /* Dimension array to test with */
|
|
size_t 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 = H5Fcreate(FILE, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
|
|
CHECK(fid1, FAIL, "H5Fcreate");
|
|
|
|
sid1 = H5Screate_simple(SPACE1_RANK, dims1, NULL);
|
|
CHECK(sid1, FAIL, "H5Screate_simple");
|
|
|
|
n = H5Sget_npoints(sid1);
|
|
CHECK(n, UFAIL, "H5Sget_npoints");
|
|
VERIFY(n, SPACE1_DIM1 * SPACE1_DIM2 * SPACE1_DIM3, "H5Sget_npoints");
|
|
|
|
rank = H5Sget_ndims(sid1);
|
|
CHECK(rank, UFAIL, "H5Sget_lrank");
|
|
VERIFY(rank, SPACE1_RANK, "H5Sget_lrank");
|
|
|
|
ret = H5Sget_dims(sid1, tdims);
|
|
CHECK(ret, FAIL, "H5Sget_ldims");
|
|
VERIFY(HDmemcmp(tdims, dims1, SPACE1_RANK * sizeof(uint32)), 0, "H5Sget_ldims");
|
|
|
|
sid2 = H5Screate_simple(SPACE2_RANK, dims2, NULL);
|
|
CHECK(sid2, FAIL, "H5Screate_simple");
|
|
|
|
n = H5Sget_npoints(sid2);
|
|
CHECK(n, UFAIL, "H5Snelem");
|
|
VERIFY(n, SPACE2_DIM1 * SPACE2_DIM2 * SPACE2_DIM3 * SPACE2_DIM4, "H5Snelem");
|
|
|
|
rank = H5Sget_ndims(sid2);
|
|
CHECK(rank, UFAIL, "H5Sget_lrank");
|
|
VERIFY(rank, SPACE2_RANK, "H5Sget_lrank");
|
|
|
|
ret = H5Sget_dims(sid2, tdims);
|
|
CHECK(ret, FAIL, "H5Sget_ldims");
|
|
VERIFY(HDmemcmp(tdims, dims2, SPACE2_RANK * sizeof(uint32)), 0, "H5Sget_ldims");
|
|
|
|
ret = H5Sclose(sid1);
|
|
CHECK(ret, FAIL, "H5Sclose");
|
|
|
|
ret = H5Sclose(sid2);
|
|
CHECK(ret, FAIL, "H5Sclose");
|
|
|
|
/* Close first file */
|
|
ret = H5Fclose(fid1);
|
|
CHECK(ret, FAIL, "H5Fclose");
|
|
} /* test_h5p_basic() */
|
|
|
|
/****************************************************************
|
|
**
|
|
** test_h5p(): Main H5S (dataspace) testing routine.
|
|
**
|
|
****************************************************************/
|
|
void
|
|
test_h5p(void)
|
|
{
|
|
/* Output message about test being performed */
|
|
MESSAGE(5, ("Testing Dataspaces\n"));
|
|
|
|
test_h5p_basic(); /* Test basic H5S code */
|
|
} /* test_h5p() */
|