diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2003-06-24 20:12:08 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2003-06-24 20:12:08 (GMT) |
| commit | a2ffe933e6f966179236198a8357ba68dbfc34e1 (patch) | |
| tree | 2f965594387e936880421d9c1a0464a5a43df086 | |
| parent | e3a8e61c26cd280a74d27340ade9d34a51fdde94 (diff) | |
| download | hdf5-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.c | 18 |
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; } } |