summaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/dtypes.c88
-rw-r--r--test/ntypes.c311
2 files changed, 362 insertions, 37 deletions
diff --git a/test/dtypes.c b/test/dtypes.c
index 8693422..f312909 100644
--- a/test/dtypes.c
+++ b/test/dtypes.c
@@ -2048,6 +2048,93 @@ test_conv_enum_1(void)
/*-------------------------------------------------------------------------
+ * Function: test_conv_enum_2
+ *
+ * Purpose: Tests enumeration conversions where source isn't a native type.
+ *
+ * Return: Success: 0
+ *
+ * Failure: number of errors
+ *
+ * Programmer: Robb Matzke, LLNL, 2003-06-09
+ *
+ * Modifications:
+ *-------------------------------------------------------------------------
+ */
+static int
+test_conv_enum_2(void)
+{
+ hid_t srctype=-1, dsttype=-1, oddsize=-1;
+ int *data=NULL, i, nerrors=0;
+ const char *mname[] = { "RED",
+ "GREEN",
+ "BLUE",
+ "YELLOW",
+ "PINK",
+ "PURPLE",
+ "ORANGE",
+ "WHITE" };
+
+ TESTING("non-native enumeration type conversion");
+
+ /* Source enum type */
+ oddsize = H5Tcopy(H5T_STD_I32BE);
+ H5Tset_size(oddsize, 3); /*reduce to 24 bits, not corresponding to any native size*/
+ srctype = H5Tenum_create(oddsize);
+ for (i=7; i>=0; --i) {
+ char pattern[3];
+ pattern[2] = i;
+ pattern[0] = pattern[1] = 0;
+ H5Tenum_insert(srctype, mname[i], pattern);
+ }
+
+ /* Destination enum type */
+ dsttype = H5Tenum_create(H5T_NATIVE_INT);
+ assert(H5Tget_size(dsttype)>H5Tget_size(srctype));
+ for (i=0; i<8; i++)
+ H5Tenum_insert(dsttype, mname[i], &i);
+
+ /* Source data */
+ data = malloc(NTESTELEM*sizeof(int));
+ for (i=0; i<NTESTELEM; i++) {
+ ((char*)data)[i*3+2] = i % 8;
+ ((char*)data)[i*3+0] = 0;
+ ((char*)data)[i*3+1] = 0;
+ }
+
+ /* Convert to destination type */
+ H5Tconvert(srctype, dsttype, (hsize_t)NTESTELEM, data, NULL, H5P_DEFAULT);
+
+ /* Check results */
+ for (i=0; i<NTESTELEM; i++) {
+ if (data[i] != i%8) {
+ if (!nerrors++) {
+ H5_FAILED();
+ printf("element %d is %d but should have been %d\n",
+ i, data[i], i%8);
+ }
+ }
+ }
+
+ /* Cleanup */
+ free(data);
+ H5Tclose(srctype);
+ H5Tclose(dsttype);
+ H5Tclose(oddsize);
+
+ /* Failure */
+ if (nerrors) {
+ printf("total of %d conversion errors out of %d elements for enums\n",
+ nerrors, NTESTELEM);
+ return 1;
+ }
+
+ PASSED();
+ return 0;
+}
+
+
+/*-------------------------------------------------------------------------
* Function: test_conv_bitfield
*
* Purpose: Test bitfield conversions.
@@ -4146,6 +4233,7 @@ main(void)
nerrors += test_compound_7();
nerrors += test_conv_int ();
nerrors += test_conv_enum_1();
+ nerrors += test_conv_enum_2();
nerrors += test_conv_bitfield();
nerrors += test_opaque();
diff --git a/test/ntypes.c b/test/ntypes.c
index 53276a2..16d31de 100644
--- a/test/ntypes.c
+++ b/test/ntypes.c
@@ -43,6 +43,7 @@ int ipoints3[100][200][5], icheck3[100][200][5];
#define DSET_ARRAY2_NAME "array_type_2"
#define DSET_VL_NAME "vl_type"
#define DSET_VLSTR_NAME "vlstr_type"
+#define DSET_STR_NAME "str_type"
#define DSET_OPAQUE_NAME "opaque_type"
#define DSET_BITFIELD_NAME "bitfield_type"
@@ -277,12 +278,13 @@ test_compound_dtype2(hid_t file)
unsigned long_long l;
} s1;
hid_t dataset, space;
- hid_t dtype, native_type, tid, tid2, tid_m, tid_m2;
+ hid_t dtype, native_type, tid, tid2, tid_m, tid_m2,
+ mem_id, nest_mem_id;
int i, j, n;
hsize_t dims[2];
s1 *temp_point, *temp_check;
s1 *points=NULL, *check=NULL;
- void *tmp;
+ void *tmp, *bkg;
TESTING("nested compound datatype");
@@ -375,14 +377,74 @@ test_compound_dtype2(hid_t file)
if((native_type=H5Tget_native_type(dtype, H5T_DIR_DEFAULT))<0)
TEST_ERROR;
- if(H5Tget_size(native_type) != H5Tget_size(tid_m))
+ /* Verify the datatype of each field retrieved and converted */
+ /* check the char member */
+ if((mem_id = H5Tget_member_type(native_type, 0))<0)
+ TEST_ERROR;
+ if(H5Tget_order(mem_id) != H5Tget_order(H5T_NATIVE_UCHAR))
+ TEST_ERROR;
+ if(H5Tget_size(mem_id) < H5Tget_size(H5T_STD_U8LE))
+ TEST_ERROR;
+ if(H5T_INTEGER!=H5Tget_class(mem_id))
+ TEST_ERROR;
+ H5Tclose(mem_id);
+
+ /* check the integer member */
+ if((mem_id = H5Tget_member_type(native_type, 1))<0)
+ TEST_ERROR;
+ if(H5Tget_order(mem_id) != H5Tget_order(H5T_NATIVE_INT))
+ TEST_ERROR;
+ if(H5Tget_size(mem_id) < H5Tget_size(H5T_STD_I32LE))
+ TEST_ERROR;
+ if(H5T_INTEGER!=H5Tget_class(mem_id))
+ TEST_ERROR;
+ H5Tclose(mem_id);
+
+ /* check the long long member */
+ if((mem_id = H5Tget_member_type(native_type, 3))<0)
TEST_ERROR;
- if(!H5Tequal(native_type, tid_m))
+ if(H5Tget_order(mem_id) != H5Tget_order(H5T_NATIVE_ULLONG))
+ TEST_ERROR;
+ if(H5Tget_size(mem_id) < H5Tget_size(H5T_STD_U64BE))
+ TEST_ERROR;
+ if(H5T_INTEGER!=H5Tget_class(mem_id))
+ TEST_ERROR;
+ H5Tclose(mem_id);
+
+ /* check the nested compound member */
+ if((nest_mem_id = H5Tget_member_type(native_type, 2))<0)
TEST_ERROR;
+ if((mem_id = H5Tget_member_type(nest_mem_id, 0))<0)
+ TEST_ERROR;
+ if(H5Tget_order(mem_id) != H5Tget_order(H5T_NATIVE_SHORT))
+ TEST_ERROR;
+ if(H5Tget_size(mem_id) < H5Tget_size(H5T_STD_I16BE))
+ TEST_ERROR;
+ if(H5T_INTEGER!=H5Tget_class(mem_id))
+ TEST_ERROR;
+ H5Tclose(mem_id);
+
+ if((mem_id = H5Tget_member_type(nest_mem_id, 1))<0)
+ TEST_ERROR;
+ if(H5Tget_order(mem_id) != H5Tget_order(H5T_NATIVE_LONG))
+ TEST_ERROR;
+#if H5_SIZEOF_LONG==4
+ if(H5Tget_size(mem_id) < H5Tget_size(H5T_STD_I32LE)) TEST_ERROR;
+#elif H5_SIZEOF_LONG==8
+ if(H5Tget_size(mem_id) < H5Tget_size(H5T_STD_I64LE)) TEST_ERROR;
+#else
+#error "Unknown 'long' size"
+#endif
+ if(H5T_INTEGER!=H5Tget_class(mem_id))
+ TEST_ERROR;
+ H5Tclose(mem_id);
+
/* Read the dataset back. Temporary buffer is for special platforms like
* Cray */
tmp = malloc(dims[0]*dims[1]*H5Tget_size(native_type));
+ if((bkg=calloc(sizeof(s1),dims[0]*dims[1]))==NULL)
+ TEST_ERROR;
if (H5Dread(dataset, native_type, H5S_ALL, H5S_ALL, H5P_DEFAULT, tmp)<0)
TEST_ERROR;
@@ -390,9 +452,11 @@ test_compound_dtype2(hid_t file)
memcpy(check, tmp, dims[0]*dims[1]*H5Tget_size(native_type));
free(tmp);
- if (H5Tconvert(native_type, tid_m, dims[0]*dims[1], check, NULL, H5P_DEFAULT))
+ if (H5Tconvert(native_type, tid_m, dims[0]*dims[1], check, bkg, H5P_DEFAULT))
TEST_ERROR;
+ free(bkg);
+
/* Check that the values read are the same as the values written */
for (i = 0, temp_point=points, temp_check=check; i < 100; i++) {
for (j = 0; j < 200; j++, temp_point++,temp_check++) {
@@ -461,12 +525,12 @@ test_compound_dtype(hid_t file)
long_long l;
} s1;
hid_t dataset, space;
- hid_t dtype, native_type, tid, tid2;
+ hid_t dtype, native_type, tid, tid2, mem_id;
int i, j, n;
hsize_t dims[2];
s1 *temp_point, *temp_check;
s1 *points, *check;
- void *tmp;
+ void *tmp, *bkg;
TESTING("compound datatype");
@@ -527,15 +591,42 @@ test_compound_dtype(hid_t file)
if((native_type=H5Tget_native_type(dtype, H5T_DIR_DEFAULT))<0)
TEST_ERROR;
+
+ /* Verify the datatype of each field retrieved and converted */
+ if((mem_id = H5Tget_member_type(native_type, 0))<0)
+ TEST_ERROR;
+ if(H5Tget_order(mem_id) != H5Tget_order(H5T_NATIVE_UCHAR))
+ TEST_ERROR;
+ if(H5Tget_size(mem_id) < H5Tget_size(H5T_STD_U8LE))
+ TEST_ERROR;
+ if(H5T_INTEGER!=H5Tget_class(mem_id))
+ TEST_ERROR;
+ H5Tclose(mem_id);
+
+ if((mem_id = H5Tget_member_type(native_type, 1))<0)
+ TEST_ERROR;
+ if(H5Tget_order(mem_id) != H5Tget_order(H5T_NATIVE_UINT))
+ TEST_ERROR;
+ if(H5Tget_size(mem_id) < H5Tget_size(H5T_STD_U32LE))
+ TEST_ERROR;
+ if(H5T_INTEGER!=H5Tget_class(mem_id))
+ TEST_ERROR;
+ H5Tclose(mem_id);
- if(H5Tget_size(native_type) < H5Tget_size(tid2))
+ if((mem_id = H5Tget_member_type(native_type, 2))<0)
TEST_ERROR;
- if(!H5Tequal(native_type, tid2))
+ if(H5Tget_order(mem_id) != H5Tget_order(H5T_NATIVE_LLONG))
TEST_ERROR;
+ if(H5Tget_size(mem_id) < H5Tget_size(H5T_STD_I64BE))
+ TEST_ERROR;
+ if(H5T_INTEGER!=H5Tget_class(mem_id))
+ TEST_ERROR;
+ H5Tclose(mem_id);
/* Read the dataset back. Temporary buffer is for special platforms like
* Cray */
tmp = malloc(dims[0]*dims[1]*H5Tget_size(native_type));
+ bkg = calloc(sizeof(s1),dims[0]*dims[1]);
if (H5Dread(dataset, native_type, H5S_ALL, H5S_ALL, H5P_DEFAULT, tmp)<0)
TEST_ERROR;
@@ -543,9 +634,11 @@ test_compound_dtype(hid_t file)
memcpy(check, tmp, dims[0]*dims[1]*H5Tget_size(native_type));
free(tmp);
- if (H5Tconvert(native_type, tid2, dims[0]*dims[1], check, NULL, H5P_DEFAULT)<0)
+ if (H5Tconvert(native_type, tid2, dims[0]*dims[1], check, bkg, H5P_DEFAULT)<0)
TEST_ERROR;
+ free(bkg);
+
/* Check that the values read are the same as the values written */
for (i = 0, temp_point=points, temp_check=check; i < 100; i++) {
for (j = 0; j < 200; j++, temp_point++,temp_check++) {
@@ -605,15 +698,16 @@ test_compound_dtype3(hid_t file)
long_long l;
} s1;
hid_t dataset, space;
- hid_t dtype, native_type, tid, tid2, tid_m, tid_m2;
+ hid_t dtype, native_type, tid, tid2, tid_m, tid_m2,
+ mem_id, nest_mem_id;
hsize_t array_dims[1]={5};
int i, j, k, n;
hsize_t dims[2];
s1 *temp_point, *temp_check;
s1 *points=NULL, *check=NULL;
- void *tmp;
+ void *tmp, *bkg;
- TESTING("compound datatype");
+ TESTING("compound datatype with array as field");
/* Allocate space for the points & check arrays */
if((points=malloc(sizeof(s1)*100*200))==NULL)
@@ -682,25 +776,47 @@ test_compound_dtype3(hid_t file)
if((native_type=H5Tget_native_type(dtype, H5T_DIR_DEFAULT))<0)
TEST_ERROR;
+
+ /* Verify the datatype of each field retrieved and converted */
+ /* check the char member */
+ if((mem_id = H5Tget_member_type(native_type, 0))<0)
+ TEST_ERROR;
+ if(H5Tget_order(mem_id) != H5Tget_order(H5T_NATIVE_UCHAR))
+ TEST_ERROR;
+ if(H5Tget_size(mem_id) < H5Tget_size(H5T_STD_U8LE))
+ TEST_ERROR;
+ if(H5T_INTEGER!=H5Tget_class(mem_id))
+ TEST_ERROR;
+ H5Tclose(mem_id);
- if(H5Tget_size(native_type) != H5Tget_size(tid_m))
+ /* check the long long member */
+ if((mem_id = H5Tget_member_type(native_type, 2))<0)
TEST_ERROR;
- if(!H5Tequal(native_type, tid_m))
+ if(H5Tget_order(mem_id) != H5Tget_order(H5T_NATIVE_LLONG))
TEST_ERROR;
-
+ if(H5Tget_size(mem_id) < H5Tget_size(H5T_STD_I64BE))
+ TEST_ERROR;
+ if(H5T_INTEGER!=H5Tget_class(mem_id))
+ TEST_ERROR;
+ H5Tclose(mem_id);
+
/* Read the dataset back. Temporary buffer is for special platforms like
* Cray */
tmp = malloc(dims[0]*dims[1]*H5Tget_size(native_type));
-
+ if((bkg=calloc(sizeof(s1),dims[0]*dims[1]))==NULL)
+ TEST_ERROR;
+
if (H5Dread(dataset, native_type, H5S_ALL, H5S_ALL, H5P_DEFAULT, tmp)<0)
TEST_ERROR;
memcpy(check, tmp, dims[0]*dims[1]*H5Tget_size(native_type));
free(tmp);
- if (H5Tconvert(native_type, tid_m, dims[0]*dims[1], check, NULL, H5P_DEFAULT))
+ if (H5Tconvert(native_type, tid_m, dims[0]*dims[1], check, bkg, H5P_DEFAULT))
TEST_ERROR;
+ free(bkg);
+
/* Check that the values read are the same as the values written */
for (i = 0, temp_point=points, temp_check=check; i < 100; i++) {
for (j = 0; j < 200; j++, temp_point++,temp_check++) {
@@ -766,6 +882,7 @@ test_enum_dtype(hid_t file)
hsize_t dims[2];
void *tmp;
short colors[8];
+ unsigned char sub_colors[16];
const char *mname[] = { "RED",
"GREEN",
"BLUE",
@@ -792,9 +909,9 @@ test_enum_dtype(hid_t file)
if((tid=H5Tenum_create(H5T_STD_I16LE))<0) TEST_ERROR;
for (i = 0; i < 8; i++) {
- colors[i] = i;
-
- if(H5Tenum_insert(tid, mname[i], &(colors[i]))<0) TEST_ERROR;
+ sub_colors[i*2]=i;
+ sub_colors[i*2+1]=0;
+ if(H5Tenum_insert(tid, mname[i], &(sub_colors[i*2]))<0) TEST_ERROR;
}
/* Create the dataset */
@@ -830,9 +947,6 @@ test_enum_dtype(hid_t file)
if((native_type=H5Tget_native_type(dtype, H5T_DIR_DEFAULT))<0)
TEST_ERROR;
- if(!H5Tequal(native_type, tid_m))
- TEST_ERROR;
-
/* Read the dataset back. Temporary buffer is for special platforms like
* Cray */
tmp = malloc(dims[0]*dims[1]*H5Tget_size(native_type));
@@ -853,6 +967,8 @@ test_enum_dtype(hid_t file)
H5_FAILED();
printf(" Read different values than written.\n");
printf(" At index %d,%d\n", i, j);
+ printf(" spoints2[i][j]=%hd, scheck2[i][j]=%hd\n", spoints2[i][j],
+ scheck2[i][j]);
goto error;
}
}
@@ -970,8 +1086,6 @@ test_array_dtype(hid_t file)
if((native_type=H5Tget_native_type(dtype, H5T_DIR_DEFAULT))<0)
TEST_ERROR;
- if(!H5Tequal(tid_m, native_type)) TEST_ERROR;
-
/* Read the dataset back. Temporary buffer is for special platforms like
* Cray */
tmp = malloc(space_dims[0]*space_dims[1]*H5Tget_size(native_type));
@@ -1095,8 +1209,6 @@ test_array_dtype2(hid_t file)
if((native_type=H5Tget_native_type(dtype, H5T_DIR_DEFAULT))<0)
TEST_ERROR;
- if(!H5Tequal(tid_m, native_type)) TEST_ERROR;
-
/* Read the dataset back. Temporary buffer is for special platforms like
* Cray */
tmp = malloc(space_dims[0]*space_dims[1]*H5Tget_size(native_type));
@@ -1163,9 +1275,10 @@ test_vl_dtype(hid_t file)
hvl_t *t1, *t2; /* Temporary pointer to VL information */
hsize_t dims1[] = {SPACE1_DIM1};
hid_t dataset, space;
- hid_t dtype, native_type, tid, tid2, tid_m, tid_m2;
+ hid_t dtype, native_type, nat_super_type, tid, tid2, tid_m, tid_m2;
size_t i, j, k;
-
+ void* *tmp;
+
TESTING("variable length datatype");
/* Allocate and initialize VL data to write */
@@ -1185,8 +1298,9 @@ test_vl_dtype(hid_t file)
goto error;
} /* end if */
t1->len=j+1;
- for(k=0; k<(j+1); k++)
+ for(k=0; k<(j+1); k++) {
((unsigned int *)t1->p)[k]=(unsigned int)(i*100+j*10+k);
+ }
} /* end for */
} /* end for */
@@ -1222,15 +1336,18 @@ test_vl_dtype(hid_t file)
/* Open a dataset */
if((dataset=H5Dopen(file, DSET_VL_NAME))<0) TEST_ERROR;
- /* Get datatype for dataset */
+ /* Get native datatype for dataset */
if((dtype = H5Dget_type(dataset))<0) TEST_ERROR;
if((native_type=H5Tget_native_type(dtype, H5T_DIR_DEFAULT))<0)
TEST_ERROR;
-
- if(!H5Tequal(native_type, tid_m))
+
+ /* Also get native base type for this nested VL type. Should be an integer type. */
+ if((nat_super_type=H5Tget_super(native_type))<0)
TEST_ERROR;
-
+ if((nat_super_type=H5Tget_super(nat_super_type))<0)
+ TEST_ERROR;
+
/* Read dataset from disk */
if(H5Dread(dataset,native_type,H5S_ALL,H5S_ALL,H5P_DEFAULT,rdata)<0) TEST_ERROR;
@@ -1247,13 +1364,25 @@ test_vl_dtype(hid_t file)
printf(" VL data length don't match!, wdata[%d].len=%d, rdata[%d].len=%d\n",(int)i,(int)wdata[i].len,(int)i,(int)rdata[i].len);
goto error;
} /* end if */
+
+ /* use temporary buffer to convert datatype. This is for special
+ * platforms like Cray */
+ tmp=malloc(t2->len*sizeof(unsigned int));
+ memcpy(tmp, t2->p, t2->len*H5Tget_size(nat_super_type));
+
+ if (H5Tconvert(nat_super_type, H5T_NATIVE_UINT, t2->len, tmp, NULL, H5P_DEFAULT))
+ TEST_ERROR;
+
for(k=0; k<t2->len; k++) {
- if( ((unsigned int *)t1->p)[k] != ((unsigned int *)t2->p)[k] ) {
+ if( ((unsigned int *)t1->p)[k] != ((unsigned int *)tmp)[k] ) {
H5_FAILED();
- printf(" VL data length don't match!, wdata[%d].len=%d, rdata[%d].len=%d\n",(int)i,(int)wdata[i].len,(int)i,(int)rdata[i].len);
+ printf(" VL data don't match!, wdata[%d].p=%d, rdata[%d].p=%d\n",
+ i,((unsigned int*)t1->p)[k],i,(unsigned int*)tmp[k]);
goto error;
}
} /* end for */
+
+ free(tmp);
} /* end for */
} /* end for */
@@ -1395,6 +1524,113 @@ error:
/*-------------------------------------------------------------------------
+ * Function: test_str_dtype
+ *
+ * Purpose: Test H5Tget_native_type for fixed-length string datatype
+ *
+ * Return: Success: 0
+ *
+ * Failure: -1
+ *
+ * Programmer: Raymond Lu
+ * October 15, 2002
+ *
+ * Modifications:
+ *
+ *-------------------------------------------------------------------------
+ */
+static herr_t
+test_str_dtype(hid_t file)
+{
+ const char wdata[SPACE1_DIM1][4]= {
+ "one",
+ "two",
+ "3rd",
+ "4th"
+ }; /* Information to write */
+ char rdata[SPACE1_DIM1][4]; /* Information read in */
+ hid_t dataset; /* Dataset ID */
+ hid_t sid1; /* Dataspace ID */
+ hid_t tid1,dtype,native_type; /* Datatype ID */
+ hsize_t dims1[] = {SPACE1_DIM1};
+ unsigned i; /* counting variable */
+
+ /* Output message about test being performed */
+ TESTING("fixed-length string datatype");
+
+ /* Create dataspace for datasets */
+ if((sid1 = H5Screate_simple(SPACE1_RANK, dims1, NULL))<0) TEST_ERROR;
+
+ /* Create a datatype to refer to */
+ if((tid1 = H5Tcopy (H5T_C_S1))<0) TEST_ERROR;
+
+ if(H5Tset_size (tid1,4)<0) TEST_ERROR;
+ if(H5T_STRING!=H5Tget_class(tid1))
+ TEST_ERROR;
+
+ /* Create a dataset */
+ if((dataset=H5Dcreate(file,DSET_STR_NAME,tid1,sid1,H5P_DEFAULT))<0) TEST_ERROR;
+
+ /* Write dataset to disk */
+ if(H5Dwrite(dataset,tid1,H5S_ALL,H5S_ALL,H5P_DEFAULT,wdata)<0) TEST_ERROR;
+
+ /* Close Dataset */
+ if(H5Dclose(dataset)<0) TEST_ERROR;
+
+ /* Open a dataset */
+ if((dataset=H5Dopen(file, DSET_STR_NAME))<0) TEST_ERROR;
+
+ /* Get datatype for dataset */
+ if((dtype = H5Dget_type(dataset))<0) TEST_ERROR;
+
+ /* Construct native type */
+ if((native_type=H5Tget_native_type(dtype, H5T_DIR_DEFAULT))<0)
+ TEST_ERROR;
+
+ /* Check if the data type is equal */
+ if(!H5Tequal(native_type, tid1) || H5T_STRING!=H5Tget_class(native_type))
+ TEST_ERROR;
+
+ /* Read dataset from disk */
+ if(H5Dread(dataset,native_type,H5S_ALL,H5S_ALL,H5P_DEFAULT,rdata)<0) TEST_ERROR;
+
+ /* Compare data read in */
+ for(i=0; i<SPACE1_DIM1; i++) {
+ if(strlen(wdata[i])!=strlen(rdata[i])) {
+ H5_FAILED();
+ printf(" data length don't match!, strlen(wdata[%d])=%d, strlen(rdata[%d])=%d\n",
+ (int)i,(int)strlen(wdata[i]),(int)i,(int)strlen(rdata[i]));
+ goto error;
+ } /* end if */
+ if( strcmp(wdata[i],rdata[i]) != 0 ) {
+ H5_FAILED();
+ printf(" data values don't match!, wdata[%d]=%s, rdata[%d]=%s\n",
+ (int)i,wdata[i],(int)i,rdata[i]);
+ goto error;
+ } /* end if */
+ } /* end for */
+
+ /* Close Dataset */
+ if(H5Dclose(dataset)<0) TEST_ERROR;
+
+ /* Close datatype */
+ if(H5Tclose(tid1)<0) TEST_ERROR;
+ if(H5Tclose(native_type)<0) TEST_ERROR;
+
+ /* Close disk dataspace */
+ if(H5Sclose(sid1)<0) TEST_ERROR;
+
+ PASSED();
+ return 0;
+
+error:
+ return -1;
+} /* end test_str_dtype() */
+
+
+
+
+/*-------------------------------------------------------------------------
* Function: test_refer_dtype
*
* Purpose: Test H5Tget_native_type for reference datatype
@@ -1932,6 +2168,7 @@ main(void)
nerrors += test_array_dtype2(file)<0 ?1:0;
nerrors += test_vl_dtype(file)<0 ?1:0;
nerrors += test_vlstr_dtype(file)<0 ?1:0;
+ nerrors += test_str_dtype(file)<0 ?1:0;
nerrors += test_refer_dtype(file)<0 ?1:0;
nerrors += test_refer_dtype2(file)<0 ?1:0;
nerrors += test_opaque_dtype(file)<0 ?1:0;