2003-04-01 01:59:04 +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 *
|
|
|
|
|
* http://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html. If you do not have *
|
|
|
|
|
* access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. *
|
|
|
|
|
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
|
|
|
|
|
|
1998-04-03 11:29:38 +08:00
|
|
|
|
/*
|
|
|
|
|
* Programmer: Robb Matzke <matzke@llnl.gov>
|
|
|
|
|
* Tuesday, March 31, 1998
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Tests the global heap. The global heap is the set of all
|
|
|
|
|
* collections but the collections are not related to one
|
|
|
|
|
* another by anything that appears in the file format.
|
|
|
|
|
*/
|
2001-04-04 02:09:16 +08:00
|
|
|
|
#include "h5test.h"
|
|
|
|
|
#include "H5private.h"
|
|
|
|
|
#include "H5Eprivate.h"
|
|
|
|
|
#include "H5Fprivate.h"
|
|
|
|
|
#include "H5Gprivate.h"
|
|
|
|
|
#include "H5HGprivate.h"
|
|
|
|
|
#include "H5Iprivate.h"
|
|
|
|
|
#include "H5Pprivate.h"
|
1998-04-03 11:29:38 +08:00
|
|
|
|
|
1998-11-25 22:58:22 +08:00
|
|
|
|
const char *FILENAME[] = {
|
|
|
|
|
"gheap1",
|
|
|
|
|
"gheap2",
|
|
|
|
|
"gheap3",
|
|
|
|
|
"gheap4",
|
|
|
|
|
NULL
|
|
|
|
|
};
|
1998-04-03 11:29:38 +08:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: test_1
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Writes a sequence of objects to the global heap where each
|
|
|
|
|
* object is larger than the one before.
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: 0
|
|
|
|
|
*
|
1998-11-25 22:58:22 +08:00
|
|
|
|
* Failure: number of errors
|
1998-04-03 11:29:38 +08:00
|
|
|
|
*
|
|
|
|
|
* Programmer: Robb Matzke
|
|
|
|
|
* Tuesday, March 31, 1998
|
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
static int
|
1998-11-25 22:58:22 +08:00
|
|
|
|
test_1 (hid_t fapl)
|
1998-04-03 11:29:38 +08:00
|
|
|
|
{
|
1998-11-25 22:58:22 +08:00
|
|
|
|
hid_t file=-1;
|
|
|
|
|
H5F_t *f=NULL;
|
1998-04-03 11:29:38 +08:00
|
|
|
|
H5HG_t obj[1024];
|
1998-11-19 02:40:09 +08:00
|
|
|
|
uint8_t out[1024];
|
|
|
|
|
uint8_t in[1024];
|
1998-04-03 11:29:38 +08:00
|
|
|
|
int i;
|
|
|
|
|
size_t size;
|
|
|
|
|
herr_t status;
|
1998-11-25 22:58:22 +08:00
|
|
|
|
int nerrors=0;
|
|
|
|
|
char filename[1024];
|
1998-04-03 11:29:38 +08:00
|
|
|
|
|
1998-11-25 22:58:22 +08:00
|
|
|
|
TESTING("monotonically increasing lengths");
|
1998-04-03 11:29:38 +08:00
|
|
|
|
|
|
|
|
|
/* Open a clean file */
|
1998-11-25 22:58:22 +08:00
|
|
|
|
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))) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
puts(" Unable to create file");
|
|
|
|
|
goto error;
|
1998-04-03 11:29:38 +08:00
|
|
|
|
}
|
2005-08-14 04:53:35 +08:00
|
|
|
|
|
1998-04-03 11:29:38 +08:00
|
|
|
|
/*
|
|
|
|
|
* Write the objects, monotonically increasing in length. Since this is
|
|
|
|
|
* a clean file, the addresses allocated for the collections should also
|
|
|
|
|
* be monotonically increasing.
|
|
|
|
|
*/
|
|
|
|
|
for (i=0; i<1024; i++) {
|
|
|
|
|
size = i+1;
|
|
|
|
|
memset (out, 'A'+i%26, size);
|
2004-09-02 01:43:30 +08:00
|
|
|
|
H5Eclear_stack(H5E_DEFAULT);
|
2003-02-11 01:26:09 +08:00
|
|
|
|
status = H5HG_insert (f, H5P_DATASET_XFER_DEFAULT, size, out, obj+i);
|
1998-04-03 11:29:38 +08:00
|
|
|
|
if (status<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
puts(" Unable to insert object into global heap");
|
|
|
|
|
nerrors++;
|
1999-07-29 02:25:43 +08:00
|
|
|
|
} else if (i && H5F_addr_gt (obj[i-1].addr, obj[i].addr)) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
puts(" Collection addresses are not monotonically increasing");
|
|
|
|
|
nerrors++;
|
1998-04-03 11:29:38 +08:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Now try to read each object back.
|
|
|
|
|
*/
|
|
|
|
|
for (i=0; i<1024; i++) {
|
|
|
|
|
size = i+1;
|
|
|
|
|
memset (out, 'A'+i%26, size);
|
2004-09-02 01:43:30 +08:00
|
|
|
|
H5Eclear_stack(H5E_DEFAULT);
|
2006-09-26 06:22:14 +08:00
|
|
|
|
if (NULL==H5HG_read (f, H5P_DATASET_XFER_DEFAULT, obj+i, in, NULL)) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
puts(" Unable to read object");
|
|
|
|
|
nerrors++;
|
1998-04-03 11:29:38 +08:00
|
|
|
|
} else if (memcmp (in, out, size)) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
puts(" Value read doesn't match value written");
|
|
|
|
|
nerrors++;
|
1998-04-03 11:29:38 +08:00
|
|
|
|
}
|
|
|
|
|
}
|
2005-08-14 04:53:35 +08:00
|
|
|
|
|
1998-11-25 22:58:22 +08:00
|
|
|
|
if (H5Fclose(file)<0) goto error;
|
|
|
|
|
if (nerrors) goto error;
|
|
|
|
|
PASSED();
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
error:
|
|
|
|
|
H5E_BEGIN_TRY {
|
|
|
|
|
H5Fclose(file);
|
|
|
|
|
} H5E_END_TRY;
|
|
|
|
|
return MAX(1, nerrors);
|
1998-04-03 11:29:38 +08:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: test_2
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Writes a sequence of objects to the global heap where each
|
|
|
|
|
* object is smaller than the one before.
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: 0
|
|
|
|
|
*
|
1998-11-25 22:58:22 +08:00
|
|
|
|
* Failure: number of errors
|
1998-04-03 11:29:38 +08:00
|
|
|
|
*
|
|
|
|
|
* Programmer: Robb Matzke
|
|
|
|
|
* Tuesday, March 31, 1998
|
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
static int
|
1998-11-25 22:58:22 +08:00
|
|
|
|
test_2 (hid_t fapl)
|
1998-04-03 11:29:38 +08:00
|
|
|
|
{
|
1998-11-25 22:58:22 +08:00
|
|
|
|
hid_t file=-1;
|
|
|
|
|
H5F_t *f=NULL;
|
1998-04-03 11:29:38 +08:00
|
|
|
|
H5HG_t obj[1024];
|
1998-11-19 02:40:09 +08:00
|
|
|
|
uint8_t out[1024];
|
|
|
|
|
uint8_t in[1024];
|
1998-04-03 11:29:38 +08:00
|
|
|
|
int i;
|
|
|
|
|
size_t size;
|
1998-11-25 22:58:22 +08:00
|
|
|
|
int nerrors=0;
|
|
|
|
|
char filename[1024];
|
1998-04-03 11:29:38 +08:00
|
|
|
|
|
1998-11-25 22:58:22 +08:00
|
|
|
|
TESTING("monotonically decreasing lengths");
|
1998-04-03 11:29:38 +08:00
|
|
|
|
|
|
|
|
|
/* Open a clean file */
|
1998-11-25 22:58:22 +08:00
|
|
|
|
h5_fixname(FILENAME[1], fapl, filename, sizeof filename);
|
|
|
|
|
if ((file=H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl))<0)
|
|
|
|
|
goto error;
|
|
|
|
|
if (NULL==(f=H5I_object(file))) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
puts(" Unable to create file");
|
|
|
|
|
goto error;
|
1998-04-03 11:29:38 +08:00
|
|
|
|
}
|
2005-08-14 04:53:35 +08:00
|
|
|
|
|
1998-04-03 11:29:38 +08:00
|
|
|
|
/*
|
|
|
|
|
* Write the objects, monotonically decreasing in length.
|
|
|
|
|
*/
|
|
|
|
|
for (i=0; i<1024; i++) {
|
|
|
|
|
size = 1024-i;
|
|
|
|
|
memset (out, 'A'+i%26, size);
|
2004-09-02 01:43:30 +08:00
|
|
|
|
H5Eclear_stack(H5E_DEFAULT);
|
2003-02-11 01:26:09 +08:00
|
|
|
|
if (H5HG_insert (f, H5P_DATASET_XFER_DEFAULT, size, out, obj+i)<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
puts(" Unable to insert object into global heap");
|
|
|
|
|
nerrors++;
|
1998-04-03 11:29:38 +08:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Now try to read each object back.
|
|
|
|
|
*/
|
|
|
|
|
for (i=0; i<1024; i++) {
|
|
|
|
|
size = 1024-i;
|
|
|
|
|
memset (out, 'A'+i%26, size);
|
2004-09-02 01:43:30 +08:00
|
|
|
|
H5Eclear_stack(H5E_DEFAULT);
|
2006-09-26 06:22:14 +08:00
|
|
|
|
if (NULL==H5HG_read (f, H5P_DATASET_XFER_DEFAULT, obj+i, in, NULL)) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
puts(" Unable to read object");
|
|
|
|
|
nerrors++;
|
1998-04-03 11:29:38 +08:00
|
|
|
|
} else if (memcmp (in, out, size)) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
puts(" Value read doesn't match value written");
|
|
|
|
|
nerrors++;
|
1998-04-03 11:29:38 +08:00
|
|
|
|
}
|
|
|
|
|
}
|
2005-08-14 04:53:35 +08:00
|
|
|
|
|
1998-11-25 22:58:22 +08:00
|
|
|
|
if (H5Fclose(file)<0) goto error;
|
|
|
|
|
if (nerrors) goto error;
|
|
|
|
|
PASSED();
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
error:
|
|
|
|
|
H5E_BEGIN_TRY {
|
|
|
|
|
H5Fclose(file);
|
|
|
|
|
} H5E_END_TRY;
|
|
|
|
|
return MAX(1, nerrors);
|
1998-04-03 11:29:38 +08:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: test_3
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Creates a few global heap objects and then removes them all.
|
|
|
|
|
* The collection should also be removed.
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: 0
|
|
|
|
|
*
|
1998-11-25 22:58:22 +08:00
|
|
|
|
* Failure: number of errors
|
1998-04-03 11:29:38 +08:00
|
|
|
|
*
|
|
|
|
|
* Programmer: Robb Matzke
|
|
|
|
|
* Tuesday, March 31, 1998
|
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
static int
|
1998-11-25 22:58:22 +08:00
|
|
|
|
test_3 (hid_t fapl)
|
1998-04-03 11:29:38 +08:00
|
|
|
|
{
|
1998-11-25 22:58:22 +08:00
|
|
|
|
hid_t file=-1;
|
|
|
|
|
H5F_t *f=NULL;
|
1998-04-03 11:29:38 +08:00
|
|
|
|
H5HG_t obj[1024];
|
1998-11-19 02:40:09 +08:00
|
|
|
|
uint8_t out[1024];
|
1998-04-03 11:29:38 +08:00
|
|
|
|
int i;
|
|
|
|
|
size_t size;
|
|
|
|
|
herr_t status;
|
1998-11-25 22:58:22 +08:00
|
|
|
|
int nerrors=0;
|
|
|
|
|
char filename[1024];
|
1998-04-03 11:29:38 +08:00
|
|
|
|
|
1998-11-25 22:58:22 +08:00
|
|
|
|
TESTING("complete object removal");
|
1998-04-03 11:29:38 +08:00
|
|
|
|
|
|
|
|
|
/* Open a clean file */
|
1998-11-25 22:58:22 +08:00
|
|
|
|
h5_fixname(FILENAME[2], fapl, filename, sizeof filename);
|
|
|
|
|
if ((file=H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl))<0)
|
|
|
|
|
goto error;
|
|
|
|
|
if (NULL==(f=H5I_object(file))) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
puts(" Unable to create file");
|
|
|
|
|
goto error;
|
1998-04-03 11:29:38 +08:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Create some stuff */
|
|
|
|
|
for (i=0; i<1024; i++) {
|
|
|
|
|
size = i%30+100;
|
|
|
|
|
memset (out, 'A'+i%26, size);
|
2004-09-02 01:43:30 +08:00
|
|
|
|
H5Eclear_stack(H5E_DEFAULT);
|
2003-02-11 01:26:09 +08:00
|
|
|
|
status = H5HG_insert (f, H5P_DATASET_XFER_DEFAULT, size, out, obj+i);
|
1998-04-03 11:29:38 +08:00
|
|
|
|
if (status<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
puts(" Unable to insert object into global heap");
|
|
|
|
|
nerrors++;
|
1998-04-03 11:29:38 +08:00
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* Remove everything */
|
|
|
|
|
for (i=0; i<1024; i++) {
|
2003-02-11 01:26:09 +08:00
|
|
|
|
status = H5HG_remove (f, H5P_DATASET_XFER_DEFAULT, obj+i);
|
1998-04-03 11:29:38 +08:00
|
|
|
|
if (status<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
puts(" Unable to remove object");
|
|
|
|
|
nerrors++;
|
1998-04-03 11:29:38 +08:00
|
|
|
|
}
|
|
|
|
|
}
|
2005-08-14 04:53:35 +08:00
|
|
|
|
|
1998-11-25 22:58:22 +08:00
|
|
|
|
if (H5Fclose(file)<0) goto error;
|
|
|
|
|
if (nerrors) goto error;
|
|
|
|
|
PASSED();
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
error:
|
|
|
|
|
H5E_BEGIN_TRY {
|
|
|
|
|
H5Fclose(file);
|
|
|
|
|
} H5E_END_TRY;
|
|
|
|
|
return MAX(1, nerrors);
|
1998-04-03 11:29:38 +08:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: test_4
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Tests the H5HG_remove() feature by writing lots of objects
|
|
|
|
|
* and occassionally removing some. When we're done they're all
|
|
|
|
|
* removed.
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: 0
|
|
|
|
|
*
|
1998-11-25 22:58:22 +08:00
|
|
|
|
* Failure: number of errors
|
1998-04-03 11:29:38 +08:00
|
|
|
|
*
|
|
|
|
|
* Programmer: Robb Matzke
|
|
|
|
|
* Tuesday, March 31, 1998
|
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
static int
|
1998-11-25 22:58:22 +08:00
|
|
|
|
test_4 (hid_t fapl)
|
1998-04-03 11:29:38 +08:00
|
|
|
|
{
|
1998-11-25 22:58:22 +08:00
|
|
|
|
hid_t file=-1;
|
|
|
|
|
H5F_t *f=NULL;
|
1998-04-03 11:29:38 +08:00
|
|
|
|
H5HG_t obj[1024];
|
1998-11-19 02:40:09 +08:00
|
|
|
|
uint8_t out[1024];
|
1998-04-03 11:29:38 +08:00
|
|
|
|
int i;
|
|
|
|
|
size_t size;
|
|
|
|
|
herr_t status;
|
1998-11-25 22:58:22 +08:00
|
|
|
|
int nerrors=0;
|
|
|
|
|
char filename[1024];
|
1998-04-03 11:29:38 +08:00
|
|
|
|
|
1998-11-25 22:58:22 +08:00
|
|
|
|
TESTING("partial object removal");
|
1998-04-03 11:29:38 +08:00
|
|
|
|
|
|
|
|
|
/* Open a clean file */
|
1998-11-25 22:58:22 +08:00
|
|
|
|
h5_fixname(FILENAME[3], fapl, filename, sizeof filename);
|
|
|
|
|
if ((file=H5Fcreate(filename, H5F_ACC_TRUNC, H5P_DEFAULT, fapl))<0)
|
|
|
|
|
goto error;
|
|
|
|
|
if (NULL==(f=H5I_object(file))) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
puts(" Unable to create file");
|
|
|
|
|
goto error;
|
1998-04-03 11:29:38 +08:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
for (i=0; i<1024; i++) {
|
|
|
|
|
/* Insert */
|
|
|
|
|
size = i%30+100;
|
|
|
|
|
memset (out, 'A'+i%26, size);
|
2004-09-02 01:43:30 +08:00
|
|
|
|
H5Eclear_stack(H5E_DEFAULT);
|
2003-02-11 01:26:09 +08:00
|
|
|
|
status = H5HG_insert (f, H5P_DATASET_XFER_DEFAULT, size, out, obj+i);
|
1998-04-03 11:29:38 +08:00
|
|
|
|
if (status<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
puts(" Unable to insert object into global heap");
|
|
|
|
|
nerrors++;
|
1998-04-03 11:29:38 +08:00
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
* Remove every third one beginning with the second, but after the
|
|
|
|
|
* next one has already been inserted. That is, insert A, B, C;
|
|
|
|
|
* remove B, insert D, E, F; remove E; etc.
|
2005-08-14 04:53:35 +08:00
|
|
|
|
*/
|
1998-04-03 11:29:38 +08:00
|
|
|
|
if (1==i%3) {
|
2004-09-02 01:43:30 +08:00
|
|
|
|
H5Eclear_stack(H5E_DEFAULT);
|
2003-02-11 01:26:09 +08:00
|
|
|
|
status = H5HG_remove (f, H5P_DATASET_XFER_DEFAULT, obj+i-1);
|
1998-04-03 11:29:38 +08:00
|
|
|
|
if (status<0) {
|
2001-01-26 01:03:29 +08:00
|
|
|
|
H5_FAILED();
|
1998-11-25 22:58:22 +08:00
|
|
|
|
puts(" Unable to remove object");
|
|
|
|
|
nerrors++;
|
1998-04-03 11:29:38 +08:00
|
|
|
|
}
|
|
|
|
|
memset (obj+i-1, 0, sizeof *obj);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
1998-11-25 22:58:22 +08:00
|
|
|
|
if (H5Fclose(file)<0) goto error;
|
|
|
|
|
if (nerrors) goto error;
|
|
|
|
|
PASSED();
|
|
|
|
|
return 0;
|
1998-04-03 11:29:38 +08:00
|
|
|
|
|
1998-11-25 22:58:22 +08:00
|
|
|
|
error:
|
|
|
|
|
H5E_BEGIN_TRY {
|
|
|
|
|
H5Fclose(file);
|
|
|
|
|
} H5E_END_TRY;
|
|
|
|
|
return MAX(1, nerrors);
|
1998-05-29 07:02:29 +08:00
|
|
|
|
}
|
2005-08-14 04:53:35 +08:00
|
|
|
|
|
1998-04-03 11:29:38 +08:00
|
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
|
|
|
* Function: main
|
|
|
|
|
*
|
|
|
|
|
* Purpose: Tests global heap.
|
|
|
|
|
*
|
|
|
|
|
* Return: Success: zero
|
|
|
|
|
*
|
|
|
|
|
* Failure: non-zero
|
|
|
|
|
*
|
|
|
|
|
* Programmer: Robb Matzke
|
|
|
|
|
* Tuesday, March 31, 1998
|
|
|
|
|
*
|
|
|
|
|
* Modifications:
|
|
|
|
|
*
|
|
|
|
|
*-------------------------------------------------------------------------
|
|
|
|
|
*/
|
|
|
|
|
int
|
|
|
|
|
main (void)
|
|
|
|
|
{
|
1998-11-25 22:58:22 +08:00
|
|
|
|
int nerrors=0;
|
|
|
|
|
hid_t fapl;
|
1998-04-03 11:29:38 +08:00
|
|
|
|
|
1998-11-25 22:58:22 +08:00
|
|
|
|
h5_reset();
|
|
|
|
|
fapl = h5_fileaccess();
|
2005-08-14 04:53:35 +08:00
|
|
|
|
|
1998-11-25 22:58:22 +08:00
|
|
|
|
nerrors += test_1(fapl);
|
|
|
|
|
nerrors += test_2(fapl);
|
|
|
|
|
nerrors += test_3(fapl);
|
|
|
|
|
nerrors += test_4(fapl);
|
|
|
|
|
if (nerrors) goto error;
|
1998-04-03 11:29:38 +08:00
|
|
|
|
|
1998-11-25 22:58:22 +08:00
|
|
|
|
puts("All global heap 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:
|
|
|
|
|
puts("*** TESTS FAILED ***");
|
|
|
|
|
return 1;
|
1998-04-03 11:29:38 +08:00
|
|
|
|
}
|