summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorQuincey Koziol <koziol@hdfgroup.org>2003-06-24 20:12:08 (GMT)
committerQuincey Koziol <koziol@hdfgroup.org>2003-06-24 20:12:08 (GMT)
commita2ffe933e6f966179236198a8357ba68dbfc34e1 (patch)
tree2f965594387e936880421d9c1a0464a5a43df086
parente3a8e61c26cd280a74d27340ade9d34a51fdde94 (diff)
downloadhdf5-a2ffe933e6f966179236198a8357ba68dbfc34e1.zip
hdf5-a2ffe933e6f966179236198a8357ba68dbfc34e1.tar.gz
hdf5-a2ffe933e6f966179236198a8357ba68dbfc34e1.tar.bz2
[svn-r7098] Purpose:
Improve test a bit Description: Add a small bit of testing for the array field in a compound datatype. Platforms tested: FreeBSD 4.8 (sleipnir) h5committest Cray SV1 (wind) Cray T3E (hubble) Cray T90 (gypsy)
-rw-r--r--test/ntypes.c18
1 files changed, 17 insertions, 1 deletions
diff --git a/test/ntypes.c b/test/ntypes.c
index 16d31de..a6d0378 100644
--- a/test/ntypes.c
+++ b/test/ntypes.c
@@ -789,6 +789,22 @@ test_compound_dtype3(hid_t file)
TEST_ERROR;
H5Tclose(mem_id);
+ /* check the array member */
+ if((mem_id = H5Tget_member_type(native_type, 1))<0)
+ TEST_ERROR;
+ if(H5T_ARRAY!=H5Tget_class(mem_id))
+ TEST_ERROR;
+ if((nest_mem_id = H5Tget_super(mem_id))<0)
+ TEST_ERROR;
+ if(H5Tget_order(nest_mem_id) != H5Tget_order(H5T_NATIVE_INT))
+ TEST_ERROR;
+ if(H5Tget_size(nest_mem_id) < H5Tget_size(H5T_STD_I32LE))
+ TEST_ERROR;
+ if(H5T_INTEGER!=H5Tget_class(nest_mem_id))
+ TEST_ERROR;
+ H5Tclose(nest_mem_id);
+ H5Tclose(mem_id);
+
/* check the long long member */
if((mem_id = H5Tget_member_type(native_type, 2))<0)
TEST_ERROR;
@@ -832,7 +848,7 @@ test_compound_dtype3(hid_t file)
if(temp_point->a[k] != temp_check->a[k]) {
H5_FAILED();
printf(" Read different values than written.\n");
- printf(" At index %d,%d\n", i, j);
+ printf(" At index %d,%d,%d\n", i, j, k);
goto error;
}
}