diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2002-10-14 19:48:01 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2002-10-14 19:48:01 (GMT) |
| commit | 4629204d864aa936baca552d742e5d1c2bd1f15c (patch) | |
| tree | 281dfcdb4cce615c193c746fa3d36ed991fb95b7 | |
| parent | cc1502af9c304cd5f51eedeedf1e190f771cd556 (diff) | |
| download | hdf5-4629204d864aa936baca552d742e5d1c2bd1f15c.zip hdf5-4629204d864aa936baca552d742e5d1c2bd1f15c.tar.gz hdf5-4629204d864aa936baca552d742e5d1c2bd1f15c.tar.bz2 | |
[svn-r5991] Purpose:
New feature
Description:
If backing store for a core VFD file is turned on, remove the file created.
Platforms tested:
FreeBSD 4.6 (sleipnir) w and w/o parallel
Linux 2.2.x (eirene) w/FORTRAN & C++
Solaris 2.7 (arabica) w/FORTRAN
IRIX64 6.5 (modi4) w/FORTRAN & parallel
| -rw-r--r-- | test/h5test.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/test/h5test.c b/test/h5test.c index 21dbb96..724a0ac 100644 --- a/test/h5test.c +++ b/test/h5test.c @@ -149,7 +149,14 @@ h5_cleanup(const char *base_name[], hid_t fapl) HDremove(temp); } } else if (driver == H5FD_CORE) { - /*void*/ + hbool_t backing; /* Whether the core file has backing store */ + + H5Pget_fapl_core(fapl,NULL,&backing); + + /* If the file was stored to disk with bacing store, remove it */ + if(backing) + HDremove(filename); + } else if (driver == H5FD_MULTI) { H5FD_mem_t mt; assert(strlen(multi_letters)==H5FD_MEM_NTYPES); |