1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
|
/****************************************************************************
* 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 <H5Mprivate.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 H5P (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 */
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 = H5Fcreate(FILE, H5ACC_OVERWRITE, 0, 0);
CHECK(fid1, FAIL, "H5Fcreate");
sid1 = H5Pcreate(H5P_SIMPLE);
CHECK(sid1, FAIL, "H5Mcreate");
ret = H5Pset_space(sid1, SPACE1_RANK, dims1);
CHECK(ret, FAIL, "H5Pset_space");
n = H5Pget_npoints(sid1);
CHECK(n, UFAIL, "H5Pnelem");
VERIFY(n, SPACE1_DIM1 * SPACE1_DIM2 * SPACE1_DIM3, "H5Pnelem");
rank = H5Pget_ndims(sid1);
CHECK(rank, UFAIL, "H5Pget_lrank");
VERIFY(rank, SPACE1_RANK, "H5Pget_lrank");
ret = H5Pget_dims(sid1, tdims);
CHECK(ret, FAIL, "H5Pget_ldims");
VERIFY(HDmemcmp(tdims, dims1, SPACE1_RANK * sizeof(uint32)), 0, "H5Pget_ldims");
sid2 = H5Pcreate(H5P_SIMPLE);
CHECK(sid2, FAIL, "H5Mcreate");
ret = H5Pset_space(sid2, SPACE2_RANK, dims2);
CHECK(ret, FAIL, "H5Pset_space");
n = H5Pget_npoints(sid2);
CHECK(n, UFAIL, "H5Pnelem");
VERIFY(n, SPACE2_DIM1 * SPACE2_DIM2 * SPACE2_DIM3 * SPACE2_DIM4, "H5Pnelem");
rank = H5Pget_ndims(sid2);
CHECK(rank, UFAIL, "H5Pget_lrank");
VERIFY(rank, SPACE2_RANK, "H5Pget_lrank");
ret = H5Pget_dims(sid2, tdims);
CHECK(ret, FAIL, "H5Pget_ldims");
VERIFY(HDmemcmp(tdims, dims2, SPACE2_RANK * sizeof(uint32)), 0, "H5Pget_ldims");
ret = H5Mclose(sid1);
CHECK(ret, FAIL, "H5Mrelease");
ret = H5Mclose(sid2);
CHECK(ret, FAIL, "H5Mrelease");
/* Close first file */
ret = H5Fclose(fid1);
CHECK(ret, FAIL, "H5Fclose");
} /* test_h5p_basic() */
/****************************************************************
**
** test_h5p(): Main H5P (dataspace) testing routine.
**
****************************************************************/
void
test_h5p(void)
{
/* Output message about test being performed */
MESSAGE(5, ("Testing Dataspaces\n"));
test_h5p_basic(); /* Test basic H5P code */
} /* test_h5p() */
|
