1998-11-25 22:58:22 +08:00
|
|
|
|
/*
|
|
|
|
|
* Copyright <EFBFBD> 1998 NCSA
|
|
|
|
|
* All rights reserved.
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Robb Matzke <matzke@llnl.gov>
|
|
|
|
|
* Tuesday, November 24, 1998
|
|
|
|
|
*/
|
|
|
|
|
#include <h5test.h>
|
|
|
|
|
#include <H5Iprivate.h>
|
|
|
|
|
#include <H5Oprivate.h>
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* This file needs to access private datatypes from the H5G package.
|
|
|
|
|
*/
|
|
|
|
|
#define H5G_PACKAGE
|
|
|
|
|
#include <H5Gpkg.h>
|
|
|
|
|
|
|
|
|
|
const char *FILENAME[] = {
|
|
|
|
|
"ohdr",
|
|
|
|
|
NULL
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: main
|
|
|
|
|
*
|
|
|
|
|
* Purpose:
|
|
|
|
|
*
|
|
|
|
|
* Return: Success:
|
|
|
|
|
*
|
|
|
|
|
* Failure:
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Robb Matzke
|
|
|
|
|
* Tuesday, November 24, 1998
|
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
int
|
|
|
|
|
main(void)
|
|
|
|
|
{
|
|
|
|
|
hid_t fapl=-1, file=-1;
|
|
|
|
|
H5F_t *f=NULL;
|
|
|
|
|
char filename[1024];
|
|
|
|
|
H5G_entry_t oh_ent;
|
1999-02-25 23:40:27 +08:00
|
|
|
|
H5O_stab_t stab, ro;
|
1998-11-25 22:58:22 +08:00
|
|
|
|
int i;
|
|
|
|
|
|
|
|
|
|
/* Reset library */
|
|
|
|
|
h5_reset();
|
|
|
|
|
fapl = h5_fileaccess();
|
|
|
|
|
h5_fixname(FILENAME[0], fapl, filename, sizeof filename);
|
|
|
|
|
if ((file=H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl))<0)
|
|
|
|
|
goto error;
|
|
|
|
|
if (NULL==(f=H5I_object(file))) {
|
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Test object header creation
|
|
|
|
|
*/
|
|
|
|
|
TESTING("object header creation");
|
|
|
|
|
if (H5O_create(f, 64, &oh_ent/*out*/)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
PASSED();
|
|
|
|
|
|
|
|
|
|
/* create a new message */
|
|
|
|
|
TESTING("message creation");
|
1999-07-29 02:25:43 +08:00
|
|
|
|
stab.btree_addr = 11111111;
|
|
|
|
|
stab.heap_addr = 22222222;
|
1998-11-25 22:58:22 +08:00
|
|
|
|
if (H5O_modify(&oh_ent, H5O_STAB, H5O_NEW_MESG, 0, &stab)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
1999-08-11 04:21:32 +08:00
|
|
|
|
if (H5AC_flush(f, NULL, HADDR_UNDEF, TRUE)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
1999-02-25 23:40:27 +08:00
|
|
|
|
if (NULL==H5O_read(&oh_ent, H5O_STAB, 0, &ro)) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
1999-07-29 02:25:43 +08:00
|
|
|
|
if (H5F_addr_ne(ro.btree_addr, stab.btree_addr) ||
|
|
|
|
|
H5F_addr_ne(ro.heap_addr, stab.heap_addr)) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
HDfprintf(stdout, " got: {%a, %a}\n",
|
1999-07-29 02:25:43 +08:00
|
|
|
|
ro.btree_addr, ro.heap_addr);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
HDfprintf(stdout, " ans: {%a, %a}\n",
|
1999-07-29 02:25:43 +08:00
|
|
|
|
stab.btree_addr, stab.heap_addr);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
PASSED();
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Test modification of an existing message.
|
|
|
|
|
*/
|
|
|
|
|
TESTING("message modification");
|
1999-07-29 02:25:43 +08:00
|
|
|
|
stab.btree_addr = 33333333;
|
|
|
|
|
stab.heap_addr = 44444444;
|
1998-11-25 22:58:22 +08:00
|
|
|
|
if (H5O_modify(&oh_ent, H5O_STAB, 0, 0, &stab)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
1999-08-11 04:21:32 +08:00
|
|
|
|
if (H5AC_flush(f, NULL, HADDR_UNDEF, TRUE)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
1999-02-25 23:40:27 +08:00
|
|
|
|
if (NULL==H5O_read(&oh_ent, H5O_STAB, 0, &ro)) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
1999-07-29 02:25:43 +08:00
|
|
|
|
if (H5F_addr_ne(ro.btree_addr, stab.btree_addr) ||
|
|
|
|
|
H5F_addr_ne(ro.heap_addr, stab.heap_addr)) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
HDfprintf(stdout, " got: {%a, %a}\n",
|
1999-07-29 02:25:43 +08:00
|
|
|
|
ro.btree_addr, ro.heap_addr);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
HDfprintf(stdout, " ans: {%a, %a}\n",
|
1999-07-29 02:25:43 +08:00
|
|
|
|
stab.btree_addr, stab.heap_addr);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
PASSED();
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Test creation of a second message of the same type.
|
|
|
|
|
*/
|
|
|
|
|
TESTING("duplicate message creation");
|
1999-07-29 02:25:43 +08:00
|
|
|
|
stab.btree_addr = 55555555;
|
|
|
|
|
stab.heap_addr = 66666666;
|
1998-11-25 22:58:22 +08:00
|
|
|
|
if (H5O_modify(&oh_ent, H5O_STAB, H5O_NEW_MESG, 0, &stab)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
1999-08-11 04:21:32 +08:00
|
|
|
|
if (H5AC_flush(f, NULL, HADDR_UNDEF, TRUE)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
1999-02-25 23:40:27 +08:00
|
|
|
|
if (NULL==H5O_read(&oh_ent, H5O_STAB, 1, &ro)) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
1999-07-29 02:25:43 +08:00
|
|
|
|
if (H5F_addr_ne(ro.btree_addr, stab.btree_addr) ||
|
|
|
|
|
H5F_addr_ne(ro.heap_addr, stab.heap_addr)) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
HDfprintf(stdout, " got: {%a, %a}\n",
|
1999-07-29 02:25:43 +08:00
|
|
|
|
ro.btree_addr, ro.heap_addr);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
HDfprintf(stdout, " ans: {%a, %a}\n",
|
1999-07-29 02:25:43 +08:00
|
|
|
|
stab.btree_addr, stab.heap_addr);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
PASSED();
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Test modification of the second message with a symbol table.
|
|
|
|
|
*/
|
|
|
|
|
TESTING("duplicate message modification");
|
1999-07-29 02:25:43 +08:00
|
|
|
|
stab.btree_addr = 77777777;
|
|
|
|
|
stab.heap_addr = 88888888;
|
1998-11-25 22:58:22 +08:00
|
|
|
|
if (H5O_modify(&oh_ent, H5O_STAB, 1, 0, &stab)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
1999-08-11 04:21:32 +08:00
|
|
|
|
if (H5AC_flush(f, NULL, HADDR_UNDEF, TRUE)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
1999-02-25 23:40:27 +08:00
|
|
|
|
if (NULL==H5O_read(&oh_ent, H5O_STAB, 1, &ro)) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
1999-07-29 02:25:43 +08:00
|
|
|
|
if (H5F_addr_ne(ro.btree_addr, stab.btree_addr) ||
|
|
|
|
|
H5F_addr_ne(ro.heap_addr, stab.heap_addr)) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
HDfprintf(stdout, " got: {%a, %a}\n",
|
1999-07-29 02:25:43 +08:00
|
|
|
|
ro.btree_addr, ro.heap_addr);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
HDfprintf(stdout, " ans: {%a, %a}\n",
|
1999-07-29 02:25:43 +08:00
|
|
|
|
stab.btree_addr, stab.heap_addr);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
PASSED();
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Test creation of a bunch of messages one after another to see
|
|
|
|
|
* what happens when the object header overflows in core.
|
|
|
|
|
*/
|
|
|
|
|
TESTING("object header overflow in memory");
|
|
|
|
|
for (i=0; i<40; i++) {
|
1999-07-29 02:25:43 +08:00
|
|
|
|
stab.btree_addr = (i+1)*1000+1;
|
|
|
|
|
stab.heap_addr = (i+1)*1000+2;
|
1998-11-25 22:58:22 +08:00
|
|
|
|
if (H5O_modify(&oh_ent, H5O_STAB, H5O_NEW_MESG, 0, &stab)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
}
|
1999-08-11 04:21:32 +08:00
|
|
|
|
if (H5AC_flush(f, NULL, HADDR_UNDEF, TRUE)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
PASSED();
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Test creation of a bunch of messages one after another to see
|
|
|
|
|
* what happens when the object header overflows on disk.
|
|
|
|
|
*/
|
|
|
|
|
TESTING("object header overflow on disk");
|
|
|
|
|
for (i=0; i<10; i++) {
|
1999-07-29 02:25:43 +08:00
|
|
|
|
stab.btree_addr = (i + 1) * 1000 + 10;
|
|
|
|
|
stab.heap_addr = (i + 1) * 1000 + 20;
|
1998-11-25 22:58:22 +08:00
|
|
|
|
if (H5O_modify(&oh_ent, H5O_STAB, H5O_NEW_MESG, 0, &stab)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
1999-08-11 04:21:32 +08:00
|
|
|
|
if (H5AC_flush(f, NULL, HADDR_UNDEF, TRUE)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
PASSED();
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Delete all symbol table messages.
|
|
|
|
|
*/
|
|
|
|
|
TESTING("message deletion");
|
|
|
|
|
if (H5O_remove(&oh_ent, H5O_STAB, H5O_ALL)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
if (H5O_read(&oh_ent, H5O_STAB, 0, &ro)) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
puts(" H5O_read() should have failed but didn't");
|
|
|
|
|
H5Eclear();
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
PASSED();
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* release resources */
|
|
|
|
|
TESTING("object header closing");
|
|
|
|
|
if (H5O_close(&oh_ent)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
H5Eprint(stdout);
|
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
if (H5Fclose(file)<0) goto error;
|
|
|
|
|
PASSED();
|
|
|
|
|
|
|
|
|
|
puts("All object header tests passed.");
|
2000-09-10 08:08:27 +08:00
|
|
|
|
h5_cleanup(FILENAME, fapl);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
error:
|
|
|
|
|
H5E_BEGIN_TRY {
|
|
|
|
|
H5Fclose(file);
|
|
|
|
|
} H5E_END_TRY;
|
|
|
|
|
return 1;
|
|
|
|
|
}
|