diff options
| -rw-r--r-- | test/ref.c | 310 |
1 files changed, 154 insertions, 156 deletions
@@ -22,7 +22,7 @@ * Group2 * Dataset4 * Hard link to group1 - * Datatset5 + * Dataset5 * Datatype1 * * The purpose of the hard link to make sure that the reference lookup code @@ -33,259 +33,257 @@ #define FILE2 "trefer2.h5" /* 1-D dataset with fixed dimensions */ -#define SPACE1_NAME "Space1" #define SPACE1_RANK 1 -#define SPACE1_DIM1 8 - -/* 2-D dataset with fixed dimensions */ -#define SPACE2_NAME "Space2" -#define SPACE2_RANK 2 -#define SPACE2_DIM1 10 -#define SPACE2_DIM2 10 +#define SPACE1_DIM1 7 int -main(void) { - hid_t fid1, fid2; /* HDF5 File IDs */ - hid_t dataset; /* Dataset ID */ - hid_t group, group2; /* Group ID */ - hid_t sid1, sid2; /* Dataspace ID */ - hid_t tid1; /* Datatype ID */ - hid_t ref; - hsize_t dims1[] = {SPACE1_DIM1}; - hsize_t dims2[] = {SPACE2_DIM1, SPACE2_DIM2}; - hsize_t start[SPACE2_RANK]; /* Starting location of hyperslab */ - hsize_t stride[SPACE2_RANK]; /* Stride of hyperslab */ - hsize_t count[SPACE2_RANK]; /* Element count of hyperslab */ - hsize_t block[SPACE2_RANK]; /* Block size of hyperslab */ - - hobj_ref_t *wbuf; /* buffer to write to disk */ - int *tu32; /* Temporary pointer to int data */ - int i; /* counting variables */ - const char *write_comment="Foo!"; /* Comments for group */ - herr_t ret; /* Generic return value */ - char buf[100] = {0}; - -/* Compound datatype */ -typedef struct s1_t { - unsigned int a; - unsigned int b; - float c; -} s1_t; - - /* Allocate write buffers */ - wbuf=(hobj_ref_t *)malloc(sizeof(hobj_ref_t)*SPACE1_DIM1); - tu32=malloc(sizeof(int)*SPACE1_DIM1); - - /* Create file */ - fid1 = H5Fcreate(FILE1, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT); - fid2 = H5Fcreate(FILE2, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT); +main(void) +{ + hid_t fid1, fid2; /* HDF5 File IDs */ + hid_t dataset; /* Dataset ID */ + hid_t group, group2; /* Group ID */ + hid_t sid1; /* Dataspace ID */ + hid_t tid1; /* Datatype ID */ + hid_t ref; + hsize_t dims1[] = {SPACE1_DIM1}; + hobj_ref_t wbuf[SPACE1_DIM1]; /* Buffer to write to disk */ + int tu32[SPACE1_DIM1]; /* Int data */ + int i; /* counting variables */ + char buf[100]; + + /* Compound datatype */ + typedef struct s1_t { + unsigned int a; + unsigned int b; + float c; + } s1_t; + + /* Create files */ + if((fid1 = H5Fcreate(FILE1, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) + TEST_ERROR + if((fid2 = H5Fcreate(FILE2, H5F_ACC_TRUNC, H5P_DEFAULT, H5P_DEFAULT)) < 0) + TEST_ERROR /* Create dataspace for datasets */ - sid1 = H5Screate_simple(SPACE1_RANK, dims1, NULL); - sid2 = H5Screate_simple(SPACE2_RANK, dims2, NULL); + if((sid1 = H5Screate_simple(SPACE1_RANK, dims1, NULL)) < 0) + TEST_ERROR /* Create a group */ - group=H5Gcreate(fid1,"Group1",-1); - - /* Set group's comment */ - ret=H5Gset_comment(group,".",write_comment); + if((group = H5Gcreate(fid1, "Group1", (size_t)0)) < 0) + TEST_ERROR /* Create a single dataset inside the second file, which will be mounted * and used to mask objects in the first file */ - dataset=H5Dcreate(fid2,"Dataset1",H5T_STD_U32LE,sid1,H5P_DEFAULT); - ret = H5Dclose(dataset); + if((dataset = H5Dcreate(fid2, "Dataset1", H5T_STD_U32LE, sid1, H5P_DEFAULT)) < 0) + TEST_ERROR + if(H5Dclose(dataset) < 0) + TEST_ERROR /* Create a dataset (inside Group1) */ - dataset=H5Dcreate(group,"Dataset1",H5T_STD_U32LE,sid1,H5P_DEFAULT); + if((dataset = H5Dcreate(group, "Dataset1", H5T_STD_U32LE, sid1, H5P_DEFAULT)) < 0) + TEST_ERROR - for(i=0; i < SPACE1_DIM1; i++) - tu32[i] = i*3; + /* Initialize data buffer */ + for(i = 0; i < SPACE1_DIM1; i++) + tu32[i] = i * 3; /* Write selection to disk */ - ret=H5Dwrite(dataset,H5T_NATIVE_INT,H5S_ALL,H5S_ALL,H5P_DEFAULT,tu32); + if(H5Dwrite(dataset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, tu32) < 0) + TEST_ERROR /* Close Dataset */ - ret = H5Dclose(dataset); + if(H5Dclose(dataset) < 0) + TEST_ERROR /* Create another dataset (inside Group1) */ - dataset=H5Dcreate(group,"Dataset2",H5T_NATIVE_UCHAR,sid1,H5P_DEFAULT); + if((dataset = H5Dcreate(group, "Dataset2", H5T_NATIVE_UCHAR, sid1, H5P_DEFAULT)) < 0) + TEST_ERROR /* Close Dataset */ - ret = H5Dclose(dataset); + if(H5Dclose(dataset) < 0) + TEST_ERROR /* Create a datatype to refer to */ - tid1 = H5Tcreate (H5T_COMPOUND, sizeof(s1_t)); + if((tid1 = H5Tcreate(H5T_COMPOUND, sizeof(s1_t))) < 0) + TEST_ERROR /* Insert fields */ - ret=H5Tinsert (tid1, "a", HOFFSET(s1_t,a), H5T_NATIVE_INT); - - ret=H5Tinsert (tid1, "b", HOFFSET(s1_t,b), H5T_NATIVE_INT); - - ret=H5Tinsert (tid1, "c", HOFFSET(s1_t,c), H5T_NATIVE_FLOAT); + if(H5Tinsert(tid1, "a", HOFFSET(s1_t,a), H5T_NATIVE_INT) < 0) + TEST_ERROR + if(H5Tinsert(tid1, "b", HOFFSET(s1_t,b), H5T_NATIVE_INT) < 0) + TEST_ERROR + if(H5Tinsert(tid1, "c", HOFFSET(s1_t,c), H5T_NATIVE_FLOAT) < 0) + TEST_ERROR /* Save datatype for later */ - ret=H5Tcommit (group, "Datatype1", tid1); + if(H5Tcommit(group, "Datatype1", tid1) < 0) + TEST_ERROR /* Close datatype */ - ret = H5Tclose(tid1); + if(H5Tclose(tid1) < 0) + TEST_ERROR /* Create a new group in group1 */ - group2=H5Gcreate(group,"Group2",-1); + if((group2 = H5Gcreate(group, "Group2", (size_t)0)) < 0) + TEST_ERROR /* Create a hard link to group1 in group2 */ - if(H5Glink(fid1, H5G_LINK_HARD, "/Group1", "/Group1/Group2/Link")<0) - H5_FAILED(); + if(H5Glink(fid1, H5G_LINK_HARD, "/Group1", "/Group1/Group2/Link") < 0) + TEST_ERROR /* Create dataset in that group */ - dataset=H5Dcreate(group2,"Dataset4",H5T_NATIVE_UCHAR,sid1,H5P_DEFAULT); + if((dataset = H5Dcreate(group2, "Dataset4", H5T_NATIVE_UCHAR, sid1, H5P_DEFAULT)) < 0) + TEST_ERROR /* Close Dataset */ - ret = H5Dclose(dataset); + if(H5Dclose(dataset) < 0) + TEST_ERROR /* Close group */ - ret = H5Gclose(group); - ret = H5Gclose(group2); + if(H5Gclose(group) < 0) + TEST_ERROR + if(H5Gclose(group2) < 0) + TEST_ERROR /* Open up that hard link and make a new dataset there */ - group = H5Gopen(fid1, "/Group1/Group2/Link"); - dataset=H5Dcreate(group,"Dataset5",H5T_NATIVE_UCHAR,sid1,H5P_DEFAULT); - - ret = H5Dclose(dataset); - ret = H5Gclose(group); + if((group = H5Gopen(fid1, "/Group1/Group2/Link")) < 0) + TEST_ERROR + if((dataset = H5Dcreate(group, "Dataset5", H5T_NATIVE_UCHAR, sid1, H5P_DEFAULT)) < 0) + TEST_ERROR - /* Open up that hard link and make a new dataset region there */ - group = H5Gopen(fid1, "/Group1/Group2/Link"); - dataset=H5Dcreate(group,"Dataset6",H5T_STD_REF_DSETREG,sid1,H5P_DEFAULT); - start[0]=2; start[1]=2; - stride[0]=1; stride[1]=1; - count[0]=6; count[1]=6; - block[0]=1; block[1]=1; - ret = H5Sselect_hyperslab(sid2,H5S_SELECT_SET,start,stride,count,block); + if(H5Dclose(dataset) < 0) + TEST_ERROR + if(H5Gclose(group) < 0) + TEST_ERROR - ret = H5Dclose(dataset); - ret = H5Gclose(group); - - - /* Create a dataset to store references */ - dataset=H5Dcreate(fid1,"Dataset3",H5T_STD_REF_OBJ,sid1,H5P_DEFAULT); + if((dataset = H5Dcreate(fid1, "Dataset3", H5T_STD_REF_OBJ, sid1, H5P_DEFAULT)) < 0) + TEST_ERROR /* Create reference to dataset */ - ret = H5Rcreate(&wbuf[0],fid1,"/Dataset3",H5R_OBJECT,-1); + if(H5Rcreate(&wbuf[0], fid1, "/Dataset3", H5R_OBJECT, -1) < 0) + TEST_ERROR /* Create reference to dataset */ - ret = H5Rcreate(&wbuf[1],fid1,"/Group1/Dataset2",H5R_OBJECT,-1); + if(H5Rcreate(&wbuf[1], fid1, "/Group1/Dataset2", H5R_OBJECT, -1) < 0) + TEST_ERROR /* Create reference to group */ - ret = H5Rcreate(&wbuf[2],fid1,"/Group1",H5R_OBJECT,-1); + if(H5Rcreate(&wbuf[2], fid1, "/Group1", H5R_OBJECT, -1) < 0) + TEST_ERROR /* Create reference to named datatype */ - ret = H5Rcreate(&wbuf[3],fid1,"/Group1/Datatype1",H5R_OBJECT,-1); + if(H5Rcreate(&wbuf[3], fid1, "/Group1/Datatype1", H5R_OBJECT, -1) < 0) + TEST_ERROR - ret = H5Rcreate(&wbuf[4],fid1,"/Group1/Group2/Dataset4",H5R_OBJECT,-1); - ret = H5Rcreate(&wbuf[5],fid1,"/Group1/Group2",H5R_OBJECT,-1); - ret = H5Rcreate(&wbuf[6],fid1,"/Group1/Group2/Link/Dataset5",H5R_OBJECT,-1); - ret = H5Rcreate(&wbuf[7],fid1,"/Group1/Group2/Link/Dataset6",H5R_DATASET_REGION,sid2); + if(H5Rcreate(&wbuf[4], fid1, "/Group1/Group2/Dataset4", H5R_OBJECT, -1) < 0) + TEST_ERROR + if(H5Rcreate(&wbuf[5], fid1, "/Group1/Group2", H5R_OBJECT, -1) < 0) + TEST_ERROR + if(H5Rcreate(&wbuf[6], fid1, "/Group1/Group2/Link/Dataset5", H5R_OBJECT, -1) < 0) + TEST_ERROR /* Write selection to disk */ - ret=H5Dwrite(dataset,H5T_STD_REF_OBJ,H5S_ALL,H5S_ALL,H5P_DEFAULT,wbuf); + if(H5Dwrite(dataset, H5T_STD_REF_OBJ, H5S_ALL, H5S_ALL, H5P_DEFAULT, wbuf) < 0) + TEST_ERROR - TESTING("Getting path to normal dataset in root group"); - i = H5Iget_name(H5Rdereference(dataset, H5R_OBJECT , &wbuf[0]), (char*)buf, 100); - if( (strcmp(buf, "/Dataset3")== 0) && (i == 10) ) + TESTING("getting path to normal dataset in root group"); + i = H5Iget_name(H5Rdereference(dataset, H5R_OBJECT , &wbuf[0]), (char*)buf, (size_t)100); + if((HDstrcmp(buf, "/Dataset3") == 0) && (i == 10)) PASSED() else - H5_FAILED() + TEST_ERROR - memset(buf, 0, 100); - TESTING("Getting path to dataset in /Group1"); - i = H5Iget_name(H5Rdereference(dataset, H5R_OBJECT , &wbuf[1]), (char*)buf, 100); - if( (strcmp(buf, "/Group1/Dataset2")== 0) && (i == 17) ) + HDmemset(buf, 0, (size_t)100); + TESTING("getting path to dataset in /Group1"); + i = H5Iget_name(H5Rdereference(dataset, H5R_OBJECT , &wbuf[1]), (char*)buf, (size_t)100); + if((HDstrcmp(buf, "/Group1/Dataset2") == 0) && (i == 17)) PASSED() else - H5_FAILED() + TEST_ERROR - memset(buf, 0, 100); - TESTING("Getting path to /Group1"); + HDmemset(buf, 0, (size_t)100); + TESTING("getting path to /Group1"); i = H5Iget_name(H5Rdereference(dataset, H5R_OBJECT , &wbuf[2]), (char*)buf, 100); - if( (strcmp(buf, "/Group1")== 0) && (i == 8) ) + if((HDstrcmp(buf, "/Group1") == 0) && (i == 8)) PASSED() else - H5_FAILED() + TEST_ERROR - memset(buf, 0, 100); - TESTING("Getting path to datatype in /Group1"); + HDmemset(buf, 0, 100); + TESTING("getting path to datatype in /Group1"); i = H5Iget_name(H5Rdereference(dataset, H5R_OBJECT , &wbuf[3]), (char*)buf, 100); - if( (strcmp(buf, "/Group1/Datatype1")== 0) && (i == 18) ) + if((HDstrcmp(buf, "/Group1/Datatype1") == 0) && (i == 18)) PASSED() else - H5_FAILED() + TEST_ERROR - memset(buf, 0, 100); - TESTING("Getting path to dataset in nested group"); + HDmemset(buf, 0, 100); + TESTING("getting path to dataset in nested group"); i = H5Iget_name(H5Rdereference(dataset, H5R_OBJECT , &wbuf[4]), (char*)buf, 100); - if( (strcmp(buf, "/Group1/Group2/Dataset4")== 0) && (i == 24) ) + if((HDstrcmp(buf, "/Group1/Group2/Dataset4") == 0) && (i == 24)) PASSED() else - H5_FAILED() + TEST_ERROR - memset(buf, 0, 100); - TESTING("Getting path to nested group"); + HDmemset(buf, 0, 100); + TESTING("getting path to nested group"); i = H5Iget_name(H5Rdereference(dataset, H5R_OBJECT , &wbuf[5]), (char*)buf, 100); - if( (strcmp(buf, "/Group1/Group2")== 0) && (i == 15) ) + if((HDstrcmp(buf, "/Group1/Group2") == 0) && (i == 15)) PASSED() else - H5_FAILED() - memset(buf, 0, 100); - - TESTING("Getting path to dataset created via hard link"); - i = H5Iget_name(H5Rdereference(dataset, H5R_OBJECT , &wbuf[6]), (char*)buf, 100); - if( (strcmp(buf, "/Group1/Dataset5")== 0) && (i == 17) ) - PASSED() - else - H5_FAILED() + TEST_ERROR - TESTING("Getting path to dataset region"); - i = H5Iget_name(H5Rdereference(dataset, H5R_DATASET_REGION , &wbuf[7]), (char*)buf, 100); - if( (strcmp(buf, "/Group1/Dataset6")== 0) && (i == 17) ) + HDmemset(buf, 0, 100); + TESTING("getting path to dataset created via hard link"); + i = H5Iget_name(H5Rdereference(dataset, H5R_OBJECT , &wbuf[6]), (char*)buf, 100); + if((HDstrcmp(buf, "/Group1/Dataset5") == 0) && (i == 17)) PASSED() else - H5_FAILED() + TEST_ERROR /* Now we mount fid2 at /Group2 and look for dataset4. It shouldn't be found */ - H5Fmount(fid1, "/Group1/Group2", fid2, H5P_DEFAULT); + if(H5Fmount(fid1, "/Group1/Group2", fid2, H5P_DEFAULT) < 0) + TEST_ERROR - TESTING("Getting path to dataset hidden by a mounted file"); + TESTING("getting path to dataset hidden by a mounted file"); i = H5Iget_name(H5Rdereference(dataset, H5R_OBJECT , &wbuf[4]), (char*)buf, 100); - if(i==0) + if(i == 0) PASSED() else - H5_FAILED() + TEST_ERROR /* Now we try unlinking dataset2 from the file and searching for it. It shouldn't be found */ - ref = H5Rdereference(dataset, H5R_OBJECT , &wbuf[1]); - H5Gunlink(fid1, "/Group1/Dataset2"); + if((ref = H5Rdereference(dataset, H5R_OBJECT , &wbuf[1])) < 0) + TEST_ERROR + if(H5Gunlink(fid1, "/Group1/Dataset2") < 0) + TEST_ERROR - TESTING("Getting path to a dataset that has been unlinked"); + TESTING("getting path to dataset that has been unlinked"); i = H5Iget_name(ref, (char*)buf, 100); - if(i==0) + if(i == 0) PASSED() else - H5_FAILED() - + TEST_ERROR /* Close disk dataspace */ - ret = H5Sclose(sid1); - ret = H5Sclose(sid2); + if(H5Sclose(sid1) < 0) + TEST_ERROR /* Close Dataset */ - ret = H5Dclose(dataset); + if(H5Dclose(dataset) < 0) + TEST_ERROR /* Close file */ - ret = H5Fclose(fid1); - ret = H5Fclose(fid2); - free(wbuf); - free(tu32); + if(H5Fclose(fid1) < 0) + TEST_ERROR + if(H5Fclose(fid2) < 0) + TEST_ERROR + return 0; + +error: + return 1; } + |