diff options
Diffstat (limited to 'test')
-rw-r--r-- | test/file_handle.c | 387 |
1 files changed, 387 insertions, 0 deletions
diff --git a/test/file_handle.c b/test/file_handle.c new file mode 100644 index 0000000..b644faa --- /dev/null +++ b/test/file_handle.c @@ -0,0 +1,387 @@ +/* + * Copyright (C) 2002 NCSA + * All rights reserved. + * + * Programmer: Raymond Lu<slu@ncsa.uiuc.edu> + * Tuesday, Sept 24, 2002 + * + * Purpose: Tests the file handle interface + */ + +#include "h5test.h" + +#define FAMILY_NUMBER 4 +#define FAMILY_SIZE 128 +#define MULTI_SIZE 128 +#define CORE_INCREMENT 4096 + +const char *FILENAME[] = { + "sec2_file", + "core_file", + "family_file", + "multi_file", + NULL +}; + + +/*------------------------------------------------------------------------- + * Function: test_sec2 + * + * Purpose: Tests the file handle interface for SEC2 driver + * + * Return: Success: exit(0) + * + * Failure: exit(1) + * + * Programmer: Raymond Lu + * Tuesday, Sept 24, 2002 + * + * Modifications: + * + *------------------------------------------------------------------------- + */ +static herr_t +test_sec2(void) +{ + hid_t file, fapl; + char filename[1024]; + int *fhandle=NULL; + + TESTING("SEC2 file driver"); + + /* Set property list and file name for SEC2 driver. */ + fapl = h5_fileaccess(); + if(H5Pset_fapl_sec2(fapl)<0) + goto error; + h5_fixname(FILENAME[0], fapl, filename, sizeof filename); + + if((file=H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl))<0) + goto error; + + /* Check file handle API */ + if(H5Fget_vfd_handle(file, H5P_DEFAULT, &fhandle)<0) + goto error; + if(*fhandle<0) + goto error; + + if(H5Fclose(file)<0) + goto error; + h5_cleanup(FILENAME, fapl); + PASSED(); + return 0; + +error: + H5E_BEGIN_TRY { + H5Pclose (fapl); + H5Fclose(file); + } H5E_END_TRY; + return -1; +} + + +/*------------------------------------------------------------------------- + * Function: test_core + * + * Purpose: Tests the file handle interface for CORE driver + * + * Return: Success: exit(0) + * + * Failure: exit(1) + * + * Programmer: Raymond Lu + * Tuesday, Sept 24, 2002 + * + * Modifications: + * + *------------------------------------------------------------------------- + */ +static herr_t +test_core(void) +{ + hid_t file, fapl; + char filename[1024]; + void *fhandle=NULL; + + TESTING("CORE file driver"); + + /* Set property list and file name for CORE driver */ + fapl = h5_fileaccess(); + if(H5Pset_fapl_core(fapl, CORE_INCREMENT, TRUE)<0) + goto error; + h5_fixname(FILENAME[1], fapl, filename, sizeof filename); + + if((file=H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl))<0) + goto error; + + if(H5Fget_vfd_handle(file, H5P_DEFAULT, &fhandle)<0) + goto error; + if(fhandle==NULL) + { + printf("fhandle==NULL\n"); + goto error; + } + + if(H5Fclose(file)<0) + goto error; + h5_cleanup(FILENAME, fapl); + PASSED(); + return 0; + +error: + H5E_BEGIN_TRY { + H5Pclose (fapl); + H5Fclose(file); + } H5E_END_TRY; + return -1; +} + + +/*------------------------------------------------------------------------- + * Function: test_family + * + * Purpose: Tests the file handle interface for FAMILY driver + * + * Return: Success: exit(0) + * + * Failure: exit(1) + * + * Programmer: Raymond Lu + * Tuesday, Sept 24, 2002 + * + * Modifications: + * + *------------------------------------------------------------------------- + */ +static herr_t +test_family(void) +{ + hid_t file, fapl, fapl2, space, dset; + char filename[1024]; + char dname[]="dataset"; + int i, j; + int *fhandle=NULL, *fhandle2=NULL; + int buf[FAMILY_NUMBER][FAMILY_SIZE]; + hsize_t dims[2]={FAMILY_NUMBER, FAMILY_SIZE}; + + TESTING("FAMILY file driver"); + + /* Set property list and file name for FAMILY driver */ + fapl = h5_fileaccess(); + if(H5Pset_fapl_family(fapl, FAMILY_SIZE, H5P_DEFAULT)<0) + goto error; + h5_fixname(FILENAME[2], fapl, filename, sizeof filename); + + if((file=H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl))<0) + goto error; + + /* Create and write dataset */ + if((space=H5Screate_simple(2, dims, NULL))<0) + goto error; + if((dset=H5Dcreate(file, dname, H5T_NATIVE_INT, space, H5P_DEFAULT))<0) + goto error; + + for(i=0; i<FAMILY_NUMBER; i++) + for(j=0; j<FAMILY_SIZE; j++) + buf[i][j] = i*10000+j; + if(H5Dwrite(dset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf)<0) + goto error; + + /* check file handle API */ + if((fapl2=H5Pcreate(H5P_FILE_ACCESS))<0) + goto error; + if(H5Pset_family_offset(fapl2, 0)<0) + goto error; + + if(H5Fget_vfd_handle(file, fapl2, &fhandle)<0) + goto error; + if(*fhandle<0) + goto error; + + if(H5Pset_family_offset(fapl2, FAMILY_SIZE*2)<0) + goto error; + if(H5Fget_vfd_handle(file, fapl2, &fhandle2)<0) + goto error; + if(*fhandle2<0) + goto error; + + if(H5Sclose(space)<0) + goto error; + if(H5Dclose(dset)<0) + goto error; + if(H5Pclose(fapl2)<0) + goto error; + if(H5Fclose(file)<0) + goto error; + h5_cleanup(FILENAME, fapl); + PASSED(); + return 0; + +error: + H5E_BEGIN_TRY { + H5Sclose(space); + H5Dclose(dset); + H5Pclose (fapl2); + H5Pclose (fapl2); + H5Fclose(file); + } H5E_END_TRY; + return -1; +} + + +/*------------------------------------------------------------------------- + * Function: test_multi + * + * Purpose: Tests the file handle interface for MUTLI driver + * + * Return: Success: exit(0) + * + * Failure: exit(1) + * + * Programmer: Raymond Lu + * Tuesday, Sept 24, 2002 + * + * Modifications: + * + *------------------------------------------------------------------------- + */ +static herr_t +test_multi(void) +{ + hid_t file, fapl, fapl2, dset, space; + char filename[1024]; + int *fhandle2=NULL, *fhandle=NULL; + H5FD_mem_t mt, memb_map[H5FD_MEM_NTYPES]; + hid_t memb_fapl[H5FD_MEM_NTYPES]; + haddr_t memb_addr[H5FD_MEM_NTYPES]; + const char *memb_name[H5FD_MEM_NTYPES]; + char sv[H5FD_MEM_NTYPES][32]; + hsize_t dims[2]={MULTI_SIZE, MULTI_SIZE}; + char dname[]="dataset"; + int i, j; + int buf[MULTI_SIZE][MULTI_SIZE]; + + TESTING("MULTI file driver"); + /* Set file access property list for MULTI driver */ + fapl = h5_fileaccess(); + + HDmemset(memb_map, 0, sizeof memb_map); + HDmemset(memb_fapl, 0, sizeof memb_fapl); + HDmemset(memb_name, 0, sizeof memb_name); + HDmemset(memb_addr, 0, sizeof memb_addr); + HDmemset(sv, 0, sizeof sv); + + for(mt=0; mt<H5FD_MEM_NTYPES; mt++) + memb_map[mt] = H5FD_MEM_SUPER; + memb_map[H5FD_MEM_DRAW] = H5FD_MEM_DRAW; + + memb_fapl[H5FD_MEM_SUPER] = H5P_DEFAULT; + sprintf(sv[H5FD_MEM_SUPER], "%c.meta", 's'); + memb_name[H5FD_MEM_SUPER] = sv[H5FD_MEM_SUPER]; + memb_addr[H5FD_MEM_SUPER] = 0; + + memb_fapl[H5FD_MEM_DRAW] = H5P_DEFAULT; + sprintf(sv[H5FD_MEM_DRAW], "%c.raw", 'r'); + memb_name[H5FD_MEM_DRAW] = sv[H5FD_MEM_DRAW]; + memb_addr[H5FD_MEM_DRAW] = HADDR_MAX/2; + + if(H5Pset_fapl_multi(fapl, memb_map, memb_fapl, memb_name, memb_addr, TRUE)<0) + goto error; + h5_fixname(FILENAME[3], fapl, filename, sizeof filename); + + if((file=H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl))<0) + goto error; + + /* Create and write data set */ + if((space=H5Screate_simple(2, dims, NULL))<0) + goto error; + if((dset=H5Dcreate(file, dname, H5T_NATIVE_INT, space, H5P_DEFAULT))<0) + goto error; + + for(i=0; i<MULTI_SIZE; i++) + for(j=0; j<MULTI_SIZE; j++) + buf[i][j] = i*10000+j; + if(H5Dwrite(dset, H5T_NATIVE_INT, H5S_ALL, H5S_ALL, H5P_DEFAULT, buf)<0) + goto error; + + if((fapl2=H5Pcreate(H5P_FILE_ACCESS))<0) + goto error; + if(H5Pset_multi_type(fapl2, H5FD_MEM_SUPER)<0) + goto error; + if(H5Fget_vfd_handle(file, fapl2, &fhandle)<0) + goto error; + if(*fhandle<0) + goto error; + + if(H5Pset_multi_type(fapl2, H5FD_MEM_DRAW)<0) + goto error; + if(H5Fget_vfd_handle(file, fapl2, &fhandle2)<0) + goto error; + if(*fhandle2<0) + goto error; + + if(H5Sclose(space)<0) + goto error; + if(H5Dclose(dset)<0) + goto error; + if(H5Pclose(fapl2)<0) + goto error; + if(H5Fclose(file)<0) + goto error; + + h5_cleanup(FILENAME, fapl); + PASSED(); + + return 0; + +error: + H5E_BEGIN_TRY { + H5Sclose(space); + H5Dclose(dset); + H5Pclose(fapl); + H5Pclose(fapl2); + H5Fclose(file); + } H5E_END_TRY; + return -1; +} + + +/*------------------------------------------------------------------------- + * Function: main + * + * Purpose: Tests the file handle interface(H5Fget_vfd_handle and + * H5FDget_vfd_handle) + * + * Return: Success: exit(0) + * + * Failure: exit(1) + * + * Programmer: Raymond Lu + * Tuesday, Sept 24, 2002 + * + * Modifications: + * + *------------------------------------------------------------------------- + */ +int +main(void) +{ + hid_t file; + int nerrors=0; + + h5_reset(); + + nerrors += test_sec2()<0 ?1:0; + nerrors += test_core()<0 ?1:0; + nerrors += test_family()<0 ?1:0; + nerrors += test_multi()<0 ?1:0; + + if (nerrors) goto error; + printf("All file handle tests passed.\n"); + return 0; + +error: + nerrors = MAX(1, nerrors); + printf("***** %d FILE HANDLE TEST%s FAILED! *****\n", + nerrors, 1 == nerrors ? "" : "S"); + return 1; +} |