mirror of
https://github.com/HDFGroup/hdf5.git
synced 2024-11-27 02:10:55 +08:00
a1708eb023
New feature
Description:
Check in baseline for compact group revisions, which radically revises the
source code for managing groups and object headers.
WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!!
WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!!
This initiates the "unstable" phase of the 1.7.x branch, leading up
to the 1.8.0 release. Please test this code, but do _NOT_ keep files created
with it - the format will change again before the release and you will not
be able to read your old files!!!
WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!!
WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!! WARNING!!!!
Solution:
There's too many changes to really describe them all, but some of them
include:
- Stop abusing the H5G_entry_t structure and split it into two separate
structures for non-symbol table node use within the library: H5O_loc_t
for object locations in a file and H5G_name_t to store the path to
an opened object. H5G_entry_t is now only used for storing symbol
table entries on disk.
- Retire H5G_namei() in favor of a more general mechanism for traversing
group paths and issuing callbacks on objects located. This gets us out
of the business of hacking H5G_namei() for new features, generally.
- Revised H5O* routines to take a H5O_loc_t instead of H5G_entry_t
- Lots more...
Platforms tested:
h5committested and maybe another dozen configurations.... :-)
745 lines
20 KiB
C
745 lines
20 KiB
C
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
||
* 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)
|
||
TEST_ERROR;
|
||
h5_fixname(FILENAME[0], fapl, filename, sizeof filename);
|
||
|
||
if((file=H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl))<0)
|
||
TEST_ERROR;
|
||
|
||
/* Retrieve the access property list... */
|
||
if ((access_fapl = H5Fget_access_plist(file)) < 0)
|
||
TEST_ERROR;
|
||
|
||
/* ...and close the property list */
|
||
if (H5Pclose(access_fapl) < 0)
|
||
TEST_ERROR;
|
||
|
||
/* Check file handle API */
|
||
if(H5Fget_vfd_handle(file, H5P_DEFAULT, (void **)&fhandle)<0)
|
||
TEST_ERROR;
|
||
if(*fhandle<0)
|
||
TEST_ERROR;
|
||
|
||
/* Check file size API */
|
||
if(H5Fget_filesize(file, &file_size) < 0)
|
||
TEST_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)
|
||
TEST_ERROR;
|
||
|
||
if(H5Fclose(file)<0)
|
||
TEST_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)
|
||
TEST_ERROR;
|
||
h5_fixname(FILENAME[1], fapl, filename, sizeof filename);
|
||
|
||
if((file=H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl))<0)
|
||
TEST_ERROR;
|
||
|
||
/* Retrieve the access property list... */
|
||
if ((access_fapl = H5Fget_access_plist(file)) < 0)
|
||
TEST_ERROR;
|
||
|
||
/* ...and close the property list */
|
||
if (H5Pclose(access_fapl) < 0)
|
||
TEST_ERROR;
|
||
|
||
if(H5Fget_vfd_handle(file, H5P_DEFAULT, &fhandle)<0)
|
||
TEST_ERROR;
|
||
if(fhandle==NULL)
|
||
{
|
||
printf("fhandle==NULL\n");
|
||
TEST_ERROR;
|
||
}
|
||
|
||
/* Check file size API */
|
||
if(H5Fget_filesize(file, &file_size) < 0)
|
||
TEST_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)
|
||
TEST_ERROR;
|
||
|
||
if(H5Fclose(file)<0)
|
||
TEST_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)
|
||
TEST_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)
|
||
TEST_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)
|
||
TEST_ERROR;
|
||
h5_fixname(FILENAME[2], fapl, filename, sizeof filename);
|
||
|
||
if((file=H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl))<0)
|
||
TEST_ERROR;
|
||
|
||
if(H5Fclose(file)<0)
|
||
TEST_ERROR;
|
||
|
||
/* Test different wrong ways to reopen family files where there's only
|
||
* one member file existing. */
|
||
if(test_family_opens(filename, fapl)<0)
|
||
TEST_ERROR;
|
||
|
||
/* Reopen the file with default member file size */
|
||
if(H5Pset_fapl_family(fapl, (hsize_t)H5F_FAMILY_DEFAULT, H5P_DEFAULT)<0)
|
||
TEST_ERROR;
|
||
|
||
if((file=H5Fopen(filename, H5F_ACC_RDWR, fapl))<0)
|
||
TEST_ERROR;
|
||
|
||
/* Check file size API */
|
||
if(H5Fget_filesize(file, &file_size) < 0)
|
||
TEST_ERROR;
|
||
|
||
/* The file size is supposed to be about 300 bytes right now. */
|
||
if(file_size<KB/4 || file_size>4*KB)
|
||
TEST_ERROR;
|
||
|
||
/* Create and write dataset */
|
||
if((space=H5Screate_simple(2, dims, NULL))<0)
|
||
TEST_ERROR;
|
||
|
||
/* Retrieve the access property list... */
|
||
if ((access_fapl = H5Fget_access_plist(file)) < 0)
|
||
TEST_ERROR;
|
||
|
||
/* ...and close the property list */
|
||
if (H5Pclose(access_fapl) < 0)
|
||
TEST_ERROR;
|
||
|
||
if((dset=H5Dcreate(file, dname, H5T_NATIVE_INT, space, H5P_DEFAULT))<0)
|
||
TEST_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)
|
||
TEST_ERROR;
|
||
|
||
/* check file handle API */
|
||
if((fapl2=H5Pcreate(H5P_FILE_ACCESS))<0)
|
||
TEST_ERROR;
|
||
if(H5Pset_family_offset(fapl2, (hsize_t)0)<0)
|
||
TEST_ERROR;
|
||
|
||
if(H5Fget_vfd_handle(file, fapl2, (void **)&fhandle)<0)
|
||
TEST_ERROR;
|
||
if(*fhandle<0)
|
||
TEST_ERROR;
|
||
|
||
if(H5Pset_family_offset(fapl2, (hsize_t)(FAMILY_SIZE*2))<0)
|
||
TEST_ERROR;
|
||
if(H5Fget_vfd_handle(file, fapl2, (void **)&fhandle2)<0)
|
||
TEST_ERROR;
|
||
if(*fhandle2<0)
|
||
TEST_ERROR;
|
||
|
||
/* Check file size API */
|
||
if(H5Fget_filesize(file, &file_size) < 0)
|
||
TEST_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)
|
||
TEST_ERROR;
|
||
} else if(sizeof(int)>=8) {
|
||
if(file_size<32*KB || file_size>40*KB)
|
||
TEST_ERROR;
|
||
}
|
||
|
||
if(H5Sclose(space)<0)
|
||
TEST_ERROR;
|
||
if(H5Dclose(dset)<0)
|
||
TEST_ERROR;
|
||
if(H5Pclose(fapl2)<0)
|
||
TEST_ERROR;
|
||
if(H5Fclose(file)<0)
|
||
TEST_ERROR;
|
||
|
||
/* Test different wrong ways to reopen family files when there're multiple
|
||
* member files existing. */
|
||
if(test_family_opens(filename, fapl)<0)
|
||
TEST_ERROR;
|
||
|
||
/* Reopen the file with correct member file size. */
|
||
if(H5Pset_fapl_family(fapl, (hsize_t)FAMILY_SIZE, H5P_DEFAULT)<0)
|
||
TEST_ERROR;
|
||
|
||
if((file=H5Fopen(filename, H5F_ACC_RDWR, fapl))<0)
|
||
TEST_ERROR;
|
||
|
||
if(H5Fclose(file)<0)
|
||
TEST_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)
|
||
{
|
||
#ifdef H5_WANT_H5_V1_6_COMPAT
|
||
hid_t file=(-1), fapl;
|
||
char filename[1024];
|
||
char pathname[1024];
|
||
char *srcdir = getenv("srcdir"); /*where the src code is located*/
|
||
#endif /*H5_WANT_H5_V1_6_COMPAT*/
|
||
|
||
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)
|
||
TEST_ERROR;
|
||
|
||
h5_fixname(COMPAT_BASENAME, fapl, filename, sizeof filename);
|
||
|
||
pathname[0] = '\0';
|
||
/* 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)
|
||
TEST_ERROR;
|
||
|
||
if(H5Fclose(file)<0)
|
||
TEST_ERROR;
|
||
|
||
if(H5Pclose(fapl)<0)
|
||
TEST_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 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)
|
||
TEST_ERROR;
|
||
h5_fixname(FILENAME[3], fapl, filename, sizeof filename);
|
||
|
||
if((file=H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl))<0)
|
||
TEST_ERROR;
|
||
|
||
if(H5Fclose(file)<0)
|
||
TEST_ERROR;
|
||
|
||
/* Test wrong ways to reopen multi files */
|
||
if(test_multi_opens(filename)<0)
|
||
TEST_ERROR;
|
||
|
||
/* Reopen the file */
|
||
if((file=H5Fopen(filename, H5F_ACC_RDWR, fapl))<0)
|
||
TEST_ERROR;
|
||
|
||
/* Create and write data set */
|
||
if((space=H5Screate_simple(2, dims, NULL))<0)
|
||
TEST_ERROR;
|
||
|
||
/* Retrieve the access property list... */
|
||
if ((access_fapl = H5Fget_access_plist(file)) < 0)
|
||
TEST_ERROR;
|
||
|
||
/* ...and close the property list */
|
||
if (H5Pclose(access_fapl) < 0)
|
||
TEST_ERROR;
|
||
|
||
/* Check file size API */
|
||
if(H5Fget_filesize(file, &file_size) < 0)
|
||
TEST_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 400 bytes.
|
||
*/
|
||
if(file_size<(KB/4) || file_size>4*KB)
|
||
TEST_ERROR;
|
||
|
||
if((dset=H5Dcreate(file, dname, H5T_NATIVE_INT, space, H5P_DEFAULT))<0)
|
||
TEST_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)
|
||
TEST_ERROR;
|
||
|
||
if((fapl2=H5Pcreate(H5P_FILE_ACCESS))<0)
|
||
TEST_ERROR;
|
||
if(H5Pset_multi_type(fapl2, H5FD_MEM_SUPER)<0)
|
||
TEST_ERROR;
|
||
if(H5Fget_vfd_handle(file, fapl2, (void **)&fhandle)<0)
|
||
TEST_ERROR;
|
||
if(*fhandle<0)
|
||
TEST_ERROR;
|
||
|
||
if(H5Pset_multi_type(fapl2, H5FD_MEM_DRAW)<0)
|
||
TEST_ERROR;
|
||
if(H5Fget_vfd_handle(file, fapl2, (void **)&fhandle2)<0)
|
||
TEST_ERROR;
|
||
if(*fhandle2<0)
|
||
TEST_ERROR;
|
||
|
||
/* Check file size API */
|
||
if(H5Fget_filesize(file, &file_size) < 0)
|
||
TEST_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)
|
||
*/
|
||
#ifdef H5_HAVE_LARGE_HSIZET
|
||
if(file_size < HADDR_MAX/2 || file_size > HADDR_MAX)
|
||
TEST_ERROR;
|
||
#endif /* H5_HAVE_LARGE_HSIZET */
|
||
|
||
if(H5Sclose(space)<0)
|
||
TEST_ERROR;
|
||
if(H5Dclose(dset)<0)
|
||
TEST_ERROR;
|
||
if(H5Pclose(fapl2)<0)
|
||
TEST_ERROR;
|
||
if(H5Fclose(file)<0)
|
||
TEST_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;
|
||
}
|