From 4629204d864aa936baca552d742e5d1c2bd1f15c Mon Sep 17 00:00:00 2001 From: Quincey Koziol Date: Mon, 14 Oct 2002 14:48:01 -0500 Subject: [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 --- test/h5test.c | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) 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); -- cgit v0.12