1997-08-10 00:47:25 +08:00
|
|
|
|
/*-------------------------------------------------------------------------
|
1998-01-17 06:23:43 +08:00
|
|
|
|
* Copyright (C) 1997 National Center for Supercomputing Applications.
|
1997-08-10 00:47:25 +08:00
|
|
|
|
* All rights reserved.
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*
|
1998-01-17 06:23:43 +08:00
|
|
|
|
* Created: tstab.c
|
|
|
|
|
* Aug 7 1997
|
|
|
|
|
* Robb Matzke <matzke@llnl.gov>
|
1997-08-10 00:47:25 +08:00
|
|
|
|
*
|
1998-01-17 06:23:43 +08:00
|
|
|
|
* Purpose:
|
1997-08-10 00:47:25 +08:00
|
|
|
|
*
|
1998-01-17 06:23:43 +08:00
|
|
|
|
* Modifications:
|
1997-08-10 00:47:25 +08:00
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
1997-08-16 00:53:11 +08:00
|
|
|
|
#include <testhdf5.h>
|
1997-08-10 00:47:25 +08:00
|
|
|
|
|
1997-08-16 00:53:11 +08:00
|
|
|
|
#include <H5private.h>
|
1998-01-23 00:41:32 +08:00
|
|
|
|
#include <H5Aprivate.h>
|
1997-08-16 00:53:11 +08:00
|
|
|
|
#include <H5ACprivate.h>
|
1998-01-06 11:07:15 +08:00
|
|
|
|
#include <H5Cprivate.h>
|
1998-01-17 06:23:43 +08:00
|
|
|
|
#include <H5Fprivate.h>
|
1997-08-16 00:53:11 +08:00
|
|
|
|
#include <H5Gprivate.h>
|
|
|
|
|
#include <H5Oprivate.h>
|
1997-08-10 00:47:25 +08:00
|
|
|
|
|
1997-09-22 10:09:16 +08:00
|
|
|
|
/*
|
|
|
|
|
* This file needs to access private datatypes from the H5G package.
|
|
|
|
|
*/
|
|
|
|
|
#define H5G_PACKAGE
|
|
|
|
|
#include <H5Gpkg.h>
|
1997-08-10 00:47:25 +08:00
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
1998-01-17 06:23:43 +08:00
|
|
|
|
* Function: test_1
|
1997-08-10 00:47:25 +08:00
|
|
|
|
*
|
1998-01-17 06:23:43 +08:00
|
|
|
|
* Purpose: Tests the non-directory features of the HDF5 file. If the
|
|
|
|
|
* file has just one non-directory object, then that object
|
|
|
|
|
* should be the root object and there is no directory.
|
1997-08-10 00:47:25 +08:00
|
|
|
|
*
|
1998-01-17 06:23:43 +08:00
|
|
|
|
* Return: void
|
1997-08-10 00:47:25 +08:00
|
|
|
|
*
|
1998-01-17 06:23:43 +08:00
|
|
|
|
* Programmer: Robb Matzke
|
|
|
|
|
* robb@maya.nuance.com
|
|
|
|
|
* Aug 29 1997
|
1997-08-10 00:47:25 +08:00
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
1997-08-30 00:59:28 +08:00
|
|
|
|
static void
|
1998-01-17 06:23:43 +08:00
|
|
|
|
test_1(void)
|
1997-08-30 00:59:28 +08:00
|
|
|
|
{
|
1998-01-17 06:23:43 +08:00
|
|
|
|
hid_t fid;
|
|
|
|
|
H5F_t *f;
|
|
|
|
|
H5G_entry_t ent1, ent2, obj_ent, dir_ent;
|
|
|
|
|
herr_t status;
|
|
|
|
|
H5O_name_t name_mesg;
|
|
|
|
|
void *status_ptr;
|
|
|
|
|
hbool_t b;
|
1997-08-30 00:59:28 +08:00
|
|
|
|
|
1998-01-17 06:23:43 +08:00
|
|
|
|
MESSAGE(2, ("........non-directory files\n"));
|
1997-08-30 00:59:28 +08:00
|
|
|
|
|
1998-01-17 06:23:43 +08:00
|
|
|
|
/*
|
|
|
|
|
* Test 1A: Create an empty file and add a non-directory object
|
|
|
|
|
* to the file with the name `/'. The object should become the
|
|
|
|
|
* root object and should not have a name message.
|
|
|
|
|
*/
|
1997-08-30 00:59:28 +08:00
|
|
|
|
|
1998-01-17 06:23:43 +08:00
|
|
|
|
/* create the file */
|
1998-02-20 02:26:49 +08:00
|
|
|
|
fid = H5Fcreate("tstab1.h5", H5F_ACC_TRUNC, H5C_DEFAULT, H5C_DEFAULT);
|
1998-01-17 06:23:43 +08:00
|
|
|
|
CHECK(fid, FAIL, "H5Fcreate");
|
1998-01-23 00:41:32 +08:00
|
|
|
|
f = H5A_object(fid);
|
1998-01-17 06:23:43 +08:00
|
|
|
|
CHECK(f, NULL, "H5Aatom_object");
|
1997-08-30 00:59:28 +08:00
|
|
|
|
|
1998-01-17 06:23:43 +08:00
|
|
|
|
/* create the object */
|
|
|
|
|
status = H5O_create(f, 0, &ent1);
|
|
|
|
|
CHECK_I(status, "H5O_create");
|
|
|
|
|
status = H5G_insert("/", &ent1);
|
|
|
|
|
CHECK_I(status, "H5G_insert");
|
|
|
|
|
status = H5O_close(&ent1);
|
|
|
|
|
CHECK_I(status, "H5O_close");
|
1997-09-22 10:09:16 +08:00
|
|
|
|
|
1998-01-17 06:23:43 +08:00
|
|
|
|
/* look for a name message -- it shouldn't be present */
|
|
|
|
|
status_ptr = H5O_read(&ent1, H5O_NAME, 0, &name_mesg);
|
|
|
|
|
VERIFY(status_ptr, NULL, "H5O_read [didn't fail but should have]");
|
1997-08-30 00:59:28 +08:00
|
|
|
|
|
1998-01-17 06:23:43 +08:00
|
|
|
|
/*
|
|
|
|
|
* Test 1B: Attempt to read the root object using the name `/'.
|
|
|
|
|
*/
|
|
|
|
|
memset(&dir_ent, 0xff, sizeof(H5G_entry_t));
|
|
|
|
|
memset(&obj_ent, 0xff, sizeof(H5G_entry_t));
|
|
|
|
|
status = H5G_find(f, "/", &dir_ent, &obj_ent);
|
|
|
|
|
CHECK_I(status, "H5G_find");
|
1997-08-30 00:59:28 +08:00
|
|
|
|
|
1998-01-17 06:23:43 +08:00
|
|
|
|
/* Is it really the root object? */
|
|
|
|
|
b = H5F_addr_defined(&(dir_ent.header));
|
|
|
|
|
VERIFY(b, FALSE, "H5G_insert");
|
|
|
|
|
b = H5F_addr_eq(&(obj_ent.header), &(ent1.header));
|
|
|
|
|
VERIFY(b, TRUE, "H5G_insert");
|
1997-08-30 00:59:28 +08:00
|
|
|
|
|
1998-01-17 06:23:43 +08:00
|
|
|
|
/*
|
|
|
|
|
* Test 1C: Add a second object to the file to see if the first object
|
|
|
|
|
* gets moved into the new root directory along with the second object.
|
|
|
|
|
*/
|
1997-08-30 00:59:28 +08:00
|
|
|
|
|
1998-01-17 06:23:43 +08:00
|
|
|
|
/* create the object */
|
|
|
|
|
status = H5O_create(f, 0, &ent2);
|
|
|
|
|
CHECK_I(status, "H5O_create");
|
|
|
|
|
status = H5G_insert("/second", &ent2);
|
|
|
|
|
CHECK_I(status, "H5G_insert");
|
|
|
|
|
status = H5O_close(&ent2);
|
|
|
|
|
CHECK_I(status, "H5O_close");
|
1997-08-30 00:59:28 +08:00
|
|
|
|
|
1998-01-17 06:23:43 +08:00
|
|
|
|
/* try to read the first object */
|
|
|
|
|
HDmemset(&obj_ent, 0xff, sizeof(H5G_entry_t));
|
|
|
|
|
status = H5G_find(f, "/Root Object", NULL, &obj_ent);
|
|
|
|
|
CHECK_I(status, "H5G_find");
|
|
|
|
|
b = H5F_addr_defined(&(obj_ent.header));
|
|
|
|
|
VERIFY(b, TRUE, "H5G_insert");
|
|
|
|
|
b = H5F_addr_eq(&(obj_ent.header), &(ent1.header));
|
|
|
|
|
VERIFY(b, TRUE, "H5G_create");
|
1997-08-30 00:59:28 +08:00
|
|
|
|
|
1998-01-17 06:23:43 +08:00
|
|
|
|
/* close the file */
|
|
|
|
|
H5Fclose(fid);
|
1997-08-30 00:59:28 +08:00
|
|
|
|
|
1998-01-17 06:23:43 +08:00
|
|
|
|
/*
|
|
|
|
|
* Test 1D: Create an empty file and add a non-directory object
|
|
|
|
|
* to the file with the name `/foo'. The object should become the
|
|
|
|
|
* root object and should have a name message with the value `foo'.
|
|
|
|
|
*/
|
1997-08-30 00:59:28 +08:00
|
|
|
|
|
1998-01-17 06:23:43 +08:00
|
|
|
|
/* create the file */
|
1998-02-20 02:26:49 +08:00
|
|
|
|
fid = H5Fcreate("tstab1.h5", H5F_ACC_TRUNC, H5C_DEFAULT, H5C_DEFAULT);
|
1998-01-17 06:23:43 +08:00
|
|
|
|
CHECK(fid, FAIL, "H5Fcreate");
|
1998-01-23 00:41:32 +08:00
|
|
|
|
f = H5A_object(fid);
|
1998-01-17 06:23:43 +08:00
|
|
|
|
CHECK(f, NULL, "H5Aatom_object");
|
1997-08-30 00:59:28 +08:00
|
|
|
|
|
1998-01-17 06:23:43 +08:00
|
|
|
|
/* create the object */
|
|
|
|
|
status = H5O_create(f, 0, &ent1);
|
|
|
|
|
CHECK_I(status, "H5O_create");
|
|
|
|
|
status = H5G_insert("/foo", &ent1);
|
|
|
|
|
CHECK_I(status, "H5G_insert");
|
|
|
|
|
status = H5O_close(&ent1);
|
|
|
|
|
CHECK_I(status, "H5O_close");
|
1997-08-30 00:59:28 +08:00
|
|
|
|
|
1998-01-17 06:23:43 +08:00
|
|
|
|
/* does it have the correct name message? */
|
|
|
|
|
status_ptr = H5O_read(&ent1, H5O_NAME, 0, &name_mesg);
|
|
|
|
|
CHECK_PTR(status_ptr, "H5O_read");
|
|
|
|
|
CHECK_PTR(name_mesg.s, "H5O_read");
|
|
|
|
|
VERIFY(strcmp(name_mesg.s, "foo"), 0, "H5G_insert");
|
|
|
|
|
if (status_ptr)
|
|
|
|
|
H5O_reset(H5O_NAME, &name_mesg); /*free message data */
|
1997-08-30 00:59:28 +08:00
|
|
|
|
|
1998-01-17 06:23:43 +08:00
|
|
|
|
/*
|
|
|
|
|
* Test 1E: Try to read the root object with the name `/' and `/foo'
|
|
|
|
|
*/
|
|
|
|
|
HDmemset(&dir_ent, 0, sizeof(H5G_entry_t));
|
|
|
|
|
HDmemset(&obj_ent, 0, sizeof(H5G_entry_t));
|
|
|
|
|
status = H5G_find(f, "/", &dir_ent, &obj_ent);
|
|
|
|
|
CHECK_I(status, "H5G_find");
|
|
|
|
|
b = H5F_addr_defined(&(dir_ent.header));
|
|
|
|
|
VERIFY(b, FALSE, "H5G_insert");
|
|
|
|
|
b = H5F_addr_eq(&(obj_ent.header), &(ent1.header));
|
|
|
|
|
VERIFY(b, TRUE, "H5G_insert");
|
1997-08-30 00:59:28 +08:00
|
|
|
|
|
1998-01-17 06:23:43 +08:00
|
|
|
|
/* now as `/foo' */
|
|
|
|
|
HDmemset(&dir_ent, 0, sizeof(H5G_entry_t));
|
|
|
|
|
HDmemset(&obj_ent, 0, sizeof(H5G_entry_t));
|
|
|
|
|
status = H5G_find(f, "/foo", &dir_ent, &obj_ent);
|
|
|
|
|
CHECK_I(status, "H5G_find");
|
|
|
|
|
b = H5F_addr_defined(&(dir_ent.header));
|
|
|
|
|
VERIFY(b, FALSE, "H5G_insert");
|
|
|
|
|
b = H5F_addr_eq(&(obj_ent.header), &(ent1.header));
|
|
|
|
|
VERIFY(b, TRUE, "H5G_insert");
|
1997-08-30 00:59:28 +08:00
|
|
|
|
|
1998-01-17 06:23:43 +08:00
|
|
|
|
/*
|
|
|
|
|
* Test 1F: Create another object. This should create a root directory
|
|
|
|
|
* and move the previous root object into that directory.
|
|
|
|
|
*/
|
1997-08-30 00:59:28 +08:00
|
|
|
|
|
1998-01-17 06:23:43 +08:00
|
|
|
|
/* create the object */
|
|
|
|
|
status = H5O_create(f, 0, &ent2);
|
|
|
|
|
CHECK_I(status, "H5O_create");
|
|
|
|
|
status = H5G_insert("/second", &ent2);
|
|
|
|
|
CHECK_I(status, "H5G_insert");
|
|
|
|
|
status = H5O_close(&ent2);
|
|
|
|
|
CHECK_I(status, "H5O_close");
|
1997-08-30 00:59:28 +08:00
|
|
|
|
|
1998-01-17 06:23:43 +08:00
|
|
|
|
/* try to read the first object */
|
|
|
|
|
HDmemset(&obj_ent, 0, sizeof(H5G_entry_t));
|
|
|
|
|
status = H5G_find(f, "/foo", NULL, &obj_ent);
|
|
|
|
|
CHECK_I(status, "H5G_find");
|
|
|
|
|
b = H5F_addr_eq(&(obj_ent.header), &(ent1.header));
|
|
|
|
|
VERIFY(b, TRUE, "H5G_insert");
|
1997-08-30 00:59:28 +08:00
|
|
|
|
|
1998-01-17 06:23:43 +08:00
|
|
|
|
/* the first object should not have a name message */
|
|
|
|
|
status_ptr = H5O_read(&ent1, H5O_NAME, 0, &name_mesg);
|
|
|
|
|
VERIFY(status_ptr, NULL, "H5O_read [didn't fail but should have]");
|
1997-08-30 00:59:28 +08:00
|
|
|
|
|
1998-01-17 06:23:43 +08:00
|
|
|
|
/* close the file */
|
|
|
|
|
status = H5Fclose(fid);
|
|
|
|
|
CHECK_I(status, "H5Fclose");
|
|
|
|
|
}
|
1997-08-30 00:59:28 +08:00
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
1998-01-17 06:23:43 +08:00
|
|
|
|
* Function: test_2
|
1997-08-30 00:59:28 +08:00
|
|
|
|
*
|
1998-01-17 06:23:43 +08:00
|
|
|
|
* Purpose: Creates a really large directory.
|
1997-08-30 00:59:28 +08:00
|
|
|
|
*
|
1998-01-17 06:23:43 +08:00
|
|
|
|
* Return: void
|
1997-08-30 00:59:28 +08:00
|
|
|
|
*
|
1998-01-17 06:23:43 +08:00
|
|
|
|
* Programmer: Robb Matzke
|
|
|
|
|
* robb@maya.nuance.com
|
|
|
|
|
* Aug 29 1997
|
1997-08-30 00:59:28 +08:00
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
static void
|
1998-01-17 06:23:43 +08:00
|
|
|
|
test_2(void)
|
1997-08-10 00:47:25 +08:00
|
|
|
|
{
|
1998-02-20 02:26:49 +08:00
|
|
|
|
hid_t fid, create_plist, access_plist, dir;
|
1998-01-17 06:23:43 +08:00
|
|
|
|
H5F_t *f;
|
|
|
|
|
int i;
|
|
|
|
|
char name[256];
|
|
|
|
|
herr_t status;
|
|
|
|
|
int nsyms = 5000;
|
1997-08-10 00:47:25 +08:00
|
|
|
|
|
1998-01-17 06:23:43 +08:00
|
|
|
|
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.
|
|
|
|
|
*/
|
1998-02-20 02:26:49 +08:00
|
|
|
|
create_plist = H5Ccreate(H5C_FILE_CREATE);
|
|
|
|
|
H5Cset_sym_k(create_plist, 16, 16);
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* File access property list.
|
|
|
|
|
*/
|
1998-02-20 02:35:14 +08:00
|
|
|
|
#if 0
|
1998-02-20 02:26:49 +08:00
|
|
|
|
access_plist = H5Ccreate (H5C_FILE_ACCESS);
|
|
|
|
|
H5Cset_core (access_plist, 3000000);
|
1998-02-20 04:19:08 +08:00
|
|
|
|
#else
|
|
|
|
|
access_plist = H5C_DEFAULT;
|
1998-02-20 02:35:14 +08:00
|
|
|
|
#endif
|
1998-01-06 11:07:15 +08:00
|
|
|
|
|
1998-01-17 06:23:43 +08:00
|
|
|
|
/* create the file */
|
1998-02-20 02:26:49 +08:00
|
|
|
|
fid = H5Fcreate("tstab2.h5", H5F_ACC_TRUNC, create_plist, access_plist);
|
1998-01-17 06:23:43 +08:00
|
|
|
|
CHECK(fid, FAIL, "H5Fcreate");
|
1998-01-23 00:41:32 +08:00
|
|
|
|
f = H5A_object(fid);
|
1998-01-17 06:23:43 +08:00
|
|
|
|
CHECK(f, NULL, "H5Aatom_object");
|
|
|
|
|
f->intent |= H5F_ACC_DEBUG;
|
1997-08-10 00:47:25 +08:00
|
|
|
|
|
1998-01-17 06:23:43 +08:00
|
|
|
|
/*
|
|
|
|
|
* Create a directory that has so many entries that the root
|
|
|
|
|
* of the B-tree ends up splitting.
|
|
|
|
|
*/
|
|
|
|
|
dir = H5Gcreate(fid, "/big", nsyms * 16 + 2);
|
|
|
|
|
CHECK_I(dir, "H5Gcreate");
|
|
|
|
|
status = H5Gclose(dir);
|
|
|
|
|
CHECK_I(status, "H5Gclose");
|
|
|
|
|
status = H5Gset(fid, "/big");
|
|
|
|
|
CHECK_I(status, "H5Gset");
|
1997-08-30 00:59:28 +08:00
|
|
|
|
|
1998-01-17 06:23:43 +08:00
|
|
|
|
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");
|
|
|
|
|
}
|
1997-08-30 00:59:28 +08:00
|
|
|
|
|
1998-01-17 06:23:43 +08:00
|
|
|
|
/* close the file */
|
|
|
|
|
status = H5Fclose(fid);
|
|
|
|
|
CHECK_I(status, "H5Fclose");
|
|
|
|
|
}
|
1997-08-30 00:59:28 +08:00
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
1998-01-17 06:23:43 +08:00
|
|
|
|
* Function: test_stab
|
1997-08-30 00:59:28 +08:00
|
|
|
|
*
|
1998-01-17 06:23:43 +08:00
|
|
|
|
* Purpose: Test symbol tables
|
1997-08-30 00:59:28 +08:00
|
|
|
|
*
|
1998-01-17 06:23:43 +08:00
|
|
|
|
* Return: void
|
1997-08-30 00:59:28 +08:00
|
|
|
|
*
|
1998-01-17 06:23:43 +08:00
|
|
|
|
* Programmer: Robb Matzke
|
|
|
|
|
* matzke@viper.llnl.gov
|
|
|
|
|
* Aug 7 1997
|
1997-08-30 00:59:28 +08:00
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
void
|
1998-01-17 06:23:43 +08:00
|
|
|
|
test_stab(void)
|
1997-08-30 00:59:28 +08:00
|
|
|
|
{
|
1998-01-17 06:23:43 +08:00
|
|
|
|
test_1();
|
|
|
|
|
test_2();
|
1997-08-10 00:47:25 +08:00
|
|
|
|
}
|