From a2ffe933e6f966179236198a8357ba68dbfc34e1 Mon Sep 17 00:00:00 2001 From: Quincey Koziol Date: Tue, 24 Jun 2003 15:12:08 -0500 Subject: [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) --- test/ntypes.c | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) 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; } } -- cgit v0.12