2003-02-17 23:54:15 +08:00
|
|
|
|
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
2007-02-07 22:56:24 +08:00
|
|
|
|
* Copyright by The HDF Group. *
|
2003-02-17 23:54:15 +08:00
|
|
|
|
* Copyright by the Board of Trustees of the University of Illinois. *
|
|
|
|
|
* All rights reserved. *
|
|
|
|
|
* *
|
|
|
|
|
* This file is part of HDF5. The full HDF5 copyright notice, including *
|
|
|
|
|
* terms governing use, modification, and redistribution, is contained in *
|
|
|
|
|
* the files COPYING and Copyright.html. COPYING can be found at the root *
|
|
|
|
|
* of the source code distribution tree; Copyright.html can be found at the *
|
|
|
|
|
* root level of an installed copy of the electronic HDF5 document set and *
|
|
|
|
|
* is linked from the top-level documents page. It can also be found at *
|
2007-02-07 22:56:24 +08:00
|
|
|
|
* http://hdfgroup.org/HDF5/doc/Copyright.html. If you do not have *
|
|
|
|
|
* access to either file, you may request a copy from help@hdfgroup.org. *
|
2003-02-17 23:54:15 +08:00
|
|
|
|
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
|
|
|
|
|
|
|
|
|
|
/* Programmer: Robb Matzke <matzke@llnl.gov>
|
1998-11-25 22:58:22 +08:00
|
|
|
|
* Tuesday, November 24, 1998
|
|
|
|
|
*/
|
2001-04-04 02:09:16 +08:00
|
|
|
|
#include "h5test.h"
|
|
|
|
|
#include "H5Iprivate.h"
|
2003-02-17 23:54:15 +08:00
|
|
|
|
/*
|
|
|
|
|
* This file needs to access private datatypes from the H5O package.
|
|
|
|
|
*/
|
|
|
|
|
#define H5O_PACKAGE
|
|
|
|
|
#include "H5Opkg.h"
|
1998-11-25 22:58:22 +08:00
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* This file needs to access private datatypes from the H5G package.
|
|
|
|
|
*/
|
|
|
|
|
#define H5G_PACKAGE
|
2001-04-04 02:09:16 +08:00
|
|
|
|
#include "H5Gpkg.h"
|
1998-11-25 22:58:22 +08:00
|
|
|
|
|
|
|
|
|
const char *FILENAME[] = {
|
|
|
|
|
"ohdr",
|
|
|
|
|
NULL
|
|
|
|
|
};
|
|
|
|
|
|
2003-01-22 04:20:13 +08:00
|
|
|
|
/* The tbogus.h5 is generated from gen_bogus.c in HDF5 'test' directory.
|
|
|
|
|
* To get this data file, define H5O_ENABLE_BOGUS in src/H5Oprivate, rebuild
|
|
|
|
|
* the library and simply compile gen_bogus.c with that HDF5 library and run it. */
|
|
|
|
|
#define FILE_BOGUS "tbogus.h5"
|
|
|
|
|
|
2004-07-17 04:48:40 +08:00
|
|
|
|
|
1998-11-25 22:58:22 +08:00
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: main
|
|
|
|
|
*
|
2005-08-14 04:53:35 +08:00
|
|
|
|
* Purpose:
|
1998-11-25 22:58:22 +08:00
|
|
|
|
*
|
2005-08-14 04:53:35 +08:00
|
|
|
|
* Return: Success:
|
1998-11-25 22:58:22 +08:00
|
|
|
|
*
|
2005-08-14 04:53:35 +08:00
|
|
|
|
* Failure:
|
1998-11-25 22:58:22 +08:00
|
|
|
|
*
|
|
|
|
|
* Programmer: Robb Matzke
|
|
|
|
|
* Tuesday, November 24, 1998
|
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
int
|
|
|
|
|
main(void)
|
|
|
|
|
{
|
|
|
|
|
hid_t fapl=-1, file=-1;
|
2003-01-22 04:20:13 +08:00
|
|
|
|
hid_t dset=-1;
|
1998-11-25 22:58:22 +08:00
|
|
|
|
H5F_t *f=NULL;
|
|
|
|
|
char filename[1024];
|
2005-11-15 10:55:39 +08:00
|
|
|
|
H5O_loc_t oh_loc;
|
2003-10-06 05:14:40 +08:00
|
|
|
|
time_t time_new, ro;
|
1998-11-25 22:58:22 +08:00
|
|
|
|
int i;
|
2006-08-01 03:46:16 +08:00
|
|
|
|
const char *envval = NULL;
|
|
|
|
|
|
1998-11-25 22:58:22 +08:00
|
|
|
|
/* 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))) {
|
2004-09-02 01:43:30 +08:00
|
|
|
|
H5Eprint_stack(H5E_DEFAULT, stdout);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Test object header creation
|
2006-11-29 12:13:02 +08:00
|
|
|
|
* (using default group creation property list only because it's convenient)
|
1998-11-25 22:58:22 +08:00
|
|
|
|
*/
|
|
|
|
|
TESTING("object header creation");
|
2005-11-15 10:55:39 +08:00
|
|
|
|
HDmemset(&oh_loc, 0, sizeof(oh_loc));
|
2006-11-29 12:13:02 +08:00
|
|
|
|
if(H5O_create(f, H5P_DATASET_XFER_DEFAULT, (size_t)64, H5P_GROUP_CREATE_DEFAULT, &oh_loc/*out*/)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2004-09-02 01:43:30 +08:00
|
|
|
|
H5Eprint_stack(H5E_DEFAULT, stdout);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
PASSED();
|
|
|
|
|
|
|
|
|
|
/* create a new message */
|
|
|
|
|
TESTING("message creation");
|
2003-10-06 05:14:40 +08:00
|
|
|
|
time_new = 11111111;
|
2006-12-03 23:29:41 +08:00
|
|
|
|
if(H5O_msg_create(&oh_loc, H5O_MTIME_NEW_ID, 0, 0, &time_new, H5P_DATASET_XFER_DEFAULT) < 0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2004-09-02 01:43:30 +08:00
|
|
|
|
H5Eprint_stack(H5E_DEFAULT, stdout);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
2004-10-27 04:07:10 +08:00
|
|
|
|
if (H5AC_flush(f, H5P_DATASET_XFER_DEFAULT, TRUE)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2004-09-02 01:43:30 +08:00
|
|
|
|
H5Eprint_stack(H5E_DEFAULT, stdout);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
2007-02-06 06:26:44 +08:00
|
|
|
|
if(NULL == H5O_msg_read(&oh_loc, H5O_MTIME_NEW_ID, &ro, H5P_DATASET_XFER_DEFAULT)) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2004-09-02 01:43:30 +08:00
|
|
|
|
H5Eprint_stack(H5E_DEFAULT, stdout);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
2003-10-06 05:14:40 +08:00
|
|
|
|
if (ro!=time_new) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2003-10-06 05:14:40 +08:00
|
|
|
|
HDfprintf(stdout, " got: {%ld}\n", (long)ro);
|
|
|
|
|
HDfprintf(stdout, " ans: {%ld}\n", (long)time_new);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
PASSED();
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Test modification of an existing message.
|
|
|
|
|
*/
|
|
|
|
|
TESTING("message modification");
|
2003-10-06 05:14:40 +08:00
|
|
|
|
time_new = 33333333;
|
2007-02-06 06:26:44 +08:00
|
|
|
|
if (H5O_msg_write(&oh_loc, H5O_MTIME_NEW_ID, 0, 0, &time_new, H5P_DATASET_XFER_DEFAULT)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2004-09-02 01:43:30 +08:00
|
|
|
|
H5Eprint_stack(H5E_DEFAULT, stdout);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
2004-10-27 04:07:10 +08:00
|
|
|
|
if (H5AC_flush(f, H5P_DATASET_XFER_DEFAULT, TRUE)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2004-09-02 01:43:30 +08:00
|
|
|
|
H5Eprint_stack(H5E_DEFAULT, stdout);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
2007-02-06 06:26:44 +08:00
|
|
|
|
if(NULL == H5O_msg_read(&oh_loc, H5O_MTIME_NEW_ID, &ro, H5P_DATASET_XFER_DEFAULT)) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2004-09-02 01:43:30 +08:00
|
|
|
|
H5Eprint_stack(H5E_DEFAULT, stdout);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
2003-10-06 05:14:40 +08:00
|
|
|
|
if (ro!=time_new) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2003-10-06 05:14:40 +08:00
|
|
|
|
HDfprintf(stdout, " got: {%ld}\n", (long)ro);
|
|
|
|
|
HDfprintf(stdout, " ans: {%ld}\n", (long)time_new);
|
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.
|
2003-10-09 01:58:58 +08:00
|
|
|
|
* (Use 'old' MTIME message here, because it is large enough to be
|
|
|
|
|
* replaced with a continuation message (the new one is too small)
|
|
|
|
|
* and the library doesn't understand how to migrate more than one
|
|
|
|
|
* message from an object header currently - QAK - 10/8/03)
|
1998-11-25 22:58:22 +08:00
|
|
|
|
*/
|
|
|
|
|
TESTING("object header overflow in memory");
|
|
|
|
|
for (i=0; i<40; i++) {
|
2003-10-06 05:14:40 +08:00
|
|
|
|
time_new = (i+1)*1000+1;
|
2006-12-03 23:29:41 +08:00
|
|
|
|
if(H5O_msg_create(&oh_loc, H5O_MTIME_ID, 0, 0, &time_new, H5P_DATASET_XFER_DEFAULT) < 0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2004-09-02 01:43:30 +08:00
|
|
|
|
H5Eprint_stack(H5E_DEFAULT, stdout);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
}
|
2004-10-27 04:07:10 +08:00
|
|
|
|
if (H5AC_flush(f, H5P_DATASET_XFER_DEFAULT, TRUE)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2004-09-02 01:43:30 +08:00
|
|
|
|
H5Eprint_stack(H5E_DEFAULT, stdout);
|
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 on disk.
|
|
|
|
|
*/
|
|
|
|
|
TESTING("object header overflow on disk");
|
|
|
|
|
for (i=0; i<10; i++) {
|
2003-10-06 05:14:40 +08:00
|
|
|
|
time_new = (i + 1) * 1000 + 10;
|
2006-12-03 23:29:41 +08:00
|
|
|
|
if(H5O_msg_create(&oh_loc, H5O_MTIME_NEW_ID, 0, 0, &time_new, H5P_DATASET_XFER_DEFAULT) < 0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2004-09-02 01:43:30 +08:00
|
|
|
|
H5Eprint_stack(H5E_DEFAULT, stdout);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
2004-10-27 04:07:10 +08:00
|
|
|
|
if (H5AC_flush(f, H5P_DATASET_XFER_DEFAULT, TRUE)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2004-09-02 01:43:30 +08:00
|
|
|
|
H5Eprint_stack(H5E_DEFAULT, stdout);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
PASSED();
|
|
|
|
|
|
|
|
|
|
/*
|
2003-10-06 05:14:40 +08:00
|
|
|
|
* Delete all time messages.
|
1998-11-25 22:58:22 +08:00
|
|
|
|
*/
|
|
|
|
|
TESTING("message deletion");
|
2006-12-04 22:34:10 +08:00
|
|
|
|
if (H5O_msg_remove(&oh_loc, H5O_MTIME_NEW_ID, H5O_ALL, TRUE, H5P_DATASET_XFER_DEFAULT)<0) {
|
2003-10-09 01:58:58 +08:00
|
|
|
|
H5_FAILED();
|
2004-09-02 01:43:30 +08:00
|
|
|
|
H5Eprint_stack(H5E_DEFAULT, stdout);
|
2003-10-09 01:58:58 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
2006-12-04 22:34:10 +08:00
|
|
|
|
if (H5O_msg_remove(&oh_loc, H5O_MTIME_ID, H5O_ALL, TRUE, H5P_DATASET_XFER_DEFAULT)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2004-09-02 01:43:30 +08:00
|
|
|
|
H5Eprint_stack(H5E_DEFAULT, stdout);
|
2003-10-09 01:58:58 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
2007-02-06 06:26:44 +08:00
|
|
|
|
if(H5O_msg_read(&oh_loc, H5O_MTIME_NEW_ID, &ro, H5P_DATASET_XFER_DEFAULT)) {
|
2003-10-09 01:58:58 +08:00
|
|
|
|
H5_FAILED();
|
2006-12-04 19:25:01 +08:00
|
|
|
|
puts(" H5O_msg_read() should have failed but didn't");
|
2004-09-02 01:43:30 +08:00
|
|
|
|
H5Eclear_stack(H5E_DEFAULT);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
2007-02-06 06:26:44 +08:00
|
|
|
|
if(H5O_msg_read(&oh_loc, H5O_MTIME_ID, &ro, H5P_DATASET_XFER_DEFAULT)) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2006-12-04 19:25:01 +08:00
|
|
|
|
puts(" H5O_msg_read() should have failed but didn't");
|
2004-09-02 01:43:30 +08:00
|
|
|
|
H5Eclear_stack(H5E_DEFAULT);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
PASSED();
|
2005-08-14 04:53:35 +08:00
|
|
|
|
|
1998-11-25 22:58:22 +08:00
|
|
|
|
|
|
|
|
|
/* release resources */
|
|
|
|
|
TESTING("object header closing");
|
2005-11-15 10:55:39 +08:00
|
|
|
|
if (H5O_close(&oh_loc)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
2004-09-02 01:43:30 +08:00
|
|
|
|
H5Eprint_stack(H5E_DEFAULT, stdout);
|
1998-11-25 22:58:22 +08:00
|
|
|
|
goto error;
|
|
|
|
|
}
|
|
|
|
|
if (H5Fclose(file)<0) goto error;
|
|
|
|
|
PASSED();
|
|
|
|
|
|
2003-01-22 04:20:13 +08:00
|
|
|
|
/* Test reading dataset with undefined object header message */
|
|
|
|
|
TESTING("reading object with unknown header message");
|
2006-08-01 03:46:16 +08:00
|
|
|
|
envval = HDgetenv("HDF5_DRIVER");
|
|
|
|
|
if (envval == NULL)
|
|
|
|
|
envval = "nomatch";
|
|
|
|
|
if (HDstrcmp(envval, "core") && HDstrcmp(envval, "multi") && HDstrcmp(envval, "split") && HDstrcmp(envval, "family")) {
|
|
|
|
|
{
|
|
|
|
|
char testfile[512]="";
|
|
|
|
|
char *srcdir = getenv("srcdir");
|
2003-01-22 04:20:13 +08:00
|
|
|
|
|
2006-08-01 03:46:16 +08:00
|
|
|
|
/* Build path to test file */
|
|
|
|
|
if (srcdir && ((HDstrlen(srcdir) + HDstrlen(FILE_BOGUS) + 1) < sizeof(testfile))){
|
|
|
|
|
HDstrcpy(testfile, srcdir);
|
|
|
|
|
HDstrcat(testfile, "/");
|
|
|
|
|
}
|
|
|
|
|
HDstrcat(testfile, FILE_BOGUS);
|
2003-01-22 04:20:13 +08:00
|
|
|
|
|
2006-08-01 03:46:16 +08:00
|
|
|
|
if ((file=H5Fopen(testfile, H5F_ACC_RDONLY, fapl))<0)
|
|
|
|
|
goto error;
|
2003-01-22 04:20:13 +08:00
|
|
|
|
|
2006-08-01 03:46:16 +08:00
|
|
|
|
/* Open the dataset with the unknown header message (generated with gen_bogus.c) */
|
|
|
|
|
if((dset=H5Dopen(file,"/Dataset1"))<0)
|
|
|
|
|
goto error;
|
|
|
|
|
if (H5Dclose(dset)<0) goto error;
|
2003-01-22 04:20:13 +08:00
|
|
|
|
|
2006-08-01 03:46:16 +08:00
|
|
|
|
if (H5Fclose(file)<0) goto error;
|
|
|
|
|
}
|
|
|
|
|
PASSED();
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{
|
|
|
|
|
SKIPPED();
|
|
|
|
|
puts(" Test not compatible with current Virtual File Driver");
|
2003-01-22 04:20:13 +08:00
|
|
|
|
}
|
|
|
|
|
|
1998-11-25 22:58:22 +08:00
|
|
|
|
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;
|
|
|
|
|
|
2006-08-01 03:46:16 +08:00
|
|
|
|
error:
|
|
|
|
|
puts("*** TESTS FAILED ***");
|
|
|
|
|
H5E_BEGIN_TRY {
|
|
|
|
|
H5Fclose(file);
|
|
|
|
|
} H5E_END_TRY;
|
|
|
|
|
return 1;
|
1998-11-25 22:58:22 +08:00
|
|
|
|
}
|