mirror of
https://github.com/HDFGroup/hdf5.git
synced 2026-10-07 04:02:30 +03:00
Robb Matzke
dedc8c37b4
---------------------- ./MANIFEST ./test/Makefile.in ./test/shtype.c [REMOVED] Removed shtype.c because it was all commented out. Besides, these tests are done in dtypes.c now anyway. ./test/external.c ./test/fillval.c ./test/flush1.c ./test/flush2.c ./test/links.c ./test/mount.c ./test/mtime.c ./test/unlink.c The tests that check the HDF5 API use the h5test support functions. For one thing, that means that you can specify the file driver that thay use by the HDF5_DRIVER environment variable. Possible values are: HDF5_DRIVER='sec2' Use read() and write() HDF5_DRIVER='stdio' Use fread() and fwrite() HDF5_DRIVER='core' Use malloc() and free() HDF5_DRIVER='split' Split meta and raw data HDF5_DRIVER='family N' Use file families with each member being N megabytes (N can be fractional, defaults to one). Some tests might fail for certain drivers: for instance, the mount and link tests fail for the `core' driver because they must be able to close and then reopen a file.
331 lines
7.6 KiB
C
331 lines
7.6 KiB
C
/*
|
|
* Copyright (C) 1998 NCSA
|
|
* All rights reserved.
|
|
*
|
|
* Programmer: Robb Matzke <matzke@llnl.gov>
|
|
* Friday, September 25, 1998
|
|
*
|
|
* Purpose: Test H5Gunlink().
|
|
*/
|
|
#include <h5test.h>
|
|
|
|
const char *FILENAME[] = {
|
|
"unlink",
|
|
NULL
|
|
};
|
|
|
|
#define THE_OBJECT "/foo"
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: test_one
|
|
*
|
|
* Purpose: Creates a group that has just one entry and then unlinks that
|
|
* entry.
|
|
*
|
|
* Return: Success: 0
|
|
*
|
|
* Failure: number of errors
|
|
*
|
|
* Programmer: Robb Matzke
|
|
* Friday, September 25, 1998
|
|
*
|
|
* Modifications:
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
static int
|
|
test_one(hid_t file)
|
|
{
|
|
hid_t work=-1, grp=-1;
|
|
herr_t status;
|
|
|
|
/* Create a test group */
|
|
if ((work=H5Gcreate(file, "/test_one", 0))<0) goto error;
|
|
|
|
/* Delete by absolute name */
|
|
TESTING("unlink by absolute name");
|
|
if ((grp=H5Gcreate(work, "foo", 0))<0) goto error;
|
|
if (H5Gclose(grp)<0) goto error;
|
|
if (H5Gunlink(file, "/test_one/foo")<0) goto error;
|
|
PASSED();
|
|
|
|
/* Delete by local name */
|
|
TESTING("unlink by local name");
|
|
if ((grp=H5Gcreate(work, "foo", 0))<0) goto error;
|
|
if (H5Gclose(grp)<0) goto error;
|
|
if (H5Gunlink(work, "foo")<0) goto error;
|
|
PASSED();
|
|
|
|
/* Delete directly - should fail */
|
|
TESTING("unlink without a name");
|
|
if ((grp=H5Gcreate(work, "foo", 0))<0) goto error;
|
|
H5E_BEGIN_TRY {
|
|
status = H5Gunlink(grp, ".");
|
|
} H5E_END_TRY;
|
|
if (status>=0) {
|
|
FAILED();
|
|
puts(" Unlinking object w/o a name should have failed.");
|
|
goto error;
|
|
}
|
|
if (H5Gclose(grp)<0) goto error;
|
|
PASSED();
|
|
|
|
/* Cleanup */
|
|
if (H5Gclose(work)<0) goto error;
|
|
return 0;
|
|
|
|
error:
|
|
H5E_BEGIN_TRY {
|
|
H5Gclose(work);
|
|
H5Gclose(grp);
|
|
} H5E_END_TRY;
|
|
return 1;
|
|
}
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: test_many
|
|
*
|
|
* Purpose: Tests many unlinks in a single directory.
|
|
*
|
|
* Return: Success: 0
|
|
*
|
|
* Failure: number of errors
|
|
*
|
|
* Programmer: Robb Matzke
|
|
* Friday, September 25, 1998
|
|
*
|
|
* Modifications:
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
static int
|
|
test_many(hid_t file)
|
|
{
|
|
hid_t work=-1, grp=-1;
|
|
int i;
|
|
const int how_many=500;
|
|
char name[32];
|
|
|
|
/* Create a test group */
|
|
if ((work=H5Gcreate(file, "/test_many", 0))<0) goto error;
|
|
if ((grp = H5Gcreate(work, "/test_many_foo", 0))<0) goto error;
|
|
if (H5Gclose(grp)<0) goto error;
|
|
|
|
/* Create a bunch of names and unlink them in order */
|
|
TESTING("forward unlink");
|
|
for (i=0; i<how_many; i++) {
|
|
sprintf(name, "obj_%05d", i);
|
|
if (H5Glink(work, H5G_LINK_HARD, "/test_many_foo", name)<0) goto error;
|
|
}
|
|
for (i=0; i<how_many; i++) {
|
|
sprintf(name, "obj_%05d", i);
|
|
if (H5Gunlink(work, name)<0) goto error;
|
|
}
|
|
PASSED();
|
|
|
|
/* Create a bunch of names and unlink them in reverse order */
|
|
TESTING("backward unlink");
|
|
for (i=0; i<how_many; i++) {
|
|
sprintf(name, "obj_%05d", i);
|
|
if (H5Glink(work, H5G_LINK_HARD, "/test_many_foo", name)<0) goto error;
|
|
}
|
|
for (i=how_many-1; i>=0; --i) {
|
|
sprintf(name, "obj_%05d", i);
|
|
if (H5Gunlink(work, name)<0) goto error;
|
|
}
|
|
PASSED();
|
|
|
|
/* Create a bunch of names and unlink them from both directions */
|
|
TESTING("inward unlink");
|
|
for (i=0; i<how_many; i++) {
|
|
sprintf(name, "obj_%05d", i);
|
|
if (H5Glink(work, H5G_LINK_HARD, "/test_many_foo", name)<0) goto error;
|
|
}
|
|
for (i=0; i<how_many; i++) {
|
|
if (i%2) {
|
|
sprintf(name, "obj_%05d", how_many-(1+i/2));
|
|
} else {
|
|
sprintf(name, "obj_%05d", i/2);
|
|
}
|
|
if (H5Gunlink(work, name)<0) goto error;
|
|
}
|
|
PASSED();
|
|
|
|
/* Create a bunch of names and unlink them from the midle */
|
|
TESTING("outward unlink");
|
|
for (i=0; i<how_many; i++) {
|
|
sprintf(name, "obj_%05d", i);
|
|
if (H5Glink(work, H5G_LINK_HARD, "/test_many_foo", name)<0) goto error;
|
|
}
|
|
for (i=how_many-1; i>=0; --i) {
|
|
if (i%2) {
|
|
sprintf(name, "obj_%05d", how_many-(1+i/2));
|
|
} else {
|
|
sprintf(name, "obj_%05d", i/2);
|
|
}
|
|
if (H5Gunlink(work, name)<0) goto error;
|
|
}
|
|
PASSED();
|
|
|
|
|
|
/* Cleanup */
|
|
if (H5Gclose(work)<0) goto error;
|
|
return 0;
|
|
|
|
error:
|
|
H5E_BEGIN_TRY {
|
|
H5Gclose(work);
|
|
H5Gclose(grp);
|
|
} H5E_END_TRY;
|
|
return 1;
|
|
}
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: test_symlink
|
|
*
|
|
* Purpose: Tests removal of symbolic links.
|
|
*
|
|
* Return: Success: 0
|
|
*
|
|
* Failure: number of errors
|
|
*
|
|
* Programmer: Robb Matzke
|
|
* Friday, September 25, 1998
|
|
*
|
|
* Modifications:
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
static int
|
|
test_symlink(hid_t file)
|
|
{
|
|
hid_t work=-1;
|
|
|
|
TESTING("symlink removal");
|
|
|
|
/* Create a test group and symlink */
|
|
if ((work=H5Gcreate(file, "/test_symlink", 0))<0) goto error;
|
|
if (H5Glink(work, H5G_LINK_SOFT, "link_value", "link")<0) goto error;
|
|
if (H5Gunlink(work, "link")<0) goto error;
|
|
|
|
/* Cleanup */
|
|
if (H5Gclose(work)<0) goto error;
|
|
PASSED();
|
|
return 0;
|
|
|
|
error:
|
|
H5E_BEGIN_TRY {
|
|
H5Gclose(work);
|
|
} H5E_END_TRY;
|
|
return 1;
|
|
}
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: test_rename
|
|
*
|
|
* Purpose: Tests H5Gmove()
|
|
*
|
|
* Return: Success: 0
|
|
*
|
|
* Failure: number of errors
|
|
*
|
|
* Programmer: Robb Matzke
|
|
* Friday, September 25, 1998
|
|
*
|
|
* Modifications:
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
static int
|
|
test_rename(hid_t file)
|
|
{
|
|
hid_t work=-1, foo=-1, inner=-1;
|
|
|
|
/* Create a test group and rename something */
|
|
TESTING("object renaming");
|
|
if ((work=H5Gcreate(file, "/test_rename", 0))<0) goto error;
|
|
if ((foo=H5Gcreate(work, "foo", 0))<0) goto error;
|
|
if (H5Gmove(work, "foo", "bar")<0) goto error;
|
|
if ((inner=H5Gcreate(foo, "inner", 0))<0) goto error;
|
|
if (H5Gclose(inner)<0) goto error;
|
|
if (H5Gclose(foo)<0) goto error;
|
|
if ((inner=H5Gopen(work, "bar/inner"))<0) goto error;
|
|
if (H5Gclose(inner)<0) goto error;
|
|
PASSED();
|
|
|
|
/* Try renaming a symlink */
|
|
TESTING("symlink renaming");
|
|
if (H5Glink(work, H5G_LINK_SOFT, "link_value", "link_one")<0) goto error;
|
|
if (H5Gmove(work, "link_one", "link_two")<0) goto error;
|
|
PASSED();
|
|
|
|
/* Cleanup */
|
|
if (H5Gclose(work)<0) goto error;
|
|
return 0;
|
|
|
|
error:
|
|
H5E_BEGIN_TRY {
|
|
H5Gclose(work);
|
|
H5Gclose(foo);
|
|
H5Gclose(inner);
|
|
} H5E_END_TRY;
|
|
return 1;
|
|
}
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: main
|
|
*
|
|
* Purpose: Test H5Gunlink()
|
|
*
|
|
* Return: Success: zero
|
|
*
|
|
* Failure: non-zero
|
|
*
|
|
* Programmer: Robb Matzke
|
|
* Friday, September 25, 1998
|
|
*
|
|
* Modifications:
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
int
|
|
main(void)
|
|
{
|
|
hid_t fapl, file;
|
|
int nerrors = 0;
|
|
char filename[1024];
|
|
|
|
/* Open */
|
|
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;
|
|
|
|
/* Tests */
|
|
nerrors += test_one(file);
|
|
nerrors += test_many(file);
|
|
nerrors += test_symlink(file);
|
|
nerrors += test_rename(file);
|
|
|
|
/* Close */
|
|
if (H5Fclose(file)<0) goto error;
|
|
if (nerrors) {
|
|
printf("***** %d FAILURE%s! *****\n", nerrors, 1==nerrors?"":"S");
|
|
exit(1);
|
|
}
|
|
puts("All unlink tests passed.");
|
|
h5_cleanup(fapl);
|
|
return 0;
|
|
error:
|
|
return 1;
|
|
}
|
|
|
|
|