diff options
Diffstat (limited to 'test/vfd.c')
| -rw-r--r-- | test/vfd.c | 739 |
1 files changed, 739 insertions, 0 deletions
diff --git a/test/vfd.c b/test/vfd.c new file mode 100644 index 0000000..16038c3 --- /dev/null +++ b/test/vfd.c @@ -0,0 +1,739 @@ +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * Copyright by the Board of Trustees of the University of Illinois. * + * All rights reserved. * + * * + * This file is part of HDF5. The full HDF5 copyright notice, including * + * terms governing use, modification, and redistribution, is contained in * + * the files COPYING and Copyright.html. COPYING can be found at the root * + * of the source code distribution tree; Copyright.html can be found at the * + * root level of an installed copy of the electronic HDF5 document set and * + * is linked from the top-level documents page. It can also be found at * + * http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html. If you do not have * + * access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ + +/* + * Programmer: Raymond Lu<slu@ncsa.uiuc.edu> + * Tuesday, Sept 24, 2002 + * + * Purpose: Tests the basic features of Virtual File Drivers + */ + +#include "h5test.h" + +#define KB 1024 +#define FAMILY_NUMBER 4 +#define FAMILY_SIZE (1*KB) +#define FAMILY_SIZE2 (5*KB) +#define MULTI_SIZE 128 +#define CORE_INCREMENT (4*KB) + +const char *FILENAME[] = { + "sec2_file", + "core_file", + "family_file", + "multi_file", + NULL +}; + +#define COMPAT_BASENAME "family_v1.6_" + + +/*------------------------------------------------------------------------- + * 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: + * + * Raymond Lu + * Wednesday, June 23, 2004 + * Added test for H5Fget_filesize. + * + *------------------------------------------------------------------------- + */ +static herr_t +test_sec2(void) +{ + hid_t file=(-1), fapl, access_fapl = -1; + char filename[1024]; + int *fhandle=NULL; + hsize_t file_size; + + 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; + + /* Retrieve the access property list... */ + if ((access_fapl = H5Fget_access_plist(file)) < 0) + goto error; + + /* ...and close the property list */ + if (H5Pclose(access_fapl) < 0) + goto error; + + /* Check file handle API */ + if(H5Fget_vfd_handle(file, H5P_DEFAULT, (void **)&fhandle)<0) + goto error; + if(*fhandle<0) + goto error; + + /* Check file size API */ + if(H5Fget_filesize(file, &file_size) < 0) + goto error; + + /* There is no garantee the size of metadata in file is constant. + * Just try to check if it's reasonable. It's 2KB right now. + */ + if(file_size<1*KB || file_size>4*KB) + 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: + * + * Raymond Lu + * Wednesday, June 23, 2004 + * Added test for H5Fget_filesize. + * + *------------------------------------------------------------------------- + */ +static herr_t +test_core(void) +{ + hid_t file=(-1), fapl, access_fapl = -1; + char filename[1024]; + void *fhandle=NULL; + hsize_t file_size; + + 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; + + /* Retrieve the access property list... */ + if ((access_fapl = H5Fget_access_plist(file)) < 0) + goto error; + + /* ...and close the property list */ + if (H5Pclose(access_fapl) < 0) + goto error; + + if(H5Fget_vfd_handle(file, H5P_DEFAULT, &fhandle)<0) + goto error; + if(fhandle==NULL) + { + printf("fhandle==NULL\n"); + goto error; + } + + /* Check file size API */ + if(H5Fget_filesize(file, &file_size) < 0) + goto error; + + /* There is no garantee the size of metadata in file is constant. + * Just try to check if it's reasonable. Why is this 4KB? + */ + if(file_size<2*KB || file_size>6*KB) + 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_opens + * + * Purpose: Private function for test_family() to tests wrong ways of + * reopening family file. + * + * Return: Success: exit(0) + * + * Failure: exit(1) + * + * Programmer: Raymond Lu + * Thursday, May 19, 2005 + * + * Modifications: + *------------------------------------------------------------------------- + */ +static herr_t +test_family_opens(char *fname, hid_t fa_pl) +{ + hid_t file; + char first_name[1024]; + char wrong_name[1024]; + int i; + + /* Case 1: reopen file with 1st member file name and default property list */ + sprintf(first_name, fname, 0); + + H5E_BEGIN_TRY { + file=H5Fopen(first_name, H5F_ACC_RDWR, H5P_DEFAULT); + } H5E_END_TRY; + + /* Case 2: reopen file with correct name template but default property list */ + H5E_BEGIN_TRY { + file=H5Fopen(fname, H5F_ACC_RDWR, H5P_DEFAULT); + } H5E_END_TRY; + + /* Case 3: reopen file with wrong member size */ + if(H5Pset_fapl_family(fa_pl, (hsize_t)128, H5P_DEFAULT)<0) + goto error; + + H5E_BEGIN_TRY { + file=H5Fopen(fname, H5F_ACC_RDWR, fa_pl); + } H5E_END_TRY; + + /* Case 4: reopen file with wrong name template */ + strcpy(wrong_name, fname); + for(i=0; i<1024; i++) { + if(wrong_name[i] == '5') { + wrong_name[i] = '4'; + break; + } + } + + if(H5Pset_fapl_family(fa_pl, (hsize_t)FAMILY_SIZE, H5P_DEFAULT)<0) + goto error; + + H5E_BEGIN_TRY { + file=H5Fopen(wrong_name, H5F_ACC_RDWR, fa_pl); + } H5E_END_TRY; + + return 0; +error: + 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: + * + * Raymond Lu + * Wednesday, June 23, 2004 + * Added test for H5Fget_filesize. + * + * Raymond Lu + * June 2, 2005 + * Added a function test_family_opens() to test different + * wrong way to reopen family files. + * + *------------------------------------------------------------------------- + */ +static herr_t +test_family(void) +{ + hid_t file=(-1), fapl, fapl2=(-1), space=(-1), dset=(-1); + hid_t access_fapl = -1; + 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}; + hsize_t file_size; + + TESTING("FAMILY file driver"); + + /* Set property list and file name for FAMILY driver */ + fapl = h5_fileaccess(); + + if(H5Pset_fapl_family(fapl, (hsize_t)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; + + if(H5Fclose(file)<0) + goto error; + + /* Test different wrong ways to reopen family files where there's only + * one member file existing. */ + if(test_family_opens(filename, fapl)<0) + goto error; + + /* Reopen the file with default member file size */ + if(H5Pset_fapl_family(fapl, (hsize_t)H5F_FAMILY_DEFAULT, H5P_DEFAULT)<0) + goto error; + + if((file=H5Fopen(filename, H5F_ACC_RDWR, fapl))<0) + goto error; + + /* Check file size API */ + if(H5Fget_filesize(file, &file_size) < 0) + goto error; + + /* The file size is supposed to be about 1024 bytes right now. */ + if(file_size<KB/2 || file_size>4*KB) + goto error; + + /* Create and write dataset */ + if((space=H5Screate_simple(2, dims, NULL))<0) + goto error; + + /* Retrieve the access property list... */ + if ((access_fapl = H5Fget_access_plist(file)) < 0) + goto error; + + /* ...and close the property list */ + if (H5Pclose(access_fapl) < 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, (hsize_t)0)<0) + goto error; + + if(H5Fget_vfd_handle(file, fapl2, (void **)&fhandle)<0) + goto error; + if(*fhandle<0) + goto error; + + if(H5Pset_family_offset(fapl2, (hsize_t)(FAMILY_SIZE*2))<0) + goto error; + if(H5Fget_vfd_handle(file, fapl2, (void **)&fhandle2)<0) + goto error; + if(*fhandle2<0) + goto error; + + /* Check file size API */ + if(H5Fget_filesize(file, &file_size) < 0) + goto error; + + /* Some data has been written. The file size should be bigger(18KB+976 + * bytes if int size is 4 bytes) now. */ + if(sizeof(int)<=4) { + if(file_size<18*KB || file_size>20*KB) + goto error; + } else if(sizeof(int)>=8) { + if(file_size<32*KB || file_size>40*KB) + 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; + + /* Test different wrong ways to reopen family files when there're multiple + * member files existing. */ + if(test_family_opens(filename, fapl)<0) + goto error; + + /* Reopen the file with correct member file size. */ + if(H5Pset_fapl_family(fapl, (hsize_t)FAMILY_SIZE, H5P_DEFAULT)<0) + goto error; + + if((file=H5Fopen(filename, H5F_ACC_RDWR, fapl))<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); + H5Fclose(file); + } H5E_END_TRY; + return -1; +} + + +/*------------------------------------------------------------------------- + * Function: test_family_compat + * + * Purpose: Tests the backward compatibility for FAMILY driver. + * See if we can open files created with v1.6 library. + * The source file was created by the test/file_handle.c + * of the v1.6 library. Then tools/misc/h5repart.c was + * used to concantenated. The command was "h5repart -m 5k + * family_file%05d.h5 family_v1.6_%05d.h5". + * + * Return: Success: exit(0) + * + * Failure: exit(1) + * + * Programmer: Raymond Lu + * June 3, 2005 + * + * Modifications: + *------------------------------------------------------------------------- + */ +static herr_t +test_family_compat(void) +{ + hid_t file=(-1), fapl; + char filename[1024]; + char pathname[1024]; + char *srcdir = getenv("srcdir"); /*where the src code is located*/ + + TESTING("FAMILY file driver backward compatibility"); + +#ifndef H5_WANT_H5_V1_6_COMPAT + SKIPPED(); + return 0; +#else /*H5_WANT_H5_V1_6_COMPAT*/ + + /* Set property list and file name for FAMILY driver */ + fapl = h5_fileaccess(); + + if(H5Pset_fapl_family(fapl, (hsize_t)FAMILY_SIZE2, H5P_DEFAULT)<0) + goto error; + + h5_fixname(COMPAT_BASENAME, fapl, filename, sizeof filename); + + /* Generate correct name for test file by prepending the source path */ + if(srcdir && ((strlen(srcdir) + strlen(filename) + 1) < sizeof(pathname))) { + strcpy(pathname, srcdir); + strcat(pathname, "/"); + } + strcat(pathname, filename); + + if((file=H5Fopen(pathname, H5F_ACC_RDONLY, fapl))<0) + goto error; + + if(H5Fclose(file)<0) + goto error; + + if(H5Pclose(fapl)<0) + goto error; + + PASSED(); + return 0; + +error: + H5E_BEGIN_TRY { + H5Fclose(file); + } H5E_END_TRY; + return -1; +#endif /*H5_WANT_H5_V1_6_COMPAT*/ +} + + +/*------------------------------------------------------------------------- + * Function: test_multi_opens + * + * Purpose: Private function for test_multi() to tests wrong ways of + * reopening multi file. + * + * Return: Success: exit(0) + * + * Failure: exit(1) + * + * Programmer: Raymond Lu + * Thursday, May 19, 2005 + * + * Modifications: + *------------------------------------------------------------------------- + */ +static herr_t +test_multi_opens(char *fname, hid_t fa_pl) +{ + hid_t file; + char super_name[1024]; /*name string "%%s-s.h5"*/ + char sf_name[1024]; /*name string "multi_file-s.h5"*/ + + /* Case: reopen with the name of super file and default property list */ + sprintf(super_name, "%%s-%c.h5", 's'); + sprintf(sf_name, super_name, fname); + + H5E_BEGIN_TRY { + file=H5Fopen(sf_name, H5F_ACC_RDWR, H5P_DEFAULT); + } H5E_END_TRY; + + return 0; +} + + +/*------------------------------------------------------------------------- + * 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: + * + * Raymond Lu + * Wednesday, June 23, 2004 + * Added test for H5Fget_filesize. + * + *------------------------------------------------------------------------- + */ +static herr_t +test_multi(void) +{ + hid_t file=(-1), fapl, fapl2=(-1), dset=(-1), space=(-1); + hid_t access_fapl = -1; + char filename[1024]; + int *fhandle2=NULL, *fhandle=NULL; + hsize_t file_size; + 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=H5FD_MEM_DEFAULT; mt<H5FD_MEM_NTYPES; H5_INC_ENUM(H5FD_mem_t,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], "%%s-%c.h5", '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], "%%s-%c.h5", '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; + + if(H5Fclose(file)<0) + goto error; + + /* Test wrong ways to reopen multi files */ + if(test_multi_opens(filename, fapl)<0) + goto error; + + /* Reopen the file */ + if((file=H5Fopen(filename, H5F_ACC_RDWR, fapl))<0) + goto error; + + /* Create and write data set */ + if((space=H5Screate_simple(2, dims, NULL))<0) + goto error; + + /* Retrieve the access property list... */ + if ((access_fapl = H5Fget_access_plist(file)) < 0) + goto error; + + /* ...and close the property list */ + if (H5Pclose(access_fapl) < 0) + goto error; + + /* Check file size API */ + if(H5Fget_filesize(file, &file_size) < 0) + goto error; + + /* Before any data is written, the raw data file is empty. So + * the file size is only the size of metadata file. It's supposed + * to be 2KB. + */ + if(file_size<1*KB || file_size>4*KB) + 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, (void **)&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, (void **)&fhandle2)<0) + goto error; + if(*fhandle2<0) + goto error; + + /* Check file size API */ + if(H5Fget_filesize(file, &file_size) < 0) + goto error; + + /* After the data is written, the file size is huge because the + * beginning of raw data file is set at HADDR_MAX/2. It's supposed + * to be (HADDR_MAX/2 + 128*128*4) + */ + if(file_size < HADDR_MAX/2 || file_size > HADDR_MAX) + 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 basic features of Virtual File Drivers + * + * Return: Success: exit(0) + * + * Failure: exit(1) + * + * Programmer: Raymond Lu + * Tuesday, Sept 24, 2002 + * + * Modifications: + * + *------------------------------------------------------------------------- + */ +int +main(void) +{ + 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_family_compat()<0 ?1:0; + nerrors += test_multi()<0 ?1:0; + + if (nerrors){ + printf("***** %d Virtual File Driver TEST%s FAILED! *****\n", + nerrors, nerrors > 1 ? "S" : ""); + return 1; + } + + printf("All Virtual File Driver tests passed.\n"); + return 0; +} |