mirror of
https://github.com/HDFGroup/hdf5.git
synced 2025-01-06 14:56:51 +08:00
b81abe336d
to cleanup temporary files used by that particular module. Added a cleanup() routine to testhdf5 that calls all the other cleanup_xxx() routines to do cleanup. Cleanup action can be disabled either by -c (no cleanup) option or HDF5_NOCLEANUP environment variable.
176 lines
4.4 KiB
C
176 lines
4.4 KiB
C
/*-------------------------------------------------------------------------
|
||
* Copyright (C) 1997 National Center for Supercomputing Applications.
|
||
* All rights reserved.
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*
|
||
* Created: tstab.c
|
||
* Aug 7 1997
|
||
* Robb Matzke <matzke@llnl.gov>
|
||
*
|
||
* Purpose:
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
#include <testhdf5.h>
|
||
|
||
#include <H5private.h>
|
||
#include <H5Iprivate.h>
|
||
#include <H5ACprivate.h>
|
||
#include <H5Pprivate.h>
|
||
#include <H5Fprivate.h>
|
||
#include <H5Gprivate.h>
|
||
#include <H5Oprivate.h>
|
||
|
||
#define TEST_FILE "tstab2.h5"
|
||
|
||
/*
|
||
* This file needs to access private datatypes from the H5G package.
|
||
*/
|
||
#define H5G_PACKAGE
|
||
#include <H5Gpkg.h>
|
||
|
||
/*-------------------------------------------------------------------------
|
||
* Function: test_2
|
||
*
|
||
* Purpose: Creates a really large directory.
|
||
*
|
||
* Return: void
|
||
*
|
||
* Programmer: Robb Matzke
|
||
* robb@maya.nuance.com
|
||
* Aug 29 1997
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
static void
|
||
test_2(void)
|
||
{
|
||
hid_t fid, create_plist, access_plist, dir;
|
||
H5F_t *f;
|
||
int i;
|
||
char name[256];
|
||
herr_t status;
|
||
int nsyms = 5000;
|
||
|
||
MESSAGE(2, ("........large directories\n"));
|
||
|
||
/*
|
||
* Use larger symbol table data structures to be more efficient, use
|
||
* defaults to bang harder on the library for testing.
|
||
*/
|
||
create_plist = H5Pcreate(H5P_FILE_CREATE);
|
||
H5Pset_sym_k(create_plist, 16, 16);
|
||
|
||
/*
|
||
* File access property list.
|
||
*/
|
||
access_plist = H5Pcreate (H5P_FILE_ACCESS);
|
||
|
||
#if 0
|
||
/* Try temporary core files */
|
||
H5Cset_core (access_plist, 3000000);
|
||
#elif 0
|
||
/* Try a default split file but with our own name extensions */
|
||
H5Cset_split (access_plist, ".XX1", H5C_DEFAULT, ".XX2", H5C_DEFAULT);
|
||
#elif 0
|
||
{
|
||
/* Try a split file with an in-core meta data part */
|
||
hid_t meta_access = H5Ccreate (H5C_FILE_ACCESS);
|
||
H5Cset_core (meta_access, 1024*1024);
|
||
H5Cset_split (access_plist, NULL, meta_access, NULL, H5C_DEFAULT);
|
||
}
|
||
#elif 0
|
||
{
|
||
/* Try a split file with an in-core raw data part */
|
||
hid_t raw_access = H5Ccreate (H5C_FILE_ACCESS);
|
||
H5Cset_core (raw_access, 1024*1024);
|
||
H5Cset_split (access_plist, NULL, H5C_DEFAULT, NULL, raw_access);
|
||
}
|
||
#endif
|
||
|
||
/* create the file */
|
||
fid = H5Fcreate(TEST_FILE, H5F_ACC_TRUNC, create_plist, access_plist);
|
||
CHECK(fid, FAIL, "H5Fcreate");
|
||
f = H5I_object(fid);
|
||
CHECK(f, NULL, "H5I_object");
|
||
f->intent |= H5F_ACC_DEBUG;
|
||
|
||
/*
|
||
* Create a directory that has so many entries that the root
|
||
* of the B-tree ends up splitting.
|
||
*/
|
||
dir = H5Gcreate(fid, "/big", (size_t)nsyms*16+2);
|
||
CHECK_I(dir, "H5Gcreate");
|
||
status = H5Gclose(dir);
|
||
CHECK_I(status, "H5Gclose");
|
||
status = H5Gset(fid, "/big");
|
||
CHECK_I(status, "H5Gset");
|
||
|
||
for (i = 0; i < nsyms; i++) {
|
||
sprintf(name, "%05d%05d", rand() % 100000, i);
|
||
MESSAGE(8, ("%s\n", name));
|
||
dir = H5Gcreate(fid, name, 0);
|
||
CHECK_I(dir, "H5Gcreate");
|
||
status = H5Gclose(dir);
|
||
CHECK_I(status, "H5Gclose");
|
||
}
|
||
|
||
/* close the property lists */
|
||
status = H5Pclose(create_plist);
|
||
CHECK_I(status, "H5Pclose");
|
||
status = H5Pclose(access_plist);
|
||
CHECK_I(status, "H5Pclose");
|
||
|
||
/* close the file */
|
||
status = H5Fclose(fid);
|
||
CHECK_I(status, "H5Fclose");
|
||
}
|
||
|
||
/*-------------------------------------------------------------------------
|
||
* Function: test_stab
|
||
*
|
||
* Purpose: Test symbol tables
|
||
*
|
||
* Return: void
|
||
*
|
||
* Programmer: Robb Matzke
|
||
* matzke@viper.llnl.gov
|
||
* Aug 7 1997
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
void
|
||
test_stab(void)
|
||
{
|
||
test_2();
|
||
}
|
||
|
||
|
||
/*-------------------------------------------------------------------------
|
||
* Function: cleanup_stab
|
||
*
|
||
* Purpose: Cleanup temporary test files
|
||
*
|
||
* Return: none
|
||
*
|
||
* Programmer: Albert Cheng
|
||
* July 2, 1998
|
||
*
|
||
* Modifications:
|
||
*
|
||
*-------------------------------------------------------------------------
|
||
*/
|
||
void
|
||
cleanup_stab(void)
|
||
{
|
||
remove(TEST_FILE);
|
||
}
|
||
|