[svn-r13144] Added a test case for VL type of compound type with VL string in the field.

1 files changed, 287 insertions, 0 deletions

diff --git a/test/tvltypes.c b/test/tvltypes.c
index 7ebe96c..817ebfc 100644
--- a/test/tvltypes.c
+++ b/test/tvltypes.c
@@ -40,6 +40,7 @@
 #define SPACE3_DIM1     128
 #define L1_INCM         16
 #define L2_INCM         8
+#define L3_INCM         2
 
 void *test_vltypes_alloc_custom(size_t size, void *info);
 void test_vltypes_free_custom(void *mem, void *info);
@@ -1154,6 +1155,291 @@ test_vltypes_compound_vlen_vlen(void)
 
 /****************************************************************
 **
+**  test_vltypes_compound_vlstr(): Test VL datatype code.
+**      Tests VL datatypes of compound datatypes with VL string.
+**
+****************************************************************/
+static void
+test_vltypes_compound_vlstr(void)
+{
+    typedef enum {
+	red,
+	blue,
+	green
+    } e1;
+    typedef struct {
+        char *string;
+	e1   color;
+    } s2;
+    typedef struct {                    /* Struct that the compound type are composed of */
+        hvl_t v;
+    } s1;
+    s1 wdata[SPACE1_DIM1];              /* data to write */
+    s1 wdata2[SPACE1_DIM1];             /* data to write */
+    s1 rdata[SPACE1_DIM1];              /* data to read */
+    s1 rdata2[SPACE1_DIM1];              /* data to read */
+    char	str[64] = "a\0";
+    hid_t	fid1;		        /* HDF5 File IDs		*/
+    hid_t	dataset, dset2;	        /* Dataset ID			*/
+    hid_t	sid1, sid2, filespace;                   /* Dataspace ID			*/
+    hid_t	tid1, tid2, tid3, tid4, tid5;       /* Datatype IDs         */
+    hid_t	cparms;
+    hsize_t	dims1[] = {SPACE1_DIM1};
+    hsize_t	chunk_dims[] = {SPACE1_DIM1/2};
+    hsize_t	maxdims[] = {H5S_UNLIMITED};
+    hsize_t	size[] = {SPACE1_DIM1};
+    hsize_t	offset[] = {0};
+    unsigned    i,j,k;                  /* counting variables */
+    s2          *t1, *t2;               /* Temporary pointer to VL information */
+    int		val;
+    herr_t	ret;		        /* Generic return value		*/
+
+    /* Output message about test being performed */
+    MESSAGE(5, ("Testing VL Datatype of Compound Datatype with VL String Functionality\n"));
+
+    /* Allocate and initialize VL data to write */
+    for(i=0; i<SPACE1_DIM1; i++) {
+        wdata[i].v.p=(s2*)HDmalloc((i+L3_INCM)*sizeof(s2));
+        wdata[i].v.len=i+L3_INCM;
+        for(t1=(wdata[i].v).p, j=0; j<(i+L3_INCM); j++, t1++) {
+	    strcat(str, "m");
+	    t1->string = (char*)HDmalloc(strlen(str)*sizeof(char)+1);
+            strcpy(t1->string, str);
+	    t1->color = red;
+        }
+    } /* end for */
+
+    /* Create file */
+    fid1 = H5Fcreate(FILENAME, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT);
+    CHECK(fid1, FAIL, "H5Fcreate");
+
+    /* Create dataspace for datasets */
+    sid1 = H5Screate_simple(SPACE1_RANK, dims1, maxdims);
+    CHECK(sid1, FAIL, "H5Screate_simple");
+
+    /* Create a VL string type*/
+    tid4 = H5Tcopy (H5T_C_S1);
+    CHECK(tid4, FAIL, "H5Tcopy");
+    ret = H5Tset_size (tid4,H5T_VARIABLE);
+    CHECK(ret, FAIL, "H5Tset_size");
+
+    /* Create an enum type */
+    tid3 = H5Tenum_create(H5T_STD_I32BE);
+    val = 0;
+    ret = H5Tenum_insert(tid3, "RED", &val);
+    CHECK(ret, FAIL, "H5Tenum_insert");
+    val = 1;
+    ret = H5Tenum_insert(tid3, "BLUE", &val);
+    CHECK(ret, FAIL, "H5Tenum_insert");
+    val = 2;
+    ret = H5Tenum_insert(tid3, "GREEN", &val);
+    CHECK(ret, FAIL, "H5Tenum_insert");
+
+    /* Create the first layer compound type */
+    tid5 = H5Tcreate(H5T_COMPOUND, sizeof(s2));
+    CHECK(tid5, FAIL, "H5Tcreate");
+    /* Insert fields */
+    ret=H5Tinsert(tid5, "string", HOFFSET(s2, string), tid4);
+    CHECK(ret, FAIL, "H5Tinsert");
+    /* Insert fields */
+    ret=H5Tinsert(tid5, "enumerate", HOFFSET(s2, color), tid3);
+    CHECK(ret, FAIL, "H5Tinsert");
+
+
+    /* Create a VL datatype of first layer compound type */
+    tid1 = H5Tvlen_create (tid5);
+    CHECK(tid1, FAIL, "H5Tvlen_create");
+
+    /* Create the base compound type */
+    tid2 = H5Tcreate(H5T_COMPOUND, sizeof(s1));
+    CHECK(tid2, FAIL, "H5Tcreate");
+
+    /* Insert fields */
+    ret=H5Tinsert(tid2, "v", HOFFSET(s1, v), tid1);
+    CHECK(ret, FAIL, "H5Tinsert");
+
+    /* Modify dataset creation properties, i.e. enable chunking  */
+    cparms = H5Pcreate (H5P_DATASET_CREATE);
+    ret = H5Pset_chunk ( cparms, SPACE1_RANK, chunk_dims);
+    CHECK(ret, FAIL, "H5Pset_chunk");
+
+    /* Create a dataset */
+    dataset=H5Dcreate(fid1,"Dataset1",tid2,sid1,cparms);
+    CHECK(dataset, FAIL, "H5Dcreate");
+
+    /* Extend the dataset. This call assures that dataset is 4.*/
+    ret = H5Dextend (dataset, size);
+    CHECK(ret, FAIL, "H5Dextend");
+
+    /* Select a hyperslab  */
+    filespace = H5Dget_space (dataset);
+    ret = H5Sselect_hyperslab (filespace, H5S_SELECT_SET, offset, NULL,
+                                  dims1, NULL);
+    CHECK(ret, FAIL, "H5Sselect_hyperslab");
+
+    /* Write dataset to disk */
+    ret=H5Dwrite(dataset,tid2,sid1,filespace,H5P_DEFAULT,wdata);
+    CHECK(ret, FAIL, "H5Dwrite");
+
+    ret=H5Fflush(fid1,H5F_SCOPE_GLOBAL);
+    CHECK(ret, FAIL, "H5Fflush");
+
+
+    dset2=H5Dopen(fid1,"Dataset1");
+    CHECK(dset2, FAIL, "H5Dopen");
+
+    /* Read dataset from disk */
+    ret=H5Dread(dset2,tid2,H5S_ALL,H5S_ALL,H5P_DEFAULT,rdata);
+    CHECK(ret, FAIL, "H5Dread");
+
+    /* Compare data read in */
+    for(i=0; i<SPACE1_DIM1; i++) {
+        if(wdata[i].v.len!=rdata[i].v.len) {
+            TestErrPrintf("%d: VL data length don't match!, wdata[%d].v.len=%d, rdata[%d].v.len=%d\n",__LINE__,(int)i,(int)wdata[i].v.len,(int)i,(int)rdata[i].v.len);
+            continue;
+        } /* end if */
+
+        for(t1=wdata[i].v.p, t2=rdata[i].v.p, j=0; j<rdata[i].v.len; j++, t1++, t2++) {
+                if( strcmp(t1->string, t2->string) ) {
+                    TestErrPrintf("VL data values don't match!, t1->string=%s, t2->string=%s\n",t1->string, t2->string);
+                    continue;
+                } /* end if */
+                if(t1->color != t2->color) {
+                    TestErrPrintf("VL data values don't match!, t1->color=%d, t2->color=%d\n",t1->color, t2->color);
+                    continue;
+                } /* end if */
+        } /* end for */
+    } /* end for */
+
+    /* Reclaim the VL data */
+    ret=H5Dvlen_reclaim(tid2,sid1,H5P_DEFAULT,rdata);
+    CHECK(ret, FAIL, "H5Dvlen_reclaim");
+
+    /* Reclaim the write VL data */
+    ret=H5Dvlen_reclaim(tid2,sid1,H5P_DEFAULT,wdata);
+    CHECK(ret, FAIL, "H5Dvlen_reclaim");
+
+#ifdef TMP
+    for(i=0; i<SPACE1_DIM1; i++) {
+        wdata[i].v.p=(s2*)HDmalloc((i+L3_INCM)*sizeof(s2));
+        wdata[i].v.len=i+L3_INCM;
+        for(t1=(wdata[i].v).p, j=0; j<(i+L3_INCM); j++, t1++) {
+	    strcat(str, "n");
+	    t1->string = (char*)HDmalloc(strlen(str)*sizeof(char)+1);
+            strcpy(t1->string, str);
+	    t1->color = blue;
+        }
+    } /* end for */
+#else
+    /* Use this part for new data */
+    strcpy(str, "b\0");
+    for(i=0; i<SPACE1_DIM1; i++) {
+        wdata2[i].v.p=(s2*)HDmalloc(sizeof(s2));
+        wdata2[i].v.len=1;
+        for(t1=(s2*)(wdata2[i].v).p, j=0; j<1; j++, t1++) {
+	    strcat(str, "p");
+	    t1->string = (char*)HDmalloc(strlen(str)*sizeof(char)+1);
+            strcpy(t1->string, str);
+	    t1->color = green;
+        }
+    } /* end for */
+#endif /*TMP*/
+
+    /* Select a hyperslab  */
+    filespace = H5Dget_space (dset2);
+    ret = H5Sselect_hyperslab (filespace, H5S_SELECT_SET, offset, NULL,
+                                  dims1, NULL);
+    CHECK(ret, FAIL, "H5Sselect_hyperslab");
+
+    /* Create dataspace for datasets */
+    sid2 = H5Screate_simple(SPACE1_RANK, dims1, NULL);
+    CHECK(sid1, FAIL, "H5Screate_simple");
+
+    /* Write dataset to disk */
+    ret=H5Dwrite(dset2,tid2,sid2,filespace,H5P_DEFAULT, &wdata2);
+    CHECK(ret, FAIL, "H5Dwrite");
+
+    /* Read dataset from disk */
+    ret=H5Dread(dset2,tid2,H5S_ALL,H5S_ALL,H5P_DEFAULT,rdata2);
+    CHECK(ret, FAIL, "H5Dread");
+
+    /* Compare data read in */
+    for(i=0; i<SPACE1_DIM1; i++) {
+        if(wdata2[i].v.len!=rdata2[i].v.len) {
+            TestErrPrintf("%d: VL data length don't match!, wdata2[%d].v.len=%d, rdata2[%d].v.len=%d\n",__LINE__,(int)i,(int)wdata2[i].v.len,(int)i,(int)rdata2[i].v.len);
+            continue;
+        } /* end if */
+
+        for(t1=wdata2[i].v.p, t2=rdata2[i].v.p, j=0; j<rdata2[i].v.len; j++, t1++, t2++) {
+                if( strcmp(t1->string, t2->string) ) {
+                    TestErrPrintf("VL data values don't match!, t1->string=%s, t2->string=%s\n",t1->string, t2->string);
+                    continue;
+                } /* end if */
+                if(t1->color != t2->color) {
+                    TestErrPrintf("VL data values don't match!, t1->color=%d, t2->color=%d\n",t1->color, t2->color);
+                    continue;
+                } /* end if */
+        } /* end for */
+    } /* end for */
+
+    /* Reclaim the write VL data */
+    ret=H5Dvlen_reclaim(tid2,sid1,H5P_DEFAULT,wdata2);
+    CHECK(ret, FAIL, "H5Dvlen_reclaim");
+
+    /* Reclaim the VL data */
+    ret=H5Dvlen_reclaim(tid2,sid1,H5P_DEFAULT,rdata2);
+    CHECK(ret, FAIL, "H5Dvlen_reclaim");
+
+    /* Close Dataset */
+    ret = H5Dclose(dataset);
+    CHECK(ret, FAIL, "H5Dclose");
+
+    ret = H5Dclose(dset2);
+    CHECK(ret, FAIL, "H5Dclose");
+
+    /* Close disk dataspace */
+    ret = H5Sclose(sid1);
+    CHECK(ret, FAIL, "H5Sclose");
+
+    /* Close disk dataspace */
+    ret = H5Sclose(sid2);
+    CHECK(ret, FAIL, "H5Sclose");
+
+    /* Close disk dataspace */
+    ret = H5Sclose(filespace);
+    CHECK(ret, FAIL, "H5Sclose");
+
+    /* Close datatype */
+    ret = H5Tclose(tid4);
+    CHECK(ret, FAIL, "H5Tclose");
+
+    /* Close datatype */
+    ret = H5Tclose(tid5);
+    CHECK(ret, FAIL, "H5Tclose");
+
+    /* Close datatype */
+    ret = H5Tclose(tid3);
+    CHECK(ret, FAIL, "H5Tclose");
+
+    /* Close datatype */
+    ret = H5Tclose(tid2);
+    CHECK(ret, FAIL, "H5Tclose");
+
+    /* Close datatype */
+    ret = H5Tclose(tid1);
+    CHECK(ret, FAIL, "H5Tclose");
+
+    /* Close Property list */
+    ret = H5Pclose(cparms);
+    CHECK(ret, FAIL, "H5Pclose");
+
+    /* Close file */
+    ret = H5Fclose(fid1);
+    CHECK(ret, FAIL, "H5Fclose");
+} /* end test_vltypes_compound_vlstr() */
+
+/****************************************************************
+**
 **  test_vltypes_compound_vlen_atomic(): Test basic VL datatype code.
 **      Tests compound datatypes with VL datatypes of atomic datatypes.
 **
@@ -2113,6 +2399,7 @@ test_vltypes(void)
     rewrite_longer_vltypes_vlen_vlen_atomic();  /*overwrite with VL data of longer sequence*/
     rewrite_shorter_vltypes_vlen_vlen_atomic();  /*overwrite with VL data of shorted sequence*/
     test_vltypes_compound_vlen_vlen(); /* Test compound datatypes with VL atomic components */
+    test_vltypes_compound_vlstr(); /* Test VL of compound datatype with VL string components */
 }   /* test_vltypes() */